-- FILE: basicNatPlus.mod

mod! BARE-NAT {
  [ Nat ]
  op 0 : -> Nat
  op s_ : Nat -> Nat
}

mod! NATplus Nat { 
  pr(BARE-NAT)
  op _+_ : Nat Nat -> Nat
  
  eq    0      + N:Nat = N .
  eq (s M:Nat) + N:Nat = s(M + N) .
}

eof