| 0 ≤ abs(i2) ⊦ mkDecimal(i1 * 10 ^ abs(j) + i * 10 ^ abs(i2), abs(i2) + abs(j)) < mkDecimal(i0 * 10 ^ abs(i2), abs(abs(j)) + abs(i2)) ↔ mkDecimal(i1, i2) < mkDecimal(i0 - i, j) |
⊦ i1 * 10 ^ abs(j) + i * 10 ^ abs(i2) < i0 * 10 ^ abs(i2) ↔ mkDecimal(i1, i2) < mkDecimal(i0 - i, j)
Used simplifier rules: less-same: ⊦ mkDecimal(i, j) < mkDecimal(i0, j) ↔ i < i0;%abs-03: ⊦ 0 ≤ abs(i); from specification int-abs%add-c: ⊦ i + j = j + i; from specification int-basic2%abs-01: ⊦ abs(abs(i)) = abs(i); from specification int-abs