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