mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 17:56:48 +03:00
9e09d6f845
this is temporarily becoming a behemoth, but that is fine - the goal is to first complete the bootstrap, and then add more features, which can then be used to decrease the size of the implementation.
10 lines
154 B
Plaintext
10 lines
154 B
Plaintext
Bool.or
|
|
: ∀(a: Bool)
|
|
∀(b: Bool)
|
|
Bool
|
|
= λa
|
|
let P = λa ∀(b:Bool) Bool
|
|
let true = λb Bool.true
|
|
let false = λb b
|
|
(~a P true false)
|