| dec = mkDecimal(dec.int, dec.scale), j * j = dec.int, dec.scale = j0 * 2 ⊦ mkDecimal(abs(j) * abs(j), 2 * abs(j0)) = dec |
mkDecimal(j * j, j0 * 2).scale = j0 * 2, j * j = mkDecimal(j * j, j0 * 2).int ⊦ mkDecimal(abs(j) * abs(j), 2 * abs(j0)) = mkDecimal(j * j, j0 * 2)