mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 16:46:06 +03:00
10 lines
140 B
Plaintext
10 lines
140 B
Plaintext
Bool.match
|
|
: ∀(b: Bool)
|
|
∀(P: ∀(x: Bool) *)
|
|
∀(t: (P Bool.true))
|
|
∀(f: (P Bool.false))
|
|
(P b)
|
|
= λb λP λt λf
|
|
(~b P t f)
|
|
|