diff options
| author | aspiwack | 2013-11-02 15:41:16 +0000 |
|---|---|---|
| committer | aspiwack | 2013-11-02 15:41:16 +0000 |
| commit | 9f24c209b2c2832f552838f365cfef5df2764715 (patch) | |
| tree | a1371bfe04c8c38c324a8da318e7aabb1247e927 /tactics | |
| parent | 8c1e25acc561767980acdccc987087f51e0e2a12 (diff) | |
Fix destruct: nf_evar prior to tactic interpretation.
Noticed in CoRN
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@17028 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics')
| -rw-r--r-- | tactics/tacinterp.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/tactics/tacinterp.ml b/tactics/tacinterp.ml index eae2be0177..4696c23560 100644 --- a/tactics/tacinterp.ml +++ b/tactics/tacinterp.ml @@ -1960,6 +1960,9 @@ and interp_atomic ist tac = | TacSimpleInductionDestruct (isrec,h) -> h_simple_induction_destruct isrec (interp_quantified_hypothesis ist h) | TacInductionDestruct (isrec,ev,(l,el,cls)) -> + (* spiwack: some unknown part of destruct needs the goal to be + prenormalised. *) + Proofview.V82.nf_evar_goals <*> Proofview.Goal.enter begin fun gl -> let env = Proofview.Goal.env gl in let l = |