-- FILE: constVsVar.mod

in nat+.mod

set trace on
set trace whole on

open (NAT+ + EQL)
op n : -> Nat .
eq n + 0 = n .
red (s n) + 0 = s n .
close

open (NAT+ + EQL)
var N : Nat .
eq N + 0 = N .
red (s N) + 0 = s N .
close