| j * j = (j1 * j1 * i) * j0 * j0, gcd(j, j0) = 1, 1 < j1 * j1 * i, 0 < j1 * j1 * i, 0 < j, 0 < j0, prime(j1), j1 * j1 ≤ j1 * j1 * i, 0 ≤ j0, ∀ i1, j, j0. i→n(i1) < i→n(j1 * j1 * i) → j * j = i1 * j0 * j0 ∧ gcd(j, j0) = 1 ∧ 0 < j0 ∧ 0 < j ∧ 0 < i1 → (∃ i2. i1 = i2 * i2) ⊦ i→n(i) < i→n(j1 * j1 * i), ∃ i1. j1 * j1 * i = i1 * i1 |
j * j = (j1 * j1 * i) * j0 * j0, gcd(j, j0) = 1, 0 < j0, 0 < j, 0 < j1 * j1 * i, 1 < j1 * j1 * i, prime(j1), 0 ≤ j0, j1 * j1 ≤ j1 * j1 * i, j1 * j1 * abs(i) ≤ abs(i), ∀ i1, j, j0. i→n(i1) < i→n(j1 * j1 * i) → j * j = i1 * j0 * j0 ∧ gcd(j, j0) = 1 ∧ 0 < j0 ∧ 0 < j ∧ 0 < i1 → (∃ i2. i1 = i2 * i2) ⊦ ∃ i1. j1 * j1 * i = i1 * i1
Used simplifier rules: prime-abs: ⊦ prime(j) → abs(j) = j;% ⊦ i < j ↔ ¬ j ≤ i; (ss)%commutativity: ⊦ i * j = j * i; from specification int-mult%associativity: ⊦ i * j * j0 = (i * j) * j0; from specification int-mult% ⊦ abs(i * j) = abs(i) * abs(j); (s)% ⊦ i→n(i) < i→n(j) ↔ abs(i) < abs(j); (s)