diff options
| author | Hugo Herbelin | 2014-10-26 15:20:06 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2014-10-26 15:26:22 +0100 |
| commit | c08977ff52424b39c92d8bf6aa97255c0a718e50 (patch) | |
| tree | 75b2e8d46a99d5fd99322cae4953c60b2e243ded | |
| parent | 29a5127dac6d4fbc317e38452cf0fe05916adc56 (diff) | |
Applying like-first selection for destruct in hypotheses.
| -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 8b14feca04..1a1d03cc8a 100644 --- a/pretyping/unification.ml +++ b/pretyping/unification.ml @@ -1481,7 +1481,7 @@ let make_abstraction_core name (test,out) env sigma c ty occs check_occs concl = else (push_named_context_val d sign,depdecls) | (AtOccs (AllOccurrences, InHyp) | LikeFirst) as occ -> - let newdecl = replace_term_occ_decl_modulo occ test mkvarid d in + 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) then |