m = m0 * n + n0 ∧ n0 < n ⊦ (m + 1) % n < n0 ↔ (m + 1) % n = 0 ∧ n ≠ 1, n = 0
Rule argument
spec: nat-div
inst:
name: div-elim
seq: n ≠ 0 ⊦ m0 = m / n ∧ n0 = m % n ↔ m = m0 * n + n0 ∧ n0 < n
subst: [m, n, m0, n0] → [m, n, m0, n0]
flags: rewrite, current