mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 16:36:13 +03:00
12 lines
193 B
Plaintext
12 lines
193 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)
|