From ebc3fe11bc68ac517ff6203504c3d1d4640f8259 Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 13 Dec 2009 21:04:34 +0000
Subject: 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
---
 tactics/equality.ml | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'tactics/equality.ml')

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)
-- 
cgit v1.2.3