| i1 = 0, i1 < i1 * i + j2, i1 < i, i1 < i ^ i0, i1 ≤ 0, 0 < i1 * i + j2, 0 < i, 0 ≤ j2, prime(i), i1 * i + j2 < i ^ i0, 0 < i ^ i0, 0 ≤ i0, 1 < i ^ i0, j2 < i, ∀ 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) ⊦ max_exp(i, fac(i1 * i + j2)) = Σ countFun(1, i0, λ j0. (i1 * i + j2) / i ^ j0) |
0 ≤ i0, 1 < i ^ i0, j2 < i, 0 < i ^ i0, 0 ≤ j2, prime(i), j2 < i ^ i0, 1 < i, 0 < i, 0 < j2, ∀ j0, i2, i0. i→n(j0) < i→n(0 * 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) ⊦ 0 = Σ countFun(1, i0, λ j. j2 / i ^ j)
Used simplifier rules: max_exp-fac-smaller: ⊦ prime(i) ∧ 0 < j ∧ j < i → max_exp(i, fac(j)) = 0;%forward-pos: ⊦ i < j ∧ 0 < i → 0 < j ∧ 1 < j; (forward) from specification int-basic1%forward-le-05: ⊦ i < j ∧ 0 ≤ i → 0 < j; (forward) from specification int-abs%add-c: ⊦ i + j = j + i; from specification int-basic2%add-a: ⊦ i + j + i0 = (i + j) + i0; from specification int-basic2%ax-04: ⊦ i + 0 = i; from specification int-basic2%commutativity: ⊦ i * j = j * i; from specification int-mult%associativity: ⊦ i * j * j0 = (i * j) * j0; from specification int-mult%Mult-zero: ⊦ i * 0 = 0; from specification int-mult