diff options
Diffstat (limited to 'test-suite/success/goal_selector.v')
-rw-r--r-- | test-suite/success/goal_selector.v | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/test-suite/success/goal_selector.v b/test-suite/success/goal_selector.v index 9ba748e2a..dd7ad1013 100644 --- a/test-suite/success/goal_selector.v +++ b/test-suite/success/goal_selector.v @@ -34,8 +34,22 @@ Qed. Goal True -> True. Proof. - intros y. + intros y; 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. exact I. -Qed.
\ No newline at end of file +Qed. + +Goal True /\ (True /\ True). +Proof. + dup. + - split; 2: (split; exact I). + exact I. + - split; 2: split; exact I. +Qed. + +Goal True -> exists (x : Prop), x. +Proof. + intro H; eexists ?[x]; ?[x]: exact True; assumption. +Qed. |