| dec.scale % 2 = 0, j * j = dec.int ⊦ mkDecimal(abs(j), dec.scale / 2) * mkDecimal(abs(j), dec.scale / 2) = dec |
⊦ mkDecimal(i, j) * mkDecimal(i0, j0) = mkDecimal(i * i0, abs(j) + abs(j0))
dec.scale % 2 = 0, j * j = dec.int ⊦ mkDecimal(abs(j) * abs(j), abs(dec.scale / 2) + abs(dec.scale / 2)) = dec
Used terms: dec.scale / 2, abs(j), dec.scale / 2, abs(j)