import classical
open nat

print pp.max_depth
print +
print -

print nat
print nat.zero
print nat.add
print nat.rec
print em
print quot.lift
print nat.of_num
print nat.add.assoc

section
  parameter {A : Type}
  variable {a : A}

  print A
  print a
end
