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

Theorem pserdvlem2 26282
Description: Lemma for pserdv 26283. (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 11199 . . 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 727 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘˜ ∈ β„•0) ∧ 𝑦 ∈ 𝐡) β†’ 𝐴:β„•0βŸΆβ„‚)
9 pserdv.b . . . . . . . . . . 11 𝐡 = (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2))
10 cnxmet 24611 . . . . . . . . . . . 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 26281 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ ((((absβ€˜π‘Ž) + 𝑀) / 2) ∈ ℝ+ ∧ (absβ€˜π‘Ž) < (((absβ€˜π‘Ž) + 𝑀) / 2) ∧ (((absβ€˜π‘Ž) + 𝑀) / 2) < 𝑅))
1716simp1d 1139 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (((absβ€˜π‘Ž) + 𝑀) / 2) ∈ ℝ+)
1817rpxrd 13014 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (((absβ€˜π‘Ž) + 𝑀) / 2) ∈ ℝ*)
19 blssm 24246 . . . . . . . . . . . 12 (((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ 0 ∈ β„‚ ∧ (((absβ€˜π‘Ž) + 𝑀) / 2) ∈ ℝ*) β†’ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)) βŠ† β„‚)
2010, 11, 18, 19mp3an2i 1462 . . . . . . . . . . 11 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)) βŠ† β„‚)
219, 20eqsstrid 4022 . . . . . . . . . 10 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝐡 βŠ† β„‚)
2221adantr 480 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘˜ ∈ β„•0) β†’ 𝐡 βŠ† β„‚)
2322sselda 3974 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘˜ ∈ β„•0) ∧ 𝑦 ∈ 𝐡) β†’ 𝑦 ∈ β„‚)
246, 8, 23psergf 26265 . . . . . . 7 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘˜ ∈ β„•0) ∧ 𝑦 ∈ 𝐡) β†’ (πΊβ€˜π‘¦):β„•0βŸΆβ„‚)
25 elfznn0 13591 . . . . . . 7 (𝑖 ∈ (0...π‘˜) β†’ 𝑖 ∈ β„•0)
26 ffvelcdm 7073 . . . . . . 7 (((πΊβ€˜π‘¦):β„•0βŸΆβ„‚ ∧ 𝑖 ∈ β„•0) β†’ ((πΊβ€˜π‘¦)β€˜π‘–) ∈ β„‚)
2724, 25, 26syl2an 595 . . . . . 6 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘˜ ∈ β„•0) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (0...π‘˜)) β†’ ((πΊβ€˜π‘¦)β€˜π‘–) ∈ β„‚)
285, 27fsumcl 15676 . . . . 5 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘˜ ∈ β„•0) ∧ 𝑦 ∈ 𝐡) β†’ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–) ∈ β„‚)
2928fmpttd 7106 . . . 4 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘˜ ∈ β„•0) β†’ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)):π΅βŸΆβ„‚)
30 cnex 11187 . . . . 5 β„‚ ∈ V
319ovexi 7435 . . . . 5 𝐡 ∈ V
3230, 31elmap 8861 . . . 4 ((𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)) ∈ (β„‚ ↑m 𝐡) ↔ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)):π΅βŸΆβ„‚)
3329, 32sylibr 233 . . 3 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘˜ ∈ β„•0) β†’ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)) ∈ (β„‚ ↑m 𝐡))
3433fmpttd 7106 . 2 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–))):β„•0⟢(β„‚ ↑m 𝐡))
356, 12, 7, 13, 14, 15psercn 26280 . . . . 5 (πœ‘ β†’ 𝐹 ∈ (𝑆–cnβ†’β„‚))
36 cncff 24735 . . . . 5 (𝐹 ∈ (𝑆–cnβ†’β„‚) β†’ 𝐹:π‘†βŸΆβ„‚)
3735, 36syl 17 . . . 4 (πœ‘ β†’ 𝐹:π‘†βŸΆβ„‚)
3837adantr 480 . . 3 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝐹:π‘†βŸΆβ„‚)
396, 12, 7, 13, 14, 16psercnlem2 26278 . . . . . 6 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (π‘Ž ∈ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)) ∧ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)) βŠ† (β—‘abs β€œ (0[,](((absβ€˜π‘Ž) + 𝑀) / 2))) ∧ (β—‘abs β€œ (0[,](((absβ€˜π‘Ž) + 𝑀) / 2))) βŠ† 𝑆))
4039simp2d 1140 . . . . 5 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)) βŠ† (β—‘abs β€œ (0[,](((absβ€˜π‘Ž) + 𝑀) / 2))))
419, 40eqsstrid 4022 . . . 4 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝐡 βŠ† (β—‘abs β€œ (0[,](((absβ€˜π‘Ž) + 𝑀) / 2))))
4239simp3d 1141 . . . 4 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (β—‘abs β€œ (0[,](((absβ€˜π‘Ž) + 𝑀) / 2))) βŠ† 𝑆)
4341, 42sstrd 3984 . . 3 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝐡 βŠ† 𝑆)
4438, 43fssresd 6748 . 2 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (𝐹 β†Ύ 𝐡):π΅βŸΆβ„‚)
45 0zd 12567 . . . . 5 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ 0 ∈ β„€)
46 eqidd 2725 . . . . 5 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ 𝑗 ∈ β„•0) β†’ ((πΊβ€˜π‘§)β€˜π‘—) = ((πΊβ€˜π‘§)β€˜π‘—))
477ad2antrr 723 . . . . . . 7 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ 𝐴:β„•0βŸΆβ„‚)
4821sselda 3974 . . . . . . 7 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ 𝑧 ∈ β„‚)
496, 47, 48psergf 26265 . . . . . 6 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (πΊβ€˜π‘§):β„•0βŸΆβ„‚)
5049ffvelcdmda 7076 . . . . 5 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ 𝑗 ∈ β„•0) β†’ ((πΊβ€˜π‘§)β€˜π‘—) ∈ β„‚)
5148abscld 15380 . . . . . . . 8 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (absβ€˜π‘§) ∈ ℝ)
5251rexrd 11261 . . . . . . 7 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (absβ€˜π‘§) ∈ ℝ*)
5318adantr 480 . . . . . . 7 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (((absβ€˜π‘Ž) + 𝑀) / 2) ∈ ℝ*)
54 iccssxr 13404 . . . . . . . . 9 (0[,]+∞) βŠ† ℝ*
556, 7, 13radcnvcl 26270 . . . . . . . . 9 (πœ‘ β†’ 𝑅 ∈ (0[,]+∞))
5654, 55sselid 3972 . . . . . . . 8 (πœ‘ β†’ 𝑅 ∈ ℝ*)
5756ad2antrr 723 . . . . . . 7 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ 𝑅 ∈ ℝ*)
58 0cn 11203 . . . . . . . . . 10 0 ∈ β„‚
59 eqid 2724 . . . . . . . . . . 11 (abs ∘ βˆ’ ) = (abs ∘ βˆ’ )
6059cnmetdval 24609 . . . . . . . . . 10 ((𝑧 ∈ β„‚ ∧ 0 ∈ β„‚) β†’ (𝑧(abs ∘ βˆ’ )0) = (absβ€˜(𝑧 βˆ’ 0)))
6148, 58, 60sylancl 585 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (𝑧(abs ∘ βˆ’ )0) = (absβ€˜(𝑧 βˆ’ 0)))
6248subid1d 11557 . . . . . . . . . 10 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (𝑧 βˆ’ 0) = 𝑧)
6362fveq2d 6885 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (absβ€˜(𝑧 βˆ’ 0)) = (absβ€˜π‘§))
6461, 63eqtrd 2764 . . . . . . . 8 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (𝑧(abs ∘ βˆ’ )0) = (absβ€˜π‘§))
65 simpr 484 . . . . . . . . . 10 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ 𝑧 ∈ 𝐡)
6665, 9eleqtrdi 2835 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ 𝑧 ∈ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)))
6710a1i 11 . . . . . . . . . 10 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚))
68 0cnd 11204 . . . . . . . . . 10 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ 0 ∈ β„‚)
69 elbl3 24220 . . . . . . . . . 10 ((((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ (((absβ€˜π‘Ž) + 𝑀) / 2) ∈ ℝ*) ∧ (0 ∈ β„‚ ∧ 𝑧 ∈ β„‚)) β†’ (𝑧 ∈ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)) ↔ (𝑧(abs ∘ βˆ’ )0) < (((absβ€˜π‘Ž) + 𝑀) / 2)))
7067, 53, 68, 48, 69syl22anc 836 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (𝑧 ∈ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)) ↔ (𝑧(abs ∘ βˆ’ )0) < (((absβ€˜π‘Ž) + 𝑀) / 2)))
7166, 70mpbid 231 . . . . . . . 8 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (𝑧(abs ∘ βˆ’ )0) < (((absβ€˜π‘Ž) + 𝑀) / 2))
7264, 71eqbrtrrd 5162 . . . . . . 7 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (absβ€˜π‘§) < (((absβ€˜π‘Ž) + 𝑀) / 2))
7316simp3d 1141 . . . . . . . 8 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (((absβ€˜π‘Ž) + 𝑀) / 2) < 𝑅)
7473adantr 480 . . . . . . 7 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (((absβ€˜π‘Ž) + 𝑀) / 2) < 𝑅)
7552, 53, 57, 72, 74xrlttrd 13135 . . . . . 6 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (absβ€˜π‘§) < 𝑅)
766, 47, 13, 48, 75radcnvlt2 26272 . . . . 5 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ seq0( + , (πΊβ€˜π‘§)) ∈ dom ⇝ )
771, 45, 46, 50, 76isumclim2 15701 . . . 4 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ seq0( + , (πΊβ€˜π‘§)) ⇝ Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘§)β€˜π‘—))
7843sselda 3974 . . . . 5 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ 𝑧 ∈ 𝑆)
79 fveq2 6881 . . . . . . . 8 (𝑦 = 𝑧 β†’ (πΊβ€˜π‘¦) = (πΊβ€˜π‘§))
8079fveq1d 6883 . . . . . . 7 (𝑦 = 𝑧 β†’ ((πΊβ€˜π‘¦)β€˜π‘—) = ((πΊβ€˜π‘§)β€˜π‘—))
8180sumeq2sdv 15647 . . . . . 6 (𝑦 = 𝑧 β†’ Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘¦)β€˜π‘—) = Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘§)β€˜π‘—))
82 sumex 15631 . . . . . 6 Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘§)β€˜π‘—) ∈ V
8381, 12, 82fvmpt 6988 . . . . 5 (𝑧 ∈ 𝑆 β†’ (πΉβ€˜π‘§) = Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘§)β€˜π‘—))
8478, 83syl 17 . . . 4 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (πΉβ€˜π‘§) = Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘§)β€˜π‘—))
8577, 84breqtrrd 5166 . . 3 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ seq0( + , (πΊβ€˜π‘§)) ⇝ (πΉβ€˜π‘§))
86 oveq2 7409 . . . . . . . . . . 11 (π‘˜ = π‘š β†’ (0...π‘˜) = (0...π‘š))
8786sumeq1d 15644 . . . . . . . . . 10 (π‘˜ = π‘š β†’ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–) = Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–))
8887mpteq2dv 5240 . . . . . . . . 9 (π‘˜ = π‘š β†’ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)) = (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–)))
89 eqid 2724 . . . . . . . . 9 (π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–))) = (π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))
9031mptex 7216 . . . . . . . . 9 (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–)) ∈ V
9188, 89, 90fvmpt 6988 . . . . . . . 8 (π‘š ∈ β„•0 β†’ ((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š) = (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–)))
9291adantl 481 . . . . . . 7 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) β†’ ((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š) = (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–)))
9392fveq1d 6883 . . . . . 6 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) β†’ (((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š)β€˜π‘§) = ((𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–))β€˜π‘§))
9479fveq1d 6883 . . . . . . . . 9 (𝑦 = 𝑧 β†’ ((πΊβ€˜π‘¦)β€˜π‘–) = ((πΊβ€˜π‘§)β€˜π‘–))
9594sumeq2sdv 15647 . . . . . . . 8 (𝑦 = 𝑧 β†’ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–) = Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘§)β€˜π‘–))
96 eqid 2724 . . . . . . . 8 (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–)) = (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–))
97 sumex 15631 . . . . . . . 8 Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘§)β€˜π‘–) ∈ V
9895, 96, 97fvmpt 6988 . . . . . . 7 (𝑧 ∈ 𝐡 β†’ ((𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–))β€˜π‘§) = Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘§)β€˜π‘–))
9998ad2antlr 724 . . . . . 6 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) β†’ ((𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–))β€˜π‘§) = Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘§)β€˜π‘–))
100 eqidd 2725 . . . . . . 7 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ ((πΊβ€˜π‘§)β€˜π‘–) = ((πΊβ€˜π‘§)β€˜π‘–))
101 simpr 484 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) β†’ π‘š ∈ β„•0)
102101, 1eleqtrdi 2835 . . . . . . 7 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) β†’ π‘š ∈ (β„€β‰₯β€˜0))
10349adantr 480 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) β†’ (πΊβ€˜π‘§):β„•0βŸΆβ„‚)
104 elfznn0 13591 . . . . . . . 8 (𝑖 ∈ (0...π‘š) β†’ 𝑖 ∈ β„•0)
105 ffvelcdm 7073 . . . . . . . 8 (((πΊβ€˜π‘§):β„•0βŸΆβ„‚ ∧ 𝑖 ∈ β„•0) β†’ ((πΊβ€˜π‘§)β€˜π‘–) ∈ β„‚)
106103, 104, 105syl2an 595 . . . . . . 7 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ ((πΊβ€˜π‘§)β€˜π‘–) ∈ β„‚)
107100, 102, 106fsumser 15673 . . . . . 6 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) β†’ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘§)β€˜π‘–) = (seq0( + , (πΊβ€˜π‘§))β€˜π‘š))
10893, 99, 1073eqtrd 2768 . . . . 5 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) ∧ π‘š ∈ β„•0) β†’ (((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š)β€˜π‘§) = (seq0( + , (πΊβ€˜π‘§))β€˜π‘š))
109108mpteq2dva 5238 . . . 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 6637 . . . . . 6 (seq0( + , (πΊβ€˜π‘§)) Fn β„•0 ↔ seq0( + , (πΊβ€˜π‘§)) Fn (β„€β‰₯β€˜0))
114112, 113mpbir 230 . . . . 5 seq0( + , (πΊβ€˜π‘§)) Fn β„•0
115 dffn5 6940 . . . . 5 (seq0( + , (πΊβ€˜π‘§)) Fn β„•0 ↔ seq0( + , (πΊβ€˜π‘§)) = (π‘š ∈ β„•0 ↦ (seq0( + , (πΊβ€˜π‘§))β€˜π‘š)))
116114, 115mpbi 229 . . . 4 seq0( + , (πΊβ€˜π‘§)) = (π‘š ∈ β„•0 ↦ (seq0( + , (πΊβ€˜π‘§))β€˜π‘š))
117109, 116eqtr4di 2782 . . 3 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (π‘š ∈ β„•0 ↦ (((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š)β€˜π‘§)) = seq0( + , (πΊβ€˜π‘§)))
118 fvres 6900 . . . 4 (𝑧 ∈ 𝐡 β†’ ((𝐹 β†Ύ 𝐡)β€˜π‘§) = (πΉβ€˜π‘§))
119118adantl 481 . . 3 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ ((𝐹 β†Ύ 𝐡)β€˜π‘§) = (πΉβ€˜π‘§))
12085, 117, 1193brtr4d 5170 . 2 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑧 ∈ 𝐡) β†’ (π‘š ∈ β„•0 ↦ (((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š)β€˜π‘§)) ⇝ ((𝐹 β†Ύ 𝐡)β€˜π‘§))
12191adantl 481 . . . . . 6 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ ((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š) = (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–)))
122121oveq2d 7417 . . . . 5 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ (β„‚ D ((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š)) = (β„‚ D (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–))))
123 eqid 2724 . . . . . . . 8 (TopOpenβ€˜β„‚fld) = (TopOpenβ€˜β„‚fld)
124123cnfldtopon 24621 . . . . . . 7 (TopOpenβ€˜β„‚fld) ∈ (TopOnβ€˜β„‚)
125124toponrestid 22745 . . . . . 6 (TopOpenβ€˜β„‚fld) = ((TopOpenβ€˜β„‚fld) β†Ύt β„‚)
1262a1i 11 . . . . . 6 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ β„‚ ∈ {ℝ, β„‚})
127123cnfldtopn 24620 . . . . . . . . . 10 (TopOpenβ€˜β„‚fld) = (MetOpenβ€˜(abs ∘ βˆ’ ))
128127blopn 24331 . . . . . . . . 9 (((abs ∘ βˆ’ ) ∈ (∞Metβ€˜β„‚) ∧ 0 ∈ β„‚ ∧ (((absβ€˜π‘Ž) + 𝑀) / 2) ∈ ℝ*) β†’ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)) ∈ (TopOpenβ€˜β„‚fld))
12910, 11, 18, 128mp3an2i 1462 . . . . . . . 8 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (0(ballβ€˜(abs ∘ βˆ’ ))(((absβ€˜π‘Ž) + 𝑀) / 2)) ∈ (TopOpenβ€˜β„‚fld))
1309, 129eqeltrid 2829 . . . . . . 7 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝐡 ∈ (TopOpenβ€˜β„‚fld))
131130adantr 480 . . . . . 6 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ 𝐡 ∈ (TopOpenβ€˜β„‚fld))
132 fzfid 13935 . . . . . 6 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ (0...π‘š) ∈ Fin)
1337ad2antrr 723 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ 𝐴:β„•0βŸΆβ„‚)
1341333ad2ant1 1130 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š) ∧ 𝑦 ∈ 𝐡) β†’ 𝐴:β„•0βŸΆβ„‚)
13521adantr 480 . . . . . . . . . 10 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ 𝐡 βŠ† β„‚)
136135sselda 3974 . . . . . . . . 9 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑦 ∈ 𝐡) β†’ 𝑦 ∈ β„‚)
1371363adant2 1128 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š) ∧ 𝑦 ∈ 𝐡) β†’ 𝑦 ∈ β„‚)
1386, 134, 137psergf 26265 . . . . . . 7 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š) ∧ 𝑦 ∈ 𝐡) β†’ (πΊβ€˜π‘¦):β„•0βŸΆβ„‚)
1391043ad2ant2 1131 . . . . . . 7 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š) ∧ 𝑦 ∈ 𝐡) β†’ 𝑖 ∈ β„•0)
140138, 139ffvelcdmd 7077 . . . . . 6 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š) ∧ 𝑦 ∈ 𝐡) β†’ ((πΊβ€˜π‘¦)β€˜π‘–) ∈ β„‚)
1412a1i 11 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ β„‚ ∈ {ℝ, β„‚})
142 ffvelcdm 7073 . . . . . . . . . . 11 ((𝐴:β„•0βŸΆβ„‚ ∧ 𝑖 ∈ β„•0) β†’ (π΄β€˜π‘–) ∈ β„‚)
143133, 104, 142syl2an 595 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ (π΄β€˜π‘–) ∈ β„‚)
144143adantr 480 . . . . . . . . 9 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ 𝐡) β†’ (π΄β€˜π‘–) ∈ β„‚)
145136adantlr 712 . . . . . . . . . 10 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ 𝐡) β†’ 𝑦 ∈ β„‚)
146 id 22 . . . . . . . . . . 11 (𝑦 ∈ β„‚ β†’ 𝑦 ∈ β„‚)
147104adantl 481 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ 𝑖 ∈ β„•0)
148 expcl 14042 . . . . . . . . . . 11 ((𝑦 ∈ β„‚ ∧ 𝑖 ∈ β„•0) β†’ (𝑦↑𝑖) ∈ β„‚)
149146, 147, 148syl2anr 596 . . . . . . . . . 10 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ β„‚) β†’ (𝑦↑𝑖) ∈ β„‚)
150145, 149syldan 590 . . . . . . . . 9 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ 𝐡) β†’ (𝑦↑𝑖) ∈ β„‚)
151144, 150mulcld 11231 . . . . . . . 8 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ 𝐡) β†’ ((π΄β€˜π‘–) Β· (𝑦↑𝑖)) ∈ β„‚)
152 ovexd 7436 . . . . . . . 8 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ 𝐡) β†’ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) ∈ V)
153 c0ex 11205 . . . . . . . . . . 11 0 ∈ V
154 ovex 7434 . . . . . . . . . . 11 (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))) ∈ V
155153, 154ifex 4570 . . . . . . . . . 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 25808 . . . . . . . . . . 11 (𝑖 ∈ β„•0 β†’ (β„‚ D (𝑦 ∈ β„‚ ↦ (𝑦↑𝑖))) = (𝑦 ∈ β„‚ ↦ if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))))
159147, 158syl 17 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ (β„‚ D (𝑦 ∈ β„‚ ↦ (𝑦↑𝑖))) = (𝑦 ∈ β„‚ ↦ if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))))
16021ad2antrr 723 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ 𝐡 βŠ† β„‚)
161130ad2antrr 723 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ 𝐡 ∈ (TopOpenβ€˜β„‚fld))
162141, 149, 157, 159, 160, 125, 123, 161dvmptres 25817 . . . . . . . . 9 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ (β„‚ D (𝑦 ∈ 𝐡 ↦ (𝑦↑𝑖))) = (𝑦 ∈ 𝐡 ↦ if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))))
163141, 150, 156, 162, 143dvmptcmul 25818 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ (β„‚ D (𝑦 ∈ 𝐡 ↦ ((π΄β€˜π‘–) Β· (𝑦↑𝑖)))) = (𝑦 ∈ 𝐡 ↦ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))))
164141, 151, 152, 163dvmptcl 25813 . . . . . . 7 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ 𝐡) β†’ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) ∈ β„‚)
1651643impa 1107 . . . . . 6 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š) ∧ 𝑦 ∈ 𝐡) β†’ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) ∈ β„‚)
166104ad2antlr 724 . . . . . . . . . 10 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ 𝐡) β†’ 𝑖 ∈ β„•0)
1676pserval2 26264 . . . . . . . . . 10 ((𝑦 ∈ β„‚ ∧ 𝑖 ∈ β„•0) β†’ ((πΊβ€˜π‘¦)β€˜π‘–) = ((π΄β€˜π‘–) Β· (𝑦↑𝑖)))
168145, 166, 167syl2anc 583 . . . . . . . . 9 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) ∧ 𝑦 ∈ 𝐡) β†’ ((πΊβ€˜π‘¦)β€˜π‘–) = ((π΄β€˜π‘–) Β· (𝑦↑𝑖)))
169168mpteq2dva 5238 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ (𝑦 ∈ 𝐡 ↦ ((πΊβ€˜π‘¦)β€˜π‘–)) = (𝑦 ∈ 𝐡 ↦ ((π΄β€˜π‘–) Β· (𝑦↑𝑖))))
170169oveq2d 7417 . . . . . . 7 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ (β„‚ D (𝑦 ∈ 𝐡 ↦ ((πΊβ€˜π‘¦)β€˜π‘–))) = (β„‚ D (𝑦 ∈ 𝐡 ↦ ((π΄β€˜π‘–) Β· (𝑦↑𝑖)))))
171170, 163eqtrd 2764 . . . . . 6 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑖 ∈ (0...π‘š)) β†’ (β„‚ D (𝑦 ∈ 𝐡 ↦ ((πΊβ€˜π‘¦)β€˜π‘–))) = (𝑦 ∈ 𝐡 ↦ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))))
172125, 123, 126, 131, 132, 140, 165, 171dvmptfsum 25829 . . . . 5 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ (β„‚ D (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((πΊβ€˜π‘¦)β€˜π‘–))) = (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))))
173122, 172eqtrd 2764 . . . 4 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ (β„‚ D ((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š)) = (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))))
174173mpteq2dva 5238 . . 3 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (π‘š ∈ β„•0 ↦ (β„‚ D ((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š))) = (π‘š ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))))))
175 nnssnn0 12472 . . . . . 6 β„• βŠ† β„•0
176 resmpt 6027 . . . . . 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 7408 . . . . . . . . . . . 12 (π‘Ž = π‘₯ β†’ (π‘Žβ†‘π‘–) = (π‘₯↑𝑖))
179178oveq2d 7417 . . . . . . . . . . 11 (π‘Ž = π‘₯ β†’ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–)) = (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘₯↑𝑖)))
180179mpteq2dv 5240 . . . . . . . . . 10 (π‘Ž = π‘₯ β†’ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘₯↑𝑖))))
181 oveq1 7408 . . . . . . . . . . . . . 14 (𝑖 = 𝑛 β†’ (𝑖 + 1) = (𝑛 + 1))
182 fvoveq1 7424 . . . . . . . . . . . . . 14 (𝑖 = 𝑛 β†’ (π΄β€˜(𝑖 + 1)) = (π΄β€˜(𝑛 + 1)))
183181, 182oveq12d 7419 . . . . . . . . . . . . 13 (𝑖 = 𝑛 β†’ ((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) = ((𝑛 + 1) Β· (π΄β€˜(𝑛 + 1))))
184 oveq2 7409 . . . . . . . . . . . . 13 (𝑖 = 𝑛 β†’ (π‘₯↑𝑖) = (π‘₯↑𝑛))
185183, 184oveq12d 7419 . . . . . . . . . . . 12 (𝑖 = 𝑛 β†’ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘₯↑𝑖)) = (((𝑛 + 1) Β· (π΄β€˜(𝑛 + 1))) Β· (π‘₯↑𝑛)))
186185cbvmptv 5251 . . . . . . . . . . 11 (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘₯↑𝑖))) = (𝑛 ∈ β„•0 ↦ (((𝑛 + 1) Β· (π΄β€˜(𝑛 + 1))) Β· (π‘₯↑𝑛)))
187 oveq1 7408 . . . . . . . . . . . . . . 15 (π‘š = 𝑛 β†’ (π‘š + 1) = (𝑛 + 1))
188 fvoveq1 7424 . . . . . . . . . . . . . . 15 (π‘š = 𝑛 β†’ (π΄β€˜(π‘š + 1)) = (π΄β€˜(𝑛 + 1)))
189187, 188oveq12d 7419 . . . . . . . . . . . . . 14 (π‘š = 𝑛 β†’ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1))) = ((𝑛 + 1) Β· (π΄β€˜(𝑛 + 1))))
190 eqid 2724 . . . . . . . . . . . . . 14 (π‘š ∈ β„•0 ↦ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1)))) = (π‘š ∈ β„•0 ↦ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1))))
191 ovex 7434 . . . . . . . . . . . . . 14 ((𝑛 + 1) Β· (π΄β€˜(𝑛 + 1))) ∈ V
192189, 190, 191fvmpt 6988 . . . . . . . . . . . . 13 (𝑛 ∈ β„•0 β†’ ((π‘š ∈ β„•0 ↦ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1))))β€˜π‘›) = ((𝑛 + 1) Β· (π΄β€˜(𝑛 + 1))))
193192oveq1d 7416 . . . . . . . . . . . 12 (𝑛 ∈ β„•0 β†’ (((π‘š ∈ β„•0 ↦ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1))))β€˜π‘›) Β· (π‘₯↑𝑛)) = (((𝑛 + 1) Β· (π΄β€˜(𝑛 + 1))) Β· (π‘₯↑𝑛)))
194193mpteq2ia 5241 . . . . . . . . . . 11 (𝑛 ∈ β„•0 ↦ (((π‘š ∈ β„•0 ↦ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1))))β€˜π‘›) Β· (π‘₯↑𝑛))) = (𝑛 ∈ β„•0 ↦ (((𝑛 + 1) Β· (π΄β€˜(𝑛 + 1))) Β· (π‘₯↑𝑛)))
195186, 194eqtr4i 2755 . . . . . . . . . 10 (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘₯↑𝑖))) = (𝑛 ∈ β„•0 ↦ (((π‘š ∈ β„•0 ↦ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1))))β€˜π‘›) Β· (π‘₯↑𝑛)))
196180, 195eqtrdi 2780 . . . . . . . . 9 (π‘Ž = π‘₯ β†’ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))) = (𝑛 ∈ β„•0 ↦ (((π‘š ∈ β„•0 ↦ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1))))β€˜π‘›) Β· (π‘₯↑𝑛))))
197196cbvmptv 5251 . . . . . . . 8 (π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–)))) = (π‘₯ ∈ β„‚ ↦ (𝑛 ∈ β„•0 ↦ (((π‘š ∈ β„•0 ↦ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1))))β€˜π‘›) Β· (π‘₯↑𝑛))))
198 fveq2 6881 . . . . . . . . . . 11 (𝑦 = 𝑧 β†’ ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦) = ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§))
199198fveq1d 6883 . . . . . . . . . 10 (𝑦 = 𝑧 β†’ (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜) = (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§)β€˜π‘˜))
200199sumeq2sdv 15647 . . . . . . . . 9 (𝑦 = 𝑧 β†’ Ξ£π‘˜ ∈ β„•0 (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜) = Ξ£π‘˜ ∈ β„•0 (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§)β€˜π‘˜))
201200cbvmptv 5251 . . . . . . . 8 (𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜)) = (𝑧 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§)β€˜π‘˜))
202 peano2nn0 12509 . . . . . . . . . . . 12 (π‘š ∈ β„•0 β†’ (π‘š + 1) ∈ β„•0)
203202adantl 481 . . . . . . . . . . 11 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ (π‘š + 1) ∈ β„•0)
204203nn0cnd 12531 . . . . . . . . . 10 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ (π‘š + 1) ∈ β„‚)
205133, 203ffvelcdmd 7077 . . . . . . . . . 10 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ (π΄β€˜(π‘š + 1)) ∈ β„‚)
206204, 205mulcld 11231 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1))) ∈ β„‚)
207206fmpttd 7106 . . . . . . . 8 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (π‘š ∈ β„•0 ↦ ((π‘š + 1) Β· (π΄β€˜(π‘š + 1)))):β„•0βŸΆβ„‚)
208 fveq2 6881 . . . . . . . . . . . 12 (π‘Ÿ = 𝑗 β†’ ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘Ÿ) = ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘—))
209208seqeq3d 13971 . . . . . . . . . . 11 (π‘Ÿ = 𝑗 β†’ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘Ÿ)) = seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘—)))
210209eleq1d 2810 . . . . . . . . . 10 (π‘Ÿ = 𝑗 β†’ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘Ÿ)) ∈ dom ⇝ ↔ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘—)) ∈ dom ⇝ ))
211210cbvrabv 3434 . . . . . . . . 9 {π‘Ÿ ∈ ℝ ∣ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘Ÿ)) ∈ dom ⇝ } = {𝑗 ∈ ℝ ∣ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘—)) ∈ dom ⇝ }
212211supeq1i 9438 . . . . . . . 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 6883 . . . . . . . . . . 11 (𝑦 = 𝑧 β†’ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—) = (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§))β€˜π‘—))
215214cbvmptv 5251 . . . . . . . . . 10 (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)) = (𝑧 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§))β€˜π‘—))
216 fveq2 6881 . . . . . . . . . . 11 (𝑗 = π‘š β†’ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§))β€˜π‘—) = (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§))β€˜π‘š))
217216mpteq2dv 5240 . . . . . . . . . 10 (𝑗 = π‘š β†’ (𝑧 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§))β€˜π‘—)) = (𝑧 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§))β€˜π‘š)))
218215, 217eqtrid 2776 . . . . . . . . 9 (𝑗 = π‘š β†’ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)) = (𝑧 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§))β€˜π‘š)))
219218cbvmptv 5251 . . . . . . . 8 (𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—))) = (π‘š ∈ β„•0 ↦ (𝑧 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘§))β€˜π‘š)))
22017rpred 13013 . . . . . . . 8 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (((absβ€˜π‘Ž) + 𝑀) / 2) ∈ ℝ)
2216, 12, 7, 13, 14, 15psercnlem1 26279 . . . . . . . . . . 11 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (𝑀 ∈ ℝ+ ∧ (absβ€˜π‘Ž) < 𝑀 ∧ 𝑀 < 𝑅))
222221simp1d 1139 . . . . . . . . . 10 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝑀 ∈ ℝ+)
223222rpxrd 13014 . . . . . . . . 9 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝑀 ∈ ℝ*)
224197, 207, 212radcnvcl 26270 . . . . . . . . . 10 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ sup({π‘Ÿ ∈ ℝ ∣ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘Ÿ)) ∈ dom ⇝ }, ℝ*, < ) ∈ (0[,]+∞))
22554, 224sselid 3972 . . . . . . . . 9 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ sup({π‘Ÿ ∈ ℝ ∣ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘Ÿ)) ∈ dom ⇝ }, ℝ*, < ) ∈ ℝ*)
226221simp2d 1140 . . . . . . . . . 10 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (absβ€˜π‘Ž) < 𝑀)
227 cnvimass 6070 . . . . . . . . . . . . . . . 16 (β—‘abs β€œ (0[,)𝑅)) βŠ† dom abs
228 absf 15281 . . . . . . . . . . . . . . . . 17 abs:β„‚βŸΆβ„
229228fdmi 6719 . . . . . . . . . . . . . . . 16 dom abs = β„‚
230227, 229sseqtri 4010 . . . . . . . . . . . . . . 15 (β—‘abs β€œ (0[,)𝑅)) βŠ† β„‚
23114, 230eqsstri 4008 . . . . . . . . . . . . . 14 𝑆 βŠ† β„‚
232231a1i 11 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑆 βŠ† β„‚)
233232sselda 3974 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ π‘Ž ∈ β„‚)
234233abscld 15380 . . . . . . . . . . 11 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (absβ€˜π‘Ž) ∈ ℝ)
235222rpred 13013 . . . . . . . . . . 11 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝑀 ∈ ℝ)
236 avglt2 12448 . . . . . . . . . . 11 (((absβ€˜π‘Ž) ∈ ℝ ∧ 𝑀 ∈ ℝ) β†’ ((absβ€˜π‘Ž) < 𝑀 ↔ (((absβ€˜π‘Ž) + 𝑀) / 2) < 𝑀))
237234, 235, 236syl2anc 583 . . . . . . . . . 10 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ ((absβ€˜π‘Ž) < 𝑀 ↔ (((absβ€˜π‘Ž) + 𝑀) / 2) < 𝑀))
238226, 237mpbid 231 . . . . . . . . 9 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (((absβ€˜π‘Ž) + 𝑀) / 2) < 𝑀)
239222rpge0d 13017 . . . . . . . . . . 11 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 0 ≀ 𝑀)
240235, 239absidd 15366 . . . . . . . . . 10 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (absβ€˜π‘€) = 𝑀)
241222rpcnd 13015 . . . . . . . . . . 11 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝑀 ∈ β„‚)
242 oveq1 7408 . . . . . . . . . . . . . . . . 17 (𝑀 = 𝑀 β†’ (𝑀↑𝑖) = (𝑀↑𝑖))
243242oveq2d 7417 . . . . . . . . . . . . . . . 16 (𝑀 = 𝑀 β†’ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖)) = (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖)))
244243mpteq2dv 5240 . . . . . . . . . . . . . . 15 (𝑀 = 𝑀 β†’ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖))) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖))))
245 oveq1 7408 . . . . . . . . . . . . . . . . . 18 (π‘Ž = 𝑀 β†’ (π‘Žβ†‘π‘–) = (𝑀↑𝑖))
246245oveq2d 7417 . . . . . . . . . . . . . . . . 17 (π‘Ž = 𝑀 β†’ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–)) = (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖)))
247246mpteq2dv 5240 . . . . . . . . . . . . . . . 16 (π‘Ž = 𝑀 β†’ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖))))
248247cbvmptv 5251 . . . . . . . . . . . . . . 15 (π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–)))) = (𝑀 ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖))))
249 nn0ex 12475 . . . . . . . . . . . . . . . 16 β„•0 ∈ V
250249mptex 7216 . . . . . . . . . . . . . . 15 (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖))) ∈ V
251244, 248, 250fvmpt 6988 . . . . . . . . . . . . . 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 6881 . . . . . . . . . . . . . . . . . 18 (𝑛 = 𝑖 β†’ (π΄β€˜π‘›) = (π΄β€˜π‘–))
255 oveq2 7409 . . . . . . . . . . . . . . . . . 18 (𝑛 = 𝑖 β†’ (π‘₯↑𝑛) = (π‘₯↑𝑖))
256254, 255oveq12d 7419 . . . . . . . . . . . . . . . . 17 (𝑛 = 𝑖 β†’ ((π΄β€˜π‘›) Β· (π‘₯↑𝑛)) = ((π΄β€˜π‘–) Β· (π‘₯↑𝑖)))
257256cbvmptv 5251 . . . . . . . . . . . . . . . 16 (𝑛 ∈ β„•0 ↦ ((π΄β€˜π‘›) Β· (π‘₯↑𝑛))) = (𝑖 ∈ β„•0 ↦ ((π΄β€˜π‘–) Β· (π‘₯↑𝑖)))
258 oveq1 7408 . . . . . . . . . . . . . . . . . 18 (π‘₯ = 𝑦 β†’ (π‘₯↑𝑖) = (𝑦↑𝑖))
259258oveq2d 7417 . . . . . . . . . . . . . . . . 17 (π‘₯ = 𝑦 β†’ ((π΄β€˜π‘–) Β· (π‘₯↑𝑖)) = ((π΄β€˜π‘–) Β· (𝑦↑𝑖)))
260259mpteq2dv 5240 . . . . . . . . . . . . . . . 16 (π‘₯ = 𝑦 β†’ (𝑖 ∈ β„•0 ↦ ((π΄β€˜π‘–) Β· (π‘₯↑𝑖))) = (𝑖 ∈ β„•0 ↦ ((π΄β€˜π‘–) Β· (𝑦↑𝑖))))
261257, 260eqtrid 2776 . . . . . . . . . . . . . . 15 (π‘₯ = 𝑦 β†’ (𝑛 ∈ β„•0 ↦ ((π΄β€˜π‘›) Β· (π‘₯↑𝑛))) = (𝑖 ∈ β„•0 ↦ ((π΄β€˜π‘–) Β· (𝑦↑𝑖))))
262261cbvmptv 5251 . . . . . . . . . . . . . 14 (π‘₯ ∈ β„‚ ↦ (𝑛 ∈ β„•0 ↦ ((π΄β€˜π‘›) Β· (π‘₯↑𝑛)))) = (𝑦 ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ ((π΄β€˜π‘–) Β· (𝑦↑𝑖))))
2636, 262eqtri 2752 . . . . . . . . . . . . 13 𝐺 = (𝑦 ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ ((π΄β€˜π‘–) Β· (𝑦↑𝑖))))
264 fveq2 6881 . . . . . . . . . . . . . . . . . 18 (π‘Ÿ = 𝑠 β†’ (πΊβ€˜π‘Ÿ) = (πΊβ€˜π‘ ))
265264seqeq3d 13971 . . . . . . . . . . . . . . . . 17 (π‘Ÿ = 𝑠 β†’ seq0( + , (πΊβ€˜π‘Ÿ)) = seq0( + , (πΊβ€˜π‘ )))
266265eleq1d 2810 . . . . . . . . . . . . . . . 16 (π‘Ÿ = 𝑠 β†’ (seq0( + , (πΊβ€˜π‘Ÿ)) ∈ dom ⇝ ↔ seq0( + , (πΊβ€˜π‘ )) ∈ dom ⇝ ))
267266cbvrabv 3434 . . . . . . . . . . . . . . 15 {π‘Ÿ ∈ ℝ ∣ seq0( + , (πΊβ€˜π‘Ÿ)) ∈ dom ⇝ } = {𝑠 ∈ ℝ ∣ seq0( + , (πΊβ€˜π‘ )) ∈ dom ⇝ }
268267supeq1i 9438 . . . . . . . . . . . . . 14 sup({π‘Ÿ ∈ ℝ ∣ seq0( + , (πΊβ€˜π‘Ÿ)) ∈ dom ⇝ }, ℝ*, < ) = sup({𝑠 ∈ ℝ ∣ seq0( + , (πΊβ€˜π‘ )) ∈ dom ⇝ }, ℝ*, < )
26913, 268eqtri 2752 . . . . . . . . . . . . 13 𝑅 = sup({𝑠 ∈ ℝ ∣ seq0( + , (πΊβ€˜π‘ )) ∈ dom ⇝ }, ℝ*, < )
270 eqid 2724 . . . . . . . . . . . . 13 (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖))) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖)))
2717adantr 480 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝐴:β„•0βŸΆβ„‚)
272221simp3d 1141 . . . . . . . . . . . . . 14 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ 𝑀 < 𝑅)
273240, 272eqbrtrd 5160 . . . . . . . . . . . . 13 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (absβ€˜π‘€) < 𝑅)
274263, 269, 270, 271, 241, 273dvradcnv 26274 . . . . . . . . . . . 12 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ seq0( + , (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑀↑𝑖)))) ∈ dom ⇝ )
275253, 274eqeltrd 2825 . . . . . . . . . . 11 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘€)) ∈ dom ⇝ )
276197, 207, 212, 241, 275radcnvle 26273 . . . . . . . . . 10 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (absβ€˜π‘€) ≀ sup({π‘Ÿ ∈ ℝ ∣ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘Ÿ)) ∈ dom ⇝ }, ℝ*, < ))
277240, 276eqbrtrrd 5162 . . . . . . . . 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 26275 . . . . . . 7 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)))(β‡π‘’β€˜π΅)(𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜)))
28021sselda 3974 . . . . . . . . . . . . 13 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) β†’ 𝑦 ∈ β„‚)
281 oveq1 7408 . . . . . . . . . . . . . . . 16 (π‘Ž = 𝑦 β†’ (π‘Žβ†‘π‘–) = (𝑦↑𝑖))
282281oveq2d 7417 . . . . . . . . . . . . . . 15 (π‘Ž = 𝑦 β†’ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–)) = (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖)))
283282mpteq2dv 5240 . . . . . . . . . . . . . 14 (π‘Ž = 𝑦 β†’ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖))))
284 eqid 2724 . . . . . . . . . . . . . 14 (π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–)))) = (π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))
285249mptex 7216 . . . . . . . . . . . . . 14 (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖))) ∈ V
286283, 284, 285fvmpt 6988 . . . . . . . . . . . . 13 (𝑦 ∈ β„‚ β†’ ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖))))
287280, 286syl 17 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) β†’ ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖))))
288287adantr 480 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ β„•0) β†’ ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖))))
289288fveq1d 6883 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ β„•0) β†’ (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜) = ((𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖)))β€˜π‘˜))
290 oveq1 7408 . . . . . . . . . . . . . 14 (𝑖 = π‘˜ β†’ (𝑖 + 1) = (π‘˜ + 1))
291 fvoveq1 7424 . . . . . . . . . . . . . 14 (𝑖 = π‘˜ β†’ (π΄β€˜(𝑖 + 1)) = (π΄β€˜(π‘˜ + 1)))
292290, 291oveq12d 7419 . . . . . . . . . . . . 13 (𝑖 = π‘˜ β†’ ((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) = ((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))))
293 oveq2 7409 . . . . . . . . . . . . 13 (𝑖 = π‘˜ β†’ (𝑦↑𝑖) = (π‘¦β†‘π‘˜))
294292, 293oveq12d 7419 . . . . . . . . . . . 12 (𝑖 = π‘˜ β†’ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖)) = (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)))
295 eqid 2724 . . . . . . . . . . . 12 (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖))) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖)))
296 ovex 7434 . . . . . . . . . . . 12 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)) ∈ V
297294, 295, 296fvmpt 6988 . . . . . . . . . . 11 (π‘˜ ∈ β„•0 β†’ ((𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖)))β€˜π‘˜) = (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)))
298297adantl 481 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ β„•0) β†’ ((𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖)))β€˜π‘˜) = (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)))
299289, 298eqtrd 2764 . . . . . . . . 9 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ β„•0) β†’ (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜) = (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)))
300299sumeq2dv 15646 . . . . . . . 8 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) β†’ Ξ£π‘˜ ∈ β„•0 (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜) = Ξ£π‘˜ ∈ β„•0 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)))
301300mpteq2dva 5238 . . . . . . 7 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜)) = (𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜))))
302279, 301breqtrd 5164 . . . . . 6 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)))(β‡π‘’β€˜π΅)(𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜))))
303 nnuz 12862 . . . . . . . 8 β„• = (β„€β‰₯β€˜1)
304 1e0p1 12716 . . . . . . . . 9 1 = (0 + 1)
305304fveq2i 6884 . . . . . . . 8 (β„€β‰₯β€˜1) = (β„€β‰₯β€˜(0 + 1))
306303, 305eqtri 2752 . . . . . . 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 481 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ β„•0) β†’ (𝑖 + 1) ∈ β„‚)
3127ad2antrr 723 . . . . . . . . . . . . . . . . . 18 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) β†’ 𝐴:β„•0βŸΆβ„‚)
313 ffvelcdm 7073 . . . . . . . . . . . . . . . . . 18 ((𝐴:β„•0βŸΆβ„‚ ∧ (𝑖 + 1) ∈ β„•0) β†’ (π΄β€˜(𝑖 + 1)) ∈ β„‚)
314312, 309, 313syl2an 595 . . . . . . . . . . . . . . . . 17 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ β„•0) β†’ (π΄β€˜(𝑖 + 1)) ∈ β„‚)
315311, 314mulcld 11231 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ β„•0) β†’ ((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) ∈ β„‚)
316280, 148sylan 579 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ β„•0) β†’ (𝑦↑𝑖) ∈ β„‚)
317315, 316mulcld 11231 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ β„•0) β†’ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖)) ∈ β„‚)
318287, 317fmpt3d 7107 . . . . . . . . . . . . . 14 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) β†’ ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦):β„•0βŸΆβ„‚)
319318ffvelcdmda 7076 . . . . . . . . . . . . 13 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ π‘š ∈ β„•0) β†’ (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘š) ∈ β„‚)
3201, 308, 319serf 13993 . . . . . . . . . . . 12 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) β†’ seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)):β„•0βŸΆβ„‚)
321320ffvelcdmda 7076 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑦 ∈ 𝐡) ∧ 𝑗 ∈ β„•0) β†’ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—) ∈ β„‚)
322321an32s 649 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑗 ∈ β„•0) ∧ 𝑦 ∈ 𝐡) β†’ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—) ∈ β„‚)
323322fmpttd 7106 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑗 ∈ β„•0) β†’ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)):π΅βŸΆβ„‚)
32430, 31elmap 8861 . . . . . . . . 9 ((𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)) ∈ (β„‚ ↑m 𝐡) ↔ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)):π΅βŸΆβ„‚)
325323, 324sylibr 233 . . . . . . . 8 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ 𝑗 ∈ β„•0) β†’ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)) ∈ (β„‚ ↑m 𝐡))
326325fmpttd 7106 . . . . . . 7 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—))):β„•0⟢(β„‚ ↑m 𝐡))
327 elfznn 13527 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ (1...π‘š) β†’ 𝑖 ∈ β„•)
328327nnne0d 12259 . . . . . . . . . . . . . . . 16 (𝑖 ∈ (1...π‘š) β†’ 𝑖 β‰  0)
329328neneqd 2937 . . . . . . . . . . . . . . 15 (𝑖 ∈ (1...π‘š) β†’ Β¬ 𝑖 = 0)
330329iffalsed 4531 . . . . . . . . . . . . . 14 (𝑖 ∈ (1...π‘š) β†’ if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))) = (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))
331330oveq2d 7417 . . . . . . . . . . . . 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 724 . . . . . . . . . . . . 13 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ π‘š ∈ β„€)
336271ad2antrr 723 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ 𝐴:β„•0βŸΆβ„‚)
337327nnnn0d 12529 . . . . . . . . . . . . . . 15 (𝑖 ∈ (1...π‘š) β†’ 𝑖 ∈ β„•0)
338336, 337, 142syl2an 595 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (1...π‘š)) β†’ (π΄β€˜π‘–) ∈ β„‚)
339327adantl 481 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (1...π‘š)) β†’ 𝑖 ∈ β„•)
340339nncnd 12225 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (1...π‘š)) β†’ 𝑖 ∈ β„‚)
341280adantlr 712 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ 𝑦 ∈ β„‚)
342 nnm1nn0 12510 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ β„• β†’ (𝑖 βˆ’ 1) ∈ β„•0)
343327, 342syl 17 . . . . . . . . . . . . . . . 16 (𝑖 ∈ (1...π‘š) β†’ (𝑖 βˆ’ 1) ∈ β„•0)
344 expcl 14042 . . . . . . . . . . . . . . . 16 ((𝑦 ∈ β„‚ ∧ (𝑖 βˆ’ 1) ∈ β„•0) β†’ (𝑦↑(𝑖 βˆ’ 1)) ∈ β„‚)
345341, 343, 344syl2an 595 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (1...π‘š)) β†’ (𝑦↑(𝑖 βˆ’ 1)) ∈ β„‚)
346340, 345mulcld 11231 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (1...π‘š)) β†’ (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))) ∈ β„‚)
347338, 346mulcld 11231 . . . . . . . . . . . . 13 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (1...π‘š)) β†’ ((π΄β€˜π‘–) Β· (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))) ∈ β„‚)
348 fveq2 6881 . . . . . . . . . . . . . 14 (𝑖 = (π‘˜ + 1) β†’ (π΄β€˜π‘–) = (π΄β€˜(π‘˜ + 1)))
349 id 22 . . . . . . . . . . . . . . 15 (𝑖 = (π‘˜ + 1) β†’ 𝑖 = (π‘˜ + 1))
350 oveq1 7408 . . . . . . . . . . . . . . . 16 (𝑖 = (π‘˜ + 1) β†’ (𝑖 βˆ’ 1) = ((π‘˜ + 1) βˆ’ 1))
351350oveq2d 7417 . . . . . . . . . . . . . . 15 (𝑖 = (π‘˜ + 1) β†’ (𝑦↑(𝑖 βˆ’ 1)) = (𝑦↑((π‘˜ + 1) βˆ’ 1)))
352349, 351oveq12d 7419 . . . . . . . . . . . . . 14 (𝑖 = (π‘˜ + 1) β†’ (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))) = ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1))))
353348, 352oveq12d 7419 . . . . . . . . . . . . 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 2776 . . . . . . . . . . 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 481 . . . . . . . . . . . . 13 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (1...π‘š)) β†’ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) = ((π΄β€˜π‘–) Β· (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))
359358, 347eqeltrd 2825 . . . . . . . . . . . 12 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (1...π‘š)) β†’ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) ∈ β„‚)
360 eldif 3950 . . . . . . . . . . . . . . . . . 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 861 . . . . . . . . . . . . . . . . . . . 20 (𝑖 ∈ (0...π‘š) β†’ (Β¬ 𝑖 = 0 β†’ 𝑖 ∈ ((0 + 1)...π‘š)))
366365con1d 145 . . . . . . . . . . . . . . . . . . 19 (𝑖 ∈ (0...π‘š) β†’ (Β¬ 𝑖 ∈ ((0 + 1)...π‘š) β†’ 𝑖 = 0))
367366imp 406 . . . . . . . . . . . . . . . . . 18 ((𝑖 ∈ (0...π‘š) ∧ Β¬ 𝑖 ∈ ((0 + 1)...π‘š)) β†’ 𝑖 = 0)
368360, 367sylbi 216 . . . . . . . . . . . . . . . . 17 (𝑖 ∈ ((0...π‘š) βˆ– ((0 + 1)...π‘š)) β†’ 𝑖 = 0)
369304oveq1i 7411 . . . . . . . . . . . . . . . . . 18 (1...π‘š) = ((0 + 1)...π‘š)
370369difeq2i 4111 . . . . . . . . . . . . . . . . 17 ((0...π‘š) βˆ– (1...π‘š)) = ((0...π‘š) βˆ– ((0 + 1)...π‘š))
371368, 370eleq2s 2843 . . . . . . . . . . . . . . . 16 (𝑖 ∈ ((0...π‘š) βˆ– (1...π‘š)) β†’ 𝑖 = 0)
372371adantl 481 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ ((0...π‘š) βˆ– (1...π‘š))) β†’ 𝑖 = 0)
373372iftrued 4528 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ ((0...π‘š) βˆ– (1...π‘š))) β†’ if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))) = 0)
374373oveq2d 7417 . . . . . . . . . . . . 13 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ ((0...π‘š) βˆ– (1...π‘š))) β†’ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) = ((π΄β€˜π‘–) Β· 0))
375 eldifi 4118 . . . . . . . . . . . . . . . 16 (𝑖 ∈ ((0...π‘š) βˆ– (1...π‘š)) β†’ 𝑖 ∈ (0...π‘š))
376375, 104syl 17 . . . . . . . . . . . . . . 15 (𝑖 ∈ ((0...π‘š) βˆ– (1...π‘š)) β†’ 𝑖 ∈ β„•0)
377336, 376, 142syl2an 595 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ ((0...π‘š) βˆ– (1...π‘š))) β†’ (π΄β€˜π‘–) ∈ β„‚)
378377mul01d 11410 . . . . . . . . . . . . 13 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ ((0...π‘š) βˆ– (1...π‘š))) β†’ ((π΄β€˜π‘–) Β· 0) = 0)
379374, 378eqtrd 2764 . . . . . . . . . . . 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 7411 . . . . . . . . . . . . 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 481 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ π‘˜ ∈ β„•0)
387386, 297syl 17 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ ((𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖)))β€˜π‘˜) = (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)))
388341adantr 480 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ 𝑦 ∈ β„‚)
389388, 286syl 17 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦) = (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖))))
390389fveq1d 6883 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜) = ((𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (𝑦↑𝑖)))β€˜π‘˜))
391336adantr 480 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ 𝐴:β„•0βŸΆβ„‚)
392 peano2nn0 12509 . . . . . . . . . . . . . . . . . 18 (π‘˜ ∈ β„•0 β†’ (π‘˜ + 1) ∈ β„•0)
393386, 392syl 17 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ (π‘˜ + 1) ∈ β„•0)
394391, 393ffvelcdmd 7077 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ (π΄β€˜(π‘˜ + 1)) ∈ β„‚)
395393nn0cnd 12531 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ (π‘˜ + 1) ∈ β„‚)
396 expcl 14042 . . . . . . . . . . . . . . . . 17 ((𝑦 ∈ β„‚ ∧ π‘˜ ∈ β„•0) β†’ (π‘¦β†‘π‘˜) ∈ β„‚)
397341, 385, 396syl2an 595 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ (π‘¦β†‘π‘˜) ∈ β„‚)
398394, 395, 397mul12d 11420 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ ((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (π‘¦β†‘π‘˜))) = ((π‘˜ + 1) Β· ((π΄β€˜(π‘˜ + 1)) Β· (π‘¦β†‘π‘˜))))
399386nn0cnd 12531 . . . . . . . . . . . . . . . . . . 19 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ π‘˜ ∈ β„‚)
400 ax-1cn 11164 . . . . . . . . . . . . . . . . . . 19 1 ∈ β„‚
401 pncan 11463 . . . . . . . . . . . . . . . . . . 19 ((π‘˜ ∈ β„‚ ∧ 1 ∈ β„‚) β†’ ((π‘˜ + 1) βˆ’ 1) = π‘˜)
402399, 400, 401sylancl 585 . . . . . . . . . . . . . . . . . 18 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ ((π‘˜ + 1) βˆ’ 1) = π‘˜)
403402oveq2d 7417 . . . . . . . . . . . . . . . . 17 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ (𝑦↑((π‘˜ + 1) βˆ’ 1)) = (π‘¦β†‘π‘˜))
404403oveq2d 7417 . . . . . . . . . . . . . . . 16 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1))) = ((π‘˜ + 1) Β· (π‘¦β†‘π‘˜)))
405404oveq2d 7417 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ ((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1)))) = ((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (π‘¦β†‘π‘˜))))
406395, 394, 397mulassd 11234 . . . . . . . . . . . . . . 15 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)) = ((π‘˜ + 1) Β· ((π΄β€˜(π‘˜ + 1)) Β· (π‘¦β†‘π‘˜))))
407398, 405, 4063eqtr4d 2774 . . . . . . . . . . . . . 14 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ ((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1)))) = (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜)))
408387, 390, 4073eqtr4d 2774 . . . . . . . . . . . . 13 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) ∧ π‘˜ ∈ (0...(π‘š βˆ’ 1))) β†’ (((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦)β€˜π‘˜) = ((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1)))))
409 nnm1nn0 12510 . . . . . . . . . . . . . . . 16 (π‘š ∈ β„• β†’ (π‘š βˆ’ 1) ∈ β„•0)
410409adantl 481 . . . . . . . . . . . . . . 15 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) β†’ (π‘š βˆ’ 1) ∈ β„•0)
411410adantr 480 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ (π‘š βˆ’ 1) ∈ β„•0)
412411, 1eleqtrdi 2835 . . . . . . . . . . . . 13 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ (π‘š βˆ’ 1) ∈ (β„€β‰₯β€˜0))
413403, 397eqeltrd 2825 . . . . . . . . . . . . . . 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 2776 . . . . . . . . . . 11 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ Ξ£π‘˜ ∈ ((1 βˆ’ 1)...(π‘š βˆ’ 1))((π΄β€˜(π‘˜ + 1)) Β· ((π‘˜ + 1) Β· (𝑦↑((π‘˜ + 1) βˆ’ 1)))) = (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜(π‘š βˆ’ 1)))
418355, 381, 4173eqtr3d 2772 . . . . . . . . . 10 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) ∧ 𝑦 ∈ 𝐡) β†’ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) = (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜(π‘š βˆ’ 1)))
419418mpteq2dva 5238 . . . . . . . . 9 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) β†’ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))) = (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜(π‘š βˆ’ 1))))
420 fveq2 6881 . . . . . . . . . . . 12 (𝑗 = (π‘š βˆ’ 1) β†’ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—) = (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜(π‘š βˆ’ 1)))
421420mpteq2dv 5240 . . . . . . . . . . 11 (𝑗 = (π‘š βˆ’ 1) β†’ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)) = (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜(π‘š βˆ’ 1))))
422 eqid 2724 . . . . . . . . . . 11 (𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—))) = (𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)))
42331mptex 7216 . . . . . . . . . . 11 (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜(π‘š βˆ’ 1))) ∈ V
424421, 422, 423fvmpt 6988 . . . . . . . . . 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 2767 . . . . . . . 8 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•) β†’ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))) = ((𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)))β€˜(π‘š βˆ’ 1)))
427426mpteq2dva 5238 . . . . . . 7 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (π‘š ∈ β„• ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))))) = (π‘š ∈ β„• ↦ ((𝑗 ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ (seq0( + , ((π‘Ž ∈ β„‚ ↦ (𝑖 ∈ β„•0 ↦ (((𝑖 + 1) Β· (π΄β€˜(𝑖 + 1))) Β· (π‘Žβ†‘π‘–))))β€˜π‘¦))β€˜π‘—)))β€˜(π‘š βˆ’ 1))))
4281, 306, 4, 307, 326, 427ulmshft 26243 . . . . . 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 5173 . . . 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 649 . . . . . . . . 9 (((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑦 ∈ 𝐡) ∧ 𝑖 ∈ (0...π‘š)) β†’ ((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) ∈ β„‚)
435433, 434fsumcl 15676 . . . . . . . 8 ((((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) ∧ 𝑦 ∈ 𝐡) β†’ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))) ∈ β„‚)
436435fmpttd 7106 . . . . . . 7 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))):π΅βŸΆβ„‚)
43730, 31elmap 8861 . . . . . . 7 ((𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))) ∈ (β„‚ ↑m 𝐡) ↔ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))):π΅βŸΆβ„‚)
438436, 437sylibr 233 . . . . . 6 (((πœ‘ ∧ π‘Ž ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1)))))) ∈ (β„‚ ↑m 𝐡))
439438fmpttd 7106 . . . . 5 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (π‘š ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘š)((π΄β€˜π‘–) Β· if(𝑖 = 0, 0, (𝑖 Β· (𝑦↑(𝑖 βˆ’ 1))))))):β„•0⟢(β„‚ ↑m 𝐡))
4401, 303, 432, 439ulmres 26241 . . . 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 5160 . 2 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (π‘š ∈ β„•0 ↦ (β„‚ D ((π‘˜ ∈ β„•0 ↦ (𝑦 ∈ 𝐡 ↦ Σ𝑖 ∈ (0...π‘˜)((πΊβ€˜π‘¦)β€˜π‘–)))β€˜π‘š)))(β‡π‘’β€˜π΅)(𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜))))
4431, 3, 4, 34, 44, 120, 442ulmdv 26256 1 ((πœ‘ ∧ π‘Ž ∈ 𝑆) β†’ (β„‚ D (𝐹 β†Ύ 𝐡)) = (𝑦 ∈ 𝐡 ↦ Ξ£π‘˜ ∈ β„•0 (((π‘˜ + 1) Β· (π΄β€˜(π‘˜ + 1))) Β· (π‘¦β†‘π‘˜))))
Colors of variables: wff setvar class
Syntax hints:  Β¬ wn 3   β†’ wi 4   ↔ wb 205   ∧ wa 395   ∨ wo 844   ∧ w3a 1084   = wceq 1533   ∈ wcel 2098  {crab 3424  Vcvv 3466   βˆ– cdif 3937   βŠ† wss 3940  ifcif 4520  {cpr 4622   class class class wbr 5138   ↦ cmpt 5221  β—‘ccnv 5665  dom cdm 5666   β†Ύ cres 5668   β€œ cima 5669   ∘ ccom 5670   Fn wfn 6528  βŸΆwf 6529  β€˜cfv 6533  (class class class)co 7401   ↑m cmap 8816  supcsup 9431  β„‚cc 11104  β„cr 11105  0cc0 11106  1c1 11107   + caddc 11109   Β· cmul 11111  +∞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 17366  βˆžMetcxmet 21213  ballcbl 21215  β„‚fldccnfld 21228  β€“cnβ†’ccncf 24718   D cdv 25714  β‡π‘’culm 26229
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 2695  ax-rep 5275  ax-sep 5289  ax-nul 5296  ax-pow 5353  ax-pr 5417  ax-un 7718  ax-inf2 9632  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184  ax-addf 11185
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 2526  df-eu 2555  df-clab 2702  df-cleq 2716  df-clel 2802  df-nfc 2877  df-ne 2933  df-nel 3039  df-ral 3054  df-rex 3063  df-rmo 3368  df-reu 3369  df-rab 3425  df-v 3468  df-sbc 3770  df-csb 3886  df-dif 3943  df-un 3945  df-in 3947  df-ss 3957  df-pss 3959  df-nul 4315  df-if 4521  df-pw 4596  df-sn 4621  df-pr 4623  df-tp 4625  df-op 4627  df-uni 4900  df-int 4941  df-iun 4989  df-iin 4990  df-br 5139  df-opab 5201  df-mpt 5222  df-tr 5256  df-id 5564  df-eprel 5570  df-po 5578  df-so 5579  df-fr 5621  df-se 5622  df-we 5623  df-xp 5672  df-rel 5673  df-cnv 5674  df-co 5675  df-dm 5676  df-rn 5677  df-res 5678  df-ima 5679  df-pred 6290  df-ord 6357  df-on 6358  df-lim 6359  df-suc 6360  df-iota 6485  df-fun 6535  df-fn 6536  df-f 6537  df-f1 6538  df-fo 6539  df-f1o 6540  df-fv 6541  df-isom 6542  df-riota 7357  df-ov 7404  df-oprab 7405  df-mpo 7406  df-of 7663  df-om 7849  df-1st 7968  df-2nd 7969  df-supp 8141  df-frecs 8261  df-wrecs 8292  df-recs 8366  df-rdg 8405  df-1o 8461  df-2o 8462  df-er 8699  df-map 8818  df-pm 8819  df-ixp 8888  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-fsupp 9358  df-fi 9402  df-sup 9433  df-inf 9434  df-oi 9501  df-card 9930  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 17079  df-sets 17096  df-slot 17114  df-ndx 17126  df-base 17144  df-ress 17173  df-plusg 17209  df-mulr 17210  df-starv 17211  df-sca 17212  df-vsca 17213  df-ip 17214  df-tset 17215  df-ple 17216  df-ds 17218  df-unif 17219  df-hom 17220  df-cco 17221  df-rest 17367  df-topn 17368  df-0g 17386  df-gsum 17387  df-topgen 17388  df-pt 17389  df-prds 17392  df-xrs 17447  df-qtop 17452  df-imas 17453  df-xps 17455  df-mre 17529  df-mrc 17530  df-acs 17532  df-mgm 18563  df-sgrp 18642  df-mnd 18658  df-submnd 18704  df-mulg 18986  df-cntz 19223  df-cmn 19692  df-psmet 21220  df-xmet 21221  df-met 21222  df-bl 21223  df-mopn 21224  df-fbas 21225  df-fg 21226  df-cnfld 21229  df-top 22718  df-topon 22735  df-topsp 22757  df-bases 22771  df-cld 22845  df-ntr 22846  df-cls 22847  df-nei 22924  df-lp 22962  df-perf 22963  df-cn 23053  df-cnp 23054  df-haus 23141  df-cmp 23213  df-tx 23388  df-hmeo 23581  df-fil 23672  df-fm 23764  df-flim 23765  df-flf 23766  df-xms 24148  df-ms 24149  df-tms 24150  df-cncf 24720  df-limc 25717  df-dv 25718  df-ulm 26230
This theorem is referenced by:  pserdv  26283
  Copyright terms: Public domain W3C validator