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