| dec2int(mkDecimal(i / 10, abs(j) - 1)) = (i / 10) / 10 ^ abs(abs(j) - 1), i % 10 = 0, ∀ i0, j. i→n(i0) < i→n(i) → true → dec2int(mkDecimal(i0, j)) = i0 / 10 ^ abs(j) ⊦ j = 0, dec2int(mkDecimal(i / 10, abs(j) - 1)) = i / 10 ^ abs(j) |
i % 10 = 0, dec2int(mkDecimal(i / 10, abs(j) - 1)) = (i / 10) / 10 ^ (abs(j) - 1), ∀ i0, j. i→n(i0) < i→n(i) → true → dec2int(mkDecimal(i0, j)) = i0 / 10 ^ abs(j) ⊦ j = 0, (i / 10) / 10 ^ (abs(j) - 1) = i / 10 ^ abs(j)
Used simplifier rules: abs-abs: ⊦ j ≠ 0 → abs(abs(j) - 1) = abs(j) - 1; from specification int-abs