diff options
| author | herbelin | 2009-12-13 21:04:34 +0000 |
|---|---|---|
| committer | herbelin | 2009-12-13 21:04:34 +0000 |
| commit | ebc3fe11bc68ac517ff6203504c3d1d4640f8259 (patch) | |
| tree | c6cb3e90bc2d876909023ff6b3c96f97ce5c719b /tactics/equality.ml | |
| parent | fe26f76e49aabecefde48508a08c8750c77ec021 (diff) | |
Made the side-conditions of lemmas always come last when chaining "apply in"
in presence of destruction of conjunctive types.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12584 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'tactics/equality.ml')
| -rw-r--r-- | tactics/equality.ml | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/tactics/equality.ml b/tactics/equality.ml index 86bb078296..c6c29a5698 100644 --- a/tactics/equality.ml +++ b/tactics/equality.ml @@ -1195,7 +1195,9 @@ let cutSubstInHyp_LR eqn id gls = let body,expected_goal = pf_apply subst_tuple_term gls e1 e2 idtyp in if not (dependent (mkRel 1) body) then raise NothingToRewrite; cut_replacing id expected_goal - (tclTHENFIRST (bareRevSubstInConcl lbeq body eq)) gls + (tclTHENFIRST + (bareRevSubstInConcl lbeq body eq) + (refine_no_check (mkVar id))) gls let cutSubstInHyp_RL eqn id gls = (tclTHENS (cutSubstInHyp_LR (swap_equands gls eqn) id) |