| i | j, prime(i), 0 < j, ∀ j0, i. i→n(j0) < i→n(j) → i | j0 ∧ prime(i) ∧ 0 < j0 → all_prime_divisors(j0 / i) = all_prime_divisors(j0) -1l i ⊦ all_prime_divisors(j / i) = all_prime_divisors(j) -1l i, 2 ≤ j ∧ ¬ prime(j) |
⊦ prime(i) → all_prime_divisors(i) = i '
prime(j), i | j, prime(i), 0 < j, ∀ j0, i. i→n(j0) < i→n(j) → i | j0 ∧ prime(i) ∧ 0 < j0 → all_prime_divisors(j0 / i) = all_prime_divisors(j0) -1l i ⊦ all_prime_divisors(j / i) = j ' -1l i, 2 ≤ j ∧ ¬ prime(j)
Used simplifier rules: all_prime_divisors-base: ⊦ i < 2 → all_prime_divisors(i) = [];%lels-01: ⊦ ¬ i ≤ j ↔ j < i; from specification int-abs%two-ls: ⊦ 0 < j → (j < 2 ↔ j = 1); from specification int-basic1%del1-e: ⊦ [] -1l i = []; from specification list-del[intlista]%prime-divides-one: ⊦ prime(i) → ¬ i | 1; from specification int-gcd Used terms: j