| ⊦ mkDecimal((i * 10 ^ abs(i2) + i1 * 10 ^ abs(i0)) * 10 ^ abs(i2) - i1 * 10 ^ abs(abs(i0) + abs(i2)), abs(abs(i0) + abs(i2)) + abs(i2)) = mkDecimal(i, i0) |
⊦ mkDecimal((i * 10 ^ abs(i2) + i1 * 10 ^ abs(i0)) * 10 ^ abs(i2) - i1 * 10 ^ (abs(i0) + abs(i2)), 2 * abs(i2) + abs(i0)) = mkDecimal(i, i0)
Used simplifier rules: add-mult-two: ⊦ i + i = 2 * i; from specification int-mult%add-c: ⊦ i + j = j + i; from specification int-basic2%add-a: ⊦ i + j + i0 = (i + j) + i0; from specification int-basic2%abs-abs-01: ⊦ abs(abs(i) + abs(j)) = abs(i) + abs(j); from specification int-abs