| mkDecimal(j1, abs(j) - 1) - mkDecimal(i0, 0) = mkDecimal(j1 * 10 - (i0 * 10 ^ (abs(j) - 1)) * 10, abs(j)), ∀ i1, i2, j, j0. i→n(i1) + i→n(i2) < i→n(j1 * 10) + i→n(i0) → true → mkDecimal(i1, j) - mkDecimal(i2, j0) = mkDecimal(i1 * 10 ^ abs(j0) - i2 * 10 ^ abs(j), abs(j) + abs(j0)) ⊦ j = 0, i0 = 0, 10 ^ abs(j) = 10 ^ (abs(j) - 1) * 10 |
⊦ 0 < i → j ^ i = j ^ i -1 * j
Used simplifier rules: sub-pred: ⊦ i -1 = i - 1; from specification int-abs%eq-pos: ⊦ 0 < i → (i * j = i * j0 ↔ j = j0); from specification int-mult%associativity: ⊦ i * j * j0 = (i * j) * j0; from specification int-mult%commutativity: ⊦ i * j = j * i; from specification int-mult%abs-06: ⊦ 0 < abs(i) ↔ i ≠ 0; from specification int-abs Used terms: abs(j), 10