From 14893db7bda6542fa466508d962920ee64d3e45a Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 25 Oct 2009 21:16:51 +0000
Subject: Restore (and test) broken chaining of lemmas in "apply in" in
 presence of side conditions. Fix a small presentation issue in printing the
 "exists" tactic.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@12416 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/tactics.ml | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'tactics')

diff --git a/tactics/tactics.ml b/tactics/tactics.ml
index b2f7a43744..f99da0247b 100644
--- a/tactics/tactics.ml
+++ b/tactics/tactics.ml
@@ -1392,9 +1392,12 @@ let as_tac id ipat = match ipat with
       user_err_loc (loc,"", str "Disjunctive/conjunctive pattern expected")
   | None -> tclIDTAC
 
+let tclMAPFIRST tacfun l =
+  List.fold_right (fun x -> tclTHENFIRST (tacfun x)) l tclIDTAC
+
 let general_apply_in with_delta with_destruct with_evars id lemmas ipat gl =
   tclTHENFIRST (* Skip the side conditions of the applied lemma *)
-    (tclMAP (apply_in_once with_delta with_destruct with_evars id) lemmas)
+    (tclMAPFIRST (apply_in_once with_delta with_destruct with_evars id) lemmas)
     (as_tac id ipat)
     gl
 
-- 
cgit v1.2.3