open nat
#check succ 1
notation 1 := unit
#check succ 1
