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