| j * j = (j1 * j1 * i) * j0 * j0, gcd(j, j0) = 1, prime(j1), j1 * j1 ≤ j1 * j1 * i, 0 < j0, 0 < j, 0 ≤ j0, 1 < j1 * j1 * i, 0 < j1 * j1 * i, ∀ i1, j, j0. i→n(i1) < i→n(j1 * j1 * i) → 0 < i1 ∧ 0 < j ∧ 0 < j0 ∧ gcd(j, j0) = 1 ∧ j * j = i1 * j0 * j0 → (∃ i2. i1 = i2 * i2) ⊦ 0 < i ∧ 0 < j ∧ 0 < j0 * j1 ∧ gcd(j, j0 * j1) = 1 ∧ j * j = i * (j0 * j1) * j0 * j1, ∃ i1. j1 * j1 * i = i1 * i1 |
gcd(j, j0) = 1, j * j = (j1 * j1 * i) * j0 * j0, prime(j1), 1 < j1 * j1 * i, 0 ≤ j0, 0 < j, 0 < j0, 0 < j1, 0 < i, ∀ i1, j, j0. i→n(i1) < i→n(j1 * j1 * i) → 0 < i1 ∧ 0 < j ∧ 0 < j0 ∧ gcd(j, j0) = 1 ∧ j * j = i1 * j0 * j0 → (∃ i2. i1 = i2 * i2) ⊦ gcd(j, j0 * j1) = 1, ∃ i1. j1 * j1 * i = i1 * i1
Used simplifier rules: prime-not-neg-01: ⊦ j ≤ 0 → ¬ prime(j);%forward-le-05: ⊦ i < j ∧ 0 ≤ i → 0 < j; (forward) from specification int-abs%leone: ⊦ 1 ≤ i ↔ 0 < i; from specification int-abs%le-same-01: ⊦ 0 < i → (i ≤ i * j ↔ 1 ≤ j); from specification int-mult%le-pos: ⊦ 0 < i → (i * j ≤ i * i0 ↔ j ≤ i0); from specification int-mult%square-lez: ⊦ ¬ i * i < 0; from specification int-mult%zero-gr-03: ⊦ i ≤ 0 → (0 < i * j ↔ ¬ ¬(j < 0 ∧ i ≠ 0)); from specification int-mult%lels: ⊦ ¬ i < j ↔ j ≤ i; from specification int-abs%commutativity: ⊦ i * j = j * i; from specification int-mult%associativity: ⊦ i * j * j0 = (i * j) * j0; from specification int-mult%zero-gr: ⊦ 0 < i → (0 < i * j ↔ 0 < j); from specification int-mult