Additional properties/lemmata of Nats
unfoldDouble : 2 * n = n + n
unfoldDoubleS : 2 * S n = 2 + (2 * n)
multRightCancel : (a : Nat) -> (b : Nat) -> (r : Nat) -> (0 _ : NonZero r) -> a * r = b * r -> a = b