mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-09-11 15:56:12 +03:00
10 lines
187 B
Plaintext
10 lines
187 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)
|