m0 + n0 = m1 * n + n1, n0 < n, m0 < n, n1 < n ⊦ n1 = m0 ↔ n0 = 0, n = 0
Rule argument
spec: <toplevel>
name: div-elim
seq: n ≠ 0 ⊦ m0 = m / n ∧ n0 = m % n ↔ m = m0 * n + n0 ∧ n0 < n
subst: [m, n, m0, n0] → [m0 + n0, n, m, n1]
flags: <rotated> <all paths>