Skip to content
This repository was archived by the owner on Aug 27, 2026. It is now read-only.

Commit f1e5a49

Browse files
committed
Add explicit no-simp Bool enumeration proof
1 parent 20a7239 commit f1e5a49

1 file changed

Lines changed: 25 additions & 0 deletions

File tree

Lines changed: 25 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,25 @@
1+
import verification.wave2_family5.Wave2Family5
2+
3+
namespace Wave2Family5
4+
5+
def boolExactEnumExplicit : ExactEnum Bool where
6+
elems := [false, true]
7+
nodup := by
8+
apply List.nodup_cons.mpr
9+
constructor
10+
· intro hMem
11+
cases hMem
12+
· apply List.nodup_cons.mpr
13+
constructor
14+
· intro hMem
15+
cases hMem
16+
· exact List.nodup_nil
17+
complete := by
18+
intro b
19+
cases b with
20+
| false =>
21+
exact .head _
22+
| true =>
23+
exact .tail _ (.head _)
24+
25+
end Wave2Family5

0 commit comments

Comments
 (0)