blob: 1a2fbcbb375f7a69791a749b5e190d4a6650b287 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
Require Import Ltac2.Ltac2.
Import Ltac2.Notations.
Goal True.
Proof.
Fail fail.
Fail solve [ () ].
try fail.
repeat fail.
repeat ().
solve [ constructor ].
Qed.
Goal True.
Proof.
first [
Message.print (Message.of_string "Yay"); fail
| constructor
| Message.print (Message.of_string "I won't be printed")
].
Qed.
Goal True /\ True.
Proof.
Fail split > [ split | |].
split > [split | split].
Qed.
Goal True /\ (True -> True) /\ True.
Proof.
split > [ | split] > [split | .. | split].
intros H; refine &H.
Qed.
|
