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

Theorem pserulm 25925
Description: If 𝑆 is a region contained in a circle of radius 𝑀 < 𝑅, then the sequence of partial sums of the infinite series converges uniformly on 𝑆. (Contributed by Mario Carneiro, 26-Feb-2015.)
Hypotheses
Ref Expression
pserf.g 𝐺 = (π‘₯ ∈ β„‚ ↦ (𝑛 ∈ β„•0 ↦ ((π΄β€˜π‘›) Β· (π‘₯↑𝑛))))
pserf.f 𝐹 = (𝑦 ∈ 𝑆 ↦ Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘¦)β€˜π‘—))
pserf.a (πœ‘ β†’ 𝐴:β„•0βŸΆβ„‚)
pserf.r 𝑅 = sup({π‘Ÿ ∈ ℝ ∣ seq0( + , (πΊβ€˜π‘Ÿ)) ∈ dom ⇝ }, ℝ*, < )
pserulm.h 𝐻 = (𝑖 ∈ β„•0 ↦ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)))
pserulm.m (πœ‘ β†’ 𝑀 ∈ ℝ)
pserulm.l (πœ‘ β†’ 𝑀 < 𝑅)
pserulm.y (πœ‘ β†’ 𝑆 βŠ† (β—‘abs β€œ (0[,]𝑀)))
Assertion
Ref Expression
pserulm (πœ‘ β†’ 𝐻(β‡π‘’β€˜π‘†)𝐹)
Distinct variable groups:   𝑗,𝑛,π‘Ÿ,π‘₯,𝑦,𝐴   𝑖,𝑗,𝑦,𝐻   𝑖,𝑀,𝑗,𝑦   π‘₯,𝑖,π‘Ÿ   𝑖,𝐺,𝑗,π‘Ÿ,𝑦   𝑆,𝑖,𝑗,𝑦   πœ‘,𝑖,𝑗,𝑦
Allowed substitution hints:   πœ‘(π‘₯,𝑛,π‘Ÿ)   𝐴(𝑖)   𝑅(π‘₯,𝑦,𝑖,𝑗,𝑛,π‘Ÿ)   𝑆(π‘₯,𝑛,π‘Ÿ)   𝐹(π‘₯,𝑦,𝑖,𝑗,𝑛,π‘Ÿ)   𝐺(π‘₯,𝑛)   𝐻(π‘₯,𝑛,π‘Ÿ)   𝑀(π‘₯,𝑛,π‘Ÿ)

Proof of Theorem pserulm
Dummy variables π‘˜ π‘š 𝑀 𝑧 𝑓 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 pserulm.y . . . . . 6 (πœ‘ β†’ 𝑆 βŠ† (β—‘abs β€œ (0[,]𝑀)))
21adantr 481 . . . . 5 ((πœ‘ ∧ 𝑀 < 0) β†’ 𝑆 βŠ† (β—‘abs β€œ (0[,]𝑀)))
3 0xr 11257 . . . . . . . . 9 0 ∈ ℝ*
4 pserulm.m . . . . . . . . . 10 (πœ‘ β†’ 𝑀 ∈ ℝ)
54rexrd 11260 . . . . . . . . 9 (πœ‘ β†’ 𝑀 ∈ ℝ*)
6 icc0 13368 . . . . . . . . 9 ((0 ∈ ℝ* ∧ 𝑀 ∈ ℝ*) β†’ ((0[,]𝑀) = βˆ… ↔ 𝑀 < 0))
73, 5, 6sylancr 587 . . . . . . . 8 (πœ‘ β†’ ((0[,]𝑀) = βˆ… ↔ 𝑀 < 0))
87biimpar 478 . . . . . . 7 ((πœ‘ ∧ 𝑀 < 0) β†’ (0[,]𝑀) = βˆ…)
98imaeq2d 6057 . . . . . 6 ((πœ‘ ∧ 𝑀 < 0) β†’ (β—‘abs β€œ (0[,]𝑀)) = (β—‘abs β€œ βˆ…))
10 ima0 6073 . . . . . 6 (β—‘abs β€œ βˆ…) = βˆ…
119, 10eqtrdi 2788 . . . . 5 ((πœ‘ ∧ 𝑀 < 0) β†’ (β—‘abs β€œ (0[,]𝑀)) = βˆ…)
122, 11sseqtrd 4021 . . . 4 ((πœ‘ ∧ 𝑀 < 0) β†’ 𝑆 βŠ† βˆ…)
13 ss0 4397 . . . 4 (𝑆 βŠ† βˆ… β†’ 𝑆 = βˆ…)
1412, 13syl 17 . . 3 ((πœ‘ ∧ 𝑀 < 0) β†’ 𝑆 = βˆ…)
15 nn0uz 12860 . . . 4 β„•0 = (β„€β‰₯β€˜0)
16 0zd 12566 . . . 4 (πœ‘ β†’ 0 ∈ β„€)
17 0zd 12566 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ 0 ∈ β„€)
18 pserf.g . . . . . . . . . . . 12 𝐺 = (π‘₯ ∈ β„‚ ↦ (𝑛 ∈ β„•0 ↦ ((π΄β€˜π‘›) Β· (π‘₯↑𝑛))))
19 pserf.a . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐴:β„•0βŸΆβ„‚)
2019adantr 481 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ 𝐴:β„•0βŸΆβ„‚)
21 cnvimass 6077 . . . . . . . . . . . . . . 15 (β—‘abs β€œ (0[,]𝑀)) βŠ† dom abs
22 absf 15280 . . . . . . . . . . . . . . . 16 abs:β„‚βŸΆβ„
2322fdmi 6726 . . . . . . . . . . . . . . 15 dom abs = β„‚
2421, 23sseqtri 4017 . . . . . . . . . . . . . 14 (β—‘abs β€œ (0[,]𝑀)) βŠ† β„‚
251, 24sstrdi 3993 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑆 βŠ† β„‚)
2625sselda 3981 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ 𝑦 ∈ β„‚)
2718, 20, 26psergf 25915 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ (πΊβ€˜π‘¦):β„•0βŸΆβ„‚)
2827ffvelcdmda 7083 . . . . . . . . . 10 (((πœ‘ ∧ 𝑦 ∈ 𝑆) ∧ 𝑗 ∈ β„•0) β†’ ((πΊβ€˜π‘¦)β€˜π‘—) ∈ β„‚)
2915, 17, 28serf 13992 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ seq0( + , (πΊβ€˜π‘¦)):β„•0βŸΆβ„‚)
3029ffvelcdmda 7083 . . . . . . . 8 (((πœ‘ ∧ 𝑦 ∈ 𝑆) ∧ 𝑖 ∈ β„•0) β†’ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–) ∈ β„‚)
3130an32s 650 . . . . . . 7 (((πœ‘ ∧ 𝑖 ∈ β„•0) ∧ 𝑦 ∈ 𝑆) β†’ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–) ∈ β„‚)
3231fmpttd 7111 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ β„•0) β†’ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)):π‘†βŸΆβ„‚)
33 cnex 11187 . . . . . . 7 β„‚ ∈ V
34 ssexg 5322 . . . . . . . . 9 ((𝑆 βŠ† β„‚ ∧ β„‚ ∈ V) β†’ 𝑆 ∈ V)
3525, 33, 34sylancl 586 . . . . . . . 8 (πœ‘ β†’ 𝑆 ∈ V)
3635adantr 481 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ β„•0) β†’ 𝑆 ∈ V)
37 elmapg 8829 . . . . . . 7 ((β„‚ ∈ V ∧ 𝑆 ∈ V) β†’ ((𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)) ∈ (β„‚ ↑m 𝑆) ↔ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)):π‘†βŸΆβ„‚))
3833, 36, 37sylancr 587 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ β„•0) β†’ ((𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)) ∈ (β„‚ ↑m 𝑆) ↔ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)):π‘†βŸΆβ„‚))
3932, 38mpbird 256 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ β„•0) β†’ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)) ∈ (β„‚ ↑m 𝑆))
40 pserulm.h . . . . 5 𝐻 = (𝑖 ∈ β„•0 ↦ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)))
4139, 40fmptd 7110 . . . 4 (πœ‘ β†’ 𝐻:β„•0⟢(β„‚ ↑m 𝑆))
42 eqidd 2733 . . . . . 6 (((πœ‘ ∧ 𝑦 ∈ 𝑆) ∧ 𝑗 ∈ β„•0) β†’ ((πΊβ€˜π‘¦)β€˜π‘—) = ((πΊβ€˜π‘¦)β€˜π‘—))
43 pserf.r . . . . . . 7 𝑅 = sup({π‘Ÿ ∈ ℝ ∣ seq0( + , (πΊβ€˜π‘Ÿ)) ∈ dom ⇝ }, ℝ*, < )
441sselda 3981 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ 𝑦 ∈ (β—‘abs β€œ (0[,]𝑀)))
45 ffn 6714 . . . . . . . . . . . . . 14 (abs:β„‚βŸΆβ„ β†’ abs Fn β„‚)
46 elpreima 7056 . . . . . . . . . . . . . 14 (abs Fn β„‚ β†’ (𝑦 ∈ (β—‘abs β€œ (0[,]𝑀)) ↔ (𝑦 ∈ β„‚ ∧ (absβ€˜π‘¦) ∈ (0[,]𝑀))))
4722, 45, 46mp2b 10 . . . . . . . . . . . . 13 (𝑦 ∈ (β—‘abs β€œ (0[,]𝑀)) ↔ (𝑦 ∈ β„‚ ∧ (absβ€˜π‘¦) ∈ (0[,]𝑀)))
4844, 47sylib 217 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ (𝑦 ∈ β„‚ ∧ (absβ€˜π‘¦) ∈ (0[,]𝑀)))
4948simprd 496 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ (absβ€˜π‘¦) ∈ (0[,]𝑀))
50 0re 11212 . . . . . . . . . . . 12 0 ∈ ℝ
514adantr 481 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ 𝑀 ∈ ℝ)
52 elicc2 13385 . . . . . . . . . . . 12 ((0 ∈ ℝ ∧ 𝑀 ∈ ℝ) β†’ ((absβ€˜π‘¦) ∈ (0[,]𝑀) ↔ ((absβ€˜π‘¦) ∈ ℝ ∧ 0 ≀ (absβ€˜π‘¦) ∧ (absβ€˜π‘¦) ≀ 𝑀)))
5350, 51, 52sylancr 587 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ ((absβ€˜π‘¦) ∈ (0[,]𝑀) ↔ ((absβ€˜π‘¦) ∈ ℝ ∧ 0 ≀ (absβ€˜π‘¦) ∧ (absβ€˜π‘¦) ≀ 𝑀)))
5449, 53mpbid 231 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ ((absβ€˜π‘¦) ∈ ℝ ∧ 0 ≀ (absβ€˜π‘¦) ∧ (absβ€˜π‘¦) ≀ 𝑀))
5554simp1d 1142 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ (absβ€˜π‘¦) ∈ ℝ)
5655rexrd 11260 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ (absβ€˜π‘¦) ∈ ℝ*)
575adantr 481 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ 𝑀 ∈ ℝ*)
58 iccssxr 13403 . . . . . . . . . 10 (0[,]+∞) βŠ† ℝ*
5918, 19, 43radcnvcl 25920 . . . . . . . . . 10 (πœ‘ β†’ 𝑅 ∈ (0[,]+∞))
6058, 59sselid 3979 . . . . . . . . 9 (πœ‘ β†’ 𝑅 ∈ ℝ*)
6160adantr 481 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ 𝑅 ∈ ℝ*)
6254simp3d 1144 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ (absβ€˜π‘¦) ≀ 𝑀)
63 pserulm.l . . . . . . . . 9 (πœ‘ β†’ 𝑀 < 𝑅)
6463adantr 481 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ 𝑀 < 𝑅)
6556, 57, 61, 62, 64xrlelttrd 13135 . . . . . . 7 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ (absβ€˜π‘¦) < 𝑅)
6618, 20, 43, 26, 65radcnvlt2 25922 . . . . . 6 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ seq0( + , (πΊβ€˜π‘¦)) ∈ dom ⇝ )
6715, 17, 42, 28, 66isumcl 15703 . . . . 5 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘¦)β€˜π‘—) ∈ β„‚)
68 pserf.f . . . . 5 𝐹 = (𝑦 ∈ 𝑆 ↦ Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘¦)β€˜π‘—))
6967, 68fmptd 7110 . . . 4 (πœ‘ β†’ 𝐹:π‘†βŸΆβ„‚)
7015, 16, 41, 69ulm0 25894 . . 3 ((πœ‘ ∧ 𝑆 = βˆ…) β†’ 𝐻(β‡π‘’β€˜π‘†)𝐹)
7114, 70syldan 591 . 2 ((πœ‘ ∧ 𝑀 < 0) β†’ 𝐻(β‡π‘’β€˜π‘†)𝐹)
72 simpr 485 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ β„•0) β†’ 𝑖 ∈ β„•0)
7372, 15eleqtrdi 2843 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ β„•0) β†’ 𝑖 ∈ (β„€β‰₯β€˜0))
74 eqid 2732 . . . . . . . . . 10 (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š))) = (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))
75 fveq2 6888 . . . . . . . . . . . . 13 (𝑀 = 𝑦 β†’ (πΊβ€˜π‘€) = (πΊβ€˜π‘¦))
7675fveq1d 6890 . . . . . . . . . . . 12 (𝑀 = 𝑦 β†’ ((πΊβ€˜π‘€)β€˜π‘š) = ((πΊβ€˜π‘¦)β€˜π‘š))
7776cbvmptv 5260 . . . . . . . . . . 11 (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)) = (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘š))
78 fveq2 6888 . . . . . . . . . . . 12 (π‘š = π‘˜ β†’ ((πΊβ€˜π‘¦)β€˜π‘š) = ((πΊβ€˜π‘¦)β€˜π‘˜))
7978mpteq2dv 5249 . . . . . . . . . . 11 (π‘š = π‘˜ β†’ (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘š)) = (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜)))
8077, 79eqtrid 2784 . . . . . . . . . 10 (π‘š = π‘˜ β†’ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)) = (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜)))
81 elfznn0 13590 . . . . . . . . . . 11 (π‘˜ ∈ (0...𝑖) β†’ π‘˜ ∈ β„•0)
8281adantl 482 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ β„•0) ∧ π‘˜ ∈ (0...𝑖)) β†’ π‘˜ ∈ β„•0)
8335ad2antrr 724 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ β„•0) ∧ π‘˜ ∈ (0...𝑖)) β†’ 𝑆 ∈ V)
8483mptexd 7222 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ β„•0) ∧ π‘˜ ∈ (0...𝑖)) β†’ (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜)) ∈ V)
8574, 80, 82, 84fvmptd3 7018 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ β„•0) ∧ π‘˜ ∈ (0...𝑖)) β†’ ((π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))β€˜π‘˜) = (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜)))
8636, 73, 85seqof 14021 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ β„•0) β†’ (seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š))))β€˜π‘–) = (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)))
8786eqcomd 2738 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ β„•0) β†’ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)) = (seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š))))β€˜π‘–))
8887mpteq2dva 5247 . . . . . 6 (πœ‘ β†’ (𝑖 ∈ β„•0 ↦ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–))) = (𝑖 ∈ β„•0 ↦ (seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š))))β€˜π‘–)))
89 0z 12565 . . . . . . . . 9 0 ∈ β„€
90 seqfn 13974 . . . . . . . . 9 (0 ∈ β„€ β†’ seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))) Fn (β„€β‰₯β€˜0))
9189, 90ax-mp 5 . . . . . . . 8 seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))) Fn (β„€β‰₯β€˜0)
9215fneq2i 6644 . . . . . . . 8 (seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))) Fn β„•0 ↔ seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))) Fn (β„€β‰₯β€˜0))
9391, 92mpbir 230 . . . . . . 7 seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))) Fn β„•0
94 dffn5 6947 . . . . . . 7 (seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))) Fn β„•0 ↔ seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))) = (𝑖 ∈ β„•0 ↦ (seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š))))β€˜π‘–)))
9593, 94mpbi 229 . . . . . 6 seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))) = (𝑖 ∈ β„•0 ↦ (seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š))))β€˜π‘–))
9688, 40, 953eqtr4g 2797 . . . . 5 (πœ‘ β†’ 𝐻 = seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))))
9796adantr 481 . . . 4 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ 𝐻 = seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))))
98 0zd 12566 . . . . 5 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ 0 ∈ β„€)
9935adantr 481 . . . . 5 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ 𝑆 ∈ V)
10019adantr 481 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑀 ∈ 𝑆) β†’ 𝐴:β„•0βŸΆβ„‚)
10125sselda 3981 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑀 ∈ 𝑆) β†’ 𝑀 ∈ β„‚)
10218, 100, 101psergf 25915 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑀 ∈ 𝑆) β†’ (πΊβ€˜π‘€):β„•0βŸΆβ„‚)
103102ffvelcdmda 7083 . . . . . . . . . 10 (((πœ‘ ∧ 𝑀 ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ ((πΊβ€˜π‘€)β€˜π‘š) ∈ β„‚)
104103an32s 650 . . . . . . . . 9 (((πœ‘ ∧ π‘š ∈ β„•0) ∧ 𝑀 ∈ 𝑆) β†’ ((πΊβ€˜π‘€)β€˜π‘š) ∈ β„‚)
105104fmpttd 7111 . . . . . . . 8 ((πœ‘ ∧ π‘š ∈ β„•0) β†’ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)):π‘†βŸΆβ„‚)
10635adantr 481 . . . . . . . . 9 ((πœ‘ ∧ π‘š ∈ β„•0) β†’ 𝑆 ∈ V)
107 elmapg 8829 . . . . . . . . 9 ((β„‚ ∈ V ∧ 𝑆 ∈ V) β†’ ((𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)) ∈ (β„‚ ↑m 𝑆) ↔ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)):π‘†βŸΆβ„‚))
10833, 106, 107sylancr 587 . . . . . . . 8 ((πœ‘ ∧ π‘š ∈ β„•0) β†’ ((𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)) ∈ (β„‚ ↑m 𝑆) ↔ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)):π‘†βŸΆβ„‚))
109105, 108mpbird 256 . . . . . . 7 ((πœ‘ ∧ π‘š ∈ β„•0) β†’ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)) ∈ (β„‚ ↑m 𝑆))
110109fmpttd 7111 . . . . . 6 (πœ‘ β†’ (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š))):β„•0⟢(β„‚ ↑m 𝑆))
111110adantr 481 . . . . 5 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š))):β„•0⟢(β„‚ ↑m 𝑆))
112 fex 7224 . . . . . . . 8 ((abs:β„‚βŸΆβ„ ∧ β„‚ ∈ V) β†’ abs ∈ V)
11322, 33, 112mp2an 690 . . . . . . 7 abs ∈ V
114 fvex 6901 . . . . . . 7 (πΊβ€˜π‘€) ∈ V
115113, 114coex 7917 . . . . . 6 (abs ∘ (πΊβ€˜π‘€)) ∈ V
116115a1i 11 . . . . 5 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ (abs ∘ (πΊβ€˜π‘€)) ∈ V)
11719adantr 481 . . . . . . . 8 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ 𝐴:β„•0βŸΆβ„‚)
1184adantr 481 . . . . . . . . 9 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ 𝑀 ∈ ℝ)
119118recnd 11238 . . . . . . . 8 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ 𝑀 ∈ β„‚)
12018, 117, 119psergf 25915 . . . . . . 7 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ (πΊβ€˜π‘€):β„•0βŸΆβ„‚)
121 fco 6738 . . . . . . 7 ((abs:β„‚βŸΆβ„ ∧ (πΊβ€˜π‘€):β„•0βŸΆβ„‚) β†’ (abs ∘ (πΊβ€˜π‘€)):β„•0βŸΆβ„)
12222, 120, 121sylancr 587 . . . . . 6 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ (abs ∘ (πΊβ€˜π‘€)):β„•0βŸΆβ„)
123122ffvelcdmda 7083 . . . . 5 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ π‘˜ ∈ β„•0) β†’ ((abs ∘ (πΊβ€˜π‘€))β€˜π‘˜) ∈ ℝ)
12425ad2antrr 724 . . . . . . . . . . 11 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ 𝑆 βŠ† β„‚)
125 simprr 771 . . . . . . . . . . 11 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ 𝑧 ∈ 𝑆)
126124, 125sseldd 3982 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ 𝑧 ∈ β„‚)
127 simprl 769 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ π‘˜ ∈ β„•0)
128126, 127expcld 14107 . . . . . . . . 9 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (π‘§β†‘π‘˜) ∈ β„‚)
129128abscld 15379 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜(π‘§β†‘π‘˜)) ∈ ℝ)
130119adantr 481 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ 𝑀 ∈ β„‚)
131130, 127expcld 14107 . . . . . . . . 9 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (π‘€β†‘π‘˜) ∈ β„‚)
132131abscld 15379 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜(π‘€β†‘π‘˜)) ∈ ℝ)
13319ad2antrr 724 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ 𝐴:β„•0βŸΆβ„‚)
134133, 127ffvelcdmd 7084 . . . . . . . . 9 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (π΄β€˜π‘˜) ∈ β„‚)
135134abscld 15379 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜(π΄β€˜π‘˜)) ∈ ℝ)
136134absge0d 15387 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ 0 ≀ (absβ€˜(π΄β€˜π‘˜)))
137126abscld 15379 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜π‘§) ∈ ℝ)
1384ad2antrr 724 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ 𝑀 ∈ ℝ)
139126absge0d 15387 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ 0 ≀ (absβ€˜π‘§))
140 fveq2 6888 . . . . . . . . . . . 12 (𝑦 = 𝑧 β†’ (absβ€˜π‘¦) = (absβ€˜π‘§))
141140breq1d 5157 . . . . . . . . . . 11 (𝑦 = 𝑧 β†’ ((absβ€˜π‘¦) ≀ 𝑀 ↔ (absβ€˜π‘§) ≀ 𝑀))
14262ralrimiva 3146 . . . . . . . . . . . 12 (πœ‘ β†’ βˆ€π‘¦ ∈ 𝑆 (absβ€˜π‘¦) ≀ 𝑀)
143142ad2antrr 724 . . . . . . . . . . 11 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ βˆ€π‘¦ ∈ 𝑆 (absβ€˜π‘¦) ≀ 𝑀)
144141, 143, 125rspcdva 3613 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜π‘§) ≀ 𝑀)
145 leexp1a 14136 . . . . . . . . . 10 ((((absβ€˜π‘§) ∈ ℝ ∧ 𝑀 ∈ ℝ ∧ π‘˜ ∈ β„•0) ∧ (0 ≀ (absβ€˜π‘§) ∧ (absβ€˜π‘§) ≀ 𝑀)) β†’ ((absβ€˜π‘§)β†‘π‘˜) ≀ (π‘€β†‘π‘˜))
146137, 138, 127, 139, 144, 145syl32anc 1378 . . . . . . . . 9 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ ((absβ€˜π‘§)β†‘π‘˜) ≀ (π‘€β†‘π‘˜))
147126, 127absexpd 15395 . . . . . . . . 9 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜(π‘§β†‘π‘˜)) = ((absβ€˜π‘§)β†‘π‘˜))
148130, 127absexpd 15395 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜(π‘€β†‘π‘˜)) = ((absβ€˜π‘€)β†‘π‘˜))
149 absid 15239 . . . . . . . . . . . . 13 ((𝑀 ∈ ℝ ∧ 0 ≀ 𝑀) β†’ (absβ€˜π‘€) = 𝑀)
1504, 149sylan 580 . . . . . . . . . . . 12 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ (absβ€˜π‘€) = 𝑀)
151150adantr 481 . . . . . . . . . . 11 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜π‘€) = 𝑀)
152151oveq1d 7420 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ ((absβ€˜π‘€)β†‘π‘˜) = (π‘€β†‘π‘˜))
153148, 152eqtrd 2772 . . . . . . . . 9 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜(π‘€β†‘π‘˜)) = (π‘€β†‘π‘˜))
154146, 147, 1533brtr4d 5179 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜(π‘§β†‘π‘˜)) ≀ (absβ€˜(π‘€β†‘π‘˜)))
155129, 132, 135, 136, 154lemul2ad 12150 . . . . . . 7 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ ((absβ€˜(π΄β€˜π‘˜)) Β· (absβ€˜(π‘§β†‘π‘˜))) ≀ ((absβ€˜(π΄β€˜π‘˜)) Β· (absβ€˜(π‘€β†‘π‘˜))))
156134, 128absmuld 15397 . . . . . . 7 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜((π΄β€˜π‘˜) Β· (π‘§β†‘π‘˜))) = ((absβ€˜(π΄β€˜π‘˜)) Β· (absβ€˜(π‘§β†‘π‘˜))))
157134, 131absmuld 15397 . . . . . . 7 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜((π΄β€˜π‘˜) Β· (π‘€β†‘π‘˜))) = ((absβ€˜(π΄β€˜π‘˜)) Β· (absβ€˜(π‘€β†‘π‘˜))))
158155, 156, 1573brtr4d 5179 . . . . . 6 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜((π΄β€˜π‘˜) Β· (π‘§β†‘π‘˜))) ≀ (absβ€˜((π΄β€˜π‘˜) Β· (π‘€β†‘π‘˜))))
15935ad2antrr 724 . . . . . . . . . . 11 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ 𝑆 ∈ V)
160159mptexd 7222 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜)) ∈ V)
16174, 80, 127, 160fvmptd3 7018 . . . . . . . . 9 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ ((π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))β€˜π‘˜) = (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜)))
162161fveq1d 6890 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (((π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))β€˜π‘˜)β€˜π‘§) = ((𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜))β€˜π‘§))
163 fveq2 6888 . . . . . . . . . . 11 (𝑦 = 𝑧 β†’ (πΊβ€˜π‘¦) = (πΊβ€˜π‘§))
164163fveq1d 6890 . . . . . . . . . 10 (𝑦 = 𝑧 β†’ ((πΊβ€˜π‘¦)β€˜π‘˜) = ((πΊβ€˜π‘§)β€˜π‘˜))
165 eqid 2732 . . . . . . . . . 10 (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜)) = (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜))
166 fvex 6901 . . . . . . . . . 10 ((πΊβ€˜π‘§)β€˜π‘˜) ∈ V
167164, 165, 166fvmpt 6995 . . . . . . . . 9 (𝑧 ∈ 𝑆 β†’ ((𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜))β€˜π‘§) = ((πΊβ€˜π‘§)β€˜π‘˜))
168167ad2antll 727 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ ((𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜))β€˜π‘§) = ((πΊβ€˜π‘§)β€˜π‘˜))
16918pserval2 25914 . . . . . . . . 9 ((𝑧 ∈ β„‚ ∧ π‘˜ ∈ β„•0) β†’ ((πΊβ€˜π‘§)β€˜π‘˜) = ((π΄β€˜π‘˜) Β· (π‘§β†‘π‘˜)))
170126, 127, 169syl2anc 584 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ ((πΊβ€˜π‘§)β€˜π‘˜) = ((π΄β€˜π‘˜) Β· (π‘§β†‘π‘˜)))
171162, 168, 1703eqtrd 2776 . . . . . . 7 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (((π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))β€˜π‘˜)β€˜π‘§) = ((π΄β€˜π‘˜) Β· (π‘§β†‘π‘˜)))
172171fveq2d 6892 . . . . . 6 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜(((π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))β€˜π‘˜)β€˜π‘§)) = (absβ€˜((π΄β€˜π‘˜) Β· (π‘§β†‘π‘˜))))
173120adantr 481 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (πΊβ€˜π‘€):β„•0βŸΆβ„‚)
174 fvco3 6987 . . . . . . . 8 (((πΊβ€˜π‘€):β„•0βŸΆβ„‚ ∧ π‘˜ ∈ β„•0) β†’ ((abs ∘ (πΊβ€˜π‘€))β€˜π‘˜) = (absβ€˜((πΊβ€˜π‘€)β€˜π‘˜)))
175173, 127, 174syl2anc 584 . . . . . . 7 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ ((abs ∘ (πΊβ€˜π‘€))β€˜π‘˜) = (absβ€˜((πΊβ€˜π‘€)β€˜π‘˜)))
17618pserval2 25914 . . . . . . . . 9 ((𝑀 ∈ β„‚ ∧ π‘˜ ∈ β„•0) β†’ ((πΊβ€˜π‘€)β€˜π‘˜) = ((π΄β€˜π‘˜) Β· (π‘€β†‘π‘˜)))
177130, 127, 176syl2anc 584 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ ((πΊβ€˜π‘€)β€˜π‘˜) = ((π΄β€˜π‘˜) Β· (π‘€β†‘π‘˜)))
178177fveq2d 6892 . . . . . . 7 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜((πΊβ€˜π‘€)β€˜π‘˜)) = (absβ€˜((π΄β€˜π‘˜) Β· (π‘€β†‘π‘˜))))
179175, 178eqtrd 2772 . . . . . 6 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ ((abs ∘ (πΊβ€˜π‘€))β€˜π‘˜) = (absβ€˜((π΄β€˜π‘˜) Β· (π‘€β†‘π‘˜))))
180158, 172, 1793brtr4d 5179 . . . . 5 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜(((π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))β€˜π‘˜)β€˜π‘§)) ≀ ((abs ∘ (πΊβ€˜π‘€))β€˜π‘˜))
18163adantr 481 . . . . . . . 8 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ 𝑀 < 𝑅)
182150, 181eqbrtrd 5169 . . . . . . 7 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ (absβ€˜π‘€) < 𝑅)
183 id 22 . . . . . . . . 9 (𝑖 = π‘š β†’ 𝑖 = π‘š)
184 2fveq3 6893 . . . . . . . . 9 (𝑖 = π‘š β†’ (absβ€˜((πΊβ€˜π‘€)β€˜π‘–)) = (absβ€˜((πΊβ€˜π‘€)β€˜π‘š)))
185183, 184oveq12d 7423 . . . . . . . 8 (𝑖 = π‘š β†’ (𝑖 Β· (absβ€˜((πΊβ€˜π‘€)β€˜π‘–))) = (π‘š Β· (absβ€˜((πΊβ€˜π‘€)β€˜π‘š))))
186185cbvmptv 5260 . . . . . . 7 (𝑖 ∈ β„•0 ↦ (𝑖 Β· (absβ€˜((πΊβ€˜π‘€)β€˜π‘–)))) = (π‘š ∈ β„•0 ↦ (π‘š Β· (absβ€˜((πΊβ€˜π‘€)β€˜π‘š))))
18718, 117, 43, 119, 182, 186radcnvlt1 25921 . . . . . 6 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ (seq0( + , (𝑖 ∈ β„•0 ↦ (𝑖 Β· (absβ€˜((πΊβ€˜π‘€)β€˜π‘–))))) ∈ dom ⇝ ∧ seq0( + , (abs ∘ (πΊβ€˜π‘€))) ∈ dom ⇝ ))
188187simprd 496 . . . . 5 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ seq0( + , (abs ∘ (πΊβ€˜π‘€))) ∈ dom ⇝ )
18915, 98, 99, 111, 116, 123, 180, 188mtest 25907 . . . 4 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))) ∈ dom (β‡π‘’β€˜π‘†))
19097, 189eqeltrd 2833 . . 3 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ 𝐻 ∈ dom (β‡π‘’β€˜π‘†))
191 simpr 485 . . . . . . 7 ((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) β†’ 𝐻(β‡π‘’β€˜π‘†)𝑓)
192 ulmcl 25884 . . . . . . . . . 10 (𝐻(β‡π‘’β€˜π‘†)𝑓 β†’ 𝑓:π‘†βŸΆβ„‚)
193192adantl 482 . . . . . . . . 9 ((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) β†’ 𝑓:π‘†βŸΆβ„‚)
194193feqmptd 6957 . . . . . . . 8 ((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) β†’ 𝑓 = (𝑦 ∈ 𝑆 ↦ (π‘“β€˜π‘¦)))
195 0zd 12566 . . . . . . . . . . 11 (((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) β†’ 0 ∈ β„€)
196 eqidd 2733 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑗 ∈ β„•0) β†’ ((πΊβ€˜π‘¦)β€˜π‘—) = ((πΊβ€˜π‘¦)β€˜π‘—))
19727adantlr 713 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) β†’ (πΊβ€˜π‘¦):β„•0βŸΆβ„‚)
198197ffvelcdmda 7083 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑗 ∈ β„•0) β†’ ((πΊβ€˜π‘¦)β€˜π‘—) ∈ β„‚)
19941ad2antrr 724 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) β†’ 𝐻:β„•0⟢(β„‚ ↑m 𝑆))
200 simpr 485 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) β†’ 𝑦 ∈ 𝑆)
201 seqex 13964 . . . . . . . . . . . . 13 seq0( + , (πΊβ€˜π‘¦)) ∈ V
202201a1i 11 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) β†’ seq0( + , (πΊβ€˜π‘¦)) ∈ V)
203 simpr 485 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑖 ∈ β„•0) β†’ 𝑖 ∈ β„•0)
20435ad3antrrr 728 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑖 ∈ β„•0) β†’ 𝑆 ∈ V)
205204mptexd 7222 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑖 ∈ β„•0) β†’ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)) ∈ V)
20640fvmpt2 7006 . . . . . . . . . . . . . . 15 ((𝑖 ∈ β„•0 ∧ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)) ∈ V) β†’ (π»β€˜π‘–) = (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)))
207203, 205, 206syl2anc 584 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑖 ∈ β„•0) β†’ (π»β€˜π‘–) = (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)))
208207fveq1d 6890 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑖 ∈ β„•0) β†’ ((π»β€˜π‘–)β€˜π‘¦) = ((𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–))β€˜π‘¦))
209 simplr 767 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑖 ∈ β„•0) β†’ 𝑦 ∈ 𝑆)
210 fvex 6901 . . . . . . . . . . . . . 14 (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–) ∈ V
211 eqid 2732 . . . . . . . . . . . . . . 15 (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)) = (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–))
212211fvmpt2 7006 . . . . . . . . . . . . . 14 ((𝑦 ∈ 𝑆 ∧ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–) ∈ V) β†’ ((𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–))β€˜π‘¦) = (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–))
213209, 210, 212sylancl 586 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑖 ∈ β„•0) β†’ ((𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–))β€˜π‘¦) = (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–))
214208, 213eqtrd 2772 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑖 ∈ β„•0) β†’ ((π»β€˜π‘–)β€˜π‘¦) = (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–))
215 simplr 767 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) β†’ 𝐻(β‡π‘’β€˜π‘†)𝑓)
21615, 195, 199, 200, 202, 214, 215ulmclm 25890 . . . . . . . . . . 11 (((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) β†’ seq0( + , (πΊβ€˜π‘¦)) ⇝ (π‘“β€˜π‘¦))
21715, 195, 196, 198, 216isumclim 15699 . . . . . . . . . 10 (((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) β†’ Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘¦)β€˜π‘—) = (π‘“β€˜π‘¦))
218217mpteq2dva 5247 . . . . . . . . 9 ((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) β†’ (𝑦 ∈ 𝑆 ↦ Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘¦)β€˜π‘—)) = (𝑦 ∈ 𝑆 ↦ (π‘“β€˜π‘¦)))
21968, 218eqtrid 2784 . . . . . . . 8 ((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) β†’ 𝐹 = (𝑦 ∈ 𝑆 ↦ (π‘“β€˜π‘¦)))
220194, 219eqtr4d 2775 . . . . . . 7 ((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) β†’ 𝑓 = 𝐹)
221191, 220breqtrd 5173 . . . . . 6 ((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) β†’ 𝐻(β‡π‘’β€˜π‘†)𝐹)
222221ex 413 . . . . 5 (πœ‘ β†’ (𝐻(β‡π‘’β€˜π‘†)𝑓 β†’ 𝐻(β‡π‘’β€˜π‘†)𝐹))
223222exlimdv 1936 . . . 4 (πœ‘ β†’ (βˆƒπ‘“ 𝐻(β‡π‘’β€˜π‘†)𝑓 β†’ 𝐻(β‡π‘’β€˜π‘†)𝐹))
224 eldmg 5896 . . . . 5 (𝐻 ∈ dom (β‡π‘’β€˜π‘†) β†’ (𝐻 ∈ dom (β‡π‘’β€˜π‘†) ↔ βˆƒπ‘“ 𝐻(β‡π‘’β€˜π‘†)𝑓))
225224ibi 266 . . . 4 (𝐻 ∈ dom (β‡π‘’β€˜π‘†) β†’ βˆƒπ‘“ 𝐻(β‡π‘’β€˜π‘†)𝑓)
226223, 225impel 506 . . 3 ((πœ‘ ∧ 𝐻 ∈ dom (β‡π‘’β€˜π‘†)) β†’ 𝐻(β‡π‘’β€˜π‘†)𝐹)
227190, 226syldan 591 . 2 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ 𝐻(β‡π‘’β€˜π‘†)𝐹)
228 0red 11213 . 2 (πœ‘ β†’ 0 ∈ ℝ)
22971, 227, 4, 228ltlecasei 11318 1 (πœ‘ β†’ 𝐻(β‡π‘’β€˜π‘†)𝐹)
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 396   ∧ w3a 1087   = wceq 1541  βˆƒwex 1781   ∈ wcel 2106  βˆ€wral 3061  {crab 3432  Vcvv 3474   βŠ† wss 3947  βˆ…c0 4321   class class class wbr 5147   ↦ cmpt 5230  β—‘ccnv 5674  dom cdm 5675   β€œ cima 5678   ∘ ccom 5679   Fn wfn 6535  βŸΆwf 6536  β€˜cfv 6540  (class class class)co 7405   ∘f cof 7664   ↑m cmap 8816  supcsup 9431  β„‚cc 11104  β„cr 11105  0cc0 11106   + caddc 11109   Β· cmul 11111  +∞cpnf 11241  β„*cxr 11243   < clt 11244   ≀ cle 11245  β„•0cn0 12468  β„€cz 12554  β„€β‰₯cuz 12818  [,]cicc 13323  ...cfz 13480  seqcseq 13962  β†‘cexp 14023  abscabs 15177   ⇝ cli 15424  Ξ£csu 15628  β‡π‘’culm 25879
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2703  ax-rep 5284  ax-sep 5298  ax-nul 5305  ax-pow 5362  ax-pr 5426  ax-un 7721  ax-inf2 9632  ax-cnex 11162  ax-resscn 11163  ax-1cn 11164  ax-icn 11165  ax-addcl 11166  ax-addrcl 11167  ax-mulcl 11168  ax-mulrcl 11169  ax-mulcom 11170  ax-addass 11171  ax-mulass 11172  ax-distr 11173  ax-i2m1 11174  ax-1ne0 11175  ax-1rid 11176  ax-rnegex 11177  ax-rrecex 11178  ax-cnre 11179  ax-pre-lttri 11180  ax-pre-lttrn 11181  ax-pre-ltadd 11182  ax-pre-mulgt0 11183  ax-pre-sup 11184
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2534  df-eu 2563  df-clab 2710  df-cleq 2724  df-clel 2810  df-nfc 2885  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3376  df-reu 3377  df-rab 3433  df-v 3476  df-sbc 3777  df-csb 3893  df-dif 3950  df-un 3952  df-in 3954  df-ss 3964  df-pss 3966  df-nul 4322  df-if 4528  df-pw 4603  df-sn 4628  df-pr 4630  df-op 4634  df-uni 4908  df-int 4950  df-iun 4998  df-br 5148  df-opab 5210  df-mpt 5231  df-tr 5265  df-id 5573  df-eprel 5579  df-po 5587  df-so 5588  df-fr 5630  df-se 5631  df-we 5632  df-xp 5681  df-rel 5682  df-cnv 5683  df-co 5684  df-dm 5685  df-rn 5686  df-res 5687  df-ima 5688  df-pred 6297  df-ord 6364  df-on 6365  df-lim 6366  df-suc 6367  df-iota 6492  df-fun 6542  df-fn 6543  df-f 6544  df-f1 6545  df-fo 6546  df-f1o 6547  df-fv 6548  df-isom 6549  df-riota 7361  df-ov 7408  df-oprab 7409  df-mpo 7410  df-of 7666  df-om 7852  df-1st 7971  df-2nd 7972  df-frecs 8262  df-wrecs 8293  df-recs 8367  df-rdg 8406  df-1o 8462  df-er 8699  df-map 8818  df-pm 8819  df-en 8936  df-dom 8937  df-sdom 8938  df-fin 8939  df-sup 9433  df-inf 9434  df-oi 9501  df-card 9930  df-pnf 11246  df-mnf 11247  df-xr 11248  df-ltxr 11249  df-le 11250  df-sub 11442  df-neg 11443  df-div 11868  df-nn 12209  df-2 12271  df-3 12272  df-n0 12469  df-z 12555  df-uz 12819  df-rp 12971  df-ico 13326  df-icc 13327  df-fz 13481  df-fzo 13624  df-fl 13753  df-seq 13963  df-exp 14024  df-hash 14287  df-cj 15042  df-re 15043  df-im 15044  df-sqrt 15178  df-abs 15179  df-limsup 15411  df-clim 15428  df-rlim 15429  df-sum 15629  df-ulm 25880
This theorem is referenced by:  psercn2  25926  pserdvlem2  25931  gg-psercn2  35166
  Copyright terms: Public domain W3C validator