-- Exercise 2
-- page 2
mod! BASIC-NAT{
  [Zero NzNat < Nat]
  op 0 : -> Zero
  op s_ : Nat -> NzNat
}
mod! NAT+'' {
  pr(BASIC-NAT)
  op _+_ : Nat Nat -> Nat
  vars M N : Nat
  eq N + 0 = N .
  eq M + s N = s(M + N) .
  eq 0 + N = N .
  eq s M + N = s(M + N) .
}