| all_prime_divisors(j) = all_prime_divisors(i * j) -1l i, prime(i), 0 < j, 0 < i ⊦ #oc(i, all_prime_divisors(i * j)) = #oc(i, all_prime_divisors(i * j) -1l i) + 1 |
⊦ i ∈ ints → #oc(i, ints -1l i) = #oc(i, ints) -1
¬ i ∈ all_prime_divisors(i * j), all_prime_divisors(j) = all_prime_divisors(i * j) -1l i, prime(i), 0 < j, 0 < i ⊦ #oc(i, all_prime_divisors(i * j)) = #oc(i, all_prime_divisors(i * j) -1l i) + 1
Used simplifier rules: pred-03: ⊦ n -1 = n - 1; from specification nat%lels-01: ⊦ ¬ m ≤ n ↔ n < m; from specification nat%one-01: ⊦ m < 1 ↔ m = 0; from specification nat-basic1%in-05: ⊦ i ∈ ints → #oc(i, ints) ≠ 0; from specification list-perm[intlista]%eq-02: n ≤ m ⊦ (m - n) + n0 = n1 ↔ m + n0 = n + n1; from specification nat%c: ⊦ m + n = n + m; from specification nat-basic2%a: ⊦ (m + n0) + n1 = m + n0 + n1; from specification nat-basic2 Used terms: all_prime_divisors(i * j), i