| i % 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 / 10) + i→n(i0) < i→n(i) + i→n(i0), j = 0, mkDecimal(i / 10, abs(j) - 1) = mkDecimal(i0, j0) ↔ i * 10 ^ abs(j0) = i0 * 10 ^ abs(j) |
∀ i1, i2, j, j0. i→n(i1) + i→n(i2) < i→n(0) + i→n(i0) → true → (mkDecimal(i1, j) = mkDecimal(i2, j0) ↔ i1 * 10 ^ abs(j0) = i2 * 10 ^ abs(j)) ⊦ j = 0, mkDecimal(0, abs(j) - 1) = mkDecimal(i0, j0) ↔ 0 = i0 * 10 ^ abs(j)
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