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