| (mkDecimal(i, i0) * mkDecimal(i, i0)).int < 0 ⊦ |
⊦ mkDecimal(i, j) * mkDecimal(i0, j0) = mkDecimal(i * i0, abs(j) + abs(j0))
Used simplifier rules: add-mult-two: ⊦ i + i = 2 * i; from specification int-mult%add-a: ⊦ i + j + i0 = (i + j) + i0; from specification int-basic2%add-c: ⊦ i + j = j + i; from specification int-basic2%getint-neg-02: ⊦ mkDecimal(i, j).int < 0 ↔ i < 0; from specification decimal%square-lez: ⊦ ¬ i * i < 0; from specification int-mult%associativity: ⊦ i * j * j0 = (i * j) * j0; from specification int-mult%commutativity: ⊦ i * j = j * i; from specification int-mult Used terms: i0, i, i0, i