diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-26 22:33:45 +0100 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-27 09:57:11 +0100 |
| commit | a9adcb3941900c416f106ddac6fd646603b335b8 (patch) | |
| tree | 0c86b8c13cfd06179b96b72aeb2896cee3bdd272 /pretyping | |
| parent | 65c8d91cd4c11b8de44f0b23cd44a3303cd54d4e (diff) | |
Dead code
Diffstat (limited to 'pretyping')
| -rw-r--r-- | pretyping/unification.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/pretyping/unification.ml b/pretyping/unification.ml index 1a1d03cc8..07940bf57 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -1480,7 +1480,7 @@ let make_abstraction_core name (test,out) env sigma c ty occs check_occs concl = ++ str ".") else (push_named_context_val d sign,depdecls) - | (AtOccs (AllOccurrences, InHyp) | LikeFirst) as occ -> + | (AtOccs (AllOccurrences, InHyp) | LikeFirst) -> let newdecl = replace_term_occ_decl_modulo LikeFirst test mkvarid d in if Context.eq_named_declaration d newdecl && not (indirectly_dependent c d depdecls) |