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