| j2 < i, 1 < i ^ i0, 0 ≤ i0, 0 < i ^ i0, i1 * i + j2 < i ^ i0, prime(i), 0 ≤ j2, 0 < i, 0 < i1 * i + j2, 0 < i1, ∀ j0, i2, i0. i→n(j0) < i→n(i1 * i + j2) → prime(i2) ∧ j0 < i2 ^ i0 ∧ 0 < j0 ∧ 0 < i2 ^ i0 ∧ 0 ≤ i0 ∧ 1 < i2 ^ i0 → max_exp(i2, fac(j0)) = Σ countFun(1, i0, λ j1. j0 / i2 ^ j1) ⊦ i1 + max_exp(i, fac(i1)) = Σ countFun(1, i0, λ j0. (i1 * i + j2) / i ^ j0), i1 < i ^ (i0 - 1) ∧ 0 < i ^ (i0 - 1) ∧ 0 < i0 ∧ 1 < i ^ (i0 - 1) |
⊦ 0 < i → j ^ i = j ^ i -1 * j
0 < i0, j2 < i, 1 < i ^ i0 -1 * i, 0 ≤ i0, 0 < i ^ i0 -1 * i, i1 * i + j2 < i ^ i0 -1 * i, prime(i), 0 ≤ j2, 0 < i, 0 < i1 * i + j2, 0 < i1, ∀ j0, i2, i0. i→n(j0) < i→n(i1 * i + j2) → prime(i2) ∧ j0 < i2 ^ i0 ∧ 0 < j0 ∧ 0 < i2 ^ i0 ∧ 0 ≤ i0 ∧ 1 < i2 ^ i0 → max_exp(i2, fac(j0)) = Σ countFun(1, i0, λ j1. j0 / i2 ^ j1) ⊦ i1 + max_exp(i, fac(i1)) = Σ countFun(1, i0, λ j0. (i1 * i + j2) / i ^ j0), i1 < i ^ (i0 - 1) ∧ 0 < i ^ (i0 - 1) ∧ 0 < i0 ∧ 1 < i ^ (i0 - 1)
Used simplifier rules: lels: ⊦ ¬ i < j ↔ j ≤ i; from specification int-abs%anti: ⊦ i ≤ j → (j ≤ i ↔ i = j); from specification int-abs%lel: ⊦ i < i0 ∧ i = i1 → i1 < i0; (forward) from specification oelem[intlista]%forward-le-05: ⊦ i < j ∧ 0 ≤ i → 0 < j; (forward) from specification int-abs%irreflexivity: ⊦ ¬ i < i; from specification oelem[intlista]%Pot-zero: ⊦ j ^ 0 = 1; from specification int-pot%lsone: ⊦ i < 1 ↔ i ≤ 0; from specification int-abs%lels-03: ⊦ i < j → (¬ ¬ j ≤ i ↔ false); from specification int-abs Used terms: i0, i