| i0 % 10 = 0, ∀ i1, i2, j, j0. i→n(i1) + i→n(i2) < i→n(i) + i→n(i0) → true → (mkDecimal(i1, j) = mkDecimal(i2, j0) ↔ i1 * 10 ^ abs(j0) = i2 * 10 ^ abs(j)) ⊦ i→n(i) + i→n(i0 / 10) < i→n(i) + i→n(i0), j0 = 0, mkDecimal(i, j) = mkDecimal(i0 / 10, abs(j0) - 1) ↔ i * 10 ^ abs(j0) = i0 * 10 ^ abs(j), i % 10 = 0 ∧ j ≠ 0 |
∀ i1, i2, j, j0. i→n(i1) + i→n(i2) < i→n(i) + i→n(0) → true → (mkDecimal(i1, j) = mkDecimal(i2, j0) ↔ i1 * 10 ^ abs(j0) = i2 * 10 ^ abs(j)) ⊦ j0 = 0, mkDecimal(i, j) = mkDecimal(0, abs(j0) - 1) ↔ i * 10 ^ abs(j0) = 0, i % 10 = 0 ∧ j ≠ 0
Used simplifier rules: commutativity: ⊦ i * j = j * i; from specification int-mult%associativity: ⊦ i * j * j0 = (i * j) * j0; from specification int-mult%Mult-zero: ⊦ i * 0 = 0; from specification int-mult%c: ⊦ m + n = n + m; from specification nat-basic2%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2%abs-div10-le: ⊦ abs(i) ≤ abs(i) / 10 ↔ i = 0; from specification int-div%lels: ⊦ ¬ i < j ↔ j ≤ i; from specification int-abs%abs: j ≠ 0 ⊦ abs(i / j) = abs(i) / abs(j); from specification int-div%labs: ⊦ i→n(i) < i→n(j) ↔ abs(i) < abs(j); from specification intnat%l: ⊦ m + n < m + n0 ↔ n < n0; from specification nat-basic2