mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-10-26 16:20:58 +03:00
7 lines
136 B
Plaintext
7 lines
136 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) |