mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 20:47:25 +03:00
7 lines
176 B
Plaintext
7 lines
176 B
Plaintext
List.length
|
|
: ∀(A: *) ∀(a: (List A)) Nat
|
|
= λA λa
|
|
let P = λx Nat
|
|
let cons = λa.head λa.tail (Nat.succ (List.length A a.tail))
|
|
let nil = Nat.zero
|
|
(~a P cons nil) |