Kind/book/Nat.kind2
2024-03-12 11:55:09 -03:00

19 lines
183 B
Plaintext

data Nat
| succ (pred: Nat)
| zero
//Nat
//: *
//= $(self: Nat)
//∀(P: ∀(n: Nat) *)
//∀(succ: ∀(n: Nat) (P (Nat.succ n)))
//∀(zero: (P Nat.zero))
//(P self)