11 lines
152 B
Text
11 lines
152 B
Text
inductive N :=
|
|
| O : N
|
|
| S : N → N
|
|
|
|
definition Nat := N
|
|
|
|
open N
|
|
|
|
definition add : Nat → Nat → Nat
|
|
| add O b := b
|
|
| add (S a) b := S (add a b)
|