diff options
| author | aspiwack | 2013-11-02 15:39:10 +0000 |
|---|---|---|
| committer | aspiwack | 2013-11-02 15:39:10 +0000 |
| commit | 470cc2d01e6c4c2bc0ed109e20e1645c785dccf6 (patch) | |
| tree | 484db0fd093eff48d745768d4fd16fdfc636479b | |
| parent | b9b1122ff82cd9e8bb9782e7c4c5d39bf0df7488 (diff) | |
Normalise goals with respect to evars in the new tactics.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@17008 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | proofs/goal.ml | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/proofs/goal.ml b/proofs/goal.ml index 2e7ee10bc0..5601cef823 100644 --- a/proofs/goal.ml +++ b/proofs/goal.ml @@ -355,6 +355,7 @@ let defs _ rdefs _ _ = !rdefs let enter f = (); fun env rdefs gl info -> + let info = Evarutil.nf_evar_info !rdefs info in f env !rdefs (Evd.evar_hyps info) (Evd.evar_concl info) gl (*** Conversion in goals ***) |