mirror of
https://github.com/HigherOrderCO/Kind.git
synced 2024-10-04 02:38:28 +03:00
8 lines
111 B
Plaintext
8 lines
111 B
Plaintext
use Nat/{succ,zero}
|
|
|
|
add (a: Nat) (b: Nat) : Nat =
|
|
match a {
|
|
succ: (succ (add a.pred b))
|
|
zero: b
|
|
}
|