mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 17:56:48 +03:00
8 lines
182 B
Plaintext
8 lines
182 B
Plaintext
U60.match
|
|
: ∀(x: #U60)
|
|
∀(P: ∀(x: #U60) *)
|
|
∀(s: ∀(x: #U60) (P #(+ #1 x)))
|
|
∀(z: (P #0))
|
|
(P x)
|
|
= λx λP λs λz
|
|
#match self = x { #0: z #+: (s self-1) }: (P self) |