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

Theorem pserulm 26378
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 479 . . . . 5 ((πœ‘ ∧ 𝑀 < 0) β†’ 𝑆 βŠ† (β—‘abs β€œ (0[,]𝑀)))
3 0xr 11299 . . . . . . . . 9 0 ∈ ℝ*
4 pserulm.m . . . . . . . . . 10 (πœ‘ β†’ 𝑀 ∈ ℝ)
54rexrd 11302 . . . . . . . . 9 (πœ‘ β†’ 𝑀 ∈ ℝ*)
6 icc0 13412 . . . . . . . . 9 ((0 ∈ ℝ* ∧ 𝑀 ∈ ℝ*) β†’ ((0[,]𝑀) = βˆ… ↔ 𝑀 < 0))
73, 5, 6sylancr 585 . . . . . . . 8 (πœ‘ β†’ ((0[,]𝑀) = βˆ… ↔ 𝑀 < 0))
87biimpar 476 . . . . . . 7 ((πœ‘ ∧ 𝑀 < 0) β†’ (0[,]𝑀) = βˆ…)
98imaeq2d 6068 . . . . . 6 ((πœ‘ ∧ 𝑀 < 0) β†’ (β—‘abs β€œ (0[,]𝑀)) = (β—‘abs β€œ βˆ…))
10 ima0 6085 . . . . . 6 (β—‘abs β€œ βˆ…) = βˆ…
119, 10eqtrdi 2784 . . . . 5 ((πœ‘ ∧ 𝑀 < 0) β†’ (β—‘abs β€œ (0[,]𝑀)) = βˆ…)
122, 11sseqtrd 4022 . . . 4 ((πœ‘ ∧ 𝑀 < 0) β†’ 𝑆 βŠ† βˆ…)
13 ss0 4402 . . . 4 (𝑆 βŠ† βˆ… β†’ 𝑆 = βˆ…)
1412, 13syl 17 . . 3 ((πœ‘ ∧ 𝑀 < 0) β†’ 𝑆 = βˆ…)
15 nn0uz 12902 . . . 4 β„•0 = (β„€β‰₯β€˜0)
16 0zd 12608 . . . 4 (πœ‘ β†’ 0 ∈ β„€)
17 0zd 12608 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ 0 ∈ β„€)
18 pserf.g . . . . . . . . . . . 12 𝐺 = (π‘₯ ∈ β„‚ ↦ (𝑛 ∈ β„•0 ↦ ((π΄β€˜π‘›) Β· (π‘₯↑𝑛))))
19 pserf.a . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐴:β„•0βŸΆβ„‚)
2019adantr 479 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ 𝐴:β„•0βŸΆβ„‚)
21 cnvimass 6090 . . . . . . . . . . . . . . 15 (β—‘abs β€œ (0[,]𝑀)) βŠ† dom abs
22 absf 15324 . . . . . . . . . . . . . . . 16 abs:β„‚βŸΆβ„
2322fdmi 6739 . . . . . . . . . . . . . . 15 dom abs = β„‚
2421, 23sseqtri 4018 . . . . . . . . . . . . . 14 (β—‘abs β€œ (0[,]𝑀)) βŠ† β„‚
251, 24sstrdi 3994 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑆 βŠ† β„‚)
2625sselda 3982 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ 𝑦 ∈ β„‚)
2718, 20, 26psergf 26368 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ (πΊβ€˜π‘¦):β„•0βŸΆβ„‚)
2827ffvelcdmda 7099 . . . . . . . . . 10 (((πœ‘ ∧ 𝑦 ∈ 𝑆) ∧ 𝑗 ∈ β„•0) β†’ ((πΊβ€˜π‘¦)β€˜π‘—) ∈ β„‚)
2915, 17, 28serf 14035 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ seq0( + , (πΊβ€˜π‘¦)):β„•0βŸΆβ„‚)
3029ffvelcdmda 7099 . . . . . . . 8 (((πœ‘ ∧ 𝑦 ∈ 𝑆) ∧ 𝑖 ∈ β„•0) β†’ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–) ∈ β„‚)
3130an32s 650 . . . . . . 7 (((πœ‘ ∧ 𝑖 ∈ β„•0) ∧ 𝑦 ∈ 𝑆) β†’ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–) ∈ β„‚)
3231fmpttd 7130 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ β„•0) β†’ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)):π‘†βŸΆβ„‚)
33 cnex 11227 . . . . . . 7 β„‚ ∈ V
34 ssexg 5327 . . . . . . . . 9 ((𝑆 βŠ† β„‚ ∧ β„‚ ∈ V) β†’ 𝑆 ∈ V)
3525, 33, 34sylancl 584 . . . . . . . 8 (πœ‘ β†’ 𝑆 ∈ V)
3635adantr 479 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ β„•0) β†’ 𝑆 ∈ V)
37 elmapg 8864 . . . . . . 7 ((β„‚ ∈ V ∧ 𝑆 ∈ V) β†’ ((𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)) ∈ (β„‚ ↑m 𝑆) ↔ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)):π‘†βŸΆβ„‚))
3833, 36, 37sylancr 585 . . . . . 6 ((πœ‘ ∧ 𝑖 ∈ β„•0) β†’ ((𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)) ∈ (β„‚ ↑m 𝑆) ↔ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)):π‘†βŸΆβ„‚))
3932, 38mpbird 256 . . . . 5 ((πœ‘ ∧ 𝑖 ∈ β„•0) β†’ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)) ∈ (β„‚ ↑m 𝑆))
40 pserulm.h . . . . 5 𝐻 = (𝑖 ∈ β„•0 ↦ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)))
4139, 40fmptd 7129 . . . 4 (πœ‘ β†’ 𝐻:β„•0⟢(β„‚ ↑m 𝑆))
42 eqidd 2729 . . . . . 6 (((πœ‘ ∧ 𝑦 ∈ 𝑆) ∧ 𝑗 ∈ β„•0) β†’ ((πΊβ€˜π‘¦)β€˜π‘—) = ((πΊβ€˜π‘¦)β€˜π‘—))
43 pserf.r . . . . . . 7 𝑅 = sup({π‘Ÿ ∈ ℝ ∣ seq0( + , (πΊβ€˜π‘Ÿ)) ∈ dom ⇝ }, ℝ*, < )
441sselda 3982 . . . . . . . . . . . . 13 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ 𝑦 ∈ (β—‘abs β€œ (0[,]𝑀)))
45 ffn 6727 . . . . . . . . . . . . . 14 (abs:β„‚βŸΆβ„ β†’ abs Fn β„‚)
46 elpreima 7072 . . . . . . . . . . . . . 14 (abs Fn β„‚ β†’ (𝑦 ∈ (β—‘abs β€œ (0[,]𝑀)) ↔ (𝑦 ∈ β„‚ ∧ (absβ€˜π‘¦) ∈ (0[,]𝑀))))
4722, 45, 46mp2b 10 . . . . . . . . . . . . 13 (𝑦 ∈ (β—‘abs β€œ (0[,]𝑀)) ↔ (𝑦 ∈ β„‚ ∧ (absβ€˜π‘¦) ∈ (0[,]𝑀)))
4844, 47sylib 217 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ (𝑦 ∈ β„‚ ∧ (absβ€˜π‘¦) ∈ (0[,]𝑀)))
4948simprd 494 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ (absβ€˜π‘¦) ∈ (0[,]𝑀))
50 0re 11254 . . . . . . . . . . . 12 0 ∈ ℝ
514adantr 479 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ 𝑀 ∈ ℝ)
52 elicc2 13429 . . . . . . . . . . . 12 ((0 ∈ ℝ ∧ 𝑀 ∈ ℝ) β†’ ((absβ€˜π‘¦) ∈ (0[,]𝑀) ↔ ((absβ€˜π‘¦) ∈ ℝ ∧ 0 ≀ (absβ€˜π‘¦) ∧ (absβ€˜π‘¦) ≀ 𝑀)))
5350, 51, 52sylancr 585 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ ((absβ€˜π‘¦) ∈ (0[,]𝑀) ↔ ((absβ€˜π‘¦) ∈ ℝ ∧ 0 ≀ (absβ€˜π‘¦) ∧ (absβ€˜π‘¦) ≀ 𝑀)))
5449, 53mpbid 231 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ ((absβ€˜π‘¦) ∈ ℝ ∧ 0 ≀ (absβ€˜π‘¦) ∧ (absβ€˜π‘¦) ≀ 𝑀))
5554simp1d 1139 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ (absβ€˜π‘¦) ∈ ℝ)
5655rexrd 11302 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ (absβ€˜π‘¦) ∈ ℝ*)
575adantr 479 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ 𝑀 ∈ ℝ*)
58 iccssxr 13447 . . . . . . . . . 10 (0[,]+∞) βŠ† ℝ*
5918, 19, 43radcnvcl 26373 . . . . . . . . . 10 (πœ‘ β†’ 𝑅 ∈ (0[,]+∞))
6058, 59sselid 3980 . . . . . . . . 9 (πœ‘ β†’ 𝑅 ∈ ℝ*)
6160adantr 479 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ 𝑅 ∈ ℝ*)
6254simp3d 1141 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ (absβ€˜π‘¦) ≀ 𝑀)
63 pserulm.l . . . . . . . . 9 (πœ‘ β†’ 𝑀 < 𝑅)
6463adantr 479 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ 𝑀 < 𝑅)
6556, 57, 61, 62, 64xrlelttrd 13179 . . . . . . 7 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ (absβ€˜π‘¦) < 𝑅)
6618, 20, 43, 26, 65radcnvlt2 26375 . . . . . 6 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ seq0( + , (πΊβ€˜π‘¦)) ∈ dom ⇝ )
6715, 17, 42, 28, 66isumcl 15747 . . . . 5 ((πœ‘ ∧ 𝑦 ∈ 𝑆) β†’ Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘¦)β€˜π‘—) ∈ β„‚)
68 pserf.f . . . . 5 𝐹 = (𝑦 ∈ 𝑆 ↦ Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘¦)β€˜π‘—))
6967, 68fmptd 7129 . . . 4 (πœ‘ β†’ 𝐹:π‘†βŸΆβ„‚)
7015, 16, 41, 69ulm0 26347 . . 3 ((πœ‘ ∧ 𝑆 = βˆ…) β†’ 𝐻(β‡π‘’β€˜π‘†)𝐹)
7114, 70syldan 589 . 2 ((πœ‘ ∧ 𝑀 < 0) β†’ 𝐻(β‡π‘’β€˜π‘†)𝐹)
72 simpr 483 . . . . . . . . . 10 ((πœ‘ ∧ 𝑖 ∈ β„•0) β†’ 𝑖 ∈ β„•0)
7372, 15eleqtrdi 2839 . . . . . . . . 9 ((πœ‘ ∧ 𝑖 ∈ β„•0) β†’ 𝑖 ∈ (β„€β‰₯β€˜0))
74 eqid 2728 . . . . . . . . . 10 (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š))) = (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))
75 fveq2 6902 . . . . . . . . . . . . 13 (𝑀 = 𝑦 β†’ (πΊβ€˜π‘€) = (πΊβ€˜π‘¦))
7675fveq1d 6904 . . . . . . . . . . . 12 (𝑀 = 𝑦 β†’ ((πΊβ€˜π‘€)β€˜π‘š) = ((πΊβ€˜π‘¦)β€˜π‘š))
7776cbvmptv 5265 . . . . . . . . . . 11 (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)) = (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘š))
78 fveq2 6902 . . . . . . . . . . . 12 (π‘š = π‘˜ β†’ ((πΊβ€˜π‘¦)β€˜π‘š) = ((πΊβ€˜π‘¦)β€˜π‘˜))
7978mpteq2dv 5254 . . . . . . . . . . 11 (π‘š = π‘˜ β†’ (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘š)) = (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜)))
8077, 79eqtrid 2780 . . . . . . . . . 10 (π‘š = π‘˜ β†’ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)) = (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜)))
81 elfznn0 13634 . . . . . . . . . . 11 (π‘˜ ∈ (0...𝑖) β†’ π‘˜ ∈ β„•0)
8281adantl 480 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ β„•0) ∧ π‘˜ ∈ (0...𝑖)) β†’ π‘˜ ∈ β„•0)
8335ad2antrr 724 . . . . . . . . . . 11 (((πœ‘ ∧ 𝑖 ∈ β„•0) ∧ π‘˜ ∈ (0...𝑖)) β†’ 𝑆 ∈ V)
8483mptexd 7242 . . . . . . . . . 10 (((πœ‘ ∧ 𝑖 ∈ β„•0) ∧ π‘˜ ∈ (0...𝑖)) β†’ (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜)) ∈ V)
8574, 80, 82, 84fvmptd3 7033 . . . . . . . . 9 (((πœ‘ ∧ 𝑖 ∈ β„•0) ∧ π‘˜ ∈ (0...𝑖)) β†’ ((π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))β€˜π‘˜) = (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜)))
8636, 73, 85seqof 14064 . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ β„•0) β†’ (seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š))))β€˜π‘–) = (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)))
8786eqcomd 2734 . . . . . . 7 ((πœ‘ ∧ 𝑖 ∈ β„•0) β†’ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)) = (seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š))))β€˜π‘–))
8887mpteq2dva 5252 . . . . . 6 (πœ‘ β†’ (𝑖 ∈ β„•0 ↦ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–))) = (𝑖 ∈ β„•0 ↦ (seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š))))β€˜π‘–)))
89 0z 12607 . . . . . . . . 9 0 ∈ β„€
90 seqfn 14018 . . . . . . . . 9 (0 ∈ β„€ β†’ seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))) Fn (β„€β‰₯β€˜0))
9189, 90ax-mp 5 . . . . . . . 8 seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))) Fn (β„€β‰₯β€˜0)
9215fneq2i 6657 . . . . . . . 8 (seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))) Fn β„•0 ↔ seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))) Fn (β„€β‰₯β€˜0))
9391, 92mpbir 230 . . . . . . 7 seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))) Fn β„•0
94 dffn5 6962 . . . . . . 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 2793 . . . . 5 (πœ‘ β†’ 𝐻 = seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))))
9796adantr 479 . . . 4 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ 𝐻 = seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))))
98 0zd 12608 . . . . 5 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ 0 ∈ β„€)
9935adantr 479 . . . . 5 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ 𝑆 ∈ V)
10019adantr 479 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑀 ∈ 𝑆) β†’ 𝐴:β„•0βŸΆβ„‚)
10125sselda 3982 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑀 ∈ 𝑆) β†’ 𝑀 ∈ β„‚)
10218, 100, 101psergf 26368 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑀 ∈ 𝑆) β†’ (πΊβ€˜π‘€):β„•0βŸΆβ„‚)
103102ffvelcdmda 7099 . . . . . . . . . 10 (((πœ‘ ∧ 𝑀 ∈ 𝑆) ∧ π‘š ∈ β„•0) β†’ ((πΊβ€˜π‘€)β€˜π‘š) ∈ β„‚)
104103an32s 650 . . . . . . . . 9 (((πœ‘ ∧ π‘š ∈ β„•0) ∧ 𝑀 ∈ 𝑆) β†’ ((πΊβ€˜π‘€)β€˜π‘š) ∈ β„‚)
105104fmpttd 7130 . . . . . . . 8 ((πœ‘ ∧ π‘š ∈ β„•0) β†’ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)):π‘†βŸΆβ„‚)
10635adantr 479 . . . . . . . . 9 ((πœ‘ ∧ π‘š ∈ β„•0) β†’ 𝑆 ∈ V)
107 elmapg 8864 . . . . . . . . 9 ((β„‚ ∈ V ∧ 𝑆 ∈ V) β†’ ((𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)) ∈ (β„‚ ↑m 𝑆) ↔ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)):π‘†βŸΆβ„‚))
10833, 106, 107sylancr 585 . . . . . . . 8 ((πœ‘ ∧ π‘š ∈ β„•0) β†’ ((𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)) ∈ (β„‚ ↑m 𝑆) ↔ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)):π‘†βŸΆβ„‚))
109105, 108mpbird 256 . . . . . . 7 ((πœ‘ ∧ π‘š ∈ β„•0) β†’ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)) ∈ (β„‚ ↑m 𝑆))
110109fmpttd 7130 . . . . . 6 (πœ‘ β†’ (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š))):β„•0⟢(β„‚ ↑m 𝑆))
111110adantr 479 . . . . 5 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š))):β„•0⟢(β„‚ ↑m 𝑆))
112 fex 7244 . . . . . . . 8 ((abs:β„‚βŸΆβ„ ∧ β„‚ ∈ V) β†’ abs ∈ V)
11322, 33, 112mp2an 690 . . . . . . 7 abs ∈ V
114 fvex 6915 . . . . . . 7 (πΊβ€˜π‘€) ∈ V
115113, 114coex 7944 . . . . . 6 (abs ∘ (πΊβ€˜π‘€)) ∈ V
116115a1i 11 . . . . 5 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ (abs ∘ (πΊβ€˜π‘€)) ∈ V)
11719adantr 479 . . . . . . . 8 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ 𝐴:β„•0βŸΆβ„‚)
1184adantr 479 . . . . . . . . 9 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ 𝑀 ∈ ℝ)
119118recnd 11280 . . . . . . . 8 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ 𝑀 ∈ β„‚)
12018, 117, 119psergf 26368 . . . . . . 7 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ (πΊβ€˜π‘€):β„•0βŸΆβ„‚)
121 fco 6752 . . . . . . 7 ((abs:β„‚βŸΆβ„ ∧ (πΊβ€˜π‘€):β„•0βŸΆβ„‚) β†’ (abs ∘ (πΊβ€˜π‘€)):β„•0βŸΆβ„)
12222, 120, 121sylancr 585 . . . . . 6 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ (abs ∘ (πΊβ€˜π‘€)):β„•0βŸΆβ„)
123122ffvelcdmda 7099 . . . . 5 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ π‘˜ ∈ β„•0) β†’ ((abs ∘ (πΊβ€˜π‘€))β€˜π‘˜) ∈ ℝ)
12425ad2antrr 724 . . . . . . . . . . 11 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ 𝑆 βŠ† β„‚)
125 simprr 771 . . . . . . . . . . 11 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ 𝑧 ∈ 𝑆)
126124, 125sseldd 3983 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ 𝑧 ∈ β„‚)
127 simprl 769 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ π‘˜ ∈ β„•0)
128126, 127expcld 14150 . . . . . . . . 9 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (π‘§β†‘π‘˜) ∈ β„‚)
129128abscld 15423 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜(π‘§β†‘π‘˜)) ∈ ℝ)
130119adantr 479 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ 𝑀 ∈ β„‚)
131130, 127expcld 14150 . . . . . . . . 9 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (π‘€β†‘π‘˜) ∈ β„‚)
132131abscld 15423 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜(π‘€β†‘π‘˜)) ∈ ℝ)
13319ad2antrr 724 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ 𝐴:β„•0βŸΆβ„‚)
134133, 127ffvelcdmd 7100 . . . . . . . . 9 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (π΄β€˜π‘˜) ∈ β„‚)
135134abscld 15423 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜(π΄β€˜π‘˜)) ∈ ℝ)
136134absge0d 15431 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ 0 ≀ (absβ€˜(π΄β€˜π‘˜)))
137126abscld 15423 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜π‘§) ∈ ℝ)
1384ad2antrr 724 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ 𝑀 ∈ ℝ)
139126absge0d 15431 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ 0 ≀ (absβ€˜π‘§))
140 fveq2 6902 . . . . . . . . . . . 12 (𝑦 = 𝑧 β†’ (absβ€˜π‘¦) = (absβ€˜π‘§))
141140breq1d 5162 . . . . . . . . . . 11 (𝑦 = 𝑧 β†’ ((absβ€˜π‘¦) ≀ 𝑀 ↔ (absβ€˜π‘§) ≀ 𝑀))
14262ralrimiva 3143 . . . . . . . . . . . 12 (πœ‘ β†’ βˆ€π‘¦ ∈ 𝑆 (absβ€˜π‘¦) ≀ 𝑀)
143142ad2antrr 724 . . . . . . . . . . 11 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ βˆ€π‘¦ ∈ 𝑆 (absβ€˜π‘¦) ≀ 𝑀)
144141, 143, 125rspcdva 3612 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜π‘§) ≀ 𝑀)
145 leexp1a 14179 . . . . . . . . . 10 ((((absβ€˜π‘§) ∈ ℝ ∧ 𝑀 ∈ ℝ ∧ π‘˜ ∈ β„•0) ∧ (0 ≀ (absβ€˜π‘§) ∧ (absβ€˜π‘§) ≀ 𝑀)) β†’ ((absβ€˜π‘§)β†‘π‘˜) ≀ (π‘€β†‘π‘˜))
146137, 138, 127, 139, 144, 145syl32anc 1375 . . . . . . . . 9 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ ((absβ€˜π‘§)β†‘π‘˜) ≀ (π‘€β†‘π‘˜))
147126, 127absexpd 15439 . . . . . . . . 9 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜(π‘§β†‘π‘˜)) = ((absβ€˜π‘§)β†‘π‘˜))
148130, 127absexpd 15439 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜(π‘€β†‘π‘˜)) = ((absβ€˜π‘€)β†‘π‘˜))
149 absid 15283 . . . . . . . . . . . . 13 ((𝑀 ∈ ℝ ∧ 0 ≀ 𝑀) β†’ (absβ€˜π‘€) = 𝑀)
1504, 149sylan 578 . . . . . . . . . . . 12 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ (absβ€˜π‘€) = 𝑀)
151150adantr 479 . . . . . . . . . . 11 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜π‘€) = 𝑀)
152151oveq1d 7441 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ ((absβ€˜π‘€)β†‘π‘˜) = (π‘€β†‘π‘˜))
153148, 152eqtrd 2768 . . . . . . . . 9 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜(π‘€β†‘π‘˜)) = (π‘€β†‘π‘˜))
154146, 147, 1533brtr4d 5184 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜(π‘§β†‘π‘˜)) ≀ (absβ€˜(π‘€β†‘π‘˜)))
155129, 132, 135, 136, 154lemul2ad 12192 . . . . . . 7 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ ((absβ€˜(π΄β€˜π‘˜)) Β· (absβ€˜(π‘§β†‘π‘˜))) ≀ ((absβ€˜(π΄β€˜π‘˜)) Β· (absβ€˜(π‘€β†‘π‘˜))))
156134, 128absmuld 15441 . . . . . . 7 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜((π΄β€˜π‘˜) Β· (π‘§β†‘π‘˜))) = ((absβ€˜(π΄β€˜π‘˜)) Β· (absβ€˜(π‘§β†‘π‘˜))))
157134, 131absmuld 15441 . . . . . . 7 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜((π΄β€˜π‘˜) Β· (π‘€β†‘π‘˜))) = ((absβ€˜(π΄β€˜π‘˜)) Β· (absβ€˜(π‘€β†‘π‘˜))))
158155, 156, 1573brtr4d 5184 . . . . . 6 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜((π΄β€˜π‘˜) Β· (π‘§β†‘π‘˜))) ≀ (absβ€˜((π΄β€˜π‘˜) Β· (π‘€β†‘π‘˜))))
15935ad2antrr 724 . . . . . . . . . . 11 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ 𝑆 ∈ V)
160159mptexd 7242 . . . . . . . . . 10 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜)) ∈ V)
16174, 80, 127, 160fvmptd3 7033 . . . . . . . . 9 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ ((π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))β€˜π‘˜) = (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜)))
162161fveq1d 6904 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (((π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))β€˜π‘˜)β€˜π‘§) = ((𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜))β€˜π‘§))
163 fveq2 6902 . . . . . . . . . . 11 (𝑦 = 𝑧 β†’ (πΊβ€˜π‘¦) = (πΊβ€˜π‘§))
164163fveq1d 6904 . . . . . . . . . 10 (𝑦 = 𝑧 β†’ ((πΊβ€˜π‘¦)β€˜π‘˜) = ((πΊβ€˜π‘§)β€˜π‘˜))
165 eqid 2728 . . . . . . . . . 10 (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜)) = (𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜))
166 fvex 6915 . . . . . . . . . 10 ((πΊβ€˜π‘§)β€˜π‘˜) ∈ V
167164, 165, 166fvmpt 7010 . . . . . . . . 9 (𝑧 ∈ 𝑆 β†’ ((𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜))β€˜π‘§) = ((πΊβ€˜π‘§)β€˜π‘˜))
168167ad2antll 727 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ ((𝑦 ∈ 𝑆 ↦ ((πΊβ€˜π‘¦)β€˜π‘˜))β€˜π‘§) = ((πΊβ€˜π‘§)β€˜π‘˜))
16918pserval2 26367 . . . . . . . . 9 ((𝑧 ∈ β„‚ ∧ π‘˜ ∈ β„•0) β†’ ((πΊβ€˜π‘§)β€˜π‘˜) = ((π΄β€˜π‘˜) Β· (π‘§β†‘π‘˜)))
170126, 127, 169syl2anc 582 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ ((πΊβ€˜π‘§)β€˜π‘˜) = ((π΄β€˜π‘˜) Β· (π‘§β†‘π‘˜)))
171162, 168, 1703eqtrd 2772 . . . . . . 7 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (((π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))β€˜π‘˜)β€˜π‘§) = ((π΄β€˜π‘˜) Β· (π‘§β†‘π‘˜)))
172171fveq2d 6906 . . . . . 6 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜(((π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))β€˜π‘˜)β€˜π‘§)) = (absβ€˜((π΄β€˜π‘˜) Β· (π‘§β†‘π‘˜))))
173120adantr 479 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (πΊβ€˜π‘€):β„•0βŸΆβ„‚)
174 fvco3 7002 . . . . . . . 8 (((πΊβ€˜π‘€):β„•0βŸΆβ„‚ ∧ π‘˜ ∈ β„•0) β†’ ((abs ∘ (πΊβ€˜π‘€))β€˜π‘˜) = (absβ€˜((πΊβ€˜π‘€)β€˜π‘˜)))
175173, 127, 174syl2anc 582 . . . . . . 7 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ ((abs ∘ (πΊβ€˜π‘€))β€˜π‘˜) = (absβ€˜((πΊβ€˜π‘€)β€˜π‘˜)))
17618pserval2 26367 . . . . . . . . 9 ((𝑀 ∈ β„‚ ∧ π‘˜ ∈ β„•0) β†’ ((πΊβ€˜π‘€)β€˜π‘˜) = ((π΄β€˜π‘˜) Β· (π‘€β†‘π‘˜)))
177130, 127, 176syl2anc 582 . . . . . . . 8 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ ((πΊβ€˜π‘€)β€˜π‘˜) = ((π΄β€˜π‘˜) Β· (π‘€β†‘π‘˜)))
178177fveq2d 6906 . . . . . . 7 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜((πΊβ€˜π‘€)β€˜π‘˜)) = (absβ€˜((π΄β€˜π‘˜) Β· (π‘€β†‘π‘˜))))
179175, 178eqtrd 2768 . . . . . 6 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ ((abs ∘ (πΊβ€˜π‘€))β€˜π‘˜) = (absβ€˜((π΄β€˜π‘˜) Β· (π‘€β†‘π‘˜))))
180158, 172, 1793brtr4d 5184 . . . . 5 (((πœ‘ ∧ 0 ≀ 𝑀) ∧ (π‘˜ ∈ β„•0 ∧ 𝑧 ∈ 𝑆)) β†’ (absβ€˜(((π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))β€˜π‘˜)β€˜π‘§)) ≀ ((abs ∘ (πΊβ€˜π‘€))β€˜π‘˜))
18163adantr 479 . . . . . . . 8 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ 𝑀 < 𝑅)
182150, 181eqbrtrd 5174 . . . . . . 7 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ (absβ€˜π‘€) < 𝑅)
183 id 22 . . . . . . . . 9 (𝑖 = π‘š β†’ 𝑖 = π‘š)
184 2fveq3 6907 . . . . . . . . 9 (𝑖 = π‘š β†’ (absβ€˜((πΊβ€˜π‘€)β€˜π‘–)) = (absβ€˜((πΊβ€˜π‘€)β€˜π‘š)))
185183, 184oveq12d 7444 . . . . . . . 8 (𝑖 = π‘š β†’ (𝑖 Β· (absβ€˜((πΊβ€˜π‘€)β€˜π‘–))) = (π‘š Β· (absβ€˜((πΊβ€˜π‘€)β€˜π‘š))))
186185cbvmptv 5265 . . . . . . 7 (𝑖 ∈ β„•0 ↦ (𝑖 Β· (absβ€˜((πΊβ€˜π‘€)β€˜π‘–)))) = (π‘š ∈ β„•0 ↦ (π‘š Β· (absβ€˜((πΊβ€˜π‘€)β€˜π‘š))))
18718, 117, 43, 119, 182, 186radcnvlt1 26374 . . . . . 6 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ (seq0( + , (𝑖 ∈ β„•0 ↦ (𝑖 Β· (absβ€˜((πΊβ€˜π‘€)β€˜π‘–))))) ∈ dom ⇝ ∧ seq0( + , (abs ∘ (πΊβ€˜π‘€))) ∈ dom ⇝ ))
188187simprd 494 . . . . 5 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ seq0( + , (abs ∘ (πΊβ€˜π‘€))) ∈ dom ⇝ )
18915, 98, 99, 111, 116, 123, 180, 188mtest 26360 . . . 4 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ seq0( ∘f + , (π‘š ∈ β„•0 ↦ (𝑀 ∈ 𝑆 ↦ ((πΊβ€˜π‘€)β€˜π‘š)))) ∈ dom (β‡π‘’β€˜π‘†))
19097, 189eqeltrd 2829 . . 3 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ 𝐻 ∈ dom (β‡π‘’β€˜π‘†))
191 simpr 483 . . . . . . 7 ((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) β†’ 𝐻(β‡π‘’β€˜π‘†)𝑓)
192 ulmcl 26337 . . . . . . . . . 10 (𝐻(β‡π‘’β€˜π‘†)𝑓 β†’ 𝑓:π‘†βŸΆβ„‚)
193192adantl 480 . . . . . . . . 9 ((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) β†’ 𝑓:π‘†βŸΆβ„‚)
194193feqmptd 6972 . . . . . . . 8 ((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) β†’ 𝑓 = (𝑦 ∈ 𝑆 ↦ (π‘“β€˜π‘¦)))
195 0zd 12608 . . . . . . . . . . 11 (((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) β†’ 0 ∈ β„€)
196 eqidd 2729 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑗 ∈ β„•0) β†’ ((πΊβ€˜π‘¦)β€˜π‘—) = ((πΊβ€˜π‘¦)β€˜π‘—))
19727adantlr 713 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) β†’ (πΊβ€˜π‘¦):β„•0βŸΆβ„‚)
198197ffvelcdmda 7099 . . . . . . . . . . 11 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑗 ∈ β„•0) β†’ ((πΊβ€˜π‘¦)β€˜π‘—) ∈ β„‚)
19941ad2antrr 724 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) β†’ 𝐻:β„•0⟢(β„‚ ↑m 𝑆))
200 simpr 483 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) β†’ 𝑦 ∈ 𝑆)
201 seqex 14008 . . . . . . . . . . . . 13 seq0( + , (πΊβ€˜π‘¦)) ∈ V
202201a1i 11 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) β†’ seq0( + , (πΊβ€˜π‘¦)) ∈ V)
203 simpr 483 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑖 ∈ β„•0) β†’ 𝑖 ∈ β„•0)
20435ad3antrrr 728 . . . . . . . . . . . . . . . 16 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑖 ∈ β„•0) β†’ 𝑆 ∈ V)
205204mptexd 7242 . . . . . . . . . . . . . . 15 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑖 ∈ β„•0) β†’ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)) ∈ V)
20640fvmpt2 7021 . . . . . . . . . . . . . . 15 ((𝑖 ∈ β„•0 ∧ (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)) ∈ V) β†’ (π»β€˜π‘–) = (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)))
207203, 205, 206syl2anc 582 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑖 ∈ β„•0) β†’ (π»β€˜π‘–) = (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)))
208207fveq1d 6904 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑖 ∈ β„•0) β†’ ((π»β€˜π‘–)β€˜π‘¦) = ((𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–))β€˜π‘¦))
209 simplr 767 . . . . . . . . . . . . . 14 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑖 ∈ β„•0) β†’ 𝑦 ∈ 𝑆)
210 fvex 6915 . . . . . . . . . . . . . 14 (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–) ∈ V
211 eqid 2728 . . . . . . . . . . . . . . 15 (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–)) = (𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–))
212211fvmpt2 7021 . . . . . . . . . . . . . 14 ((𝑦 ∈ 𝑆 ∧ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–) ∈ V) β†’ ((𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–))β€˜π‘¦) = (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–))
213209, 210, 212sylancl 584 . . . . . . . . . . . . 13 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑖 ∈ β„•0) β†’ ((𝑦 ∈ 𝑆 ↦ (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–))β€˜π‘¦) = (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–))
214208, 213eqtrd 2768 . . . . . . . . . . . 12 ((((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) ∧ 𝑖 ∈ β„•0) β†’ ((π»β€˜π‘–)β€˜π‘¦) = (seq0( + , (πΊβ€˜π‘¦))β€˜π‘–))
215 simplr 767 . . . . . . . . . . . 12 (((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) β†’ 𝐻(β‡π‘’β€˜π‘†)𝑓)
21615, 195, 199, 200, 202, 214, 215ulmclm 26343 . . . . . . . . . . 11 (((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) β†’ seq0( + , (πΊβ€˜π‘¦)) ⇝ (π‘“β€˜π‘¦))
21715, 195, 196, 198, 216isumclim 15743 . . . . . . . . . 10 (((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) ∧ 𝑦 ∈ 𝑆) β†’ Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘¦)β€˜π‘—) = (π‘“β€˜π‘¦))
218217mpteq2dva 5252 . . . . . . . . 9 ((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) β†’ (𝑦 ∈ 𝑆 ↦ Σ𝑗 ∈ β„•0 ((πΊβ€˜π‘¦)β€˜π‘—)) = (𝑦 ∈ 𝑆 ↦ (π‘“β€˜π‘¦)))
21968, 218eqtrid 2780 . . . . . . . 8 ((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) β†’ 𝐹 = (𝑦 ∈ 𝑆 ↦ (π‘“β€˜π‘¦)))
220194, 219eqtr4d 2771 . . . . . . 7 ((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) β†’ 𝑓 = 𝐹)
221191, 220breqtrd 5178 . . . . . 6 ((πœ‘ ∧ 𝐻(β‡π‘’β€˜π‘†)𝑓) β†’ 𝐻(β‡π‘’β€˜π‘†)𝐹)
222221ex 411 . . . . 5 (πœ‘ β†’ (𝐻(β‡π‘’β€˜π‘†)𝑓 β†’ 𝐻(β‡π‘’β€˜π‘†)𝐹))
223222exlimdv 1928 . . . 4 (πœ‘ β†’ (βˆƒπ‘“ 𝐻(β‡π‘’β€˜π‘†)𝑓 β†’ 𝐻(β‡π‘’β€˜π‘†)𝐹))
224 eldmg 5905 . . . . 5 (𝐻 ∈ dom (β‡π‘’β€˜π‘†) β†’ (𝐻 ∈ dom (β‡π‘’β€˜π‘†) ↔ βˆƒπ‘“ 𝐻(β‡π‘’β€˜π‘†)𝑓))
225224ibi 266 . . . 4 (𝐻 ∈ dom (β‡π‘’β€˜π‘†) β†’ βˆƒπ‘“ 𝐻(β‡π‘’β€˜π‘†)𝑓)
226223, 225impel 504 . . 3 ((πœ‘ ∧ 𝐻 ∈ dom (β‡π‘’β€˜π‘†)) β†’ 𝐻(β‡π‘’β€˜π‘†)𝐹)
227190, 226syldan 589 . 2 ((πœ‘ ∧ 0 ≀ 𝑀) β†’ 𝐻(β‡π‘’β€˜π‘†)𝐹)
228 0red 11255 . 2 (πœ‘ β†’ 0 ∈ ℝ)
22971, 227, 4, 228ltlecasei 11360 1 (πœ‘ β†’ 𝐻(β‡π‘’β€˜π‘†)𝐹)
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 394   ∧ w3a 1084   = wceq 1533  βˆƒwex 1773   ∈ wcel 2098  βˆ€wral 3058  {crab 3430  Vcvv 3473   βŠ† wss 3949  βˆ…c0 4326   class class class wbr 5152   ↦ cmpt 5235  β—‘ccnv 5681  dom cdm 5682   β€œ cima 5685   ∘ ccom 5686   Fn wfn 6548  βŸΆwf 6549  β€˜cfv 6553  (class class class)co 7426   ∘f cof 7689   ↑m cmap 8851  supcsup 9471  β„‚cc 11144  β„cr 11145  0cc0 11146   + caddc 11149   Β· cmul 11151  +∞cpnf 11283  β„*cxr 11285   < clt 11286   ≀ cle 11287  β„•0cn0 12510  β„€cz 12596  β„€β‰₯cuz 12860  [,]cicc 13367  ...cfz 13524  seqcseq 14006  β†‘cexp 14066  abscabs 15221   ⇝ cli 15468  Ξ£csu 15672  β‡π‘’culm 26332
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 2166  ax-ext 2699  ax-rep 5289  ax-sep 5303  ax-nul 5310  ax-pow 5369  ax-pr 5433  ax-un 7746  ax-inf2 9672  ax-cnex 11202  ax-resscn 11203  ax-1cn 11204  ax-icn 11205  ax-addcl 11206  ax-addrcl 11207  ax-mulcl 11208  ax-mulrcl 11209  ax-mulcom 11210  ax-addass 11211  ax-mulass 11212  ax-distr 11213  ax-i2m1 11214  ax-1ne0 11215  ax-1rid 11216  ax-rnegex 11217  ax-rrecex 11218  ax-cnre 11219  ax-pre-lttri 11220  ax-pre-lttrn 11221  ax-pre-ltadd 11222  ax-pre-mulgt0 11223  ax-pre-sup 11224
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2529  df-eu 2558  df-clab 2706  df-cleq 2720  df-clel 2806  df-nfc 2881  df-ne 2938  df-nel 3044  df-ral 3059  df-rex 3068  df-rmo 3374  df-reu 3375  df-rab 3431  df-v 3475  df-sbc 3779  df-csb 3895  df-dif 3952  df-un 3954  df-in 3956  df-ss 3966  df-pss 3968  df-nul 4327  df-if 4533  df-pw 4608  df-sn 4633  df-pr 4635  df-op 4639  df-uni 4913  df-int 4954  df-iun 5002  df-br 5153  df-opab 5215  df-mpt 5236  df-tr 5270  df-id 5580  df-eprel 5586  df-po 5594  df-so 5595  df-fr 5637  df-se 5638  df-we 5639  df-xp 5688  df-rel 5689  df-cnv 5690  df-co 5691  df-dm 5692  df-rn 5693  df-res 5694  df-ima 5695  df-pred 6310  df-ord 6377  df-on 6378  df-lim 6379  df-suc 6380  df-iota 6505  df-fun 6555  df-fn 6556  df-f 6557  df-f1 6558  df-fo 6559  df-f1o 6560  df-fv 6561  df-isom 6562  df-riota 7382  df-ov 7429  df-oprab 7430  df-mpo 7431  df-of 7691  df-om 7877  df-1st 7999  df-2nd 8000  df-frecs 8293  df-wrecs 8324  df-recs 8398  df-rdg 8437  df-1o 8493  df-er 8731  df-map 8853  df-pm 8854  df-en 8971  df-dom 8972  df-sdom 8973  df-fin 8974  df-sup 9473  df-inf 9474  df-oi 9541  df-card 9970  df-pnf 11288  df-mnf 11289  df-xr 11290  df-ltxr 11291  df-le 11292  df-sub 11484  df-neg 11485  df-div 11910  df-nn 12251  df-2 12313  df-3 12314  df-n0 12511  df-z 12597  df-uz 12861  df-rp 13015  df-ico 13370  df-icc 13371  df-fz 13525  df-fzo 13668  df-fl 13797  df-seq 14007  df-exp 14067  df-hash 14330  df-cj 15086  df-re 15087  df-im 15088  df-sqrt 15222  df-abs 15223  df-limsup 15455  df-clim 15472  df-rlim 15473  df-sum 15673  df-ulm 26333
This theorem is referenced by:  psercn2  26379  psercn2OLD  26380  pserdvlem2  26385
  Copyright terms: Public domain W3C validator