mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 20:47:25 +03:00
8 lines
199 B
Plaintext
8 lines
199 B
Plaintext
Bool.lemma.notnot
|
|
: ∀(b: Bool) (Equal Bool (Bool.not (Bool.not b)) b)
|
|
= λb
|
|
(~b
|
|
λx (Equal Bool (Bool.not (Bool.not x)) x)
|
|
(Equal.refl Bool Bool.true)
|
|
(Equal.refl Bool Bool.false)
|
|
) |