From 3cf399dd17759cc0258295045742f1b50e376d5a Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Sun, 4 Sep 2016 20:11:45 +0200 Subject: Do not normalize evars in Eauto.e_give_exact. This is not needed, as the terms are then checked up to unification or convertibility. --- tactics/eauto.ml | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'tactics/eauto.ml') diff --git a/tactics/eauto.ml b/tactics/eauto.ml index 2eca1e597..ba9a2d95c 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 -- cgit v1.2.3