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