diff options
| author | herbelin | 2011-11-06 11:55:42 +0000 |
|---|---|---|
| committer | herbelin | 2011-11-06 11:55:42 +0000 |
| commit | d9b82a2d4a9e310f9f0cd907e71bc6a57bf03efd (patch) | |
| tree | a2a5b25d1c5191acabebf00630471ba623bb246a | |
| parent | 4e1de854561f20e2069df271ed6f240fc521e680 (diff) | |
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
| -rw-r--r-- | tactics/tactics.ml | 4 | ||||
| -rw-r--r-- | test-suite/success/remember.v | 8 |
2 files changed, 10 insertions, 2 deletions
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. |