| j / gcd(j, j0 * j1) * j / gcd(j0 * j1, j) = (j0 * j1) / gcd(j0 * j1, j) * (j0 * j1) / gcd(j0 * j1, j) * i, j * j / gcd(j0 * j1, j) = (j0 * j1) * (j0 * j1) / gcd(j0 * j1, j) * i, gcd(j, j0) = 1, 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) ⊦ i→n(i) < i→n(j1 * j1 * i), gcd(j0 * j1, j) = 1, j1 = 0, j = 0, ∃ i1. j1 * j1 * i = i1 * i1 |
gcd(j, j0) = 1, j * j / gcd(j0 * j1, j) = (j0 * j1) * (j0 * j1) / gcd(j0 * j1, j) * i, j / gcd(j, j0 * j1) * j / gcd(j0 * j1, j) = (j0 * j1) / gcd(j0 * j1, j) * (j0 * j1) / gcd(j0 * j1, j) * i, j1 * j1 ≤ 1, 0 < j1, 0 < j0, 0 < j, 0 ≤ j0, 1 < j1 * j1 * i, prime(j1), j1 * j1 < i, 1 < i, 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) ⊦ j = 0, j1 = 0, gcd(j0 * j1, j) = 1, ∃ i1. j1 * j1 * i = i1 * i1
Used simplifier rules: forward-pos: ⊦ i < j ∧ 0 < i → 0 < j ∧ 1 < j; (forward) from specification int-basic1%ls-same-01: ⊦ 0 < i → (i < i * j ↔ 1 < j); from specification int-mult%ls-pos: ⊦ 0 < i → (i * j < i * j0 ↔ j < j0); from specification int-mult%forward-lels: ⊦ i ≤ j ∧ j < j0 → i < j0; (forward) from specification int-abs%le-same: ⊦ 0 < i → (i * j ≤ i ↔ j ≤ 1); 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%abs-16: ⊦ 0 < j → abs(j) = j; from specification int-abs%abs-eqall: ⊦ abs(i * j) = abs(i) * abs(j); from specification int-mult%labs: ⊦ i→n(i) < i→n(j) ↔ abs(i) < abs(j); from specification intnat