diff options
author | 2014-10-26 15:20:06 +0100 | |
---|---|---|
committer | 2014-10-26 15:26:22 +0100 | |
commit | c08977ff52424b39c92d8bf6aa97255c0a718e50 (patch) | |
tree | 75b2e8d46a99d5fd99322cae4953c60b2e243ded /pretyping | |
parent | 29a5127dac6d4fbc317e38452cf0fe05916adc56 (diff) |
Applying like-first selection for destruct in hypotheses.
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 8b14feca0..1a1d03cc8 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 |