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

Theorem pserdvlem2 25932
Description: Lemma for pserdv 25933. (Contributed by Mario Carneiro, 7-May-2015.)
Hypotheses
Ref Expression
pserf.g 𝐺 = (π‘₯ ∈ β„‚ ↦ (𝑛 ∈ β„•0 ↦ ((π΄β€˜π‘›) Β· (π‘₯↑𝑛))))
pserf.f 𝐹 = (𝑦 ∈ 𝑆 ↦ Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘¦)β€˜π‘—))
pserf.a (πœ‘ β†’ 𝐴:β„•0βŸΆβ„‚)
pserf.r 𝑅 = sup({π‘Ÿ ∈ ℝ ∣ seq0( + , (πΊβ€˜π‘Ÿ)) ∈ dom ⇝ }, ℝ*, < )
psercn.s 𝑆 = (β—‘abs β€œ (0[,)𝑅))
psercn.m 𝑀 = if(𝑅 ∈ ℝ, (((absβ€˜π‘Ž) + 𝑅) / 2), ((absβ€˜π‘Ž) + 1))
pserdv.b 𝐡 = (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2))
Assertion
Ref Expression
pserdvlem2 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (β„‚ D (𝐹 β†Ύ 𝐡)) = (𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜))))
Distinct variable groups:   𝑗,π‘Ž,π‘˜,𝑛,π‘Ÿ,π‘₯,𝑦,𝐴   𝑗,𝑀,π‘˜,𝑦   𝐡,𝑗,π‘˜,π‘₯,𝑦   𝑗,𝐺,π‘˜,π‘Ÿ,𝑦   𝑆,π‘Ž,𝑗,π‘˜,𝑦   𝐹,π‘Ž   πœ‘,π‘Ž,𝑗,π‘˜,𝑦
Allowed substitution hints:   πœ‘(π‘₯,𝑛,π‘Ÿ)   𝐡(𝑛,π‘Ÿ,π‘Ž)   𝑅(π‘₯,𝑦,𝑗,π‘˜,𝑛,π‘Ÿ,π‘Ž)   𝑆(π‘₯,𝑛,π‘Ÿ)   𝐹(π‘₯,𝑦,𝑗,π‘˜,𝑛,π‘Ÿ)   𝐺(π‘₯,𝑛,π‘Ž)   𝑀(π‘₯,𝑛,π‘Ÿ,π‘Ž)

Proof of Theorem pserdvlem2
Dummy variables π‘š 𝑠 𝑀 𝑧 𝑖 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 nn0uz 12861 . 2 β„•0 = (β„€β‰₯β€˜0)
2 cnelprrecn 11200 . . 3 β„‚ ∈ {ℝ, β„‚}
32a1i 11 . 2 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ β„‚ ∈ {ℝ, β„‚})
4 0zd 12567 . 2 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 0 ∈ β„€)
5 fzfid 13935 . . . . . 6 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘˜ ∈ β„•0) ∧ 𝑦 ∈ 𝐡) β†’ (0...π‘˜) ∈ Fin)
6 pserf.g . . . . . . . 8 𝐺 = (π‘₯ ∈ β„‚ ↦ (𝑛 ∈ β„•0 ↦ ((π΄β€˜π‘›) Β· (π‘₯↑𝑛))))
7 pserf.a . . . . . . . . 9 (πœ‘ β†’ 𝐴:β„•0βŸΆβ„‚)
87ad3antrrr 729 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘˜ ∈ β„•0) ∧ 𝑦 ∈ 𝐡) β†’ 𝐴:β„•0βŸΆβ„‚)
9 pserdv.b . . . . . . . . . . 11 𝐡 = (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2))
10 cnxmet 24281 . . . . . . . . . . . 12 (abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚)
11 0cnd 11204 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 0 ∈ β„‚)
12 pserf.f . . . . . . . . . . . . . . 15 𝐹 = (𝑦 ∈ 𝑆 ↦ Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘¦)β€˜π‘—))
13 pserf.r . . . . . . . . . . . . . . 15 𝑅 = sup({π‘Ÿ ∈ ℝ ∣ seq0( + , (πΊβ€˜π‘Ÿ)) ∈ dom ⇝ }, ℝ*, < )
14 psercn.s . . . . . . . . . . . . . . 15 𝑆 = (β—‘abs β€œ (0[,)𝑅))
15 psercn.m . . . . . . . . . . . . . . 15 𝑀 = if(𝑅 ∈ ℝ, (((absβ€˜π‘Ž) + 𝑅) / 2), ((absβ€˜π‘Ž) + 1))
166, 12, 7, 13, 14, 15pserdvlem1 25931 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ ((((absβ€˜π‘Ž) + 𝑀) / 2) ∈ ℝ+ ∧ (absβ€˜π‘Ž) < (((absβ€˜π‘Ž) + 𝑀) / 2) ∧ (((absβ€˜π‘Ž) + 𝑀) / 2) < 𝑅))
1716simp1d 1143 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (((absβ€˜π‘Ž) + 𝑀) / 2) ∈ ℝ+)
1817rpxrd 13014 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (((absβ€˜π‘Ž) + 𝑀) / 2) ∈ ℝ*)
19 blssm 23916 . . . . . . . . . . . 12 (((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ 0 ∈ β„‚ ∧ (((absβ€˜π‘Ž) + 𝑀) / 2) ∈ ℝ*) β†’ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)) βŠ† β„‚)
2010, 11, 18, 19mp3an2i 1467 . . . . . . . . . . 11 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)) βŠ† β„‚)
219, 20eqsstrid 4030 . . . . . . . . . 10 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝐡 βŠ† β„‚)
2221adantr 482 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘˜ ∈ β„•0) β†’ 𝐡 βŠ† β„‚)
2322sselda 3982 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘˜ ∈ β„•0) ∧ 𝑦 ∈ 𝐡) β†’ 𝑦 ∈ β„‚)
246, 8, 23psergf 25916 . . . . . . 7 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘˜ ∈ β„•0) ∧ 𝑦 ∈ 𝐡) β†’ (πΊβ€˜π‘¦):β„•0βŸΆβ„‚)
25 elfznn0 13591 . . . . . . 7 (𝑖 ∈ (0...π‘˜) β†’ 𝑖 ∈ β„•0)
26 ffvelcdm 7081 . . . . . . 7 (((πΊβ€˜π‘¦):β„•0βŸΆβ„‚ ∧ 𝑖 ∈ β„•0) β†’ ((πΊβ€˜π‘¦)β€˜π‘–) ∈ β„‚)
2724, 25, 26syl2an 597 . . . . . 6 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘˜ ∈ β„•0) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (0...π‘˜)) β†’ ((πΊβ€˜π‘¦)β€˜π‘–) ∈ β„‚)
285, 27fsumcl 15676 . . . . 5 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘˜ ∈ β„•0) ∧ 𝑦 ∈ 𝐡) β†’ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–) ∈ β„‚)
2928fmpttd 7112 . . . 4 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘˜ ∈ β„•0) β†’ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)):π΅βŸΆβ„‚)
30 cnex 11188 . . . . 5 β„‚ ∈ V
319ovexi 7440 . . . . 5 𝐡 ∈ V
3230, 31elmap 8862 . . . 4 ((𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)) ∈ (β„‚ ↑m 𝐡) ↔ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)):π΅βŸΆβ„‚)
3329, 32sylibr 233 . . 3 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘˜ ∈ β„•0) β†’ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)) ∈ (β„‚ ↑m 𝐡))
3433fmpttd 7112 . 2 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–))):β„•0⟢(β„‚ ↑m 𝐡))
356, 12, 7, 13, 14, 15psercn 25930 . . . . 5 (πœ‘ β†’ 𝐹 ∈ (𝑆–cnβ†’β„‚))
36 cncff 24401 . . . . 5 (𝐹 ∈ (𝑆–cnβ†’β„‚) β†’ 𝐹:π‘†βŸΆβ„‚)
3735, 36syl 17 . . . 4 (πœ‘ β†’ 𝐹:π‘†βŸΆβ„‚)
3837adantr 482 . . 3 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝐹:π‘†βŸΆβ„‚)
396, 12, 7, 13, 14, 16psercnlem2 25928 . . . . . 6 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (π‘Ž ∈ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)) ∧ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)) βŠ† (β—‘abs β€œ (0[,](((absβ€˜π‘Ž) + 𝑀) / 2))) ∧ (β—‘abs β€œ (0[,](((absβ€˜π‘Ž) + 𝑀) / 2))) βŠ† 𝑆))
4039simp2d 1144 . . . . 5 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)) βŠ† (β—‘abs β€œ (0[,](((absβ€˜π‘Ž) + 𝑀) / 2))))
419, 40eqsstrid 4030 . . . 4 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝐡 βŠ† (β—‘abs β€œ (0[,](((absβ€˜π‘Ž) + 𝑀) / 2))))
4239simp3d 1145 . . . 4 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (β—‘abs β€œ (0[,](((absβ€˜π‘Ž) + 𝑀) / 2))) βŠ† 𝑆)
4341, 42sstrd 3992 . . 3 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝐡 βŠ† 𝑆)
4438, 43fssresd 6756 . 2 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (𝐹 β†Ύ 𝐡):π΅βŸΆβ„‚)
45 0zd 12567 . . . . 5 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ 0 ∈ β„€)
46 eqidd 2734 . . . . 5 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ 𝑗 ∈ β„•0) β†’ ((πΊβ€˜π‘§)β€˜π‘—) = ((πΊβ€˜π‘§)β€˜π‘—))
477ad2antrr 725 . . . . . . 7 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ 𝐴:β„•0βŸΆβ„‚)
4821sselda 3982 . . . . . . 7 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ 𝑧 ∈ β„‚)
496, 47, 48psergf 25916 . . . . . 6 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (πΊβ€˜π‘§):β„•0βŸΆβ„‚)
5049ffvelcdmda 7084 . . . . 5 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ 𝑗 ∈ β„•0) β†’ ((πΊβ€˜π‘§)β€˜π‘—) ∈ β„‚)
5148abscld 15380 . . . . . . . 8 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (absβ€˜π‘§) ∈ ℝ)
5251rexrd 11261 . . . . . . 7 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (absβ€˜π‘§) ∈ ℝ*)
5318adantr 482 . . . . . . 7 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (((absβ€˜π‘Ž) + 𝑀) / 2) ∈ ℝ*)
54 iccssxr 13404 . . . . . . . . 9 (0[,]+∞) βŠ† ℝ*
556, 7, 13radcnvcl 25921 . . . . . . . . 9 (πœ‘ β†’ 𝑅 ∈ (0[,]+∞))
5654, 55sselid 3980 . . . . . . . 8 (πœ‘ β†’ 𝑅 ∈ ℝ*)
5756ad2antrr 725 . . . . . . 7 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ 𝑅 ∈ ℝ*)
58 0cn 11203 . . . . . . . . . 10 0 ∈ β„‚
59 eqid 2733 . . . . . . . . . . 11 (abs ∘ βˆ’ ) = (abs ∘ βˆ’ )
6059cnmetdval 24279 . . . . . . . . . 10 ((𝑧 ∈ β„‚ ∧ 0 ∈ β„‚) β†’ (𝑧(abs ∘ βˆ’ )0) = (absβ€˜(𝑧 βˆ’ 0)))
6148, 58, 60sylancl 587 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (𝑧(abs ∘ βˆ’ )0) = (absβ€˜(𝑧 βˆ’ 0)))
6248subid1d 11557 . . . . . . . . . 10 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (𝑧 βˆ’ 0) = 𝑧)
6362fveq2d 6893 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (absβ€˜(𝑧 βˆ’ 0)) = (absβ€˜π‘§))
6461, 63eqtrd 2773 . . . . . . . 8 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (𝑧(abs ∘ βˆ’ )0) = (absβ€˜π‘§))
65 simpr 486 . . . . . . . . . 10 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ 𝑧 ∈ 𝐡)
6665, 9eleqtrdi 2844 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ 𝑧 ∈ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)))
6710a1i 11 . . . . . . . . . 10 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚))
68 0cnd 11204 . . . . . . . . . 10 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ 0 ∈ β„‚)
69 elbl3 23890 . . . . . . . . . 10 ((((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ (((absβ€˜π‘Ž) + 𝑀) / 2) ∈ ℝ*) ∧ (0 ∈ β„‚ ∧ 𝑧 ∈ β„‚)) β†’ (𝑧 ∈ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)) ↔ (𝑧(abs ∘ βˆ’ )0) < (((absβ€˜π‘Ž) + 𝑀) / 2)))
7067, 53, 68, 48, 69syl22anc 838 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (𝑧 ∈ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)) ↔ (𝑧(abs ∘ βˆ’ )0) < (((absβ€˜π‘Ž) + 𝑀) / 2)))
7166, 70mpbid 231 . . . . . . . 8 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (𝑧(abs ∘ βˆ’ )0) < (((absβ€˜π‘Ž) + 𝑀) / 2))
7264, 71eqbrtrrd 5172 . . . . . . 7 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (absβ€˜π‘§) < (((absβ€˜π‘Ž) + 𝑀) / 2))
7316simp3d 1145 . . . . . . . 8 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (((absβ€˜π‘Ž) + 𝑀) / 2) < 𝑅)
7473adantr 482 . . . . . . 7 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (((absβ€˜π‘Ž) + 𝑀) / 2) < 𝑅)
7552, 53, 57, 72, 74xrlttrd 13135 . . . . . 6 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (absβ€˜π‘§) < 𝑅)
766, 47, 13, 48, 75radcnvlt2 25923 . . . . 5 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ seq0( + , (πΊβ€˜π‘§)) ∈ dom ⇝ )
771, 45, 46, 50, 76isumclim2 15701 . . . 4 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ seq0( + , (πΊβ€˜π‘§)) ⇝ Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘§)β€˜π‘—))
7843sselda 3982 . . . . 5 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ 𝑧 ∈ 𝑆)
79 fveq2 6889 . . . . . . . 8 (𝑦 = 𝑧 β†’ (πΊβ€˜π‘¦) = (πΊβ€˜π‘§))
8079fveq1d 6891 . . . . . . 7 (𝑦 = 𝑧 β†’ ((πΊβ€˜π‘¦)β€˜π‘—) = ((πΊβ€˜π‘§)β€˜π‘—))
8180sumeq2sdv 15647 . . . . . 6 (𝑦 = 𝑧 β†’ Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘¦)β€˜π‘—) = Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘§)β€˜π‘—))
82 sumex 15631 . . . . . 6 Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘§)β€˜π‘—) ∈ V
8381, 12, 82fvmpt 6996 . . . . 5 (𝑧 ∈ 𝑆 β†’ (πΉβ€˜π‘§) = Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘§)β€˜π‘—))
8478, 83syl 17 . . . 4 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (πΉβ€˜π‘§) = Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘§)β€˜π‘—))
8577, 84breqtrrd 5176 . . 3 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ seq0( + , (πΊβ€˜π‘§)) ⇝ (πΉβ€˜π‘§))
86 oveq2 7414 . . . . . . . . . . 11 (π‘˜ = π‘š β†’ (0...π‘˜) = (0...π‘š))
8786sumeq1d 15644 . . . . . . . . . 10 (π‘˜ = π‘š β†’ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–) = Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–))
8887mpteq2dv 5250 . . . . . . . . 9 (π‘˜ = π‘š β†’ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)) = (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–)))
89 eqid 2733 . . . . . . . . 9 (π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–))) = (π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))
9031mptex 7222 . . . . . . . . 9 (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–)) ∈ V
9188, 89, 90fvmpt 6996 . . . . . . . 8 (π‘š ∈ β„•0 β†’ ((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š) = (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–)))
9291adantl 483 . . . . . . 7 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) β†’ ((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š) = (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–)))
9392fveq1d 6891 . . . . . 6 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) β†’ (((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š)β€˜π‘§) = ((𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–))β€˜π‘§))
9479fveq1d 6891 . . . . . . . . 9 (𝑦 = 𝑧 β†’ ((πΊβ€˜π‘¦)β€˜π‘–) = ((πΊβ€˜π‘§)β€˜π‘–))
9594sumeq2sdv 15647 . . . . . . . 8 (𝑦 = 𝑧 β†’ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–) = Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘§)β€˜π‘–))
96 eqid 2733 . . . . . . . 8 (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–)) = (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–))
97 sumex 15631 . . . . . . . 8 Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘§)β€˜π‘–) ∈ V
9895, 96, 97fvmpt 6996 . . . . . . 7 (𝑧 ∈ 𝐡 β†’ ((𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–))β€˜π‘§) = Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘§)β€˜π‘–))
9998ad2antlr 726 . . . . . 6 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) β†’ ((𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–))β€˜π‘§) = Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘§)β€˜π‘–))
100 eqidd 2734 . . . . . . 7 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ ((πΊβ€˜π‘§)β€˜π‘–) = ((πΊβ€˜π‘§)β€˜π‘–))
101 simpr 486 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) β†’ π‘š ∈ β„•0)
102101, 1eleqtrdi 2844 . . . . . . 7 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) β†’ π‘š ∈ (β„€β‰₯β€˜0))
10349adantr 482 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) β†’ (πΊβ€˜π‘§):β„•0βŸΆβ„‚)
104 elfznn0 13591 . . . . . . . 8 (𝑖 ∈ (0...π‘š) β†’ 𝑖 ∈ β„•0)
105 ffvelcdm 7081 . . . . . . . 8 (((πΊβ€˜π‘§):β„•0βŸΆβ„‚ ∧ 𝑖 ∈ β„•0) β†’ ((πΊβ€˜π‘§)β€˜π‘–) ∈ β„‚)
106103, 104, 105syl2an 597 . . . . . . 7 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ ((πΊβ€˜π‘§)β€˜π‘–) ∈ β„‚)
107100, 102, 106fsumser 15673 . . . . . 6 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) β†’ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘§)β€˜π‘–) = (seq0( + , (πΊβ€˜π‘§))β€˜π‘š))
10893, 99, 1073eqtrd 2777 . . . . 5 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) β†’ (((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š)β€˜π‘§) = (seq0( + , (πΊβ€˜π‘§))β€˜π‘š))
109108mpteq2dva 5248 . . . 4 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (π‘š ∈ β„•0 ↦ (((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š)β€˜π‘§)) = (π‘š ∈ β„•0 ↦ (seq0( + , (πΊβ€˜π‘§))β€˜π‘š)))
110 0z 12566 . . . . . . 7 0 ∈ β„€
111 seqfn 13975 . . . . . . 7 (0 ∈ β„€ β†’ seq0( + , (πΊβ€˜π‘§)) Fn (β„€β‰₯β€˜0))
112110, 111ax-mp 5 . . . . . 6 seq0( + , (πΊβ€˜π‘§)) Fn (β„€β‰₯β€˜0)
1131fneq2i 6645 . . . . . 6 (seq0( + , (πΊβ€˜π‘§)) Fn β„•0 ↔ seq0( + , (πΊβ€˜π‘§)) Fn (β„€β‰₯β€˜0))
114112, 113mpbir 230 . . . . 5 seq0( + , (πΊβ€˜π‘§)) Fn β„•0
115 dffn5 6948 . . . . 5 (seq0( + , (πΊβ€˜π‘§)) Fn β„•0 ↔ seq0( + , (πΊβ€˜π‘§)) = (π‘š ∈ β„•0 ↦ (seq0( + , (πΊβ€˜π‘§))β€˜π‘š)))
116114, 115mpbi 229 . . . 4 seq0( + , (πΊβ€˜π‘§)) = (π‘š ∈ β„•0 ↦ (seq0( + , (πΊβ€˜π‘§))β€˜π‘š))
117109, 116eqtr4di 2791 . . 3 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (π‘š ∈ β„•0 ↦ (((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š)β€˜π‘§)) = seq0( + , (πΊβ€˜π‘§)))
118 fvres 6908 . . . 4 (𝑧 ∈ 𝐡 β†’ ((𝐹 β†Ύ 𝐡)β€˜π‘§) = (πΉβ€˜π‘§))
119118adantl 483 . . 3 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ ((𝐹 β†Ύ 𝐡)β€˜π‘§) = (πΉβ€˜π‘§))
12085, 117, 1193brtr4d 5180 . 2 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (π‘š ∈ β„•0 ↦ (((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š)β€˜π‘§)) ⇝ ((𝐹 β†Ύ 𝐡)β€˜π‘§))
12191adantl 483 . . . . . 6 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ ((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š) = (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–)))
122121oveq2d 7422 . . . . 5 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ (β„‚ D ((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š)) = (β„‚ D (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–))))
123 eqid 2733 . . . . . . . 8 (TopOpenβ€˜β„‚fld) = (TopOpenβ€˜β„‚fld)
124123cnfldtopon 24291 . . . . . . 7 (TopOpenβ€˜β„‚fld) ∈ (TopOnβ€˜β„‚)
125124toponrestid 22415 . . . . . 6 (TopOpenβ€˜β„‚fld) = ((TopOpenβ€˜β„‚fld) β†Ύt β„‚)
1262a1i 11 . . . . . 6 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ β„‚ ∈ {ℝ, β„‚})
127123cnfldtopn 24290 . . . . . . . . . 10 (TopOpenβ€˜β„‚fld) = (MetOpenβ€˜(abs ∘ βˆ’ ))
128127blopn 24001 . . . . . . . . 9 (((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ 0 ∈ β„‚ ∧ (((absβ€˜π‘Ž) + 𝑀) / 2) ∈ ℝ*) β†’ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)) ∈ (TopOpenβ€˜β„‚fld))
12910, 11, 18, 128mp3an2i 1467 . . . . . . . 8 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)) ∈ (TopOpenβ€˜β„‚fld))
1309, 129eqeltrid 2838 . . . . . . 7 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝐡 ∈ (TopOpenβ€˜β„‚fld))
131130adantr 482 . . . . . 6 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ 𝐡 ∈ (TopOpenβ€˜β„‚fld))
132 fzfid 13935 . . . . . 6 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ (0...π‘š) ∈ Fin)
1337ad2antrr 725 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ 𝐴:β„•0βŸΆβ„‚)
1341333ad2ant1 1134 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š) ∧ 𝑦 ∈ 𝐡) β†’ 𝐴:β„•0βŸΆβ„‚)
13521adantr 482 . . . . . . . . . 10 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ 𝐡 βŠ† β„‚)
136135sselda 3982 . . . . . . . . 9 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑦 ∈ 𝐡) β†’ 𝑦 ∈ β„‚)
1371363adant2 1132 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š) ∧ 𝑦 ∈ 𝐡) β†’ 𝑦 ∈ β„‚)
1386, 134, 137psergf 25916 . . . . . . 7 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š) ∧ 𝑦 ∈ 𝐡) β†’ (πΊβ€˜π‘¦):β„•0βŸΆβ„‚)
1391043ad2ant2 1135 . . . . . . 7 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š) ∧ 𝑦 ∈ 𝐡) β†’ 𝑖 ∈ β„•0)
140138, 139ffvelcdmd 7085 . . . . . 6 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š) ∧ 𝑦 ∈ 𝐡) β†’ ((πΊβ€˜π‘¦)β€˜π‘–) ∈ β„‚)
1412a1i 11 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ β„‚ ∈ {ℝ, β„‚})
142 ffvelcdm 7081 . . . . . . . . . . 11 ((𝐴:β„•0βŸΆβ„‚ ∧ 𝑖 ∈ β„•0) β†’ (π΄β€˜π‘–) ∈ β„‚)
143133, 104, 142syl2an 597 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ (π΄β€˜π‘–) ∈ β„‚)
144143adantr 482 . . . . . . . . 9 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ 𝐡) β†’ (π΄β€˜π‘–) ∈ β„‚)
145136adantlr 714 . . . . . . . . . 10 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ 𝐡) β†’ 𝑦 ∈ β„‚)
146 id 22 . . . . . . . . . . 11 (𝑦 ∈ β„‚ β†’ 𝑦 ∈ β„‚)
147104adantl 483 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ 𝑖 ∈ β„•0)
148 expcl 14042 . . . . . . . . . . 11 ((𝑦 ∈ β„‚ ∧ 𝑖 ∈ β„•0) β†’ (𝑦↑𝑖) ∈ β„‚)
149146, 147, 148syl2anr 598 . . . . . . . . . 10 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ β„‚) β†’ (𝑦↑𝑖) ∈ β„‚)
150145, 149syldan 592 . . . . . . . . 9 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ 𝐡) β†’ (𝑦↑𝑖) ∈ β„‚)
151144, 150mulcld 11231 . . . . . . . 8 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ 𝐡) β†’ ((π΄β€˜π‘–) Β· (𝑦↑𝑖)) ∈ β„‚)
152 ovexd 7441 . . . . . . . 8 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ 𝐡) β†’ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) ∈ V)
153 c0ex 11205 . . . . . . . . . . 11 0 ∈ V
154 ovex 7439 . . . . . . . . . . 11 (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))) ∈ V
155153, 154ifex 4578 . . . . . . . . . 10 if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))) ∈ V
156155a1i 11 . . . . . . . . 9 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ 𝐡) β†’ if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))) ∈ V)
157155a1i 11 . . . . . . . . . 10 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ β„‚) β†’ if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))) ∈ V)
158 dvexp2 25463 . . . . . . . . . . 11 (𝑖 ∈ β„•0 β†’ (β„‚ D (𝑦 ∈ β„‚ ↦ (𝑦↑𝑖))) = (𝑦 ∈ β„‚ ↦ if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))))
159147, 158syl 17 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ (β„‚ D (𝑦 ∈ β„‚ ↦ (𝑦↑𝑖))) = (𝑦 ∈ β„‚ ↦ if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))))
16021ad2antrr 725 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ 𝐡 βŠ† β„‚)
161130ad2antrr 725 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ 𝐡 ∈ (TopOpenβ€˜β„‚fld))
162141, 149, 157, 159, 160, 125, 123, 161dvmptres 25472 . . . . . . . . 9 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ (β„‚ D (𝑦 ∈ 𝐡 ↦ (𝑦↑𝑖))) = (𝑦 ∈ 𝐡 ↦ if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))))
163141, 150, 156, 162, 143dvmptcmul 25473 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ (β„‚ D (𝑦 ∈ 𝐡 ↦ ((π΄β€˜π‘–) Β· (𝑦↑𝑖)))) = (𝑦 ∈ 𝐡 ↦ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))))
164141, 151, 152, 163dvmptcl 25468 . . . . . . 7 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ 𝐡) β†’ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) ∈ β„‚)
1651643impa 1111 . . . . . 6 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š) ∧ 𝑦 ∈ 𝐡) β†’ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) ∈ β„‚)
166104ad2antlr 726 . . . . . . . . . 10 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ 𝐡) β†’ 𝑖 ∈ β„•0)
1676pserval2 25915 . . . . . . . . . 10 ((𝑦 ∈ β„‚ ∧ 𝑖 ∈ β„•0) β†’ ((πΊβ€˜π‘¦)β€˜π‘–) = ((π΄β€˜π‘–) Β· (𝑦↑𝑖)))
168145, 166, 167syl2anc 585 . . . . . . . . 9 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ 𝐡) β†’ ((πΊβ€˜π‘¦)β€˜π‘–) = ((π΄β€˜π‘–) Β· (𝑦↑𝑖)))
169168mpteq2dva 5248 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ (𝑦 ∈ 𝐡 ↦ ((πΊβ€˜π‘¦)β€˜π‘–)) = (𝑦 ∈ 𝐡 ↦ ((π΄β€˜π‘–) Β· (𝑦↑𝑖))))
170169oveq2d 7422 . . . . . . 7 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ (β„‚ D (𝑦 ∈ 𝐡 ↦ ((πΊβ€˜π‘¦)β€˜π‘–))) = (β„‚ D (𝑦 ∈ 𝐡 ↦ ((π΄β€˜π‘–) Β· (𝑦↑𝑖)))))
171170, 163eqtrd 2773 . . . . . 6 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ (β„‚ D (𝑦 ∈ 𝐡 ↦ ((πΊβ€˜π‘¦)β€˜π‘–))) = (𝑦 ∈ 𝐡 ↦ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))))
172125, 123, 126, 131, 132, 140, 165, 171dvmptfsum 25484 . . . . 5 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ (β„‚ D (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–))) = (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))))
173122, 172eqtrd 2773 . . . 4 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ (β„‚ D ((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š)) = (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))))
174173mpteq2dva 5248 . . 3 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (π‘š ∈ β„•0 ↦ (β„‚ D ((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š))) = (π‘š ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))))))
175 nnssnn0 12472 . . . . . 6 β„• βŠ† β„•0
176 resmpt 6036 . . . . . 6 (β„• βŠ† β„•0 β†’ ((π‘š ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))))) β†Ύ β„•) = (π‘š ∈ β„• ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))))))
177175, 176ax-mp 5 . . . . 5 ((π‘š ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))))) β†Ύ β„•) = (π‘š ∈ β„• ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))))
178 oveq1 7413 . . . . . . . . . . . 12 (π‘Ž = π‘₯ β†’ (π‘Žβ†‘π‘–) = (π‘₯↑𝑖))
179178oveq2d 7422 . . . . . . . . . . 11 (π‘Ž = π‘₯ β†’ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–)) = (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘₯↑𝑖)))
180179mpteq2dv 5250 . . . . . . . . . 10 (π‘Ž = π‘₯ β†’ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘₯↑𝑖))))
181 oveq1 7413 . . . . . . . . . . . . . 14 (𝑖 = 𝑛 β†’ (𝑖 + 1) = (𝑛 + 1))
182 fvoveq1 7429 . . . . . . . . . . . . . 14 (𝑖 = 𝑛 β†’ (π΄β€˜(𝑖 + 1)) = (π΄β€˜(𝑛 + 1)))
183181, 182oveq12d 7424 . . . . . . . . . . . . 13 (𝑖 = 𝑛 β†’ ((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) = ((𝑛 + 1) Β· (π΄β€˜(𝑛 + 1))))
184 oveq2 7414 . . . . . . . . . . . . 13 (𝑖 = 𝑛 β†’ (π‘₯↑𝑖) = (π‘₯↑𝑛))
185183, 184oveq12d 7424 . . . . . . . . . . . 12 (𝑖 = 𝑛 β†’ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘₯↑𝑖)) = (((𝑛 + 1) Β· (π΄β€˜(𝑛 + 1))) Β· (π‘₯↑𝑛)))
186185cbvmptv 5261 . . . . . . . . . . 11 (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘₯↑𝑖))) = (𝑛 ∈ β„•0 ↦ (((𝑛 + 1) Β· (π΄β€˜(𝑛 + 1))) Β· (π‘₯↑𝑛)))
187 oveq1 7413 . . . . . . . . . . . . . . 15 (π‘š = 𝑛 β†’ (π‘š + 1) = (𝑛 + 1))
188 fvoveq1 7429 . . . . . . . . . . . . . . 15 (π‘š = 𝑛 β†’ (π΄β€˜(π‘š + 1)) = (π΄β€˜(𝑛 + 1)))
189187, 188oveq12d 7424 . . . . . . . . . . . . . 14 (π‘š = 𝑛 β†’ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1))) = ((𝑛 + 1) Β· (π΄β€˜(𝑛 + 1))))
190 eqid 2733 . . . . . . . . . . . . . 14 (π‘š ∈ β„•0 ↦ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1)))) = (π‘š ∈ β„•0 ↦ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1))))
191 ovex 7439 . . . . . . . . . . . . . 14 ((𝑛 + 1) Β· (π΄β€˜(𝑛 + 1))) ∈ V
192189, 190, 191fvmpt 6996 . . . . . . . . . . . . 13 (𝑛 ∈ β„•0 β†’ ((π‘š ∈ β„•0 ↦ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1))))β€˜π‘›) = ((𝑛 + 1) Β· (π΄β€˜(𝑛 + 1))))
193192oveq1d 7421 . . . . . . . . . . . 12 (𝑛 ∈ β„•0 β†’ (((π‘š ∈ β„•0 ↦ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1))))β€˜π‘›) Β· (π‘₯↑𝑛)) = (((𝑛 + 1) Β· (π΄β€˜(𝑛 + 1))) Β· (π‘₯↑𝑛)))
194193mpteq2ia 5251 . . . . . . . . . . 11 (𝑛 ∈ β„•0 ↦ (((π‘š ∈ β„•0 ↦ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1))))β€˜π‘›) Β· (π‘₯↑𝑛))) = (𝑛 ∈ β„•0 ↦ (((𝑛 + 1) Β· (π΄β€˜(𝑛 + 1))) Β· (π‘₯↑𝑛)))
195186, 194eqtr4i 2764 . . . . . . . . . 10 (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘₯↑𝑖))) = (𝑛 ∈ β„•0 ↦ (((π‘š ∈ β„•0 ↦ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1))))β€˜π‘›) Β· (π‘₯↑𝑛)))
196180, 195eqtrdi 2789 . . . . . . . . 9 (π‘Ž = π‘₯ β†’ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))) = (𝑛 ∈ β„•0 ↦ (((π‘š ∈ β„•0 ↦ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1))))β€˜π‘›) Β· (π‘₯↑𝑛))))
197196cbvmptv 5261 . . . . . . . 8 (π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–)))) = (π‘₯ ∈ β„‚ ↦ (𝑛 ∈ β„•0 ↦ (((π‘š ∈ β„•0 ↦ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1))))β€˜π‘›) Β· (π‘₯↑𝑛))))
198 fveq2 6889 . . . . . . . . . . 11 (𝑦 = 𝑧 β†’ ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦) = ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§))
199198fveq1d 6891 . . . . . . . . . 10 (𝑦 = 𝑧 β†’ (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜) = (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§)β€˜π‘˜))
200199sumeq2sdv 15647 . . . . . . . . 9 (𝑦 = 𝑧 β†’ Ξ£π‘˜ ∈ β„•0 (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜) = Ξ£π‘˜ ∈ β„•0 (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§)β€˜π‘˜))
201200cbvmptv 5261 . . . . . . . 8 (𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜)) = (𝑧 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§)β€˜π‘˜))
202 peano2nn0 12509 . . . . . . . . . . . 12 (π‘š ∈ β„•0 β†’ (π‘š + 1) ∈ β„•0)
203202adantl 483 . . . . . . . . . . 11 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ (π‘š + 1) ∈ β„•0)
204203nn0cnd 12531 . . . . . . . . . 10 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ (π‘š + 1) ∈ β„‚)
205133, 203ffvelcdmd 7085 . . . . . . . . . 10 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ (π΄β€˜(π‘š + 1)) ∈ β„‚)
206204, 205mulcld 11231 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1))) ∈ β„‚)
207206fmpttd 7112 . . . . . . . 8 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (π‘š ∈ β„•0 ↦ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1)))):β„•0βŸΆβ„‚)
208 fveq2 6889 . . . . . . . . . . . 12 (π‘Ÿ = 𝑗 β†’ ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘Ÿ) = ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘—))
209208seqeq3d 13971 . . . . . . . . . . 11 (π‘Ÿ = 𝑗 β†’ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘Ÿ)) = seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘—)))
210209eleq1d 2819 . . . . . . . . . 10 (π‘Ÿ = 𝑗 β†’ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘Ÿ)) ∈ dom ⇝ ↔ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘—)) ∈ dom ⇝ ))
211210cbvrabv 3443 . . . . . . . . 9 {π‘Ÿ ∈ ℝ ∣ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘Ÿ)) ∈ dom ⇝ } = {𝑗 ∈ ℝ ∣ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘—)) ∈ dom ⇝ }
212211supeq1i 9439 . . . . . . . 8 sup({π‘Ÿ ∈ ℝ ∣ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘Ÿ)) ∈ dom ⇝ }, ℝ*, < ) = sup({𝑗 ∈ ℝ ∣ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘—)) ∈ dom ⇝ }, ℝ*, < )
213198seqeq3d 13971 . . . . . . . . . . . 12 (𝑦 = 𝑧 β†’ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)) = seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§)))
214213fveq1d 6891 . . . . . . . . . . 11 (𝑦 = 𝑧 β†’ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—) = (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§))β€˜π‘—))
215214cbvmptv 5261 . . . . . . . . . 10 (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)) = (𝑧 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§))β€˜π‘—))
216 fveq2 6889 . . . . . . . . . . 11 (𝑗 = π‘š β†’ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§))β€˜π‘—) = (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§))β€˜π‘š))
217216mpteq2dv 5250 . . . . . . . . . 10 (𝑗 = π‘š β†’ (𝑧 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§))β€˜π‘—)) = (𝑧 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§))β€˜π‘š)))
218215, 217eqtrid 2785 . . . . . . . . 9 (𝑗 = π‘š β†’ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)) = (𝑧 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§))β€˜π‘š)))
219218cbvmptv 5261 . . . . . . . 8 (𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—))) = (π‘š ∈ β„•0 ↦ (𝑧 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§))β€˜π‘š)))
22017rpred 13013 . . . . . . . 8 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (((absβ€˜π‘Ž) + 𝑀) / 2) ∈ ℝ)
2216, 12, 7, 13, 14, 15psercnlem1 25929 . . . . . . . . . . 11 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (𝑀 ∈ ℝ+ ∧ (absβ€˜π‘Ž) < 𝑀 ∧ 𝑀 < 𝑅))
222221simp1d 1143 . . . . . . . . . 10 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝑀 ∈ ℝ+)
223222rpxrd 13014 . . . . . . . . 9 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝑀 ∈ ℝ*)
224197, 207, 212radcnvcl 25921 . . . . . . . . . 10 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ sup({π‘Ÿ ∈ ℝ ∣ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘Ÿ)) ∈ dom ⇝ }, ℝ*, < ) ∈ (0[,]+∞))
22554, 224sselid 3980 . . . . . . . . 9 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ sup({π‘Ÿ ∈ ℝ ∣ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘Ÿ)) ∈ dom ⇝ }, ℝ*, < ) ∈ ℝ*)
226221simp2d 1144 . . . . . . . . . 10 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (absβ€˜π‘Ž) < 𝑀)
227 cnvimass 6078 . . . . . . . . . . . . . . . 16 (β—‘abs β€œ (0[,)𝑅)) βŠ† dom abs
228 absf 15281 . . . . . . . . . . . . . . . . 17 abs:β„‚βŸΆβ„
229228fdmi 6727 . . . . . . . . . . . . . . . 16 dom abs = β„‚
230227, 229sseqtri 4018 . . . . . . . . . . . . . . 15 (β—‘abs β€œ (0[,)𝑅)) βŠ† β„‚
23114, 230eqsstri 4016 . . . . . . . . . . . . . 14 𝑆 βŠ† β„‚
232231a1i 11 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑆 βŠ† β„‚)
233232sselda 3982 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ π‘Ž ∈ β„‚)
234233abscld 15380 . . . . . . . . . . 11 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (absβ€˜π‘Ž) ∈ ℝ)
235222rpred 13013 . . . . . . . . . . 11 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝑀 ∈ ℝ)
236 avglt2 12448 . . . . . . . . . . 11 (((absβ€˜π‘Ž) ∈ ℝ ∧ 𝑀 ∈ ℝ) β†’ ((absβ€˜π‘Ž) < 𝑀 ↔ (((absβ€˜π‘Ž) + 𝑀) / 2) < 𝑀))
237234, 235, 236syl2anc 585 . . . . . . . . . 10 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ ((absβ€˜π‘Ž) < 𝑀 ↔ (((absβ€˜π‘Ž) + 𝑀) / 2) < 𝑀))
238226, 237mpbid 231 . . . . . . . . 9 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (((absβ€˜π‘Ž) + 𝑀) / 2) < 𝑀)
239222rpge0d 13017 . . . . . . . . . . 11 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 0 ≀ 𝑀)
240235, 239absidd 15366 . . . . . . . . . 10 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (absβ€˜π‘€) = 𝑀)
241222rpcnd 13015 . . . . . . . . . . 11 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝑀 ∈ β„‚)
242 oveq1 7413 . . . . . . . . . . . . . . . . 17 (𝑀 = 𝑀 β†’ (𝑀↑𝑖) = (𝑀↑𝑖))
243242oveq2d 7422 . . . . . . . . . . . . . . . 16 (𝑀 = 𝑀 β†’ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖)) = (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖)))
244243mpteq2dv 5250 . . . . . . . . . . . . . . 15 (𝑀 = 𝑀 β†’ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖))) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖))))
245 oveq1 7413 . . . . . . . . . . . . . . . . . 18 (π‘Ž = 𝑀 β†’ (π‘Žβ†‘π‘–) = (𝑀↑𝑖))
246245oveq2d 7422 . . . . . . . . . . . . . . . . 17 (π‘Ž = 𝑀 β†’ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–)) = (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖)))
247246mpteq2dv 5250 . . . . . . . . . . . . . . . 16 (π‘Ž = 𝑀 β†’ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖))))
248247cbvmptv 5261 . . . . . . . . . . . . . . 15 (π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–)))) = (𝑀 ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖))))
249 nn0ex 12475 . . . . . . . . . . . . . . . 16 β„•0 ∈ V
250249mptex 7222 . . . . . . . . . . . . . . 15 (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖))) ∈ V
251244, 248, 250fvmpt 6996 . . . . . . . . . . . . . 14 (𝑀 ∈ β„‚ β†’ ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘€) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖))))
252241, 251syl 17 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘€) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖))))
253252seqeq3d 13971 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘€)) = seq0( + , (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖)))))
254 fveq2 6889 . . . . . . . . . . . . . . . . . 18 (𝑛 = 𝑖 β†’ (π΄β€˜π‘›) = (π΄β€˜π‘–))
255 oveq2 7414 . . . . . . . . . . . . . . . . . 18 (𝑛 = 𝑖 β†’ (π‘₯↑𝑛) = (π‘₯↑𝑖))
256254, 255oveq12d 7424 . . . . . . . . . . . . . . . . 17 (𝑛 = 𝑖 β†’ ((π΄β€˜π‘›) Β· (π‘₯↑𝑛)) = ((π΄β€˜π‘–) Β· (π‘₯↑𝑖)))
257256cbvmptv 5261 . . . . . . . . . . . . . . . 16 (𝑛 ∈ β„•0 ↦ ((π΄β€˜π‘›) Β· (π‘₯↑𝑛))) = (𝑖 ∈ β„•0 ↦ ((π΄β€˜π‘–) Β· (π‘₯↑𝑖)))
258 oveq1 7413 . . . . . . . . . . . . . . . . . 18 (π‘₯ = 𝑦 β†’ (π‘₯↑𝑖) = (𝑦↑𝑖))
259258oveq2d 7422 . . . . . . . . . . . . . . . . 17 (π‘₯ = 𝑦 β†’ ((π΄β€˜π‘–) Β· (π‘₯↑𝑖)) = ((π΄β€˜π‘–) Β· (𝑦↑𝑖)))
260259mpteq2dv 5250 . . . . . . . . . . . . . . . 16 (π‘₯ = 𝑦 β†’ (𝑖 ∈ β„•0 ↦ ((π΄β€˜π‘–) Β· (π‘₯↑𝑖))) = (𝑖 ∈ β„•0 ↦ ((π΄β€˜π‘–) Β· (𝑦↑𝑖))))
261257, 260eqtrid 2785 . . . . . . . . . . . . . . 15 (π‘₯ = 𝑦 β†’ (𝑛 ∈ β„•0 ↦ ((π΄β€˜π‘›) Β· (π‘₯↑𝑛))) = (𝑖 ∈ β„•0 ↦ ((π΄β€˜π‘–) Β· (𝑦↑𝑖))))
262261cbvmptv 5261 . . . . . . . . . . . . . 14 (π‘₯ ∈ β„‚ ↦ (𝑛 ∈ β„•0 ↦ ((π΄β€˜π‘›) Β· (π‘₯↑𝑛)))) = (𝑦 ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ ((π΄β€˜π‘–) Β· (𝑦↑𝑖))))
2636, 262eqtri 2761 . . . . . . . . . . . . 13 𝐺 = (𝑦 ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ ((π΄β€˜π‘–) Β· (𝑦↑𝑖))))
264 fveq2 6889 . . . . . . . . . . . . . . . . . 18 (π‘Ÿ = 𝑠 β†’ (πΊβ€˜π‘Ÿ) = (πΊβ€˜π‘ ))
265264seqeq3d 13971 . . . . . . . . . . . . . . . . 17 (π‘Ÿ = 𝑠 β†’ seq0( + , (πΊβ€˜π‘Ÿ)) = seq0( + , (πΊβ€˜π‘ )))
266265eleq1d 2819 . . . . . . . . . . . . . . . 16 (π‘Ÿ = 𝑠 β†’ (seq0( + , (πΊβ€˜π‘Ÿ)) ∈ dom ⇝ ↔ seq0( + , (πΊβ€˜π‘ )) ∈ dom ⇝ ))
267266cbvrabv 3443 . . . . . . . . . . . . . . 15 {π‘Ÿ ∈ ℝ ∣ seq0( + , (πΊβ€˜π‘Ÿ)) ∈ dom ⇝ } = {𝑠 ∈ ℝ ∣ seq0( + , (πΊβ€˜π‘ )) ∈ dom ⇝ }
268267supeq1i 9439 . . . . . . . . . . . . . 14 sup({π‘Ÿ ∈ ℝ ∣ seq0( + , (πΊβ€˜π‘Ÿ)) ∈ dom ⇝ }, ℝ*, < ) = sup({𝑠 ∈ ℝ ∣ seq0( + , (πΊβ€˜π‘ )) ∈ dom ⇝ }, ℝ*, < )
26913, 268eqtri 2761 . . . . . . . . . . . . 13 𝑅 = sup({𝑠 ∈ ℝ ∣ seq0( + , (πΊβ€˜π‘ )) ∈ dom ⇝ }, ℝ*, < )
270 eqid 2733 . . . . . . . . . . . . 13 (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖))) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖)))
2717adantr 482 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝐴:β„•0βŸΆβ„‚)
272221simp3d 1145 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝑀 < 𝑅)
273240, 272eqbrtrd 5170 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (absβ€˜π‘€) < 𝑅)
274263, 269, 270, 271, 241, 273dvradcnv 25925 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ seq0( + , (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖)))) ∈ dom ⇝ )
275253, 274eqeltrd 2834 . . . . . . . . . . 11 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘€)) ∈ dom ⇝ )
276197, 207, 212, 241, 275radcnvle 25924 . . . . . . . . . 10 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (absβ€˜π‘€) ≀ sup({π‘Ÿ ∈ ℝ ∣ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘Ÿ)) ∈ dom ⇝ }, ℝ*, < ))
277240, 276eqbrtrrd 5172 . . . . . . . . 9 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝑀 ≀ sup({π‘Ÿ ∈ ℝ ∣ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘Ÿ)) ∈ dom ⇝ }, ℝ*, < ))
27818, 223, 225, 238, 277xrltletrd 13137 . . . . . . . 8 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (((absβ€˜π‘Ž) + 𝑀) / 2) < sup({π‘Ÿ ∈ ℝ ∣ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘Ÿ)) ∈ dom ⇝ }, ℝ*, < ))
279197, 201, 207, 212, 219, 220, 278, 41pserulm 25926 . . . . . . 7 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)))(β‡π‘’β€˜π΅)(𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜)))
28021sselda 3982 . . . . . . . . . . . . 13 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) β†’ 𝑦 ∈ β„‚)
281 oveq1 7413 . . . . . . . . . . . . . . . 16 (π‘Ž = 𝑦 β†’ (π‘Žβ†‘π‘–) = (𝑦↑𝑖))
282281oveq2d 7422 . . . . . . . . . . . . . . 15 (π‘Ž = 𝑦 β†’ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–)) = (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖)))
283282mpteq2dv 5250 . . . . . . . . . . . . . 14 (π‘Ž = 𝑦 β†’ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖))))
284 eqid 2733 . . . . . . . . . . . . . 14 (π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–)))) = (π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))
285249mptex 7222 . . . . . . . . . . . . . 14 (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖))) ∈ V
286283, 284, 285fvmpt 6996 . . . . . . . . . . . . 13 (𝑦 ∈ β„‚ β†’ ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖))))
287280, 286syl 17 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) β†’ ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖))))
288287adantr 482 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ β„•0) β†’ ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖))))
289288fveq1d 6891 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ β„•0) β†’ (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜) = ((𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖)))β€˜π‘˜))
290 oveq1 7413 . . . . . . . . . . . . . 14 (𝑖 = π‘˜ β†’ (𝑖 + 1) = (π‘˜ + 1))
291 fvoveq1 7429 . . . . . . . . . . . . . 14 (𝑖 = π‘˜ β†’ (π΄β€˜(𝑖 + 1)) = (π΄β€˜(π‘˜ + 1)))
292290, 291oveq12d 7424 . . . . . . . . . . . . 13 (𝑖 = π‘˜ β†’ ((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) = ((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))))
293 oveq2 7414 . . . . . . . . . . . . 13 (𝑖 = π‘˜ β†’ (𝑦↑𝑖) = (π‘¦β†‘π‘˜))
294292, 293oveq12d 7424 . . . . . . . . . . . 12 (𝑖 = π‘˜ β†’ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖)) = (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)))
295 eqid 2733 . . . . . . . . . . . 12 (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖))) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖)))
296 ovex 7439 . . . . . . . . . . . 12 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)) ∈ V
297294, 295, 296fvmpt 6996 . . . . . . . . . . 11 (π‘˜ ∈ β„•0 β†’ ((𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖)))β€˜π‘˜) = (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)))
298297adantl 483 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ β„•0) β†’ ((𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖)))β€˜π‘˜) = (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)))
299289, 298eqtrd 2773 . . . . . . . . 9 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ β„•0) β†’ (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜) = (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)))
300299sumeq2dv 15646 . . . . . . . 8 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) β†’ Ξ£π‘˜ ∈ β„•0 (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜) = Ξ£π‘˜ ∈ β„•0 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)))
301300mpteq2dva 5248 . . . . . . 7 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜)) = (𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜))))
302279, 301breqtrd 5174 . . . . . 6 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)))(β‡π‘’β€˜π΅)(𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜))))
303 nnuz 12862 . . . . . . . 8 β„• = (β„€β‰₯β€˜1)
304 1e0p1 12716 . . . . . . . . 9 1 = (0 + 1)
305304fveq2i 6892 . . . . . . . 8 (β„€β‰₯β€˜1) = (β„€β‰₯β€˜(0 + 1))
306303, 305eqtri 2761 . . . . . . 7 β„• = (β„€β‰₯β€˜(0 + 1))
307 1zzd 12590 . . . . . . 7 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 1 ∈ β„€)
308 0zd 12567 . . . . . . . . . . . . 13 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) β†’ 0 ∈ β„€)
309 peano2nn0 12509 . . . . . . . . . . . . . . . . . . 19 (𝑖 ∈ β„•0 β†’ (𝑖 + 1) ∈ β„•0)
310309nn0cnd 12531 . . . . . . . . . . . . . . . . . 18 (𝑖 ∈ β„•0 β†’ (𝑖 + 1) ∈ β„‚)
311310adantl 483 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ β„•0) β†’ (𝑖 + 1) ∈ β„‚)
3127ad2antrr 725 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) β†’ 𝐴:β„•0βŸΆβ„‚)
313 ffvelcdm 7081 . . . . . . . . . . . . . . . . . 18 ((𝐴:β„•0βŸΆβ„‚ ∧ (𝑖 + 1) ∈ β„•0) β†’ (π΄β€˜(𝑖 + 1)) ∈ β„‚)
314312, 309, 313syl2an 597 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ β„•0) β†’ (π΄β€˜(𝑖 + 1)) ∈ β„‚)
315311, 314mulcld 11231 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ β„•0) β†’ ((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) ∈ β„‚)
316280, 148sylan 581 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ β„•0) β†’ (𝑦↑𝑖) ∈ β„‚)
317315, 316mulcld 11231 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ β„•0) β†’ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖)) ∈ β„‚)
318287, 317fmpt3d 7113 . . . . . . . . . . . . . 14 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) β†’ ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦):β„•0βŸΆβ„‚)
319318ffvelcdmda 7084 . . . . . . . . . . . . 13 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ π‘š ∈ β„•0) β†’ (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘š) ∈ β„‚)
3201, 308, 319serf 13993 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) β†’ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)):β„•0βŸΆβ„‚)
321320ffvelcdmda 7084 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ 𝑗 ∈ β„•0) β†’ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—) ∈ β„‚)
322321an32s 651 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑗 ∈ β„•0) ∧ 𝑦 ∈ 𝐡) β†’ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—) ∈ β„‚)
323322fmpttd 7112 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑗 ∈ β„•0) β†’ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)):π΅βŸΆβ„‚)
32430, 31elmap 8862 . . . . . . . . 9 ((𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)) ∈ (β„‚ ↑m 𝐡) ↔ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)):π΅βŸΆβ„‚)
325323, 324sylibr 233 . . . . . . . 8 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑗 ∈ β„•0) β†’ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)) ∈ (β„‚ ↑m 𝐡))
326325fmpttd 7112 . . . . . . 7 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—))):β„•0⟢(β„‚ ↑m 𝐡))
327 elfznn 13527 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ (1...π‘š) β†’ 𝑖 ∈ β„•)
328327nnne0d 12259 . . . . . . . . . . . . . . . 16 (𝑖 ∈ (1...π‘š) β†’ 𝑖 β‰  0)
329328neneqd 2946 . . . . . . . . . . . . . . 15 (𝑖 ∈ (1...π‘š) β†’ Β¬ 𝑖 = 0)
330329iffalsed 4539 . . . . . . . . . . . . . 14 (𝑖 ∈ (1...π‘š) β†’ if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))) = (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))
331330oveq2d 7422 . . . . . . . . . . . . 13 (𝑖 ∈ (1...π‘š) β†’ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) = ((π΄β€˜π‘–) Β· (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))
332331sumeq2i 15642 . . . . . . . . . . . 12 Σ𝑖 ∈ (1...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) = Σ𝑖 ∈ (1...π‘š)((π΄β€˜π‘–) Β· (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))
333 1zzd 12590 . . . . . . . . . . . . 13 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ 1 ∈ β„€)
334 nnz 12576 . . . . . . . . . . . . . 14 (π‘š ∈ β„• β†’ π‘š ∈ β„€)
335334ad2antlr 726 . . . . . . . . . . . . 13 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ π‘š ∈ β„€)
336271ad2antrr 725 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ 𝐴:β„•0βŸΆβ„‚)
337327nnnn0d 12529 . . . . . . . . . . . . . . 15 (𝑖 ∈ (1...π‘š) β†’ 𝑖 ∈ β„•0)
338336, 337, 142syl2an 597 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (1...π‘š)) β†’ (π΄β€˜π‘–) ∈ β„‚)
339327adantl 483 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (1...π‘š)) β†’ 𝑖 ∈ β„•)
340339nncnd 12225 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (1...π‘š)) β†’ 𝑖 ∈ β„‚)
341280adantlr 714 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ 𝑦 ∈ β„‚)
342 nnm1nn0 12510 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ β„• β†’ (𝑖 βˆ’ 1) ∈ β„•0)
343327, 342syl 17 . . . . . . . . . . . . . . . 16 (𝑖 ∈ (1...π‘š) β†’ (𝑖 βˆ’ 1) ∈ β„•0)
344 expcl 14042 . . . . . . . . . . . . . . . 16 ((𝑦 ∈ β„‚ ∧ (𝑖 βˆ’ 1) ∈ β„•0) β†’ (𝑦↑(𝑖 βˆ’ 1)) ∈ β„‚)
345341, 343, 344syl2an 597 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (1...π‘š)) β†’ (𝑦↑(𝑖 βˆ’ 1)) ∈ β„‚)
346340, 345mulcld 11231 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (1...π‘š)) β†’ (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))) ∈ β„‚)
347338, 346mulcld 11231 . . . . . . . . . . . . 13 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (1...π‘š)) β†’ ((π΄β€˜π‘–) Β· (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))) ∈ β„‚)
348 fveq2 6889 . . . . . . . . . . . . . 14 (𝑖 = (π‘˜ + 1) β†’ (π΄β€˜π‘–) = (π΄β€˜(π‘˜ + 1)))
349 id 22 . . . . . . . . . . . . . . 15 (𝑖 = (π‘˜ + 1) β†’ 𝑖 = (π‘˜ + 1))
350 oveq1 7413 . . . . . . . . . . . . . . . 16 (𝑖 = (π‘˜ + 1) β†’ (𝑖 βˆ’ 1) = ((π‘˜ + 1) βˆ’ 1))
351350oveq2d 7422 . . . . . . . . . . . . . . 15 (𝑖 = (π‘˜ + 1) β†’ (𝑦↑(𝑖 βˆ’ 1)) = (𝑦↑((π‘˜ + 1) βˆ’ 1)))
352349, 351oveq12d 7424 . . . . . . . . . . . . . 14 (𝑖 = (π‘˜ + 1) β†’ (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))) = ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1))))
353348, 352oveq12d 7424 . . . . . . . . . . . . 13 (𝑖 = (π‘˜ + 1) β†’ ((π΄β€˜π‘–) Β· (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))) = ((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1)))))
354333, 333, 335, 347, 353fsumshftm 15724 . . . . . . . . . . . 12 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...π‘š)((π΄β€˜π‘–) Β· (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))) = Ξ£π‘˜ ∈ ((1 βˆ’ 1)...(π‘š βˆ’ 1))((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1)))))
355332, 354eqtrid 2785 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) = Ξ£π‘˜ ∈ ((1 βˆ’ 1)...(π‘š βˆ’ 1))((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1)))))
356 fz1ssfz0 13594 . . . . . . . . . . . . 13 (1...π‘š) βŠ† (0...π‘š)
357356a1i 11 . . . . . . . . . . . 12 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ (1...π‘š) βŠ† (0...π‘š))
358331adantl 483 . . . . . . . . . . . . 13 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (1...π‘š)) β†’ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) = ((π΄β€˜π‘–) Β· (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))
359358, 347eqeltrd 2834 . . . . . . . . . . . 12 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (1...π‘š)) β†’ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) ∈ β„‚)
360 eldif 3958 . . . . . . . . . . . . . . . . . 18 (𝑖 ∈ ((0...π‘š) βˆ– ((0 + 1)...π‘š)) ↔ (𝑖 ∈ (0...π‘š) ∧ Β¬ 𝑖 ∈ ((0 + 1)...π‘š)))
361 elfzuz2 13503 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑖 ∈ (0...π‘š) β†’ π‘š ∈ (β„€β‰₯β€˜0))
362 elfzp12 13577 . . . . . . . . . . . . . . . . . . . . . . 23 (π‘š ∈ (β„€β‰₯β€˜0) β†’ (𝑖 ∈ (0...π‘š) ↔ (𝑖 = 0 ∨ 𝑖 ∈ ((0 + 1)...π‘š))))
363361, 362syl 17 . . . . . . . . . . . . . . . . . . . . . 22 (𝑖 ∈ (0...π‘š) β†’ (𝑖 ∈ (0...π‘š) ↔ (𝑖 = 0 ∨ 𝑖 ∈ ((0 + 1)...π‘š))))
364363ibi 267 . . . . . . . . . . . . . . . . . . . . 21 (𝑖 ∈ (0...π‘š) β†’ (𝑖 = 0 ∨ 𝑖 ∈ ((0 + 1)...π‘š)))
365364ord 863 . . . . . . . . . . . . . . . . . . . 20 (𝑖 ∈ (0...π‘š) β†’ (Β¬ 𝑖 = 0 β†’ 𝑖 ∈ ((0 + 1)...π‘š)))
366365con1d 145 . . . . . . . . . . . . . . . . . . 19 (𝑖 ∈ (0...π‘š) β†’ (Β¬ 𝑖 ∈ ((0 + 1)...π‘š) β†’ 𝑖 = 0))
367366imp 408 . . . . . . . . . . . . . . . . . 18 ((𝑖 ∈ (0...π‘š) ∧ Β¬ 𝑖 ∈ ((0 + 1)...π‘š)) β†’ 𝑖 = 0)
368360, 367sylbi 216 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ ((0...π‘š) βˆ– ((0 + 1)...π‘š)) β†’ 𝑖 = 0)
369304oveq1i 7416 . . . . . . . . . . . . . . . . . 18 (1...π‘š) = ((0 + 1)...π‘š)
370369difeq2i 4119 . . . . . . . . . . . . . . . . 17 ((0...π‘š) βˆ– (1...π‘š)) = ((0...π‘š) βˆ– ((0 + 1)...π‘š))
371368, 370eleq2s 2852 . . . . . . . . . . . . . . . 16 (𝑖 ∈ ((0...π‘š) βˆ– (1...π‘š)) β†’ 𝑖 = 0)
372371adantl 483 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ ((0...π‘š) βˆ– (1...π‘š))) β†’ 𝑖 = 0)
373372iftrued 4536 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ ((0...π‘š) βˆ– (1...π‘š))) β†’ if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))) = 0)
374373oveq2d 7422 . . . . . . . . . . . . 13 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ ((0...π‘š) βˆ– (1...π‘š))) β†’ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) = ((π΄β€˜π‘–) Β· 0))
375 eldifi 4126 . . . . . . . . . . . . . . . 16 (𝑖 ∈ ((0...π‘š) βˆ– (1...π‘š)) β†’ 𝑖 ∈ (0...π‘š))
376375, 104syl 17 . . . . . . . . . . . . . . 15 (𝑖 ∈ ((0...π‘š) βˆ– (1...π‘š)) β†’ 𝑖 ∈ β„•0)
377336, 376, 142syl2an 597 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ ((0...π‘š) βˆ– (1...π‘š))) β†’ (π΄β€˜π‘–) ∈ β„‚)
378377mul01d 11410 . . . . . . . . . . . . 13 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ ((0...π‘š) βˆ– (1...π‘š))) β†’ ((π΄β€˜π‘–) Β· 0) = 0)
379374, 378eqtrd 2773 . . . . . . . . . . . 12 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ ((0...π‘š) βˆ– (1...π‘š))) β†’ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) = 0)
380 fzfid 13935 . . . . . . . . . . . 12 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ (0...π‘š) ∈ Fin)
381357, 359, 379, 380fsumss 15668 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ Σ𝑖 ∈ (1...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) = Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))))
382 1m1e0 12281 . . . . . . . . . . . . . 14 (1 βˆ’ 1) = 0
383382oveq1i 7416 . . . . . . . . . . . . 13 ((1 βˆ’ 1)...(π‘š βˆ’ 1)) = (0...(π‘š βˆ’ 1))
384383sumeq1i 15641 . . . . . . . . . . . 12 Ξ£π‘˜ ∈ ((1 βˆ’ 1)...(π‘š βˆ’ 1))((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1)))) = Ξ£π‘˜ ∈ (0...(π‘š βˆ’ 1))((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1))))
385 elfznn0 13591 . . . . . . . . . . . . . . . 16 (π‘˜ ∈ (0...(π‘š βˆ’ 1)) β†’ π‘˜ ∈ β„•0)
386385adantl 483 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ π‘˜ ∈ β„•0)
387386, 297syl 17 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ ((𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖)))β€˜π‘˜) = (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)))
388341adantr 482 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ 𝑦 ∈ β„‚)
389388, 286syl 17 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖))))
390389fveq1d 6891 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜) = ((𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖)))β€˜π‘˜))
391336adantr 482 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ 𝐴:β„•0βŸΆβ„‚)
392 peano2nn0 12509 . . . . . . . . . . . . . . . . . 18 (π‘˜ ∈ β„•0 β†’ (π‘˜ + 1) ∈ β„•0)
393386, 392syl 17 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ (π‘˜ + 1) ∈ β„•0)
394391, 393ffvelcdmd 7085 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ (π΄β€˜(π‘˜ + 1)) ∈ β„‚)
395393nn0cnd 12531 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ (π‘˜ + 1) ∈ β„‚)
396 expcl 14042 . . . . . . . . . . . . . . . . 17 ((𝑦 ∈ β„‚ ∧ π‘˜ ∈ β„•0) β†’ (π‘¦β†‘π‘˜) ∈ β„‚)
397341, 385, 396syl2an 597 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ (π‘¦β†‘π‘˜) ∈ β„‚)
398394, 395, 397mul12d 11420 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ ((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (π‘¦β†‘π‘˜))) = ((π‘˜ + 1) Β· ((π΄β€˜(π‘˜ + 1)) Β· (π‘¦β†‘π‘˜))))
399386nn0cnd 12531 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ π‘˜ ∈ β„‚)
400 ax-1cn 11165 . . . . . . . . . . . . . . . . . . 19 1 ∈ β„‚
401 pncan 11463 . . . . . . . . . . . . . . . . . . 19 ((π‘˜ ∈ β„‚ ∧ 1 ∈ β„‚) β†’ ((π‘˜ + 1) βˆ’ 1) = π‘˜)
402399, 400, 401sylancl 587 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ ((π‘˜ + 1) βˆ’ 1) = π‘˜)
403402oveq2d 7422 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ (𝑦↑((π‘˜ + 1) βˆ’ 1)) = (π‘¦β†‘π‘˜))
404403oveq2d 7422 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1))) = ((π‘˜ + 1) Β· (π‘¦β†‘π‘˜)))
405404oveq2d 7422 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ ((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1)))) = ((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (π‘¦β†‘π‘˜))))
406395, 394, 397mulassd 11234 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)) = ((π‘˜ + 1) Β· ((π΄β€˜(π‘˜ + 1)) Β· (π‘¦β†‘π‘˜))))
407398, 405, 4063eqtr4d 2783 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ ((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1)))) = (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)))
408387, 390, 4073eqtr4d 2783 . . . . . . . . . . . . 13 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜) = ((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1)))))
409 nnm1nn0 12510 . . . . . . . . . . . . . . . 16 (π‘š ∈ β„• β†’ (π‘š βˆ’ 1) ∈ β„•0)
410409adantl 483 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) β†’ (π‘š βˆ’ 1) ∈ β„•0)
411410adantr 482 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ (π‘š βˆ’ 1) ∈ β„•0)
412411, 1eleqtrdi 2844 . . . . . . . . . . . . 13 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ (π‘š βˆ’ 1) ∈ (β„€β‰₯β€˜0))
413403, 397eqeltrd 2834 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ (𝑦↑((π‘˜ + 1) βˆ’ 1)) ∈ β„‚)
414395, 413mulcld 11231 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1))) ∈ β„‚)
415394, 414mulcld 11231 . . . . . . . . . . . . 13 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ ((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1)))) ∈ β„‚)
416408, 412, 415fsumser 15673 . . . . . . . . . . . 12 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ Ξ£π‘˜ ∈ (0...(π‘š βˆ’ 1))((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1)))) = (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜(π‘š βˆ’ 1)))
417384, 416eqtrid 2785 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ Ξ£π‘˜ ∈ ((1 βˆ’ 1)...(π‘š βˆ’ 1))((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1)))) = (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜(π‘š βˆ’ 1)))
418355, 381, 4173eqtr3d 2781 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) = (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜(π‘š βˆ’ 1)))
419418mpteq2dva 5248 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) β†’ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))) = (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜(π‘š βˆ’ 1))))
420 fveq2 6889 . . . . . . . . . . . 12 (𝑗 = (π‘š βˆ’ 1) β†’ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—) = (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜(π‘š βˆ’ 1)))
421420mpteq2dv 5250 . . . . . . . . . . 11 (𝑗 = (π‘š βˆ’ 1) β†’ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)) = (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜(π‘š βˆ’ 1))))
422 eqid 2733 . . . . . . . . . . 11 (𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—))) = (𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)))
42331mptex 7222 . . . . . . . . . . 11 (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜(π‘š βˆ’ 1))) ∈ V
424421, 422, 423fvmpt 6996 . . . . . . . . . 10 ((π‘š βˆ’ 1) ∈ β„•0 β†’ ((𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)))β€˜(π‘š βˆ’ 1)) = (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜(π‘š βˆ’ 1))))
425410, 424syl 17 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) β†’ ((𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)))β€˜(π‘š βˆ’ 1)) = (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜(π‘š βˆ’ 1))))
426419, 425eqtr4d 2776 . . . . . . . 8 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) β†’ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))) = ((𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)))β€˜(π‘š βˆ’ 1)))
427426mpteq2dva 5248 . . . . . . 7 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (π‘š ∈ β„• ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))))) = (π‘š ∈ β„• ↦ ((𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)))β€˜(π‘š βˆ’ 1))))
4281, 306, 4, 307, 326, 427ulmshft 25894 . . . . . 6 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ ((𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)))(β‡π‘’β€˜π΅)(𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜))) ↔ (π‘š ∈ β„• ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))))(β‡π‘’β€˜π΅)(𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)))))
429302, 428mpbid 231 . . . . 5 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (π‘š ∈ β„• ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))))(β‡π‘’β€˜π΅)(𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜))))
430177, 429eqbrtrid 5183 . . . 4 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ ((π‘š ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))))) β†Ύ β„•)(β‡π‘’β€˜π΅)(𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜))))
431 1nn0 12485 . . . . . 6 1 ∈ β„•0
432431a1i 11 . . . . 5 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 1 ∈ β„•0)
433 fzfid 13935 . . . . . . . . 9 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑦 ∈ 𝐡) β†’ (0...π‘š) ∈ Fin)
434164an32s 651 . . . . . . . . 9 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (0...π‘š)) β†’ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) ∈ β„‚)
435433, 434fsumcl 15676 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑦 ∈ 𝐡) β†’ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) ∈ β„‚)
436435fmpttd 7112 . . . . . . 7 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))):π΅βŸΆβ„‚)
43730, 31elmap 8862 . . . . . . 7 ((𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))) ∈ (β„‚ ↑m 𝐡) ↔ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))):π΅βŸΆβ„‚)
438436, 437sylibr 233 . . . . . 6 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))) ∈ (β„‚ ↑m 𝐡))
439438fmpttd 7112 . . . . 5 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (π‘š ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))))):β„•0⟢(β„‚ ↑m 𝐡))
4401, 303, 432, 439ulmres 25892 . . . 4 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ ((π‘š ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))))(β‡π‘’β€˜π΅)(𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜))) ↔ ((π‘š ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))))) β†Ύ β„•)(β‡π‘’β€˜π΅)(𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)))))
441430, 440mpbird 257 . . 3 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (π‘š ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))))(β‡π‘’β€˜π΅)(𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜))))
442174, 441eqbrtrd 5170 . 2 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (π‘š ∈ β„•0 ↦ (β„‚ D ((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š)))(β‡π‘’β€˜π΅)(𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜))))
4431, 3, 4, 34, 44, 120, 442ulmdv 25907 1 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (β„‚ D (𝐹 β†Ύ 𝐡)) = (𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜))))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 397   ∨ wo 846   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107  {crab 3433  Vcvv 3475   βˆ– cdif 3945   βŠ† wss 3948  ifcif 4528  {cpr 4630   class class class wbr 5148   ↦ cmpt 5231  β—‘ccnv 5675  dom cdm 5676   β†Ύ cres 5678   β€œ cima 5679   ∘ ccom 5680   Fn wfn 6536  βŸΆwf 6537  β€˜cfv 6541  (class class class)co 7406   ↑m cmap 8817  supcsup 9432  β„‚cc 11105  β„cr 11106  0cc0 11107  1c1 11108   + caddc 11110   Β· cmul 11112  +∞cpnf 11242  β„*cxr 11244   < clt 11245   ≀ cle 11246   βˆ’ cmin 11441   / cdiv 11868  β„•cn 12209  2c2 12264  β„•0cn0 12469  β„€cz 12555  β„€β‰₯cuz 12819  β„+crp 12971  [,)cico 13323  [,]cicc 13324  ...cfz 13481  seqcseq 13963  β†‘cexp 14024  abscabs 15178   ⇝ cli 15425  Ξ£csu 15629  TopOpenctopn 17364  βˆžMetcxmet 20922  ballcbl 20924  β„‚fldccnfld 20937  β€“cnβ†’ccncf 24384   D cdv 25372  β‡π‘’culm 25880
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7722  ax-inf2 9633  ax-cnex 11163  ax-resscn 11164  ax-1cn 11165  ax-icn 11166  ax-addcl 11167  ax-addrcl 11168  ax-mulcl 11169  ax-mulrcl 11170  ax-mulcom 11171  ax-addass 11172  ax-mulass 11173  ax-distr 11174  ax-i2m1 11175  ax-1ne0 11176  ax-1rid 11177  ax-rnegex 11178  ax-rrecex 11179  ax-cnre 11180  ax-pre-lttri 11181  ax-pre-lttrn 11182  ax-pre-ltadd 11183  ax-pre-mulgt0 11184  ax-pre-sup 11185  ax-addf 11186  ax-mulf 11187
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2942  df-nel 3048  df-ral 3063  df-rex 3072  df-rmo 3377  df-reu 3378  df-rab 3434  df-v 3477  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-pss 3967  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-tp 4633  df-op 4635  df-uni 4909  df-int 4951  df-iun 4999  df-iin 5000  df-br 5149  df-opab 5211  df-mpt 5232  df-tr 5266  df-id 5574  df-eprel 5580  df-po 5588  df-so 5589  df-fr 5631  df-se 5632  df-we 5633  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-pred 6298  df-ord 6365  df-on 6366  df-lim 6367  df-suc 6368  df-iota 6493  df-fun 6543  df-fn 6544  df-f 6545  df-f1 6546  df-fo 6547  df-f1o 6548  df-fv 6549  df-isom 6550  df-riota 7362  df-ov 7409  df-oprab 7410  df-mpo 7411  df-of 7667  df-om 7853  df-1st 7972  df-2nd 7973  df-supp 8144  df-frecs 8263  df-wrecs 8294  df-recs 8368  df-rdg 8407  df-1o 8463  df-2o 8464  df-er 8700  df-map 8819  df-pm 8820  df-ixp 8889  df-en 8937  df-dom 8938  df-sdom 8939  df-fin 8940  df-fsupp 9359  df-fi 9403  df-sup 9434  df-inf 9435  df-oi 9502  df-card 9931  df-pnf 11247  df-mnf 11248  df-xr 11249  df-ltxr 11250  df-le 11251  df-sub 11443  df-neg 11444  df-div 11869  df-nn 12210  df-2 12272  df-3 12273  df-4 12274  df-5 12275  df-6 12276  df-7 12277  df-8 12278  df-9 12279  df-n0 12470  df-z 12556  df-dec 12675  df-uz 12820  df-q 12930  df-rp 12972  df-xneg 13089  df-xadd 13090  df-xmul 13091  df-ioo 13325  df-ico 13327  df-icc 13328  df-fz 13482  df-fzo 13625  df-fl 13754  df-seq 13964  df-exp 14025  df-hash 14288  df-shft 15011  df-cj 15043  df-re 15044  df-im 15045  df-sqrt 15179  df-abs 15180  df-limsup 15412  df-clim 15429  df-rlim 15430  df-sum 15630  df-struct 17077  df-sets 17094  df-slot 17112  df-ndx 17124  df-base 17142  df-ress 17171  df-plusg 17207  df-mulr 17208  df-starv 17209  df-sca 17210  df-vsca 17211  df-ip 17212  df-tset 17213  df-ple 17214  df-ds 17216  df-unif 17217  df-hom 17218  df-cco 17219  df-rest 17365  df-topn 17366  df-0g 17384  df-gsum 17385  df-topgen 17386  df-pt 17387  df-prds 17390  df-xrs 17445  df-qtop 17450  df-imas 17451  df-xps 17453  df-mre 17527  df-mrc 17528  df-acs 17530  df-mgm 18558  df-sgrp 18607  df-mnd 18623  df-submnd 18669  df-mulg 18946  df-cntz 19176  df-cmn 19645  df-psmet 20929  df-xmet 20930  df-met 20931  df-bl 20932  df-mopn 20933  df-fbas 20934  df-fg 20935  df-cnfld 20938  df-top 22388  df-topon 22405  df-topsp 22427  df-bases 22441  df-cld 22515  df-ntr 22516  df-cls 22517  df-nei 22594  df-lp 22632  df-perf 22633  df-cn 22723  df-cnp 22724  df-haus 22811  df-cmp 22883  df-tx 23058  df-hmeo 23251  df-fil 23342  df-fm 23434  df-flim 23435  df-flf 23436  df-xms 23818  df-ms 23819  df-tms 23820  df-cncf 24386  df-limc 25375  df-dv 25376  df-ulm 25881
This theorem is referenced by:  pserdv  25933
  Copyright terms: Public domain W3C validator