MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  rpvmasum2 Structured version   Visualization version   GIF version

Theorem rpvmasum2 27004
Description: A partial result along the lines of rpvmasum 27018. The sum of the von Mangoldt function over those integers 𝑛≑𝐴 (mod 𝑁) is asymptotic to (1 βˆ’ 𝑀)(logπ‘₯ / Ο•(π‘₯)) + 𝑂(1), where 𝑀 is the number of non-principal Dirichlet characters with Σ𝑛 ∈ β„•, 𝑋(𝑛) / 𝑛 = 0. Our goal is to show this set is empty. Equation 9.4.3 of [Shapiro], p. 375. (Contributed by Mario Carneiro, 5-May-2016.)
Hypotheses
Ref Expression
rpvmasum.z 𝑍 = (β„€/nβ„€β€˜π‘)
rpvmasum.l 𝐿 = (β„€RHomβ€˜π‘)
rpvmasum.a (πœ‘ β†’ 𝑁 ∈ β„•)
rpvmasum2.g 𝐺 = (DChrβ€˜π‘)
rpvmasum2.d 𝐷 = (Baseβ€˜πΊ)
rpvmasum2.1 1 = (0gβ€˜πΊ)
rpvmasum2.w π‘Š = {𝑦 ∈ (𝐷 βˆ– { 1 }) ∣ Ξ£π‘š ∈ β„• ((π‘¦β€˜(πΏβ€˜π‘š)) / π‘š) = 0}
rpvmasum2.u π‘ˆ = (Unitβ€˜π‘)
rpvmasum2.b (πœ‘ β†’ 𝐴 ∈ π‘ˆ)
rpvmasum2.t 𝑇 = (◑𝐿 β€œ {𝐴})
rpvmasum2.z1 ((πœ‘ ∧ 𝑓 ∈ π‘Š) β†’ 𝐴 = (1rβ€˜π‘))
Assertion
Ref Expression
rpvmasum2 (πœ‘ β†’ (π‘₯ ∈ ℝ+ ↦ (((Ο•β€˜π‘) Β· Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· (1 βˆ’ (β™―β€˜π‘Š))))) ∈ 𝑂(1))
Distinct variable groups:   π‘š,𝑛,π‘₯,𝑦,𝑓, 1   𝐴,𝑓,π‘š,π‘₯,𝑦   𝑓,𝐺   𝑓,𝑁,π‘š,𝑛,π‘₯,𝑦   πœ‘,𝑓,π‘š,𝑛,π‘₯   𝑇,π‘š,𝑛,π‘₯,𝑦   π‘ˆ,π‘š,𝑛,π‘₯   𝑓,π‘Š,π‘₯   𝑓,𝑍,π‘š,𝑛,π‘₯,𝑦   𝐷,𝑓,π‘š,𝑛,π‘₯,𝑦   𝑓,𝐿,π‘š,𝑛,π‘₯,𝑦   𝐴,𝑛
Allowed substitution hints:   πœ‘(𝑦)   𝑇(𝑓)   π‘ˆ(𝑦,𝑓)   𝐺(π‘₯,𝑦,π‘š,𝑛)   π‘Š(𝑦,π‘š,𝑛)

Proof of Theorem rpvmasum2
Dummy variables 𝑐 𝑑 π‘Ž are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 rpvmasum.a . . . . . . 7 (πœ‘ β†’ 𝑁 ∈ β„•)
21adantr 481 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ 𝑁 ∈ β„•)
3 rpvmasum2.g . . . . . . 7 𝐺 = (DChrβ€˜π‘)
4 rpvmasum2.d . . . . . . 7 𝐷 = (Baseβ€˜πΊ)
53, 4dchrfi 26747 . . . . . 6 (𝑁 ∈ β„• β†’ 𝐷 ∈ Fin)
62, 5syl 17 . . . . 5 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ 𝐷 ∈ Fin)
7 fzfid 13934 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ (1...(βŒŠβ€˜π‘₯)) ∈ Fin)
8 rpvmasum.z . . . . . . . . . . . . 13 𝑍 = (β„€/nβ„€β€˜π‘)
9 eqid 2732 . . . . . . . . . . . . 13 (Baseβ€˜π‘) = (Baseβ€˜π‘)
10 simpr 485 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑓 ∈ 𝐷) β†’ 𝑓 ∈ 𝐷)
113, 8, 4, 9, 10dchrf 26734 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑓 ∈ 𝐷) β†’ 𝑓:(Baseβ€˜π‘)βŸΆβ„‚)
12 rpvmasum2.u . . . . . . . . . . . . . . 15 π‘ˆ = (Unitβ€˜π‘)
139, 12unitss 20182 . . . . . . . . . . . . . 14 π‘ˆ βŠ† (Baseβ€˜π‘)
14 rpvmasum2.b . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐴 ∈ π‘ˆ)
1513, 14sselid 3979 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐴 ∈ (Baseβ€˜π‘))
1615adantr 481 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑓 ∈ 𝐷) β†’ 𝐴 ∈ (Baseβ€˜π‘))
1711, 16ffvelcdmd 7084 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑓 ∈ 𝐷) β†’ (π‘“β€˜π΄) ∈ β„‚)
1817cjcld 15139 . . . . . . . . . 10 ((πœ‘ ∧ 𝑓 ∈ 𝐷) β†’ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚)
1918adantlr 713 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚)
2019adantrl 714 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑛 ∈ (1...(βŒŠβ€˜π‘₯)) ∧ 𝑓 ∈ 𝐷)) β†’ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚)
2111ad4ant14 750 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ 𝑓 ∈ 𝐷) β†’ 𝑓:(Baseβ€˜π‘)βŸΆβ„‚)
221nnnn0d 12528 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝑁 ∈ β„•0)
23 rpvmasum.l . . . . . . . . . . . . . . . 16 𝐿 = (β„€RHomβ€˜π‘)
248, 9, 23znzrhfo 21094 . . . . . . . . . . . . . . 15 (𝑁 ∈ β„•0 β†’ 𝐿:℀–ontoβ†’(Baseβ€˜π‘))
25 fof 6802 . . . . . . . . . . . . . . 15 (𝐿:℀–ontoβ†’(Baseβ€˜π‘) β†’ 𝐿:β„€βŸΆ(Baseβ€˜π‘))
2622, 24, 253syl 18 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐿:β„€βŸΆ(Baseβ€˜π‘))
2726adantr 481 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ 𝐿:β„€βŸΆ(Baseβ€˜π‘))
28 elfzelz 13497 . . . . . . . . . . . . 13 (𝑛 ∈ (1...(βŒŠβ€˜π‘₯)) β†’ 𝑛 ∈ β„€)
29 ffvelcdm 7080 . . . . . . . . . . . . 13 ((𝐿:β„€βŸΆ(Baseβ€˜π‘) ∧ 𝑛 ∈ β„€) β†’ (πΏβ€˜π‘›) ∈ (Baseβ€˜π‘))
3027, 28, 29syl2an 596 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (πΏβ€˜π‘›) ∈ (Baseβ€˜π‘))
3130adantr 481 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ 𝑓 ∈ 𝐷) β†’ (πΏβ€˜π‘›) ∈ (Baseβ€˜π‘))
3221, 31ffvelcdmd 7084 . . . . . . . . . 10 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ 𝑓 ∈ 𝐷) β†’ (π‘“β€˜(πΏβ€˜π‘›)) ∈ β„‚)
3332anasss 467 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑛 ∈ (1...(βŒŠβ€˜π‘₯)) ∧ 𝑓 ∈ 𝐷)) β†’ (π‘“β€˜(πΏβ€˜π‘›)) ∈ β„‚)
34 elfznn 13526 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...(βŒŠβ€˜π‘₯)) β†’ 𝑛 ∈ β„•)
3534adantl 482 . . . . . . . . . . . . 13 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 𝑛 ∈ β„•)
36 vmacl 26611 . . . . . . . . . . . . 13 (𝑛 ∈ β„• β†’ (Ξ›β€˜π‘›) ∈ ℝ)
3735, 36syl 17 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (Ξ›β€˜π‘›) ∈ ℝ)
3837, 35nndivred 12262 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((Ξ›β€˜π‘›) / 𝑛) ∈ ℝ)
3938recnd 11238 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((Ξ›β€˜π‘›) / 𝑛) ∈ β„‚)
4039adantrr 715 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑛 ∈ (1...(βŒŠβ€˜π‘₯)) ∧ 𝑓 ∈ 𝐷)) β†’ ((Ξ›β€˜π‘›) / 𝑛) ∈ β„‚)
4133, 40mulcld 11230 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑛 ∈ (1...(βŒŠβ€˜π‘₯)) ∧ 𝑓 ∈ 𝐷)) β†’ ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) ∈ β„‚)
4220, 41mulcld 11230 . . . . . . 7 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑛 ∈ (1...(βŒŠβ€˜π‘₯)) ∧ 𝑓 ∈ 𝐷)) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) ∈ β„‚)
4342anass1rs 653 . . . . . 6 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) ∈ β„‚)
447, 43fsumcl 15675 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) ∈ β„‚)
45 relogcl 26075 . . . . . . . . 9 (π‘₯ ∈ ℝ+ β†’ (logβ€˜π‘₯) ∈ ℝ)
4645adantl 482 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (logβ€˜π‘₯) ∈ ℝ)
4746recnd 11238 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (logβ€˜π‘₯) ∈ β„‚)
4847adantr 481 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ (logβ€˜π‘₯) ∈ β„‚)
49 ax-1cn 11164 . . . . . . 7 1 ∈ β„‚
50 neg1cn 12322 . . . . . . . 8 -1 ∈ β„‚
51 0cn 11202 . . . . . . . 8 0 ∈ β„‚
5250, 51ifcli 4574 . . . . . . 7 if(𝑓 ∈ π‘Š, -1, 0) ∈ β„‚
5349, 52ifcli 4574 . . . . . 6 if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)) ∈ β„‚
54 mulcl 11190 . . . . . 6 (((logβ€˜π‘₯) ∈ β„‚ ∧ if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)) ∈ β„‚) β†’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) ∈ β„‚)
5548, 53, 54sylancl 586 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) ∈ β„‚)
566, 44, 55fsumsub 15730 . . . 4 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ 𝐷 (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = (Σ𝑓 ∈ 𝐷 Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) βˆ’ Σ𝑓 ∈ 𝐷 ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))))
5741anass1rs 653 . . . . . . . 8 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) ∈ β„‚)
587, 57fsumcl 15675 . . . . . . 7 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) ∈ β„‚)
5919, 58, 55subdid 11666 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) = (((βˆ—β€˜(π‘“β€˜π΄)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) βˆ’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))))
607, 19, 57fsummulc2 15726 . . . . . . 7 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) = Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
6153a1i 11 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)) ∈ β„‚)
6219, 48, 61mul12d 11419 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = ((logβ€˜π‘₯) Β· ((βˆ—β€˜(π‘“β€˜π΄)) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))))
63 ovif2 7503 . . . . . . . . . 10 ((βˆ—β€˜(π‘“β€˜π΄)) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) = if(𝑓 = 1 , ((βˆ—β€˜(π‘“β€˜π΄)) Β· 1), ((βˆ—β€˜(π‘“β€˜π΄)) Β· if(𝑓 ∈ π‘Š, -1, 0)))
64 fveq1 6887 . . . . . . . . . . . . . . . 16 (𝑓 = 1 β†’ (π‘“β€˜π΄) = ( 1 β€˜π΄))
65 rpvmasum2.1 . . . . . . . . . . . . . . . . 17 1 = (0gβ€˜πΊ)
661ad2antrr 724 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ 𝑁 ∈ β„•)
6714ad2antrr 724 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ 𝐴 ∈ π‘ˆ)
683, 8, 65, 12, 66, 67dchr1 26749 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ ( 1 β€˜π΄) = 1)
6964, 68sylan9eqr 2794 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) β†’ (π‘“β€˜π΄) = 1)
7069fveq2d 6892 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) β†’ (βˆ—β€˜(π‘“β€˜π΄)) = (βˆ—β€˜1))
71 1re 11210 . . . . . . . . . . . . . . 15 1 ∈ ℝ
72 cjre 15082 . . . . . . . . . . . . . . 15 (1 ∈ ℝ β†’ (βˆ—β€˜1) = 1)
7371, 72ax-mp 5 . . . . . . . . . . . . . 14 (βˆ—β€˜1) = 1
7470, 73eqtrdi 2788 . . . . . . . . . . . . 13 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) β†’ (βˆ—β€˜(π‘“β€˜π΄)) = 1)
7574oveq1d 7420 . . . . . . . . . . . 12 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· 1) = (1 Β· 1))
76 1t1e1 12370 . . . . . . . . . . . 12 (1 Β· 1) = 1
7775, 76eqtrdi 2788 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· 1) = 1)
78 df-ne 2941 . . . . . . . . . . . 12 (𝑓 β‰  1 ↔ Β¬ 𝑓 = 1 )
79 ovif2 7503 . . . . . . . . . . . . 13 ((βˆ—β€˜(π‘“β€˜π΄)) Β· if(𝑓 ∈ π‘Š, -1, 0)) = if(𝑓 ∈ π‘Š, ((βˆ—β€˜(π‘“β€˜π΄)) Β· -1), ((βˆ—β€˜(π‘“β€˜π΄)) Β· 0))
80 rpvmasum2.z1 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑓 ∈ π‘Š) β†’ 𝐴 = (1rβ€˜π‘))
8180fveq2d 6892 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑓 ∈ π‘Š) β†’ (π‘“β€˜π΄) = (π‘“β€˜(1rβ€˜π‘)))
8281ad5ant15 757 . . . . . . . . . . . . . . . . . . . 20 (((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ 𝑓 ∈ π‘Š) β†’ (π‘“β€˜π΄) = (π‘“β€˜(1rβ€˜π‘)))
833, 8, 4dchrmhm 26733 . . . . . . . . . . . . . . . . . . . . . . 23 𝐷 βŠ† ((mulGrpβ€˜π‘) MndHom (mulGrpβ€˜β„‚fld))
84 simpr 485 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ 𝑓 ∈ 𝐷)
8583, 84sselid 3979 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ 𝑓 ∈ ((mulGrpβ€˜π‘) MndHom (mulGrpβ€˜β„‚fld)))
86 eqid 2732 . . . . . . . . . . . . . . . . . . . . . . . 24 (mulGrpβ€˜π‘) = (mulGrpβ€˜π‘)
87 eqid 2732 . . . . . . . . . . . . . . . . . . . . . . . 24 (1rβ€˜π‘) = (1rβ€˜π‘)
8886, 87ringidval 20000 . . . . . . . . . . . . . . . . . . . . . . 23 (1rβ€˜π‘) = (0gβ€˜(mulGrpβ€˜π‘))
89 eqid 2732 . . . . . . . . . . . . . . . . . . . . . . . 24 (mulGrpβ€˜β„‚fld) = (mulGrpβ€˜β„‚fld)
90 cnfld1 20962 . . . . . . . . . . . . . . . . . . . . . . . 24 1 = (1rβ€˜β„‚fld)
9189, 90ringidval 20000 . . . . . . . . . . . . . . . . . . . . . . 23 1 = (0gβ€˜(mulGrpβ€˜β„‚fld))
9288, 91mhm0 18676 . . . . . . . . . . . . . . . . . . . . . 22 (𝑓 ∈ ((mulGrpβ€˜π‘) MndHom (mulGrpβ€˜β„‚fld)) β†’ (π‘“β€˜(1rβ€˜π‘)) = 1)
9385, 92syl 17 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ (π‘“β€˜(1rβ€˜π‘)) = 1)
9493ad2antrr 724 . . . . . . . . . . . . . . . . . . . 20 (((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ 𝑓 ∈ π‘Š) β†’ (π‘“β€˜(1rβ€˜π‘)) = 1)
9582, 94eqtrd 2772 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ 𝑓 ∈ π‘Š) β†’ (π‘“β€˜π΄) = 1)
9695fveq2d 6892 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ 𝑓 ∈ π‘Š) β†’ (βˆ—β€˜(π‘“β€˜π΄)) = (βˆ—β€˜1))
9796, 73eqtrdi 2788 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ 𝑓 ∈ π‘Š) β†’ (βˆ—β€˜(π‘“β€˜π΄)) = 1)
9897oveq1d 7420 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ 𝑓 ∈ π‘Š) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· -1) = (1 Β· -1))
9950mullidi 11215 . . . . . . . . . . . . . . . 16 (1 Β· -1) = -1
10098, 99eqtrdi 2788 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ 𝑓 ∈ π‘Š) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· -1) = -1)
101100ifeq1da 4558 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ if(𝑓 ∈ π‘Š, ((βˆ—β€˜(π‘“β€˜π΄)) Β· -1), ((βˆ—β€˜(π‘“β€˜π΄)) Β· 0)) = if(𝑓 ∈ π‘Š, -1, ((βˆ—β€˜(π‘“β€˜π΄)) Β· 0)))
10219adantr 481 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚)
103102mul01d 11409 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· 0) = 0)
104103ifeq2d 4547 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ if(𝑓 ∈ π‘Š, -1, ((βˆ—β€˜(π‘“β€˜π΄)) Β· 0)) = if(𝑓 ∈ π‘Š, -1, 0))
105101, 104eqtrd 2772 . . . . . . . . . . . . 13 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ if(𝑓 ∈ π‘Š, ((βˆ—β€˜(π‘“β€˜π΄)) Β· -1), ((βˆ—β€˜(π‘“β€˜π΄)) Β· 0)) = if(𝑓 ∈ π‘Š, -1, 0))
10679, 105eqtrid 2784 . . . . . . . . . . . 12 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· if(𝑓 ∈ π‘Š, -1, 0)) = if(𝑓 ∈ π‘Š, -1, 0))
10778, 106sylan2br 595 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ Β¬ 𝑓 = 1 ) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· if(𝑓 ∈ π‘Š, -1, 0)) = if(𝑓 ∈ π‘Š, -1, 0))
10877, 107ifeq12da 4560 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ if(𝑓 = 1 , ((βˆ—β€˜(π‘“β€˜π΄)) Β· 1), ((βˆ—β€˜(π‘“β€˜π΄)) Β· if(𝑓 ∈ π‘Š, -1, 0))) = if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))
10963, 108eqtrid 2784 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) = if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))
110109oveq2d 7421 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ ((logβ€˜π‘₯) Β· ((βˆ—β€˜(π‘“β€˜π΄)) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))
11162, 110eqtrd 2772 . . . . . . 7 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))
11260, 111oveq12d 7423 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ (((βˆ—β€˜(π‘“β€˜π΄)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) βˆ’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))))
11359, 112eqtrd 2772 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))))
114113sumeq2dv 15645 . . . 4 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) = Σ𝑓 ∈ 𝐷 (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))))
115 fzfid 13934 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (1...(βŒŠβ€˜π‘₯)) ∈ Fin)
116 inss1 4227 . . . . . . . . 9 ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇) βŠ† (1...(βŒŠβ€˜π‘₯))
117 ssfi 9169 . . . . . . . . 9 (((1...(βŒŠβ€˜π‘₯)) ∈ Fin ∧ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇) βŠ† (1...(βŒŠβ€˜π‘₯))) β†’ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇) ∈ Fin)
118115, 116, 117sylancl 586 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇) ∈ Fin)
1192phicld 16701 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (Ο•β€˜π‘) ∈ β„•)
120119nncnd 12224 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (Ο•β€˜π‘) ∈ β„‚)
121116a1i 11 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇) βŠ† (1...(βŒŠβ€˜π‘₯)))
122121sselda 3981 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)) β†’ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯)))
123122, 39syldan 591 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)) β†’ ((Ξ›β€˜π‘›) / 𝑛) ∈ β„‚)
124118, 120, 123fsummulc2 15726 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((Ο•β€˜π‘) Β· Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ξ›β€˜π‘›) / 𝑛)) = Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)))
125120adantr 481 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (Ο•β€˜π‘) ∈ β„‚)
126125, 39mulcld 11230 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)) ∈ β„‚)
127122, 126syldan 591 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)) β†’ ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)) ∈ β„‚)
128127ralrimiva 3146 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ βˆ€π‘› ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)) ∈ β„‚)
129115olcd 872 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((1...(βŒŠβ€˜π‘₯)) βŠ† (β„€β‰₯β€˜1) ∨ (1...(βŒŠβ€˜π‘₯)) ∈ Fin))
130 sumss2 15668 . . . . . . . 8 (((((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇) βŠ† (1...(βŒŠβ€˜π‘₯)) ∧ βˆ€π‘› ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)) ∈ β„‚) ∧ ((1...(βŒŠβ€˜π‘₯)) βŠ† (β„€β‰₯β€˜1) ∨ (1...(βŒŠβ€˜π‘₯)) ∈ Fin)) β†’ Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)) = Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))if(𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇), ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)), 0))
131121, 128, 129, 130syl21anc 836 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)) = Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))if(𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇), ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)), 0))
132 elin 3963 . . . . . . . . . . . . 13 (𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇) ↔ (𝑛 ∈ (1...(βŒŠβ€˜π‘₯)) ∧ 𝑛 ∈ 𝑇))
133132baib 536 . . . . . . . . . . . 12 (𝑛 ∈ (1...(βŒŠβ€˜π‘₯)) β†’ (𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇) ↔ 𝑛 ∈ 𝑇))
134133adantl 482 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇) ↔ 𝑛 ∈ 𝑇))
135 rpvmasum2.t . . . . . . . . . . . . 13 𝑇 = (◑𝐿 β€œ {𝐴})
136135eleq2i 2825 . . . . . . . . . . . 12 (𝑛 ∈ 𝑇 ↔ 𝑛 ∈ (◑𝐿 β€œ {𝐴}))
13727ffnd 6715 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ 𝐿 Fn β„€)
138 fniniseg 7058 . . . . . . . . . . . . . 14 (𝐿 Fn β„€ β†’ (𝑛 ∈ (◑𝐿 β€œ {𝐴}) ↔ (𝑛 ∈ β„€ ∧ (πΏβ€˜π‘›) = 𝐴)))
139138baibd 540 . . . . . . . . . . . . 13 ((𝐿 Fn β„€ ∧ 𝑛 ∈ β„€) β†’ (𝑛 ∈ (◑𝐿 β€œ {𝐴}) ↔ (πΏβ€˜π‘›) = 𝐴))
140137, 28, 139syl2an 596 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (𝑛 ∈ (◑𝐿 β€œ {𝐴}) ↔ (πΏβ€˜π‘›) = 𝐴))
141136, 140bitrid 282 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (𝑛 ∈ 𝑇 ↔ (πΏβ€˜π‘›) = 𝐴))
142134, 141bitr2d 279 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((πΏβ€˜π‘›) = 𝐴 ↔ 𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)))
14339mul02d 11408 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (0 Β· ((Ξ›β€˜π‘›) / 𝑛)) = 0)
144142, 143ifbieq2d 4553 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ if((πΏβ€˜π‘›) = 𝐴, ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)), (0 Β· ((Ξ›β€˜π‘›) / 𝑛))) = if(𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇), ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)), 0))
145 ovif 7502 . . . . . . . . . 10 (if((πΏβ€˜π‘›) = 𝐴, (Ο•β€˜π‘), 0) Β· ((Ξ›β€˜π‘›) / 𝑛)) = if((πΏβ€˜π‘›) = 𝐴, ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)), (0 Β· ((Ξ›β€˜π‘›) / 𝑛)))
1461ad2antrr 724 . . . . . . . . . . . . 13 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 𝑁 ∈ β„•)
147146, 5syl 17 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 𝐷 ∈ Fin)
14818ad4ant14 750 . . . . . . . . . . . . 13 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ 𝑓 ∈ 𝐷) β†’ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚)
14932, 148mulcld 11230 . . . . . . . . . . . 12 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ 𝑓 ∈ 𝐷) β†’ ((π‘“β€˜(πΏβ€˜π‘›)) Β· (βˆ—β€˜(π‘“β€˜π΄))) ∈ β„‚)
150147, 39, 149fsummulc1 15727 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (Σ𝑓 ∈ 𝐷 ((π‘“β€˜(πΏβ€˜π‘›)) Β· (βˆ—β€˜(π‘“β€˜π΄))) Β· ((Ξ›β€˜π‘›) / 𝑛)) = Σ𝑓 ∈ 𝐷 (((π‘“β€˜(πΏβ€˜π‘›)) Β· (βˆ—β€˜(π‘“β€˜π΄))) Β· ((Ξ›β€˜π‘›) / 𝑛)))
15114ad2antrr 724 . . . . . . . . . . . . 13 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 𝐴 ∈ π‘ˆ)
1523, 4, 8, 9, 12, 146, 30, 151sum2dchr 26766 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ Σ𝑓 ∈ 𝐷 ((π‘“β€˜(πΏβ€˜π‘›)) Β· (βˆ—β€˜(π‘“β€˜π΄))) = if((πΏβ€˜π‘›) = 𝐴, (Ο•β€˜π‘), 0))
153152oveq1d 7420 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (Σ𝑓 ∈ 𝐷 ((π‘“β€˜(πΏβ€˜π‘›)) Β· (βˆ—β€˜(π‘“β€˜π΄))) Β· ((Ξ›β€˜π‘›) / 𝑛)) = (if((πΏβ€˜π‘›) = 𝐴, (Ο•β€˜π‘), 0) Β· ((Ξ›β€˜π‘›) / 𝑛)))
15439adantr 481 . . . . . . . . . . . . 13 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ 𝑓 ∈ 𝐷) β†’ ((Ξ›β€˜π‘›) / 𝑛) ∈ β„‚)
155 mulass 11194 . . . . . . . . . . . . . 14 (((π‘“β€˜(πΏβ€˜π‘›)) ∈ β„‚ ∧ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚ ∧ ((Ξ›β€˜π‘›) / 𝑛) ∈ β„‚) β†’ (((π‘“β€˜(πΏβ€˜π‘›)) Β· (βˆ—β€˜(π‘“β€˜π΄))) Β· ((Ξ›β€˜π‘›) / 𝑛)) = ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
156 mul12 11375 . . . . . . . . . . . . . 14 (((π‘“β€˜(πΏβ€˜π‘›)) ∈ β„‚ ∧ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚ ∧ ((Ξ›β€˜π‘›) / 𝑛) ∈ β„‚) β†’ ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((Ξ›β€˜π‘›) / 𝑛))) = ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
157155, 156eqtrd 2772 . . . . . . . . . . . . 13 (((π‘“β€˜(πΏβ€˜π‘›)) ∈ β„‚ ∧ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚ ∧ ((Ξ›β€˜π‘›) / 𝑛) ∈ β„‚) β†’ (((π‘“β€˜(πΏβ€˜π‘›)) Β· (βˆ—β€˜(π‘“β€˜π΄))) Β· ((Ξ›β€˜π‘›) / 𝑛)) = ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
15832, 148, 154, 157syl3anc 1371 . . . . . . . . . . . 12 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ 𝑓 ∈ 𝐷) β†’ (((π‘“β€˜(πΏβ€˜π‘›)) Β· (βˆ—β€˜(π‘“β€˜π΄))) Β· ((Ξ›β€˜π‘›) / 𝑛)) = ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
159158sumeq2dv 15645 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ Σ𝑓 ∈ 𝐷 (((π‘“β€˜(πΏβ€˜π‘›)) Β· (βˆ—β€˜(π‘“β€˜π΄))) Β· ((Ξ›β€˜π‘›) / 𝑛)) = Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
160150, 153, 1593eqtr3d 2780 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (if((πΏβ€˜π‘›) = 𝐴, (Ο•β€˜π‘), 0) Β· ((Ξ›β€˜π‘›) / 𝑛)) = Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
161145, 160eqtr3id 2786 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ if((πΏβ€˜π‘›) = 𝐴, ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)), (0 Β· ((Ξ›β€˜π‘›) / 𝑛))) = Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
162144, 161eqtr3d 2774 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ if(𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇), ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)), 0) = Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
163162sumeq2dv 15645 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))if(𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇), ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)), 0) = Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
164124, 131, 1633eqtrd 2776 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((Ο•β€˜π‘) Β· Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ξ›β€˜π‘›) / 𝑛)) = Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
165115, 6, 42fsumcom 15717 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) = Σ𝑓 ∈ 𝐷 Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
166164, 165eqtrd 2772 . . . . 5 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((Ο•β€˜π‘) Β· Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ξ›β€˜π‘›) / 𝑛)) = Σ𝑓 ∈ 𝐷 Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
1673dchrabl 26746 . . . . . . . . . 10 (𝑁 ∈ β„• β†’ 𝐺 ∈ Abel)
168 ablgrp 19647 . . . . . . . . . 10 (𝐺 ∈ Abel β†’ 𝐺 ∈ Grp)
1694, 65grpidcl 18846 . . . . . . . . . 10 (𝐺 ∈ Grp β†’ 1 ∈ 𝐷)
1702, 167, 168, 1694syl 19 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ 1 ∈ 𝐷)
17147mulridd 11227 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· 1) = (logβ€˜π‘₯))
172171, 47eqeltrd 2833 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· 1) ∈ β„‚)
173 iftrue 4533 . . . . . . . . . . 11 (𝑓 = 1 β†’ if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)) = 1)
174173oveq2d 7421 . . . . . . . . . 10 (𝑓 = 1 β†’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) = ((logβ€˜π‘₯) Β· 1))
175174sumsn 15688 . . . . . . . . 9 (( 1 ∈ 𝐷 ∧ ((logβ€˜π‘₯) Β· 1) ∈ β„‚) β†’ Σ𝑓 ∈ { 1 } ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) = ((logβ€˜π‘₯) Β· 1))
176170, 172, 175syl2anc 584 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ { 1 } ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) = ((logβ€˜π‘₯) Β· 1))
177 eldifsn 4789 . . . . . . . . . . 11 (𝑓 ∈ (𝐷 βˆ– { 1 }) ↔ (𝑓 ∈ 𝐷 ∧ 𝑓 β‰  1 ))
178 ifnefalse 4539 . . . . . . . . . . . . . . 15 (𝑓 β‰  1 β†’ if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)) = if(𝑓 ∈ π‘Š, -1, 0))
179178ad2antll 727 . . . . . . . . . . . . . 14 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑓 ∈ 𝐷 ∧ 𝑓 β‰  1 )) β†’ if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)) = if(𝑓 ∈ π‘Š, -1, 0))
180 negeq 11448 . . . . . . . . . . . . . . 15 (if(𝑓 ∈ π‘Š, 1, 0) = 1 β†’ -if(𝑓 ∈ π‘Š, 1, 0) = -1)
181 negeq 11448 . . . . . . . . . . . . . . . 16 (if(𝑓 ∈ π‘Š, 1, 0) = 0 β†’ -if(𝑓 ∈ π‘Š, 1, 0) = -0)
182 neg0 11502 . . . . . . . . . . . . . . . 16 -0 = 0
183181, 182eqtrdi 2788 . . . . . . . . . . . . . . 15 (if(𝑓 ∈ π‘Š, 1, 0) = 0 β†’ -if(𝑓 ∈ π‘Š, 1, 0) = 0)
184180, 183ifsb 4540 . . . . . . . . . . . . . 14 -if(𝑓 ∈ π‘Š, 1, 0) = if(𝑓 ∈ π‘Š, -1, 0)
185179, 184eqtr4di 2790 . . . . . . . . . . . . 13 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑓 ∈ 𝐷 ∧ 𝑓 β‰  1 )) β†’ if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)) = -if(𝑓 ∈ π‘Š, 1, 0))
186185oveq2d 7421 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑓 ∈ 𝐷 ∧ 𝑓 β‰  1 )) β†’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) = ((logβ€˜π‘₯) Β· -if(𝑓 ∈ π‘Š, 1, 0)))
18747adantr 481 . . . . . . . . . . . . 13 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑓 ∈ 𝐷 ∧ 𝑓 β‰  1 )) β†’ (logβ€˜π‘₯) ∈ β„‚)
18849, 51ifcli 4574 . . . . . . . . . . . . 13 if(𝑓 ∈ π‘Š, 1, 0) ∈ β„‚
189 mulneg2 11647 . . . . . . . . . . . . 13 (((logβ€˜π‘₯) ∈ β„‚ ∧ if(𝑓 ∈ π‘Š, 1, 0) ∈ β„‚) β†’ ((logβ€˜π‘₯) Β· -if(𝑓 ∈ π‘Š, 1, 0)) = -((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)))
190187, 188, 189sylancl 586 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑓 ∈ 𝐷 ∧ 𝑓 β‰  1 )) β†’ ((logβ€˜π‘₯) Β· -if(𝑓 ∈ π‘Š, 1, 0)) = -((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)))
191186, 190eqtrd 2772 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑓 ∈ 𝐷 ∧ 𝑓 β‰  1 )) β†’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) = -((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)))
192177, 191sylan2b 594 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ (𝐷 βˆ– { 1 })) β†’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) = -((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)))
193192sumeq2dv 15645 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ (𝐷 βˆ– { 1 })((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) = Σ𝑓 ∈ (𝐷 βˆ– { 1 })-((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)))
194 diffi 9175 . . . . . . . . . . 11 (𝐷 ∈ Fin β†’ (𝐷 βˆ– { 1 }) ∈ Fin)
1956, 194syl 17 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (𝐷 βˆ– { 1 }) ∈ Fin)
19647adantr 481 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ (𝐷 βˆ– { 1 })) β†’ (logβ€˜π‘₯) ∈ β„‚)
197 mulcl 11190 . . . . . . . . . . 11 (((logβ€˜π‘₯) ∈ β„‚ ∧ if(𝑓 ∈ π‘Š, 1, 0) ∈ β„‚) β†’ ((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)) ∈ β„‚)
198196, 188, 197sylancl 586 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ (𝐷 βˆ– { 1 })) β†’ ((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)) ∈ β„‚)
199195, 198fsumneg 15729 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ (𝐷 βˆ– { 1 })-((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)) = -Σ𝑓 ∈ (𝐷 βˆ– { 1 })((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)))
200188a1i 11 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ (𝐷 βˆ– { 1 })) β†’ if(𝑓 ∈ π‘Š, 1, 0) ∈ β„‚)
201195, 47, 200fsummulc2 15726 . . . . . . . . . . 11 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· Σ𝑓 ∈ (𝐷 βˆ– { 1 })if(𝑓 ∈ π‘Š, 1, 0)) = Σ𝑓 ∈ (𝐷 βˆ– { 1 })((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)))
202 rpvmasum2.w . . . . . . . . . . . . . . . . 17 π‘Š = {𝑦 ∈ (𝐷 βˆ– { 1 }) ∣ Ξ£π‘š ∈ β„• ((π‘¦β€˜(πΏβ€˜π‘š)) / π‘š) = 0}
203202ssrab3 4079 . . . . . . . . . . . . . . . 16 π‘Š βŠ† (𝐷 βˆ– { 1 })
204 difss 4130 . . . . . . . . . . . . . . . 16 (𝐷 βˆ– { 1 }) βŠ† 𝐷
205203, 204sstri 3990 . . . . . . . . . . . . . . 15 π‘Š βŠ† 𝐷
206 ssfi 9169 . . . . . . . . . . . . . . 15 ((𝐷 ∈ Fin ∧ π‘Š βŠ† 𝐷) β†’ π‘Š ∈ Fin)
2076, 205, 206sylancl 586 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ π‘Š ∈ Fin)
208 fsumconst 15732 . . . . . . . . . . . . . 14 ((π‘Š ∈ Fin ∧ 1 ∈ β„‚) β†’ Σ𝑓 ∈ π‘Š 1 = ((β™―β€˜π‘Š) Β· 1))
209207, 49, 208sylancl 586 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ π‘Š 1 = ((β™―β€˜π‘Š) Β· 1))
210203a1i 11 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ π‘Š βŠ† (𝐷 βˆ– { 1 }))
21149a1i 11 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ 1 ∈ β„‚)
212211ralrimivw 3150 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ βˆ€π‘“ ∈ π‘Š 1 ∈ β„‚)
213195olcd 872 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((𝐷 βˆ– { 1 }) βŠ† (β„€β‰₯β€˜1) ∨ (𝐷 βˆ– { 1 }) ∈ Fin))
214 sumss2 15668 . . . . . . . . . . . . . 14 (((π‘Š βŠ† (𝐷 βˆ– { 1 }) ∧ βˆ€π‘“ ∈ π‘Š 1 ∈ β„‚) ∧ ((𝐷 βˆ– { 1 }) βŠ† (β„€β‰₯β€˜1) ∨ (𝐷 βˆ– { 1 }) ∈ Fin)) β†’ Σ𝑓 ∈ π‘Š 1 = Σ𝑓 ∈ (𝐷 βˆ– { 1 })if(𝑓 ∈ π‘Š, 1, 0))
215210, 212, 213, 214syl21anc 836 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ π‘Š 1 = Σ𝑓 ∈ (𝐷 βˆ– { 1 })if(𝑓 ∈ π‘Š, 1, 0))
216 hashcl 14312 . . . . . . . . . . . . . . . 16 (π‘Š ∈ Fin β†’ (β™―β€˜π‘Š) ∈ β„•0)
217207, 216syl 17 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (β™―β€˜π‘Š) ∈ β„•0)
218217nn0cnd 12530 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (β™―β€˜π‘Š) ∈ β„‚)
219218mulridd 11227 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((β™―β€˜π‘Š) Β· 1) = (β™―β€˜π‘Š))
220209, 215, 2193eqtr3d 2780 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ (𝐷 βˆ– { 1 })if(𝑓 ∈ π‘Š, 1, 0) = (β™―β€˜π‘Š))
221220oveq2d 7421 . . . . . . . . . . 11 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· Σ𝑓 ∈ (𝐷 βˆ– { 1 })if(𝑓 ∈ π‘Š, 1, 0)) = ((logβ€˜π‘₯) Β· (β™―β€˜π‘Š)))
222201, 221eqtr3d 2774 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ (𝐷 βˆ– { 1 })((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)) = ((logβ€˜π‘₯) Β· (β™―β€˜π‘Š)))
223222negeqd 11450 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ -Σ𝑓 ∈ (𝐷 βˆ– { 1 })((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)) = -((logβ€˜π‘₯) Β· (β™―β€˜π‘Š)))
224193, 199, 2233eqtrd 2776 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ (𝐷 βˆ– { 1 })((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) = -((logβ€˜π‘₯) Β· (β™―β€˜π‘Š)))
225176, 224oveq12d 7423 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (Σ𝑓 ∈ { 1 } ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) + Σ𝑓 ∈ (𝐷 βˆ– { 1 })((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = (((logβ€˜π‘₯) Β· 1) + -((logβ€˜π‘₯) Β· (β™―β€˜π‘Š))))
22647, 218mulcld 11230 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· (β™―β€˜π‘Š)) ∈ β„‚)
227172, 226negsubd 11573 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (((logβ€˜π‘₯) Β· 1) + -((logβ€˜π‘₯) Β· (β™―β€˜π‘Š))) = (((logβ€˜π‘₯) Β· 1) βˆ’ ((logβ€˜π‘₯) Β· (β™―β€˜π‘Š))))
228225, 227eqtrd 2772 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (Σ𝑓 ∈ { 1 } ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) + Σ𝑓 ∈ (𝐷 βˆ– { 1 })((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = (((logβ€˜π‘₯) Β· 1) βˆ’ ((logβ€˜π‘₯) Β· (β™―β€˜π‘Š))))
229 disjdif 4470 . . . . . . . 8 ({ 1 } ∩ (𝐷 βˆ– { 1 })) = βˆ…
230229a1i 11 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ({ 1 } ∩ (𝐷 βˆ– { 1 })) = βˆ…)
231 undif2 4475 . . . . . . . 8 ({ 1 } βˆͺ (𝐷 βˆ– { 1 })) = ({ 1 } βˆͺ 𝐷)
232170snssd 4811 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ { 1 } βŠ† 𝐷)
233 ssequn1 4179 . . . . . . . . 9 ({ 1 } βŠ† 𝐷 ↔ ({ 1 } βˆͺ 𝐷) = 𝐷)
234232, 233sylib 217 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ({ 1 } βˆͺ 𝐷) = 𝐷)
235231, 234eqtr2id 2785 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ 𝐷 = ({ 1 } βˆͺ (𝐷 βˆ– { 1 })))
236230, 235, 6, 55fsumsplit 15683 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ 𝐷 ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) = (Σ𝑓 ∈ { 1 } ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) + Σ𝑓 ∈ (𝐷 βˆ– { 1 })((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))))
23747, 211, 218subdid 11666 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· (1 βˆ’ (β™―β€˜π‘Š))) = (((logβ€˜π‘₯) Β· 1) βˆ’ ((logβ€˜π‘₯) Β· (β™―β€˜π‘Š))))
238228, 236, 2373eqtr4rd 2783 . . . . 5 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· (1 βˆ’ (β™―β€˜π‘Š))) = Σ𝑓 ∈ 𝐷 ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))
239166, 238oveq12d 7423 . . . 4 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (((Ο•β€˜π‘) Β· Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· (1 βˆ’ (β™―β€˜π‘Š)))) = (Σ𝑓 ∈ 𝐷 Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) βˆ’ Σ𝑓 ∈ 𝐷 ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))))
24056, 114, 2393eqtr4d 2782 . . 3 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) = (((Ο•β€˜π‘) Β· Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· (1 βˆ’ (β™―β€˜π‘Š)))))
241240mpteq2dva 5247 . 2 (πœ‘ β†’ (π‘₯ ∈ ℝ+ ↦ Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))))) = (π‘₯ ∈ ℝ+ ↦ (((Ο•β€˜π‘) Β· Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· (1 βˆ’ (β™―β€˜π‘Š))))))
242 rpssre 12977 . . . 4 ℝ+ βŠ† ℝ
243242a1i 11 . . 3 (πœ‘ β†’ ℝ+ βŠ† ℝ)
2441, 5syl 17 . . 3 (πœ‘ β†’ 𝐷 ∈ Fin)
24517adantlr 713 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ (π‘“β€˜π΄) ∈ β„‚)
246245cjcld 15139 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚)
24758, 55subcld 11567 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) ∈ β„‚)
248246, 247mulcld 11230 . . . 4 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) ∈ β„‚)
249248anasss 467 . . 3 ((πœ‘ ∧ (π‘₯ ∈ ℝ+ ∧ 𝑓 ∈ 𝐷)) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) ∈ β„‚)
25018adantr 481 . . . 4 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚)
251247an32s 650 . . . 4 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) ∈ β„‚)
252 o1const 15560 . . . . 5 ((ℝ+ βŠ† ℝ ∧ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚) β†’ (π‘₯ ∈ ℝ+ ↦ (βˆ—β€˜(π‘“β€˜π΄))) ∈ 𝑂(1))
253242, 18, 252sylancr 587 . . . 4 ((πœ‘ ∧ 𝑓 ∈ 𝐷) β†’ (π‘₯ ∈ ℝ+ ↦ (βˆ—β€˜(π‘“β€˜π΄))) ∈ 𝑂(1))
254 fveq1 6887 . . . . . . . . . . . 12 (𝑓 = 1 β†’ (π‘“β€˜(πΏβ€˜π‘›)) = ( 1 β€˜(πΏβ€˜π‘›)))
255254oveq1d 7420 . . . . . . . . . . 11 (𝑓 = 1 β†’ ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) = (( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)))
256255sumeq2sdv 15646 . . . . . . . . . 10 (𝑓 = 1 β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) = Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))(( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)))
257256, 174oveq12d 7423 . . . . . . . . 9 (𝑓 = 1 β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))(( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· 1)))
258257adantl 482 . . . . . . . 8 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))(( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· 1)))
25945recnd 11238 . . . . . . . . . 10 (π‘₯ ∈ ℝ+ β†’ (logβ€˜π‘₯) ∈ β„‚)
260259mulridd 11227 . . . . . . . . 9 (π‘₯ ∈ ℝ+ β†’ ((logβ€˜π‘₯) Β· 1) = (logβ€˜π‘₯))
261260oveq2d 7421 . . . . . . . 8 (π‘₯ ∈ ℝ+ β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))(( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· 1)) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))(( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ (logβ€˜π‘₯)))
262258, 261sylan9eq 2792 . . . . . . 7 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) ∧ π‘₯ ∈ ℝ+) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))(( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ (logβ€˜π‘₯)))
263262mpteq2dva 5247 . . . . . 6 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) = (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))(( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ (logβ€˜π‘₯))))
2648, 23, 1, 3, 4, 65rpvmasumlem 26979 . . . . . . 7 (πœ‘ β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))(( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ (logβ€˜π‘₯))) ∈ 𝑂(1))
265264ad2antrr 724 . . . . . 6 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))(( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ (logβ€˜π‘₯))) ∈ 𝑂(1))
266263, 265eqeltrd 2833 . . . . 5 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) ∈ 𝑂(1))
267178oveq2d 7421 . . . . . . . . . 10 (𝑓 β‰  1 β†’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) = ((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, -1, 0)))
268267oveq2d 7421 . . . . . . . . 9 (𝑓 β‰  1 β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, -1, 0))))
26947adantlr 713 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ (logβ€˜π‘₯) ∈ β„‚)
270 mulcom 11192 . . . . . . . . . . . . . . 15 (((logβ€˜π‘₯) ∈ β„‚ ∧ -1 ∈ β„‚) β†’ ((logβ€˜π‘₯) Β· -1) = (-1 Β· (logβ€˜π‘₯)))
271269, 50, 270sylancl 586 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· -1) = (-1 Β· (logβ€˜π‘₯)))
272269mulm1d 11662 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ (-1 Β· (logβ€˜π‘₯)) = -(logβ€˜π‘₯))
273271, 272eqtrd 2772 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· -1) = -(logβ€˜π‘₯))
274269mul01d 11409 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· 0) = 0)
275273, 274ifeq12d 4548 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ if(𝑓 ∈ π‘Š, ((logβ€˜π‘₯) Β· -1), ((logβ€˜π‘₯) Β· 0)) = if(𝑓 ∈ π‘Š, -(logβ€˜π‘₯), 0))
276 ovif2 7503 . . . . . . . . . . . 12 ((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, -1, 0)) = if(𝑓 ∈ π‘Š, ((logβ€˜π‘₯) Β· -1), ((logβ€˜π‘₯) Β· 0))
277 negeq 11448 . . . . . . . . . . . . 13 (if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) = (logβ€˜π‘₯) β†’ -if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) = -(logβ€˜π‘₯))
278 negeq 11448 . . . . . . . . . . . . . 14 (if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) = 0 β†’ -if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) = -0)
279278, 182eqtrdi 2788 . . . . . . . . . . . . 13 (if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) = 0 β†’ -if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) = 0)
280277, 279ifsb 4540 . . . . . . . . . . . 12 -if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) = if(𝑓 ∈ π‘Š, -(logβ€˜π‘₯), 0)
281275, 276, 2803eqtr4g 2797 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, -1, 0)) = -if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0))
282281oveq2d 7421 . . . . . . . . . 10 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, -1, 0))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ -if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0)))
28358an32s 650 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) ∈ β„‚)
284 ifcl 4572 . . . . . . . . . . . 12 (((logβ€˜π‘₯) ∈ β„‚ ∧ 0 ∈ β„‚) β†’ if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) ∈ β„‚)
285269, 51, 284sylancl 586 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) ∈ β„‚)
286283, 285subnegd 11574 . . . . . . . . . 10 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ -if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0)) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0)))
287282, 286eqtrd 2772 . . . . . . . . 9 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, -1, 0))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0)))
288268, 287sylan9eqr 2794 . . . . . . . 8 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 β‰  1 ) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0)))
289288an32s 650 . . . . . . 7 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ π‘₯ ∈ ℝ+) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0)))
290289mpteq2dva 5247 . . . . . 6 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) = (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0))))
2911ad2antrr 724 . . . . . . . 8 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ 𝑁 ∈ β„•)
292 simplr 767 . . . . . . . 8 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ 𝑓 ∈ 𝐷)
293 simpr 485 . . . . . . . 8 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ 𝑓 β‰  1 )
294 eqid 2732 . . . . . . . 8 (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)) = (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))
2958, 23, 291, 3, 4, 65, 292, 293, 294dchrmusumlema 26985 . . . . . . 7 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ βˆƒπ‘‘βˆƒπ‘ ∈ (0[,)+∞)(seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))
2961adantr 481 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑓 ∈ 𝐷) β†’ 𝑁 ∈ β„•)
297296ad2antrr 724 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ 𝑁 ∈ β„•)
298292adantr 481 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ 𝑓 ∈ 𝐷)
299 simplr 767 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ 𝑓 β‰  1 )
300 simprl 769 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ 𝑐 ∈ (0[,)+∞))
301 simprrl 779 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑)
302 simprrr 780 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦))
3038, 23, 297, 3, 4, 65, 298, 299, 294, 300, 301, 302, 202dchrvmaeq0 26996 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ (𝑓 ∈ π‘Š ↔ 𝑑 = 0))
304 ifbi 4549 . . . . . . . . . . . . 13 ((𝑓 ∈ π‘Š ↔ 𝑑 = 0) β†’ if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) = if(𝑑 = 0, (logβ€˜π‘₯), 0))
305304oveq2d 7421 . . . . . . . . . . . 12 ((𝑓 ∈ π‘Š ↔ 𝑑 = 0) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0)) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑑 = 0, (logβ€˜π‘₯), 0)))
306305mpteq2dv 5249 . . . . . . . . . . 11 ((𝑓 ∈ π‘Š ↔ 𝑑 = 0) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0))) = (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑑 = 0, (logβ€˜π‘₯), 0))))
307303, 306syl 17 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0))) = (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑑 = 0, (logβ€˜π‘₯), 0))))
3088, 23, 297, 3, 4, 65, 298, 299, 294, 300, 301, 302dchrvmasumif 26995 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑑 = 0, (logβ€˜π‘₯), 0))) ∈ 𝑂(1))
309307, 308eqeltrd 2833 . . . . . . . . 9 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0))) ∈ 𝑂(1))
310309rexlimdvaa 3156 . . . . . . . 8 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ (βˆƒπ‘ ∈ (0[,)+∞)(seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0))) ∈ 𝑂(1)))
311310exlimdv 1936 . . . . . . 7 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ (βˆƒπ‘‘βˆƒπ‘ ∈ (0[,)+∞)(seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0))) ∈ 𝑂(1)))
312295, 311mpd 15 . . . . . 6 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0))) ∈ 𝑂(1))
313290, 312eqeltrd 2833 . . . . 5 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) ∈ 𝑂(1))
314266, 313pm2.61dane 3029 . . . 4 ((πœ‘ ∧ 𝑓 ∈ 𝐷) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) ∈ 𝑂(1))
315250, 251, 253, 314o1mul2 15565 . . 3 ((πœ‘ ∧ 𝑓 ∈ 𝐷) β†’ (π‘₯ ∈ ℝ+ ↦ ((βˆ—β€˜(π‘“β€˜π΄)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))))) ∈ 𝑂(1))
316243, 244, 249, 315fsumo1 15754 . 2 (πœ‘ β†’ (π‘₯ ∈ ℝ+ ↦ Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))))) ∈ 𝑂(1))
317241, 316eqeltrrd 2834 1 (πœ‘ β†’ (π‘₯ ∈ ℝ+ ↦ (((Ο•β€˜π‘) Β· Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· (1 βˆ’ (β™―β€˜π‘Š))))) ∈ 𝑂(1))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 396   ∨ wo 845   ∧ w3a 1087   = wceq 1541  βˆƒwex 1781   ∈ wcel 2106   β‰  wne 2940  βˆ€wral 3061  βˆƒwrex 3070  {crab 3432   βˆ– cdif 3944   βˆͺ cun 3945   ∩ cin 3946   βŠ† wss 3947  βˆ…c0 4321  ifcif 4527  {csn 4627   class class class wbr 5147   ↦ cmpt 5230  β—‘ccnv 5674   β€œ cima 5678   Fn wfn 6535  βŸΆwf 6536  β€“ontoβ†’wfo 6538  β€˜cfv 6540  (class class class)co 7405  Fincfn 8935  β„‚cc 11104  β„cr 11105  0cc0 11106  1c1 11107   + caddc 11109   Β· cmul 11111  +∞cpnf 11241   ≀ cle 11245   βˆ’ cmin 11440  -cneg 11441   / cdiv 11867  β„•cn 12208  β„•0cn0 12468  β„€cz 12554  β„€β‰₯cuz 12818  β„+crp 12970  [,)cico 13322  ...cfz 13480  βŒŠcfl 13751  seqcseq 13962  β™―chash 14286  βˆ—ccj 15039  abscabs 15177   ⇝ cli 15424  π‘‚(1)co1 15426  Ξ£csu 15628  Ο•cphi 16693  Basecbs 17140  0gc0g 17381   MndHom cmhm 18665  Grpcgrp 18815  Abelcabl 19643  mulGrpcmgp 19981  1rcur 19998  Unitcui 20161  β„‚fldccnfld 20936  β„€RHomczrh 21040  β„€/nβ„€czn 21043  logclog 26054  Ξ›cvma 26585  DChrcdchr 26724
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721  ax-inf2 9632  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184  ax-addf 11185  ax-mulf 11186
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-tp 4632  df-op 4634  df-uni 4908  df-int 4950  df-iun 4998  df-iin 4999  df-disj 5113  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-se 5631  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6297  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-isom 6549  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-of 7666  df-rpss 7709  df-om 7852  df-1st 7971  df-2nd 7972  df-supp 8143  df-tpos 8207  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-1o 8462  df-2o 8463  df-oadd 8466  df-omul 8467  df-er 8699  df-ec 8701  df-qs 8705  df-map 8818  df-pm 8819  df-ixp 8888  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-fsupp 9358  df-fi 9402  df-sup 9433  df-inf 9434  df-oi 9501  df-dju 9892  df-card 9930  df-acn 9933  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-div 11868  df-nn 12209  df-2 12271  df-3 12272  df-4 12273  df-5 12274  df-6 12275  df-7 12276  df-8 12277  df-9 12278  df-n0 12469  df-xnn0 12541  df-z 12555  df-dec 12674  df-uz 12819  df-q 12929  df-rp 12971  df-xneg 13088  df-xadd 13089  df-xmul 13090  df-ioo 13324  df-ioc 13325  df-ico 13326  df-icc 13327  df-fz 13481  df-fzo 13624  df-fl 13753  df-mod 13831  df-seq 13963  df-exp 14024  df-fac 14230  df-bc 14259  df-hash 14287  df-word 14461  df-concat 14517  df-s1 14542  df-shft 15010  df-cj 15042  df-re 15043  df-im 15044  df-sqrt 15178  df-abs 15179  df-limsup 15411  df-clim 15428  df-rlim 15429  df-o1 15430  df-lo1 15431  df-sum 15629  df-ef 16007  df-e 16008  df-sin 16009  df-cos 16010  df-tan 16011  df-pi 16012  df-dvds 16194  df-gcd 16432  df-prm 16605  df-phi 16695  df-pc 16766  df-struct 17076  df-sets 17093  df-slot 17111  df-ndx 17123  df-base 17141  df-ress 17170  df-plusg 17206  df-mulr 17207  df-starv 17208  df-sca 17209  df-vsca 17210  df-ip 17211  df-tset 17212  df-ple 17213  df-ds 17215  df-unif 17216  df-hom 17217  df-cco 17218  df-rest 17364  df-topn 17365  df-0g 17383  df-gsum 17384  df-topgen 17385  df-pt 17386  df-prds 17389  df-xrs 17444  df-qtop 17449  df-imas 17450  df-qus 17451  df-xps 17452  df-mre 17526  df-mrc 17527  df-acs 17529  df-mgm 18557  df-sgrp 18606  df-mnd 18622  df-mhm 18667  df-submnd 18668  df-grp 18818  df-minusg 18819  df-sbg 18820  df-mulg 18945  df-subg 18997  df-nsg 18998  df-eqg 18999  df-ghm 19084  df-gim 19127  df-ga 19148  df-cntz 19175  df-oppg 19204  df-od 19390  df-gex 19391  df-pgp 19392  df-lsm 19498  df-pj1 19499  df-cmn 19644  df-abl 19645  df-cyg 19740  df-dprd 19859  df-dpj 19860  df-mgp 19982  df-ur 19999  df-ring 20051  df-cring 20052  df-oppr 20142  df-dvdsr 20163  df-unit 20164  df-invr 20194  df-dvr 20207  df-rnghom 20243  df-drng 20309  df-subrg 20353  df-lmod 20465  df-lss 20535  df-lsp 20575  df-sra 20777  df-rgmod 20778  df-lidl 20779  df-rsp 20780  df-2idl 20849  df-psmet 20928  df-xmet 20929  df-met 20930  df-bl 20931  df-mopn 20932  df-fbas 20933  df-fg 20934  df-cnfld 20937  df-zring 21010  df-zrh 21044  df-zn 21047  df-top 22387  df-topon 22404  df-topsp 22426  df-bases 22440  df-cld 22514  df-ntr 22515  df-cls 22516  df-nei 22593  df-lp 22631  df-perf 22632  df-cn 22722  df-cnp 22723  df-haus 22810  df-cmp 22882  df-tx 23057  df-hmeo 23250  df-fil 23341  df-fm 23433  df-flim 23434  df-flf 23435  df-xms 23817  df-ms 23818  df-tms 23819  df-cncf 24385  df-0p 25178  df-limc 25374  df-dv 25375  df-ply 25693  df-idp 25694  df-coe 25695  df-dgr 25696  df-quot 25795  df-ulm 25880  df-log 26056  df-cxp 26057  df-atan 26361  df-em 26486  df-cht 26590  df-vma 26591  df-chp 26592  df-ppi 26593  df-mu 26594  df-dchr 26725
This theorem is referenced by:  dchrisum0re  27005  rpvmasum  27018
  Copyright terms: Public domain W3C validator