From d9b82a2d4a9e310f9f0cd907e71bc6a57bf03efd Mon Sep 17 00:00:00 2001
From: herbelin
Date: Sun, 6 Nov 2011 11:55:42 +0000
Subject: Fixing tactic remember not correctly checking preservation of typing
 in hypotheses.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14638 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 tactics/tactics.ml            | 4 ++--
 test-suite/success/remember.v | 8 ++++++++
 2 files changed, 10 insertions(+), 2 deletions(-)
 create mode 100644 test-suite/success/remember.v

diff --git a/tactics/tactics.ml b/tactics/tactics.ml
index 4022af6d94..cddb7a2b29 100644
--- a/tactics/tactics.ml
+++ b/tactics/tactics.ml
@@ -1768,8 +1768,8 @@ let letin_tac_gen with_eq name (sigmac,c) test ty occs gl =
   tclTHENLIST
     [ convert_concl_no_check newcl DEFAULTcast;
       intro_gen dloc (IntroMustBe id) lastlhyp true false;
-      eq_tac;
-      tclMAP convert_hyp_no_check depdecls ] gl
+      tclMAP convert_hyp_no_check depdecls;
+      eq_tac ] gl
 
 let make_eq_test c = (make_eq_test c,fun _ -> c)
 
diff --git a/test-suite/success/remember.v b/test-suite/success/remember.v
new file mode 100644
index 0000000000..3241e1339b
--- /dev/null
+++ b/test-suite/success/remember.v
@@ -0,0 +1,8 @@
+(* Testing remember and co *)
+
+Lemma A : forall (P: forall X, X -> Prop), P nat 0 -> P nat 0.
+intros.
+Fail remember nat as X.
+Fail remember nat as X in H. (* This line used to succeed in 8.3 *)
+Fail remember nat as X in |- *.
+Abort.
-- 
cgit v1.2.3