mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-17 19:17:44 +03:00
6 lines
126 B
Plaintext
6 lines
126 B
Plaintext
|
U60.match (x: U60) (P: U60 -> *) (s: U60 -> (P (+ 1 x))) (z: (P 0)) : (P x) =
|
||
|
|
switch x {
|
||
|
|
0: z
|
||
|
|
_: (s x-1)
|
||
|
|
}: (P x)
|