| ⊦ i * i * 10 ^ abs(i2) * 10 ^ abs(i2) < i1 * i1 * 10 ^ (2 * abs(i0)) ↔ abs(mkDecimal(i, i0)) < abs(mkDecimal(i1, i2)) |
⊦ 0 ≤ j → i ^ (2 * j) = i ^ j * i ^ j
0 ≤ abs(i0) ⊦ i * i * 10 ^ abs(i2) * 10 ^ abs(i2) < i1 * i1 * 10 ^ abs(i0) * 10 ^ abs(i0) ↔ abs(mkDecimal(i, i0)) < abs(mkDecimal(i1, i2))
Used simplifier rules: ls-not: ⊦ ¬ dec < dec0 ↔ dec0 ≤ dec;%lels: ⊦ ¬ i < j ↔ j ≤ i; from specification int-abs%abs-03: ⊦ 0 ≤ abs(i); from specification int-abs Used terms: abs(i0), 10