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