| dec = mkDecimal(i, i0), mkDecimal(0, 0) < dec ⊦ dec * dec_i < dec * dec_j ↔ dec_i < dec_j |
0 < i ⊦ mkDecimal(i, i0) * dec_i < mkDecimal(i, i0) * dec_j ↔ dec_i < dec_j
Used simplifier rules: ls-zero: ⊦ mkDecimal(0, 0) < mkDecimal(i, j) ↔ 0 < i;%forward-le-05: ⊦ i < j ∧ 0 ≤ i → 0 < j; (forward) from specification int-abs