2015-02-24 05:33:52 +00:00
|
|
|
inductive N :=
|
2015-02-26 01:00:10 +00:00
|
|
|
| O : N
|
|
|
|
| S : N → N
|
2015-02-24 05:33:52 +00:00
|
|
|
|
|
|
|
definition Nat := N
|
|
|
|
|
|
|
|
open N
|
|
|
|
|
2015-10-13 22:39:03 +00:00
|
|
|
definition add1 : Nat → Nat → Nat
|
|
|
|
| add1 O b := b
|
|
|
|
| add1 (S a) b := S (add1 a b)
|