| max_prime_divisor(j0) * i0 = j0, i0 * j0 = j * i1 * max_prime_divisor(j0) * i1, prime(max_prime_divisor(j0)), 0 < j, 0 < j0, 0 < max_prime_divisor(j0) * i1, ∀ j1, j, i. i→n(j1) < i→n(j0) → j1 * j1 = j * i * i ∧ 0 < j1 ∧ 0 < j ∧ 0 < i → i = 0 ∨ isSquare(j) ⊦ max_prime_divisor(j0) = 0, i1 = 0, isSquare(j), prime(j0) |
i0 * j0 = max_prime_divisor(j0) * i0 * i0, max_prime_divisor(j0) * i0 = j0, i0 * j0 = j * i1 * max_prime_divisor(j0) * i1, prime(max_prime_divisor(j0)), 0 < j, 0 < j0, 0 < max_prime_divisor(j0) * i1, ∀ j1, j, i. i→n(j1) < i→n(j0) → j1 * j1 = j * i * i ∧ 0 < j1 ∧ 0 < j ∧ 0 < i → i = 0 ∨ isSquare(j) ⊦ max_prime_divisor(j0) = 0, i1 = 0, isSquare(j), prime(j0)
Used simplifier rules: neq-not-zero: ⊦ i * j ≠ i * j0 → i ≠ 0; (forward) from specification int-mult%associativity: ⊦ i * j * j0 = (i * j) * j0; from specification int-mult%commutativity: ⊦ i * j = j * i; from specification int-mult%eq-nonzero: ⊦ i ≠ 0 → (i * j = i * j0 ↔ j = j0); from specification int-mult Used formulas: i0 * j0 = max_prime_divisor(j0) * i0 * i0