Skip to content

Commit 511f002

Browse files
committed
Add qualified names test
1 parent 53e8152 commit 511f002

1 file changed

Lines changed: 27 additions & 0 deletions

File tree

Lines changed: 27 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,27 @@
1+
(* -*- mode: coq; coq-prog-args: ("-accessible-goal-names") -*- *)
2+
3+
Goal forall a b : bool, a = a.
4+
Proof.
5+
intros.
6+
destruct a.
7+
[true_case]: destruct b.
8+
[true_case.true_case]: reflexivity.
9+
[true_case.false_case]: reflexivity.
10+
[false_case]: reflexivity.
11+
Qed.
12+
13+
Goal forall a b c : bool, a = a.
14+
Proof.
15+
intros.
16+
destruct a.
17+
all: destruct b.
18+
all: destruct c.
19+
[true_case.true_case.true_case]: reflexivity.
20+
[true_case.true_case.false_case]: reflexivity.
21+
[true_case.false_case.true_case]: reflexivity.
22+
[true_case.false_case.false_case]: reflexivity.
23+
[false_case.true_case.true_case]: reflexivity.
24+
[false_case.true_case.false_case]: reflexivity.
25+
[false_case.false_case.true_case]: reflexivity.
26+
[false_case.false_case.false_case]: reflexivity.
27+
Qed.

0 commit comments

Comments
 (0)