diff options
| author | Cyprien Mangin | 2016-06-30 19:41:53 +0200 |
|---|---|---|
| committer | Cyprien Mangin | 2016-06-30 19:52:12 +0200 |
| commit | fd47b2d2638518fe62ce9c63557d2dab219d9558 (patch) | |
| tree | 5e2d89f69ec5a3a27ee1bb346ce0cfed69a95807 /test-suite | |
| parent | 9501ddd635adea7db07b4df60b8bda1d557dff18 (diff) | |
Goal selectors now use the keyword [only].
This fixes some parsing problems when doing things like
[let n := 2 in idtac n]. See bug #4877.
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/bugs/closed/4877.v | 12 | ||||
| -rw-r--r-- | test-suite/success/goal_selector.v | 8 |
2 files changed, 16 insertions, 4 deletions
diff --git a/test-suite/bugs/closed/4877.v b/test-suite/bugs/closed/4877.v new file mode 100644 index 0000000000..7e3c78dc2e --- /dev/null +++ b/test-suite/bugs/closed/4877.v @@ -0,0 +1,12 @@ +Ltac induction_last := + let v := match goal with + | |- forall x y, _ = _ -> _ => 1 + | |- forall x y, _ -> _ = _ -> _ => 2 + | |- forall x y, _ -> _ -> _ = _ -> _ => 3 + end in + induction v. + +Goal forall n m : nat, True -> n = m -> m = n. + induction_last. + reflexivity. +Qed.
\ No newline at end of file diff --git a/test-suite/success/goal_selector.v b/test-suite/success/goal_selector.v index 91fb54d9a1..8681405175 100644 --- a/test-suite/success/goal_selector.v +++ b/test-suite/success/goal_selector.v @@ -34,7 +34,7 @@ Qed. Goal True -> True. Proof. - intros y; 1-2 : repeat idtac. + intros y; only 1-2 : repeat idtac. 1-1:match goal with y : _ |- _ => let x := y in idtac x end. Fail 1-1:let x := y in idtac x. 1:let x := y in idtac x. @@ -44,12 +44,12 @@ Qed. Goal True /\ (True /\ True). Proof. dup. - - split; 2: (split; exact I). + - split; only 2: (split; exact I). exact I. - - split; 2: split; exact I. + - split; only 2: split; exact I. Qed. Goal True -> exists (x : Prop), x. Proof. - intro H; eexists ?[x]. [x]: exact True. 1: assumption. + intro H; eexists ?[x]; only [x]: exact True. 1: assumption. Qed. |