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)