diff options
| author | Pierre-Marie Pédrot | 2016-09-04 20:11:45 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2016-09-04 20:11:45 +0200 |
| commit | 3cf399dd17759cc0258295045742f1b50e376d5a (patch) | |
| tree | 92a6715988f6eeddf6138b56ed10de053f2a6e79 | |
| parent | 1210d1270a7de98abf90761e531062679fb8bdab (diff) | |
Do not normalize evars in Eauto.e_give_exact.
This is not needed, as the terms are then checked up to unification or
convertibility.
| -rw-r--r-- | tactics/eauto.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tactics/eauto.ml b/tactics/eauto.ml index 2eca1e597c..ba9a2d95c8 100644 --- a/tactics/eauto.ml +++ b/tactics/eauto.ml @@ -29,9 +29,9 @@ open Proofview.Notations let eauto_unif_flags = auto_flags_of_state full_transparent_state let e_give_exact ?(flags=eauto_unif_flags) c = - Proofview.Goal.nf_enter { enter = begin fun gl -> + Proofview.Goal.enter { enter = begin fun gl -> let t1 = Tacmach.New.pf_unsafe_type_of gl c in - let t2 = Tacmach.New.pf_concl gl in + let t2 = Tacmach.New.pf_concl (Proofview.Goal.assume gl) in if occur_existential t1 || occur_existential t2 then Tacticals.New.tclTHEN (Clenvtac.unify ~flags t1) (exact_no_check c) else exact_check c |