| m0 < n0, m * n1 = n0 - m0, m0 < n0 ⊦ m * n2 + m0 = 0, m = 0, n2 = 0, n0 = 0, m | dist(m * n2 + m0, n0) |
Used simplifier rules: dist-add-01: ⊦ dist(m + n, m0 + n) = dist(m, m0);%dist-mult: ⊦ dist(m * n, m * n0) = m * dist(n, n0);%divi-mult: ⊦ m | m * n0;%lels-03: ⊦ m < n → m ≤ n; from specification nat%l-01: ⊦ m < m + n ↔ n ≠ 0; from specification nat-basic2%zero-06: ⊦ m ≠ 0 → (m * n = 0 ↔ n = 0); from specification nat-mult%mult-a: ⊦ m0 * m * n = (m0 * m) * n; from specification nat-mult%mult-c: ⊦ m * n = n * m; from specification nat-mult%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2%c: ⊦ m + n = n + m; from specification nat-basic2%n ≤ m ⊦ n0 = m - n ↔ m = n0 + n; (elim) Used terms: n0, m0, n