ex6.2のint_of_nat, mul
ex6.2 monus