| ⊦ all_prime_divisors(i) = [], all_prime_divisors(i).last = max_prime_divisor(i), prime(i) |
⊦ 2 ≤ i ∧ ¬ prime(i) → all_prime_divisors(i) = all_prime_divisors(i / max_prime_divisor(i)) + max_prime_divisor(i) '
Used simplifier rules: all_prime_divisors-base: ⊦ i < 2 → all_prime_divisors(i) = [];%e-02: ⊦ ints + i ' ≠ []; from specification list[intlista]%a: ⊦ (ints + ints0) + ints1 = ints + ints0 + ints1; from specification list[intlista]%last-def: ⊦ (ints + i ').last = i; from specification list-last[intlista]%lels-01: ⊦ ¬ i ≤ j ↔ j < i; from specification int-abs Used terms: i