| 0 < j0, 0 ≤ j0, ∀ j1, i, j. i→n(j1) < i→n(j0) → 0 ≤ j1 → mkDecimal(i, j) = mkDecimal(i * 10 ^ j1, abs(j) + j1) ⊦ mkDecimal(i, j) = mkDecimal(i * 10 ^ j0 -1 * 10, abs(j) + j0) |
0 ≤ j0, 0 < j0, ∀ j1, i, j. i→n(j1) < i→n(j0) → 0 ≤ j1 → mkDecimal(i, j) = mkDecimal(i * 10 ^ j1, abs(j) + j1) ⊦ mkDecimal(i, j) = mkDecimal(i * 10 ^ (j0 - 1) * 10, abs(j) + j0)
Used simplifier rules: forward-le-05: ⊦ i < j ∧ 0 ≤ i → 0 < j; (forward) from specification int-abs%associativity: ⊦ i * j * j0 = (i * j) * j0; from specification int-mult%sub-pred: ⊦ i -1 = i - 1; from specification int-abs