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

Theorem rpvmasum2 27400
Description: A partial result along the lines of rpvmasum 27414. 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 480 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ 𝑁 ∈ β„•)
3 rpvmasum2.g . . . . . . 7 𝐺 = (DChrβ€˜π‘)
4 rpvmasum2.d . . . . . . 7 𝐷 = (Baseβ€˜πΊ)
53, 4dchrfi 27143 . . . . . 6 (𝑁 ∈ β„• β†’ 𝐷 ∈ Fin)
62, 5syl 17 . . . . 5 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ 𝐷 ∈ Fin)
7 fzfid 13944 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ (1...(βŒŠβ€˜π‘₯)) ∈ Fin)
8 rpvmasum.z . . . . . . . . . . . . 13 𝑍 = (β„€/nβ„€β€˜π‘)
9 eqid 2726 . . . . . . . . . . . . 13 (Baseβ€˜π‘) = (Baseβ€˜π‘)
10 simpr 484 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑓 ∈ 𝐷) β†’ 𝑓 ∈ 𝐷)
113, 8, 4, 9, 10dchrf 27130 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑓 ∈ 𝐷) β†’ 𝑓:(Baseβ€˜π‘)βŸΆβ„‚)
12 rpvmasum2.u . . . . . . . . . . . . . . 15 π‘ˆ = (Unitβ€˜π‘)
139, 12unitss 20278 . . . . . . . . . . . . . 14 π‘ˆ βŠ† (Baseβ€˜π‘)
14 rpvmasum2.b . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐴 ∈ π‘ˆ)
1513, 14sselid 3975 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐴 ∈ (Baseβ€˜π‘))
1615adantr 480 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑓 ∈ 𝐷) β†’ 𝐴 ∈ (Baseβ€˜π‘))
1711, 16ffvelcdmd 7081 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑓 ∈ 𝐷) β†’ (π‘“β€˜π΄) ∈ β„‚)
1817cjcld 15149 . . . . . . . . . 10 ((πœ‘ ∧ 𝑓 ∈ 𝐷) β†’ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚)
1918adantlr 712 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚)
2019adantrl 713 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑛 ∈ (1...(βŒŠβ€˜π‘₯)) ∧ 𝑓 ∈ 𝐷)) β†’ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚)
2111ad4ant14 749 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ 𝑓 ∈ 𝐷) β†’ 𝑓:(Baseβ€˜π‘)βŸΆβ„‚)
221nnnn0d 12536 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝑁 ∈ β„•0)
23 rpvmasum.l . . . . . . . . . . . . . . . 16 𝐿 = (β„€RHomβ€˜π‘)
248, 9, 23znzrhfo 21442 . . . . . . . . . . . . . . 15 (𝑁 ∈ β„•0 β†’ 𝐿:℀–ontoβ†’(Baseβ€˜π‘))
25 fof 6799 . . . . . . . . . . . . . . 15 (𝐿:℀–ontoβ†’(Baseβ€˜π‘) β†’ 𝐿:β„€βŸΆ(Baseβ€˜π‘))
2622, 24, 253syl 18 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐿:β„€βŸΆ(Baseβ€˜π‘))
2726adantr 480 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ 𝐿:β„€βŸΆ(Baseβ€˜π‘))
28 elfzelz 13507 . . . . . . . . . . . . 13 (𝑛 ∈ (1...(βŒŠβ€˜π‘₯)) β†’ 𝑛 ∈ β„€)
29 ffvelcdm 7077 . . . . . . . . . . . . 13 ((𝐿:β„€βŸΆ(Baseβ€˜π‘) ∧ 𝑛 ∈ β„€) β†’ (πΏβ€˜π‘›) ∈ (Baseβ€˜π‘))
3027, 28, 29syl2an 595 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (πΏβ€˜π‘›) ∈ (Baseβ€˜π‘))
3130adantr 480 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ 𝑓 ∈ 𝐷) β†’ (πΏβ€˜π‘›) ∈ (Baseβ€˜π‘))
3221, 31ffvelcdmd 7081 . . . . . . . . . 10 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ 𝑓 ∈ 𝐷) β†’ (π‘“β€˜(πΏβ€˜π‘›)) ∈ β„‚)
3332anasss 466 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑛 ∈ (1...(βŒŠβ€˜π‘₯)) ∧ 𝑓 ∈ 𝐷)) β†’ (π‘“β€˜(πΏβ€˜π‘›)) ∈ β„‚)
34 elfznn 13536 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...(βŒŠβ€˜π‘₯)) β†’ 𝑛 ∈ β„•)
3534adantl 481 . . . . . . . . . . . . 13 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 𝑛 ∈ β„•)
36 vmacl 27005 . . . . . . . . . . . . 13 (𝑛 ∈ β„• β†’ (Ξ›β€˜π‘›) ∈ ℝ)
3735, 36syl 17 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (Ξ›β€˜π‘›) ∈ ℝ)
3837, 35nndivred 12270 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((Ξ›β€˜π‘›) / 𝑛) ∈ ℝ)
3938recnd 11246 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((Ξ›β€˜π‘›) / 𝑛) ∈ β„‚)
4039adantrr 714 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑛 ∈ (1...(βŒŠβ€˜π‘₯)) ∧ 𝑓 ∈ 𝐷)) β†’ ((Ξ›β€˜π‘›) / 𝑛) ∈ β„‚)
4133, 40mulcld 11238 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑛 ∈ (1...(βŒŠβ€˜π‘₯)) ∧ 𝑓 ∈ 𝐷)) β†’ ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) ∈ β„‚)
4220, 41mulcld 11238 . . . . . . 7 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑛 ∈ (1...(βŒŠβ€˜π‘₯)) ∧ 𝑓 ∈ 𝐷)) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) ∈ β„‚)
4342anass1rs 652 . . . . . 6 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) ∈ β„‚)
447, 43fsumcl 15685 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) ∈ β„‚)
45 relogcl 26464 . . . . . . . . 9 (π‘₯ ∈ ℝ+ β†’ (logβ€˜π‘₯) ∈ ℝ)
4645adantl 481 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (logβ€˜π‘₯) ∈ ℝ)
4746recnd 11246 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (logβ€˜π‘₯) ∈ β„‚)
4847adantr 480 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ (logβ€˜π‘₯) ∈ β„‚)
49 ax-1cn 11170 . . . . . . 7 1 ∈ β„‚
50 neg1cn 12330 . . . . . . . 8 -1 ∈ β„‚
51 0cn 11210 . . . . . . . 8 0 ∈ β„‚
5250, 51ifcli 4570 . . . . . . 7 if(𝑓 ∈ π‘Š, -1, 0) ∈ β„‚
5349, 52ifcli 4570 . . . . . 6 if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)) ∈ β„‚
54 mulcl 11196 . . . . . 6 (((logβ€˜π‘₯) ∈ β„‚ ∧ if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)) ∈ β„‚) β†’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) ∈ β„‚)
5548, 53, 54sylancl 585 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) ∈ β„‚)
566, 44, 55fsumsub 15740 . . . 4 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ 𝐷 (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = (Σ𝑓 ∈ 𝐷 Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) βˆ’ Σ𝑓 ∈ 𝐷 ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))))
5741anass1rs 652 . . . . . . . 8 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) ∈ β„‚)
587, 57fsumcl 15685 . . . . . . 7 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) ∈ β„‚)
5919, 58, 55subdid 11674 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) = (((βˆ—β€˜(π‘“β€˜π΄)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) βˆ’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))))
607, 19, 57fsummulc2 15736 . . . . . . 7 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) = Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
6153a1i 11 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)) ∈ β„‚)
6219, 48, 61mul12d 11427 . . . . . . . 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 6884 . . . . . . . . . . . . . . . 16 (𝑓 = 1 β†’ (π‘“β€˜π΄) = ( 1 β€˜π΄))
65 rpvmasum2.1 . . . . . . . . . . . . . . . . 17 1 = (0gβ€˜πΊ)
661ad2antrr 723 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ 𝑁 ∈ β„•)
6714ad2antrr 723 . . . . . . . . . . . . . . . . 17 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ 𝐴 ∈ π‘ˆ)
683, 8, 65, 12, 66, 67dchr1 27145 . . . . . . . . . . . . . . . 16 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ ( 1 β€˜π΄) = 1)
6964, 68sylan9eqr 2788 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) β†’ (π‘“β€˜π΄) = 1)
7069fveq2d 6889 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) β†’ (βˆ—β€˜(π‘“β€˜π΄)) = (βˆ—β€˜1))
71 1re 11218 . . . . . . . . . . . . . . 15 1 ∈ ℝ
72 cjre 15092 . . . . . . . . . . . . . . 15 (1 ∈ ℝ β†’ (βˆ—β€˜1) = 1)
7371, 72ax-mp 5 . . . . . . . . . . . . . 14 (βˆ—β€˜1) = 1
7470, 73eqtrdi 2782 . . . . . . . . . . . . 13 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) β†’ (βˆ—β€˜(π‘“β€˜π΄)) = 1)
7574oveq1d 7420 . . . . . . . . . . . 12 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· 1) = (1 Β· 1))
76 1t1e1 12378 . . . . . . . . . . . 12 (1 Β· 1) = 1
7775, 76eqtrdi 2782 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· 1) = 1)
78 df-ne 2935 . . . . . . . . . . . 12 (𝑓 β‰  1 ↔ Β¬ 𝑓 = 1 )
79 ovif2 7503 . . . . . . . . . . . . 13 ((βˆ—β€˜(π‘“β€˜π΄)) Β· if(𝑓 ∈ π‘Š, -1, 0)) = if(𝑓 ∈ π‘Š, ((βˆ—β€˜(π‘“β€˜π΄)) Β· -1), ((βˆ—β€˜(π‘“β€˜π΄)) Β· 0))
80 rpvmasum2.z1 . . . . . . . . . . . . . . . . . . . . . 22 ((πœ‘ ∧ 𝑓 ∈ π‘Š) β†’ 𝐴 = (1rβ€˜π‘))
8180fveq2d 6889 . . . . . . . . . . . . . . . . . . . . 21 ((πœ‘ ∧ 𝑓 ∈ π‘Š) β†’ (π‘“β€˜π΄) = (π‘“β€˜(1rβ€˜π‘)))
8281ad5ant15 756 . . . . . . . . . . . . . . . . . . . 20 (((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ 𝑓 ∈ π‘Š) β†’ (π‘“β€˜π΄) = (π‘“β€˜(1rβ€˜π‘)))
833, 8, 4dchrmhm 27129 . . . . . . . . . . . . . . . . . . . . . . 23 𝐷 βŠ† ((mulGrpβ€˜π‘) MndHom (mulGrpβ€˜β„‚fld))
84 simpr 484 . . . . . . . . . . . . . . . . . . . . . . 23 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ 𝑓 ∈ 𝐷)
8583, 84sselid 3975 . . . . . . . . . . . . . . . . . . . . . 22 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ 𝑓 ∈ ((mulGrpβ€˜π‘) MndHom (mulGrpβ€˜β„‚fld)))
86 eqid 2726 . . . . . . . . . . . . . . . . . . . . . . . 24 (mulGrpβ€˜π‘) = (mulGrpβ€˜π‘)
87 eqid 2726 . . . . . . . . . . . . . . . . . . . . . . . 24 (1rβ€˜π‘) = (1rβ€˜π‘)
8886, 87ringidval 20088 . . . . . . . . . . . . . . . . . . . . . . 23 (1rβ€˜π‘) = (0gβ€˜(mulGrpβ€˜π‘))
89 eqid 2726 . . . . . . . . . . . . . . . . . . . . . . . 24 (mulGrpβ€˜β„‚fld) = (mulGrpβ€˜β„‚fld)
90 cnfld1 21282 . . . . . . . . . . . . . . . . . . . . . . . 24 1 = (1rβ€˜β„‚fld)
9189, 90ringidval 20088 . . . . . . . . . . . . . . . . . . . . . . 23 1 = (0gβ€˜(mulGrpβ€˜β„‚fld))
9288, 91mhm0 18724 . . . . . . . . . . . . . . . . . . . . . 22 (𝑓 ∈ ((mulGrpβ€˜π‘) MndHom (mulGrpβ€˜β„‚fld)) β†’ (π‘“β€˜(1rβ€˜π‘)) = 1)
9385, 92syl 17 . . . . . . . . . . . . . . . . . . . . 21 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ (π‘“β€˜(1rβ€˜π‘)) = 1)
9493ad2antrr 723 . . . . . . . . . . . . . . . . . . . 20 (((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ 𝑓 ∈ π‘Š) β†’ (π‘“β€˜(1rβ€˜π‘)) = 1)
9582, 94eqtrd 2766 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ 𝑓 ∈ π‘Š) β†’ (π‘“β€˜π΄) = 1)
9695fveq2d 6889 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ 𝑓 ∈ π‘Š) β†’ (βˆ—β€˜(π‘“β€˜π΄)) = (βˆ—β€˜1))
9796, 73eqtrdi 2782 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ 𝑓 ∈ π‘Š) β†’ (βˆ—β€˜(π‘“β€˜π΄)) = 1)
9897oveq1d 7420 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ 𝑓 ∈ π‘Š) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· -1) = (1 Β· -1))
9950mullidi 11223 . . . . . . . . . . . . . . . 16 (1 Β· -1) = -1
10098, 99eqtrdi 2782 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ 𝑓 ∈ π‘Š) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· -1) = -1)
101100ifeq1da 4554 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ if(𝑓 ∈ π‘Š, ((βˆ—β€˜(π‘“β€˜π΄)) Β· -1), ((βˆ—β€˜(π‘“β€˜π΄)) Β· 0)) = if(𝑓 ∈ π‘Š, -1, ((βˆ—β€˜(π‘“β€˜π΄)) Β· 0)))
10219adantr 480 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚)
103102mul01d 11417 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· 0) = 0)
104103ifeq2d 4543 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ if(𝑓 ∈ π‘Š, -1, ((βˆ—β€˜(π‘“β€˜π΄)) Β· 0)) = if(𝑓 ∈ π‘Š, -1, 0))
105101, 104eqtrd 2766 . . . . . . . . . . . . 13 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ if(𝑓 ∈ π‘Š, ((βˆ—β€˜(π‘“β€˜π΄)) Β· -1), ((βˆ—β€˜(π‘“β€˜π΄)) Β· 0)) = if(𝑓 ∈ π‘Š, -1, 0))
10679, 105eqtrid 2778 . . . . . . . . . . . 12 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· if(𝑓 ∈ π‘Š, -1, 0)) = if(𝑓 ∈ π‘Š, -1, 0))
10778, 106sylan2br 594 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) ∧ Β¬ 𝑓 = 1 ) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· if(𝑓 ∈ π‘Š, -1, 0)) = if(𝑓 ∈ π‘Š, -1, 0))
10877, 107ifeq12da 4556 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ if(𝑓 = 1 , ((βˆ—β€˜(π‘“β€˜π΄)) Β· 1), ((βˆ—β€˜(π‘“β€˜π΄)) Β· if(𝑓 ∈ π‘Š, -1, 0))) = if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))
10963, 108eqtrid 2778 . . . . . . . . 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 2766 . . . . . . 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 2766 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))))
114113sumeq2dv 15655 . . . 4 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) = Σ𝑓 ∈ 𝐷 (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))))
115 fzfid 13944 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (1...(βŒŠβ€˜π‘₯)) ∈ Fin)
116 inss1 4223 . . . . . . . . 9 ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇) βŠ† (1...(βŒŠβ€˜π‘₯))
117 ssfi 9175 . . . . . . . . 9 (((1...(βŒŠβ€˜π‘₯)) ∈ Fin ∧ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇) βŠ† (1...(βŒŠβ€˜π‘₯))) β†’ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇) ∈ Fin)
118115, 116, 117sylancl 585 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇) ∈ Fin)
1192phicld 16714 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (Ο•β€˜π‘) ∈ β„•)
120119nncnd 12232 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (Ο•β€˜π‘) ∈ β„‚)
121116a1i 11 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇) βŠ† (1...(βŒŠβ€˜π‘₯)))
122121sselda 3977 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)) β†’ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯)))
123122, 39syldan 590 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)) β†’ ((Ξ›β€˜π‘›) / 𝑛) ∈ β„‚)
124118, 120, 123fsummulc2 15736 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((Ο•β€˜π‘) Β· Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ξ›β€˜π‘›) / 𝑛)) = Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)))
125120adantr 480 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (Ο•β€˜π‘) ∈ β„‚)
126125, 39mulcld 11238 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)) ∈ β„‚)
127122, 126syldan 590 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)) β†’ ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)) ∈ β„‚)
128127ralrimiva 3140 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ βˆ€π‘› ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)) ∈ β„‚)
129115olcd 871 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((1...(βŒŠβ€˜π‘₯)) βŠ† (β„€β‰₯β€˜1) ∨ (1...(βŒŠβ€˜π‘₯)) ∈ Fin))
130 sumss2 15678 . . . . . . . 8 (((((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇) βŠ† (1...(βŒŠβ€˜π‘₯)) ∧ βˆ€π‘› ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)) ∈ β„‚) ∧ ((1...(βŒŠβ€˜π‘₯)) βŠ† (β„€β‰₯β€˜1) ∨ (1...(βŒŠβ€˜π‘₯)) ∈ Fin)) β†’ Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)) = Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))if(𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇), ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)), 0))
131121, 128, 129, 130syl21anc 835 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)) = Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))if(𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇), ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)), 0))
132 elin 3959 . . . . . . . . . . . . 13 (𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇) ↔ (𝑛 ∈ (1...(βŒŠβ€˜π‘₯)) ∧ 𝑛 ∈ 𝑇))
133132baib 535 . . . . . . . . . . . 12 (𝑛 ∈ (1...(βŒŠβ€˜π‘₯)) β†’ (𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇) ↔ 𝑛 ∈ 𝑇))
134133adantl 481 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇) ↔ 𝑛 ∈ 𝑇))
135 rpvmasum2.t . . . . . . . . . . . . 13 𝑇 = (◑𝐿 β€œ {𝐴})
136135eleq2i 2819 . . . . . . . . . . . 12 (𝑛 ∈ 𝑇 ↔ 𝑛 ∈ (◑𝐿 β€œ {𝐴}))
13727ffnd 6712 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ 𝐿 Fn β„€)
138 fniniseg 7055 . . . . . . . . . . . . . 14 (𝐿 Fn β„€ β†’ (𝑛 ∈ (◑𝐿 β€œ {𝐴}) ↔ (𝑛 ∈ β„€ ∧ (πΏβ€˜π‘›) = 𝐴)))
139138baibd 539 . . . . . . . . . . . . 13 ((𝐿 Fn β„€ ∧ 𝑛 ∈ β„€) β†’ (𝑛 ∈ (◑𝐿 β€œ {𝐴}) ↔ (πΏβ€˜π‘›) = 𝐴))
140137, 28, 139syl2an 595 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (𝑛 ∈ (◑𝐿 β€œ {𝐴}) ↔ (πΏβ€˜π‘›) = 𝐴))
141136, 140bitrid 283 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (𝑛 ∈ 𝑇 ↔ (πΏβ€˜π‘›) = 𝐴))
142134, 141bitr2d 280 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ ((πΏβ€˜π‘›) = 𝐴 ↔ 𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)))
14339mul02d 11416 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (0 Β· ((Ξ›β€˜π‘›) / 𝑛)) = 0)
144142, 143ifbieq2d 4549 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ if((πΏβ€˜π‘›) = 𝐴, ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)), (0 Β· ((Ξ›β€˜π‘›) / 𝑛))) = if(𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇), ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)), 0))
145 ovif 7502 . . . . . . . . . 10 (if((πΏβ€˜π‘›) = 𝐴, (Ο•β€˜π‘), 0) Β· ((Ξ›β€˜π‘›) / 𝑛)) = if((πΏβ€˜π‘›) = 𝐴, ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)), (0 Β· ((Ξ›β€˜π‘›) / 𝑛)))
1461ad2antrr 723 . . . . . . . . . . . . 13 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 𝑁 ∈ β„•)
147146, 5syl 17 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 𝐷 ∈ Fin)
14818ad4ant14 749 . . . . . . . . . . . . 13 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ 𝑓 ∈ 𝐷) β†’ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚)
14932, 148mulcld 11238 . . . . . . . . . . . 12 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ 𝑓 ∈ 𝐷) β†’ ((π‘“β€˜(πΏβ€˜π‘›)) Β· (βˆ—β€˜(π‘“β€˜π΄))) ∈ β„‚)
150147, 39, 149fsummulc1 15737 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (Σ𝑓 ∈ 𝐷 ((π‘“β€˜(πΏβ€˜π‘›)) Β· (βˆ—β€˜(π‘“β€˜π΄))) Β· ((Ξ›β€˜π‘›) / 𝑛)) = Σ𝑓 ∈ 𝐷 (((π‘“β€˜(πΏβ€˜π‘›)) Β· (βˆ—β€˜(π‘“β€˜π΄))) Β· ((Ξ›β€˜π‘›) / 𝑛)))
15114ad2antrr 723 . . . . . . . . . . . . 13 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ 𝐴 ∈ π‘ˆ)
1523, 4, 8, 9, 12, 146, 30, 151sum2dchr 27162 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ Σ𝑓 ∈ 𝐷 ((π‘“β€˜(πΏβ€˜π‘›)) Β· (βˆ—β€˜(π‘“β€˜π΄))) = if((πΏβ€˜π‘›) = 𝐴, (Ο•β€˜π‘), 0))
153152oveq1d 7420 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (Σ𝑓 ∈ 𝐷 ((π‘“β€˜(πΏβ€˜π‘›)) Β· (βˆ—β€˜(π‘“β€˜π΄))) Β· ((Ξ›β€˜π‘›) / 𝑛)) = (if((πΏβ€˜π‘›) = 𝐴, (Ο•β€˜π‘), 0) Β· ((Ξ›β€˜π‘›) / 𝑛)))
15439adantr 480 . . . . . . . . . . . . 13 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ 𝑓 ∈ 𝐷) β†’ ((Ξ›β€˜π‘›) / 𝑛) ∈ β„‚)
155 mulass 11200 . . . . . . . . . . . . . 14 (((π‘“β€˜(πΏβ€˜π‘›)) ∈ β„‚ ∧ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚ ∧ ((Ξ›β€˜π‘›) / 𝑛) ∈ β„‚) β†’ (((π‘“β€˜(πΏβ€˜π‘›)) Β· (βˆ—β€˜(π‘“β€˜π΄))) Β· ((Ξ›β€˜π‘›) / 𝑛)) = ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
156 mul12 11383 . . . . . . . . . . . . . 14 (((π‘“β€˜(πΏβ€˜π‘›)) ∈ β„‚ ∧ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚ ∧ ((Ξ›β€˜π‘›) / 𝑛) ∈ β„‚) β†’ ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((Ξ›β€˜π‘›) / 𝑛))) = ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
157155, 156eqtrd 2766 . . . . . . . . . . . . 13 (((π‘“β€˜(πΏβ€˜π‘›)) ∈ β„‚ ∧ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚ ∧ ((Ξ›β€˜π‘›) / 𝑛) ∈ β„‚) β†’ (((π‘“β€˜(πΏβ€˜π‘›)) Β· (βˆ—β€˜(π‘“β€˜π΄))) Β· ((Ξ›β€˜π‘›) / 𝑛)) = ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
15832, 148, 154, 157syl3anc 1368 . . . . . . . . . . . 12 ((((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) ∧ 𝑓 ∈ 𝐷) β†’ (((π‘“β€˜(πΏβ€˜π‘›)) Β· (βˆ—β€˜(π‘“β€˜π΄))) Β· ((Ξ›β€˜π‘›) / 𝑛)) = ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
159158sumeq2dv 15655 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ Σ𝑓 ∈ 𝐷 (((π‘“β€˜(πΏβ€˜π‘›)) Β· (βˆ—β€˜(π‘“β€˜π΄))) Β· ((Ξ›β€˜π‘›) / 𝑛)) = Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
160150, 153, 1593eqtr3d 2774 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ (if((πΏβ€˜π‘›) = 𝐴, (Ο•β€˜π‘), 0) Β· ((Ξ›β€˜π‘›) / 𝑛)) = Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
161145, 160eqtr3id 2780 . . . . . . . . 9 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ if((πΏβ€˜π‘›) = 𝐴, ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)), (0 Β· ((Ξ›β€˜π‘›) / 𝑛))) = Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
162144, 161eqtr3d 2768 . . . . . . . 8 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑛 ∈ (1...(βŒŠβ€˜π‘₯))) β†’ if(𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇), ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)), 0) = Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
163162sumeq2dv 15655 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))if(𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇), ((Ο•β€˜π‘) Β· ((Ξ›β€˜π‘›) / 𝑛)), 0) = Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
164124, 131, 1633eqtrd 2770 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((Ο•β€˜π‘) Β· Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ξ›β€˜π‘›) / 𝑛)) = Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
165115, 6, 42fsumcom 15727 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))) = Σ𝑓 ∈ 𝐷 Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
166164, 165eqtrd 2766 . . . . 5 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((Ο•β€˜π‘) Β· Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ξ›β€˜π‘›) / 𝑛)) = Σ𝑓 ∈ 𝐷 Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((βˆ—β€˜(π‘“β€˜π΄)) Β· ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛))))
1673dchrabl 27142 . . . . . . . . . 10 (𝑁 ∈ β„• β†’ 𝐺 ∈ Abel)
168 ablgrp 19705 . . . . . . . . . 10 (𝐺 ∈ Abel β†’ 𝐺 ∈ Grp)
1694, 65grpidcl 18895 . . . . . . . . . 10 (𝐺 ∈ Grp β†’ 1 ∈ 𝐷)
1702, 167, 168, 1694syl 19 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ 1 ∈ 𝐷)
17147mulridd 11235 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· 1) = (logβ€˜π‘₯))
172171, 47eqeltrd 2827 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· 1) ∈ β„‚)
173 iftrue 4529 . . . . . . . . . . 11 (𝑓 = 1 β†’ if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)) = 1)
174173oveq2d 7421 . . . . . . . . . 10 (𝑓 = 1 β†’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) = ((logβ€˜π‘₯) Β· 1))
175174sumsn 15698 . . . . . . . . 9 (( 1 ∈ 𝐷 ∧ ((logβ€˜π‘₯) Β· 1) ∈ β„‚) β†’ Σ𝑓 ∈ { 1 } ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) = ((logβ€˜π‘₯) Β· 1))
176170, 172, 175syl2anc 583 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ { 1 } ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) = ((logβ€˜π‘₯) Β· 1))
177 eldifsn 4785 . . . . . . . . . . 11 (𝑓 ∈ (𝐷 βˆ– { 1 }) ↔ (𝑓 ∈ 𝐷 ∧ 𝑓 β‰  1 ))
178 ifnefalse 4535 . . . . . . . . . . . . . . 15 (𝑓 β‰  1 β†’ if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)) = if(𝑓 ∈ π‘Š, -1, 0))
179178ad2antll 726 . . . . . . . . . . . . . 14 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑓 ∈ 𝐷 ∧ 𝑓 β‰  1 )) β†’ if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)) = if(𝑓 ∈ π‘Š, -1, 0))
180 negeq 11456 . . . . . . . . . . . . . . 15 (if(𝑓 ∈ π‘Š, 1, 0) = 1 β†’ -if(𝑓 ∈ π‘Š, 1, 0) = -1)
181 negeq 11456 . . . . . . . . . . . . . . . 16 (if(𝑓 ∈ π‘Š, 1, 0) = 0 β†’ -if(𝑓 ∈ π‘Š, 1, 0) = -0)
182 neg0 11510 . . . . . . . . . . . . . . . 16 -0 = 0
183181, 182eqtrdi 2782 . . . . . . . . . . . . . . 15 (if(𝑓 ∈ π‘Š, 1, 0) = 0 β†’ -if(𝑓 ∈ π‘Š, 1, 0) = 0)
184180, 183ifsb 4536 . . . . . . . . . . . . . 14 -if(𝑓 ∈ π‘Š, 1, 0) = if(𝑓 ∈ π‘Š, -1, 0)
185179, 184eqtr4di 2784 . . . . . . . . . . . . 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 480 . . . . . . . . . . . . 13 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑓 ∈ 𝐷 ∧ 𝑓 β‰  1 )) β†’ (logβ€˜π‘₯) ∈ β„‚)
18849, 51ifcli 4570 . . . . . . . . . . . . 13 if(𝑓 ∈ π‘Š, 1, 0) ∈ β„‚
189 mulneg2 11655 . . . . . . . . . . . . 13 (((logβ€˜π‘₯) ∈ β„‚ ∧ if(𝑓 ∈ π‘Š, 1, 0) ∈ β„‚) β†’ ((logβ€˜π‘₯) Β· -if(𝑓 ∈ π‘Š, 1, 0)) = -((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)))
190187, 188, 189sylancl 585 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑓 ∈ 𝐷 ∧ 𝑓 β‰  1 )) β†’ ((logβ€˜π‘₯) Β· -if(𝑓 ∈ π‘Š, 1, 0)) = -((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)))
191186, 190eqtrd 2766 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ (𝑓 ∈ 𝐷 ∧ 𝑓 β‰  1 )) β†’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) = -((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)))
192177, 191sylan2b 593 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ (𝐷 βˆ– { 1 })) β†’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) = -((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)))
193192sumeq2dv 15655 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ (𝐷 βˆ– { 1 })((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) = Σ𝑓 ∈ (𝐷 βˆ– { 1 })-((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)))
194 diffi 9181 . . . . . . . . . . 11 (𝐷 ∈ Fin β†’ (𝐷 βˆ– { 1 }) ∈ Fin)
1956, 194syl 17 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (𝐷 βˆ– { 1 }) ∈ Fin)
19647adantr 480 . . . . . . . . . . 11 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ (𝐷 βˆ– { 1 })) β†’ (logβ€˜π‘₯) ∈ β„‚)
197 mulcl 11196 . . . . . . . . . . 11 (((logβ€˜π‘₯) ∈ β„‚ ∧ if(𝑓 ∈ π‘Š, 1, 0) ∈ β„‚) β†’ ((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)) ∈ β„‚)
198196, 188, 197sylancl 585 . . . . . . . . . 10 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ (𝐷 βˆ– { 1 })) β†’ ((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)) ∈ β„‚)
199195, 198fsumneg 15739 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ (𝐷 βˆ– { 1 })-((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)) = -Σ𝑓 ∈ (𝐷 βˆ– { 1 })((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)))
200188a1i 11 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ (𝐷 βˆ– { 1 })) β†’ if(𝑓 ∈ π‘Š, 1, 0) ∈ β„‚)
201195, 47, 200fsummulc2 15736 . . . . . . . . . . 11 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· Σ𝑓 ∈ (𝐷 βˆ– { 1 })if(𝑓 ∈ π‘Š, 1, 0)) = Σ𝑓 ∈ (𝐷 βˆ– { 1 })((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)))
202 rpvmasum2.w . . . . . . . . . . . . . . . . 17 π‘Š = {𝑦 ∈ (𝐷 βˆ– { 1 }) ∣ Ξ£π‘š ∈ β„• ((π‘¦β€˜(πΏβ€˜π‘š)) / π‘š) = 0}
203202ssrab3 4075 . . . . . . . . . . . . . . . 16 π‘Š βŠ† (𝐷 βˆ– { 1 })
204 difss 4126 . . . . . . . . . . . . . . . 16 (𝐷 βˆ– { 1 }) βŠ† 𝐷
205203, 204sstri 3986 . . . . . . . . . . . . . . 15 π‘Š βŠ† 𝐷
206 ssfi 9175 . . . . . . . . . . . . . . 15 ((𝐷 ∈ Fin ∧ π‘Š βŠ† 𝐷) β†’ π‘Š ∈ Fin)
2076, 205, 206sylancl 585 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ π‘Š ∈ Fin)
208 fsumconst 15742 . . . . . . . . . . . . . 14 ((π‘Š ∈ Fin ∧ 1 ∈ β„‚) β†’ Σ𝑓 ∈ π‘Š 1 = ((β™―β€˜π‘Š) Β· 1))
209207, 49, 208sylancl 585 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ π‘Š 1 = ((β™―β€˜π‘Š) Β· 1))
210203a1i 11 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ π‘Š βŠ† (𝐷 βˆ– { 1 }))
21149a1i 11 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ 1 ∈ β„‚)
212211ralrimivw 3144 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ βˆ€π‘“ ∈ π‘Š 1 ∈ β„‚)
213195olcd 871 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((𝐷 βˆ– { 1 }) βŠ† (β„€β‰₯β€˜1) ∨ (𝐷 βˆ– { 1 }) ∈ Fin))
214 sumss2 15678 . . . . . . . . . . . . . 14 (((π‘Š βŠ† (𝐷 βˆ– { 1 }) ∧ βˆ€π‘“ ∈ π‘Š 1 ∈ β„‚) ∧ ((𝐷 βˆ– { 1 }) βŠ† (β„€β‰₯β€˜1) ∨ (𝐷 βˆ– { 1 }) ∈ Fin)) β†’ Σ𝑓 ∈ π‘Š 1 = Σ𝑓 ∈ (𝐷 βˆ– { 1 })if(𝑓 ∈ π‘Š, 1, 0))
215210, 212, 213, 214syl21anc 835 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ π‘Š 1 = Σ𝑓 ∈ (𝐷 βˆ– { 1 })if(𝑓 ∈ π‘Š, 1, 0))
216 hashcl 14321 . . . . . . . . . . . . . . . 16 (π‘Š ∈ Fin β†’ (β™―β€˜π‘Š) ∈ β„•0)
217207, 216syl 17 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (β™―β€˜π‘Š) ∈ β„•0)
218217nn0cnd 12538 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (β™―β€˜π‘Š) ∈ β„‚)
219218mulridd 11235 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((β™―β€˜π‘Š) Β· 1) = (β™―β€˜π‘Š))
220209, 215, 2193eqtr3d 2774 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ (𝐷 βˆ– { 1 })if(𝑓 ∈ π‘Š, 1, 0) = (β™―β€˜π‘Š))
221220oveq2d 7421 . . . . . . . . . . 11 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· Σ𝑓 ∈ (𝐷 βˆ– { 1 })if(𝑓 ∈ π‘Š, 1, 0)) = ((logβ€˜π‘₯) Β· (β™―β€˜π‘Š)))
222201, 221eqtr3d 2768 . . . . . . . . . 10 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ (𝐷 βˆ– { 1 })((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)) = ((logβ€˜π‘₯) Β· (β™―β€˜π‘Š)))
223222negeqd 11458 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ -Σ𝑓 ∈ (𝐷 βˆ– { 1 })((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, 1, 0)) = -((logβ€˜π‘₯) Β· (β™―β€˜π‘Š)))
224193, 199, 2233eqtrd 2770 . . . . . . . 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 11238 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· (β™―β€˜π‘Š)) ∈ β„‚)
227172, 226negsubd 11581 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (((logβ€˜π‘₯) Β· 1) + -((logβ€˜π‘₯) Β· (β™―β€˜π‘Š))) = (((logβ€˜π‘₯) Β· 1) βˆ’ ((logβ€˜π‘₯) Β· (β™―β€˜π‘Š))))
228225, 227eqtrd 2766 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ (Σ𝑓 ∈ { 1 } ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))) + Σ𝑓 ∈ (𝐷 βˆ– { 1 })((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = (((logβ€˜π‘₯) Β· 1) βˆ’ ((logβ€˜π‘₯) Β· (β™―β€˜π‘Š))))
229 disjdif 4466 . . . . . . . 8 ({ 1 } ∩ (𝐷 βˆ– { 1 })) = βˆ…
230229a1i 11 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ({ 1 } ∩ (𝐷 βˆ– { 1 })) = βˆ…)
231 undif2 4471 . . . . . . . 8 ({ 1 } βˆͺ (𝐷 βˆ– { 1 })) = ({ 1 } βˆͺ 𝐷)
232170snssd 4807 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ { 1 } βŠ† 𝐷)
233 ssequn1 4175 . . . . . . . . 9 ({ 1 } βŠ† 𝐷 ↔ ({ 1 } βˆͺ 𝐷) = 𝐷)
234232, 233sylib 217 . . . . . . . 8 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ({ 1 } βˆͺ 𝐷) = 𝐷)
235231, 234eqtr2id 2779 . . . . . . 7 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ 𝐷 = ({ 1 } βˆͺ (𝐷 βˆ– { 1 })))
236230, 235, 6, 55fsumsplit 15693 . . . . . 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 11674 . . . . . 6 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· (1 βˆ’ (β™―β€˜π‘Š))) = (((logβ€˜π‘₯) Β· 1) βˆ’ ((logβ€˜π‘₯) Β· (β™―β€˜π‘Š))))
238228, 236, 2373eqtr4rd 2777 . . . . 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 2776 . . 3 ((πœ‘ ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) = (((Ο•β€˜π‘) Β· Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· (1 βˆ’ (β™―β€˜π‘Š)))))
241240mpteq2dva 5241 . 2 (πœ‘ β†’ (π‘₯ ∈ ℝ+ ↦ Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))))) = (π‘₯ ∈ ℝ+ ↦ (((Ο•β€˜π‘) Β· Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· (1 βˆ’ (β™―β€˜π‘Š))))))
242 rpssre 12987 . . . 4 ℝ+ βŠ† ℝ
243242a1i 11 . . 3 (πœ‘ β†’ ℝ+ βŠ† ℝ)
2441, 5syl 17 . . 3 (πœ‘ β†’ 𝐷 ∈ Fin)
24517adantlr 712 . . . . . 6 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ (π‘“β€˜π΄) ∈ β„‚)
246245cjcld 15149 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚)
24758, 55subcld 11575 . . . . 5 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) ∈ β„‚)
248246, 247mulcld 11238 . . . 4 (((πœ‘ ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 ∈ 𝐷) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) ∈ β„‚)
249248anasss 466 . . 3 ((πœ‘ ∧ (π‘₯ ∈ ℝ+ ∧ 𝑓 ∈ 𝐷)) β†’ ((βˆ—β€˜(π‘“β€˜π΄)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) ∈ β„‚)
25018adantr 480 . . . 4 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚)
251247an32s 649 . . . 4 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) ∈ β„‚)
252 o1const 15570 . . . . 5 ((ℝ+ βŠ† ℝ ∧ (βˆ—β€˜(π‘“β€˜π΄)) ∈ β„‚) β†’ (π‘₯ ∈ ℝ+ ↦ (βˆ—β€˜(π‘“β€˜π΄))) ∈ 𝑂(1))
253242, 18, 252sylancr 586 . . . 4 ((πœ‘ ∧ 𝑓 ∈ 𝐷) β†’ (π‘₯ ∈ ℝ+ ↦ (βˆ—β€˜(π‘“β€˜π΄))) ∈ 𝑂(1))
254 fveq1 6884 . . . . . . . . . . . 12 (𝑓 = 1 β†’ (π‘“β€˜(πΏβ€˜π‘›)) = ( 1 β€˜(πΏβ€˜π‘›)))
255254oveq1d 7420 . . . . . . . . . . 11 (𝑓 = 1 β†’ ((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) = (( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)))
256255sumeq2sdv 15656 . . . . . . . . . 10 (𝑓 = 1 β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) = Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))(( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)))
257256, 174oveq12d 7423 . . . . . . . . 9 (𝑓 = 1 β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))(( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· 1)))
258257adantl 481 . . . . . . . 8 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))(( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· 1)))
25945recnd 11246 . . . . . . . . . 10 (π‘₯ ∈ ℝ+ β†’ (logβ€˜π‘₯) ∈ β„‚)
260259mulridd 11235 . . . . . . . . 9 (π‘₯ ∈ ℝ+ β†’ ((logβ€˜π‘₯) Β· 1) = (logβ€˜π‘₯))
261260oveq2d 7421 . . . . . . . 8 (π‘₯ ∈ ℝ+ β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))(( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· 1)) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))(( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ (logβ€˜π‘₯)))
262258, 261sylan9eq 2786 . . . . . . 7 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) ∧ π‘₯ ∈ ℝ+) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))(( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ (logβ€˜π‘₯)))
263262mpteq2dva 5241 . . . . . 6 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) = (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))(( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ (logβ€˜π‘₯))))
2648, 23, 1, 3, 4, 65rpvmasumlem 27375 . . . . . . 7 (πœ‘ β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))(( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ (logβ€˜π‘₯))) ∈ 𝑂(1))
265264ad2antrr 723 . . . . . 6 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 = 1 ) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))(( 1 β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ (logβ€˜π‘₯))) ∈ 𝑂(1))
266263, 265eqeltrd 2827 . . . . 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 712 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ (logβ€˜π‘₯) ∈ β„‚)
270 mulcom 11198 . . . . . . . . . . . . . . 15 (((logβ€˜π‘₯) ∈ β„‚ ∧ -1 ∈ β„‚) β†’ ((logβ€˜π‘₯) Β· -1) = (-1 Β· (logβ€˜π‘₯)))
271269, 50, 270sylancl 585 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· -1) = (-1 Β· (logβ€˜π‘₯)))
272269mulm1d 11670 . . . . . . . . . . . . . 14 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ (-1 Β· (logβ€˜π‘₯)) = -(logβ€˜π‘₯))
273271, 272eqtrd 2766 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· -1) = -(logβ€˜π‘₯))
274269mul01d 11417 . . . . . . . . . . . . 13 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· 0) = 0)
275273, 274ifeq12d 4544 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ if(𝑓 ∈ π‘Š, ((logβ€˜π‘₯) Β· -1), ((logβ€˜π‘₯) Β· 0)) = if(𝑓 ∈ π‘Š, -(logβ€˜π‘₯), 0))
276 ovif2 7503 . . . . . . . . . . . 12 ((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, -1, 0)) = if(𝑓 ∈ π‘Š, ((logβ€˜π‘₯) Β· -1), ((logβ€˜π‘₯) Β· 0))
277 negeq 11456 . . . . . . . . . . . . 13 (if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) = (logβ€˜π‘₯) β†’ -if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) = -(logβ€˜π‘₯))
278 negeq 11456 . . . . . . . . . . . . . 14 (if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) = 0 β†’ -if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) = -0)
279278, 182eqtrdi 2782 . . . . . . . . . . . . 13 (if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) = 0 β†’ -if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) = 0)
280277, 279ifsb 4536 . . . . . . . . . . . 12 -if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) = if(𝑓 ∈ π‘Š, -(logβ€˜π‘₯), 0)
281275, 276, 2803eqtr4g 2791 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ ((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, -1, 0)) = -if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0))
282281oveq2d 7421 . . . . . . . . . 10 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, -1, 0))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ -if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0)))
28358an32s 649 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) ∈ β„‚)
284 ifcl 4568 . . . . . . . . . . . 12 (((logβ€˜π‘₯) ∈ β„‚ ∧ 0 ∈ β„‚) β†’ if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) ∈ β„‚)
285269, 51, 284sylancl 585 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) ∈ β„‚)
286283, 285subnegd 11582 . . . . . . . . . 10 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ -if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0)) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0)))
287282, 286eqtrd 2766 . . . . . . . . 9 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 ∈ π‘Š, -1, 0))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0)))
288268, 287sylan9eqr 2788 . . . . . . . 8 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ π‘₯ ∈ ℝ+) ∧ 𝑓 β‰  1 ) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0)))
289288an32s 649 . . . . . . 7 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ π‘₯ ∈ ℝ+) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0)))
290289mpteq2dva 5241 . . . . . 6 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) = (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0))))
2911ad2antrr 723 . . . . . . . 8 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ 𝑁 ∈ β„•)
292 simplr 766 . . . . . . . 8 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ 𝑓 ∈ 𝐷)
293 simpr 484 . . . . . . . 8 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ 𝑓 β‰  1 )
294 eqid 2726 . . . . . . . 8 (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)) = (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))
2958, 23, 291, 3, 4, 65, 292, 293, 294dchrmusumlema 27381 . . . . . . 7 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ βˆƒπ‘‘βˆƒπ‘ ∈ (0[,)+∞)(seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))
2961adantr 480 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑓 ∈ 𝐷) β†’ 𝑁 ∈ β„•)
297296ad2antrr 723 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ 𝑁 ∈ β„•)
298292adantr 480 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ 𝑓 ∈ 𝐷)
299 simplr 766 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ 𝑓 β‰  1 )
300 simprl 768 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ 𝑐 ∈ (0[,)+∞))
301 simprrl 778 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑)
302 simprrr 779 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦))
3038, 23, 297, 3, 4, 65, 298, 299, 294, 300, 301, 302, 202dchrvmaeq0 27392 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ (𝑓 ∈ π‘Š ↔ 𝑑 = 0))
304 ifbi 4545 . . . . . . . . . . . . 13 ((𝑓 ∈ π‘Š ↔ 𝑑 = 0) β†’ if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0) = if(𝑑 = 0, (logβ€˜π‘₯), 0))
305304oveq2d 7421 . . . . . . . . . . . 12 ((𝑓 ∈ π‘Š ↔ 𝑑 = 0) β†’ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0)) = (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑑 = 0, (logβ€˜π‘₯), 0)))
306305mpteq2dv 5243 . . . . . . . . . . 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 27391 . . . . . . . . . 10 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑑 = 0, (logβ€˜π‘₯), 0))) ∈ 𝑂(1))
309307, 308eqeltrd 2827 . . . . . . . . 9 ((((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) ∧ (𝑐 ∈ (0[,)+∞) ∧ (seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)))) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0))) ∈ 𝑂(1))
310309rexlimdvaa 3150 . . . . . . . 8 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ (βˆƒπ‘ ∈ (0[,)+∞)(seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0))) ∈ 𝑂(1)))
311310exlimdv 1928 . . . . . . 7 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ (βˆƒπ‘‘βˆƒπ‘ ∈ (0[,)+∞)(seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž))) ⇝ 𝑑 ∧ βˆ€π‘¦ ∈ (1[,)+∞)(absβ€˜((seq1( + , (π‘Ž ∈ β„• ↦ ((π‘“β€˜(πΏβ€˜π‘Ž)) / π‘Ž)))β€˜(βŒŠβ€˜π‘¦)) βˆ’ 𝑑)) ≀ (𝑐 / 𝑦)) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0))) ∈ 𝑂(1)))
312295, 311mpd 15 . . . . . 6 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) + if(𝑓 ∈ π‘Š, (logβ€˜π‘₯), 0))) ∈ 𝑂(1))
313290, 312eqeltrd 2827 . . . . 5 (((πœ‘ ∧ 𝑓 ∈ 𝐷) ∧ 𝑓 β‰  1 ) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) ∈ 𝑂(1))
314266, 313pm2.61dane 3023 . . . 4 ((πœ‘ ∧ 𝑓 ∈ 𝐷) β†’ (π‘₯ ∈ ℝ+ ↦ (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0))))) ∈ 𝑂(1))
315250, 251, 253, 314o1mul2 15575 . . 3 ((πœ‘ ∧ 𝑓 ∈ 𝐷) β†’ (π‘₯ ∈ ℝ+ ↦ ((βˆ—β€˜(π‘“β€˜π΄)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))))) ∈ 𝑂(1))
316243, 244, 249, 315fsumo1 15764 . 2 (πœ‘ β†’ (π‘₯ ∈ ℝ+ ↦ Σ𝑓 ∈ 𝐷 ((βˆ—β€˜(π‘“β€˜π΄)) Β· (Σ𝑛 ∈ (1...(βŒŠβ€˜π‘₯))((π‘“β€˜(πΏβ€˜π‘›)) Β· ((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· if(𝑓 = 1 , 1, if(𝑓 ∈ π‘Š, -1, 0)))))) ∈ 𝑂(1))
317241, 316eqeltrrd 2828 1 (πœ‘ β†’ (π‘₯ ∈ ℝ+ ↦ (((Ο•β€˜π‘) Β· Σ𝑛 ∈ ((1...(βŒŠβ€˜π‘₯)) ∩ 𝑇)((Ξ›β€˜π‘›) / 𝑛)) βˆ’ ((logβ€˜π‘₯) Β· (1 βˆ’ (β™―β€˜π‘Š))))) ∈ 𝑂(1))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 395   ∨ wo 844   ∧ w3a 1084   = wceq 1533  βˆƒwex 1773   ∈ wcel 2098   β‰  wne 2934  βˆ€wral 3055  βˆƒwrex 3064  {crab 3426   βˆ– cdif 3940   βˆͺ cun 3941   ∩ cin 3942   βŠ† wss 3943  βˆ…c0 4317  ifcif 4523  {csn 4623   class class class wbr 5141   ↦ cmpt 5224  β—‘ccnv 5668   β€œ cima 5672   Fn wfn 6532  βŸΆwf 6533  β€“ontoβ†’wfo 6535  β€˜cfv 6537  (class class class)co 7405  Fincfn 8941  β„‚cc 11110  β„cr 11111  0cc0 11112  1c1 11113   + caddc 11115   Β· cmul 11117  +∞cpnf 11249   ≀ cle 11253   βˆ’ cmin 11448  -cneg 11449   / cdiv 11875  β„•cn 12216  β„•0cn0 12476  β„€cz 12562  β„€β‰₯cuz 12826  β„+crp 12980  [,)cico 13332  ...cfz 13490  βŒŠcfl 13761  seqcseq 13972  β™―chash 14295  βˆ—ccj 15049  abscabs 15187   ⇝ cli 15434  π‘‚(1)co1 15436  Ξ£csu 15638  Ο•cphi 16706  Basecbs 17153  0gc0g 17394   MndHom cmhm 18711  Grpcgrp 18863  Abelcabl 19701  mulGrpcmgp 20039  1rcur 20086  Unitcui 20257  β„‚fldccnfld 21240  β„€RHomczrh 21386  β„€/nβ„€czn 21389  logclog 26443  Ξ›cvma 26979  DChrcdchr 27120
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2163  ax-ext 2697  ax-rep 5278  ax-sep 5292  ax-nul 5299  ax-pow 5356  ax-pr 5420  ax-un 7722  ax-inf2 9638  ax-cnex 11168  ax-resscn 11169  ax-1cn 11170  ax-icn 11171  ax-addcl 11172  ax-addrcl 11173  ax-mulcl 11174  ax-mulrcl 11175  ax-mulcom 11176  ax-addass 11177  ax-mulass 11178  ax-distr 11179  ax-i2m1 11180  ax-1ne0 11181  ax-1rid 11182  ax-rnegex 11183  ax-rrecex 11184  ax-cnre 11185  ax-pre-lttri 11186  ax-pre-lttrn 11187  ax-pre-ltadd 11188  ax-pre-mulgt0 11189  ax-pre-sup 11190  ax-addf 11191  ax-mulf 11192
This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2704  df-cleq 2718  df-clel 2804  df-nfc 2879  df-ne 2935  df-nel 3041  df-ral 3056  df-rex 3065  df-rmo 3370  df-reu 3371  df-rab 3427  df-v 3470  df-sbc 3773  df-csb 3889  df-dif 3946  df-un 3948  df-in 3950  df-ss 3960  df-pss 3962  df-nul 4318  df-if 4524  df-pw 4599  df-sn 4624  df-pr 4626  df-tp 4628  df-op 4630  df-uni 4903  df-int 4944  df-iun 4992  df-iin 4993  df-disj 5107  df-br 5142  df-opab 5204  df-mpt 5225  df-tr 5259  df-id 5567  df-eprel 5573  df-po 5581  df-so 5582  df-fr 5624  df-se 5625  df-we 5626  df-xp 5675  df-rel 5676  df-cnv 5677  df-co 5678  df-dm 5679  df-rn 5680  df-res 5681  df-ima 5682  df-pred 6294  df-ord 6361  df-on 6362  df-lim 6363  df-suc 6364  df-iota 6489  df-fun 6539  df-fn 6540  df-f 6541  df-f1 6542  df-fo 6543  df-f1o 6544  df-fv 6545  df-isom 6546  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-of 7667  df-rpss 7710  df-om 7853  df-1st 7974  df-2nd 7975  df-supp 8147  df-tpos 8212  df-frecs 8267  df-wrecs 8298  df-recs 8372  df-rdg 8411  df-1o 8467  df-2o 8468  df-oadd 8471  df-omul 8472  df-er 8705  df-ec 8707  df-qs 8711  df-map 8824  df-pm 8825  df-ixp 8894  df-en 8942  df-dom 8943  df-sdom 8944  df-fin 8945  df-fsupp 9364  df-fi 9408  df-sup 9439  df-inf 9440  df-oi 9507  df-dju 9898  df-card 9936  df-acn 9939  df-pnf 11254  df-mnf 11255  df-xr 11256  df-ltxr 11257  df-le 11258  df-sub 11450  df-neg 11451  df-div 11876  df-nn 12217  df-2 12279  df-3 12280  df-4 12281  df-5 12282  df-6 12283  df-7 12284  df-8 12285  df-9 12286  df-n0 12477  df-xnn0 12549  df-z 12563  df-dec 12682  df-uz 12827  df-q 12937  df-rp 12981  df-xneg 13098  df-xadd 13099  df-xmul 13100  df-ioo 13334  df-ioc 13335  df-ico 13336  df-icc 13337  df-fz 13491  df-fzo 13634  df-fl 13763  df-mod 13841  df-seq 13973  df-exp 14033  df-fac 14239  df-bc 14268  df-hash 14296  df-word 14471  df-concat 14527  df-s1 14552  df-shft 15020  df-cj 15052  df-re 15053  df-im 15054  df-sqrt 15188  df-abs 15189  df-limsup 15421  df-clim 15438  df-rlim 15439  df-o1 15440  df-lo1 15441  df-sum 15639  df-ef 16017  df-e 16018  df-sin 16019  df-cos 16020  df-tan 16021  df-pi 16022  df-dvds 16205  df-gcd 16443  df-prm 16616  df-phi 16708  df-pc 16779  df-struct 17089  df-sets 17106  df-slot 17124  df-ndx 17136  df-base 17154  df-ress 17183  df-plusg 17219  df-mulr 17220  df-starv 17221  df-sca 17222  df-vsca 17223  df-ip 17224  df-tset 17225  df-ple 17226  df-ds 17228  df-unif 17229  df-hom 17230  df-cco 17231  df-rest 17377  df-topn 17378  df-0g 17396  df-gsum 17397  df-topgen 17398  df-pt 17399  df-prds 17402  df-xrs 17457  df-qtop 17462  df-imas 17463  df-qus 17464  df-xps 17465  df-mre 17539  df-mrc 17540  df-acs 17542  df-mgm 18573  df-sgrp 18652  df-mnd 18668  df-mhm 18713  df-submnd 18714  df-grp 18866  df-minusg 18867  df-sbg 18868  df-mulg 18996  df-subg 19050  df-nsg 19051  df-eqg 19052  df-ghm 19139  df-gim 19184  df-ga 19206  df-cntz 19233  df-oppg 19262  df-od 19448  df-gex 19449  df-pgp 19450  df-lsm 19556  df-pj1 19557  df-cmn 19702  df-abl 19703  df-cyg 19798  df-dprd 19917  df-dpj 19918  df-mgp 20040  df-rng 20058  df-ur 20087  df-ring 20140  df-cring 20141  df-oppr 20236  df-dvdsr 20259  df-unit 20260  df-invr 20290  df-dvr 20303  df-rhm 20374  df-subrng 20446  df-subrg 20471  df-drng 20589  df-lmod 20708  df-lss 20779  df-lsp 20819  df-sra 21021  df-rgmod 21022  df-lidl 21067  df-rsp 21068  df-2idl 21107  df-psmet 21232  df-xmet 21233  df-met 21234  df-bl 21235  df-mopn 21236  df-fbas 21237  df-fg 21238  df-cnfld 21241  df-zring 21334  df-zrh 21390  df-zn 21393  df-top 22751  df-topon 22768  df-topsp 22790  df-bases 22804  df-cld 22878  df-ntr 22879  df-cls 22880  df-nei 22957  df-lp 22995  df-perf 22996  df-cn 23086  df-cnp 23087  df-haus 23174  df-cmp 23246  df-tx 23421  df-hmeo 23614  df-fil 23705  df-fm 23797  df-flim 23798  df-flf 23799  df-xms 24181  df-ms 24182  df-tms 24183  df-cncf 24753  df-0p 25554  df-limc 25750  df-dv 25751  df-ply 26077  df-idp 26078  df-coe 26079  df-dgr 26080  df-quot 26181  df-ulm 26268  df-log 26445  df-cxp 26446  df-atan 26754  df-em 26880  df-cht 26984  df-vma 26985  df-chp 26986  df-ppi 26987  df-mu 26988  df-dchr 27121
This theorem is referenced by:  dchrisum0re  27401  rpvmasum  27414
  Copyright terms: Public domain W3C validator