mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 17:56:48 +03:00
7 lines
188 B
Plaintext
7 lines
188 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))
|