2015-02-23 21:33:52 -08:00
|
|
|
inductive N :=
|
2015-02-25 17:00:10 -08:00
|
|
|
| O : N
|
|
|
|
| S : N → N
|
2015-02-23 21:33:52 -08:00
|
|
|
|
|
|
|
definition Nat := N
|
|
|
|
|
|
|
|
open N
|
|
|
|
|
2015-10-13 15:39:03 -07:00
|
|
|
definition add1 : Nat → Nat → Nat
|
|
|
|
| add1 O b := b
|
|
|
|
| add1 (S a) b := S (add1 a b)
|