enrich
nat-mult
with
variables
m : nat;
n : nat;
partial functions
. / . : nat × nat → nat prio 11 right with λ n, m. m ≠ 0;
. % . : nat × nat → nat prio 11 right with λ n, m. m ≠ 0;
axioms
Divdef: n ≠ 0 → m / n * n ≤ m ∧ m < (m / n)+1 * n;
Moddef: n ≠ 0 → m = m / n * n + m % n;
end enrich