| j * j = i * j0 * j0, 0 < i, j ≠ 0 ∨ j0 ≠ 0 ⊦ j < 0, ∃ i0. i = i0 * i0, 0 < j ∧ 0 < j0 |
j * j = i * j0 * j0, 0 < i, 0 ≤ j, j ≠ 0 ∨ j0 ≠ 0 ⊦ ∃ i0. i = i0 * i0, 0 < j ∧ 0 < j0
Used simplifier rules: forward-le-01: ⊦ i ≤ j ∧ 0 ≤ i → 0 ≤ j; (forward) from specification int-abs% ⊦ i < j ↔ ¬ j ≤ i; (ss)