diff options
| -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. |