diff options
| author |  Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-15 17:48:17 +0200 |
|---|---|---|
| committer | Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr> | 2016-06-20 07:58:04 +0200 |
| commit | 43a43ea30b30e609ce28c69d50bc276c84073486 (patch) | |
| tree | 1a891627f511665c239b103cc5b0fa776d5df8e0 /proofs/clenvtac.ml | |
| parent | 2964390736b887d47ec17429631575fec7188d5a (diff) | |
Prevent a useless evar normalization in Clenvtac.unify.
Diffstat (limited to 'proofs/clenvtac.ml')
| -rw-r--r-- | proofs/clenvtac.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/proofs/clenvtac.ml b/proofs/clenvtac.ml index 08e6c91de..da2eee32a 100644 --- a/proofs/clenvtac.ml +++ b/proofs/clenvtac.ml @@ -120,7 +120,7 @@ let fail_quick_unif_flags = { let unify ?(flags=fail_quick_unif_flags) m = Proofview.Goal.enter { enter = begin fun gl -> let env = Tacmach.New.pf_env gl in - let n = Tacmach.New.pf_nf_concl gl in + let n = Tacmach.New.pf_concl (Proofview.Goal.assume gl) in let evd = clear_metas (Tacmach.New.project gl) in try let evd' = w_unify env evd CONV ~flags m n in |