Metamath Proof Explorer

Theorem sge0seq

Description: A series of nonnegative reals agrees with the generalized sum of nonnegative reals. (Contributed by Glauco Siliprandi, 3-Mar-2021)

Ref Expression
Hypotheses sge0seq.m ⊢ ( 𝜑 → 𝑀 ∈ ℤ )
sge0seq.z ⊢ 𝑍 = ( ℤ≥ ‘ 𝑀 )
sge0seq.f ⊢ ( 𝜑 → 𝐹 : 𝑍 ⟶ ( 0 [,) +∞ ) )
sge0seq.g ⊢ 𝐺 = seq 𝑀 ( + , 𝐹 )
Assertion sge0seq ( 𝜑 → ( Σ^ ‘ 𝐹 ) = sup ( ran 𝐺 , ℝ* , < ) )

Proof

Step Hyp Ref Expression
1 sge0seq.m ⊢ ( 𝜑 → 𝑀 ∈ ℤ )
2 sge0seq.z ⊢ 𝑍 = ( ℤ≥ ‘ 𝑀 )
3 sge0seq.f ⊢ ( 𝜑 → 𝐹 : 𝑍 ⟶ ( 0 [,) +∞ ) )
4 sge0seq.g ⊢ 𝐺 = seq 𝑀 ( + , 𝐹 )
5 rge0ssre ⊢ ( 0 [,) +∞ ) ⊆ ℝ
6 3 ffvelcdmda ⊢ ( ( 𝜑 ∧ 𝑘 ∈ 𝑍 ) → ( 𝐹 ‘ 𝑘 ) ∈ ( 0 [,) +∞ ) )
7 5 6 sselid ⊢ ( ( 𝜑 ∧ 𝑘 ∈ 𝑍 ) → ( 𝐹 ‘ 𝑘 ) ∈ ℝ )
8 readdcl ⊢ ( ( 𝑘 ∈ ℝ ∧ 𝑖 ∈ ℝ ) → ( 𝑘 + 𝑖 ) ∈ ℝ )
9 8 adantl ⊢ ( ( 𝜑 ∧ ( 𝑘 ∈ ℝ ∧ 𝑖 ∈ ℝ ) ) → ( 𝑘 + 𝑖 ) ∈ ℝ )
10 2 1 7 9 seqf ⊢ ( 𝜑 → seq 𝑀 ( + , 𝐹 ) : 𝑍 ⟶ ℝ )
11 4 a1i ⊢ ( 𝜑 → 𝐺 = seq 𝑀 ( + , 𝐹 ) )
12 11 feq1d ⊢ ( 𝜑 → ( 𝐺 : 𝑍 ⟶ ℝ ↔ seq 𝑀 ( + , 𝐹 ) : 𝑍 ⟶ ℝ ) )
13 10 12 mpbird ⊢ ( 𝜑 → 𝐺 : 𝑍 ⟶ ℝ )
14 13 frnd ⊢ ( 𝜑 → ran 𝐺 ⊆ ℝ )
15 ressxr ⊢ ℝ ⊆ ℝ*
16 15 a1i ⊢ ( 𝜑 → ℝ ⊆ ℝ* )
17 14 16 sstrd ⊢ ( 𝜑 → ran 𝐺 ⊆ ℝ* )
18 2 fvexi ⊢ 𝑍 ∈ V
19 18 a1i ⊢ ( 𝜑 → 𝑍 ∈ V )
20 icossicc ⊢ ( 0 [,) +∞ ) ⊆ ( 0 [,] +∞ )
21 20 a1i ⊢ ( 𝜑 → ( 0 [,) +∞ ) ⊆ ( 0 [,] +∞ ) )
22 3 21 fssd ⊢ ( 𝜑 → 𝐹 : 𝑍 ⟶ ( 0 [,] +∞ ) )
23 19 22 sge0xrcl ⊢ ( 𝜑 → ( Σ^ ‘ 𝐹 ) ∈ ℝ* )
24 simpr ⊢ ( ( 𝜑 ∧ 𝑧 ∈ ran 𝐺 ) → 𝑧 ∈ ran 𝐺 )
25 13 ffnd ⊢ ( 𝜑 → 𝐺 Fn 𝑍 )
26 fvelrnb ⊢ ( 𝐺 Fn 𝑍 → ( 𝑧 ∈ ran 𝐺 ↔ ∃ 𝑗 ∈ 𝑍 ( 𝐺 ‘ 𝑗 ) = 𝑧 ) )
27 25 26 syl ⊢ ( 𝜑 → ( 𝑧 ∈ ran 𝐺 ↔ ∃ 𝑗 ∈ 𝑍 ( 𝐺 ‘ 𝑗 ) = 𝑧 ) )
28 27 adantr ⊢ ( ( 𝜑 ∧ 𝑧 ∈ ran 𝐺 ) → ( 𝑧 ∈ ran 𝐺 ↔ ∃ 𝑗 ∈ 𝑍 ( 𝐺 ‘ 𝑗 ) = 𝑧 ) )
29 24 28 mpbid ⊢ ( ( 𝜑 ∧ 𝑧 ∈ ran 𝐺 ) → ∃ 𝑗 ∈ 𝑍 ( 𝐺 ‘ 𝑗 ) = 𝑧 )
30 20 6 sselid ⊢ ( ( 𝜑 ∧ 𝑘 ∈ 𝑍 ) → ( 𝐹 ‘ 𝑘 ) ∈ ( 0 [,] +∞ ) )
31 elfzuz ⊢ ( 𝑘 ∈ ( 𝑀 ... 𝑗 ) → 𝑘 ∈ ( ℤ≥ ‘ 𝑀 ) )
32 31 2 eleqtrrdi ⊢ ( 𝑘 ∈ ( 𝑀 ... 𝑗 ) → 𝑘 ∈ 𝑍 )
33 32 ssriv ⊢ ( 𝑀 ... 𝑗 ) ⊆ 𝑍
34 33 a1i ⊢ ( 𝜑 → ( 𝑀 ... 𝑗 ) ⊆ 𝑍 )
35 19 30 34 sge0lessmpt ⊢ ( 𝜑 → ( Σ^ ‘ ( 𝑘 ∈ ( 𝑀 ... 𝑗 ) ↦ ( 𝐹 ‘ 𝑘 ) ) ) ≤ ( Σ^ ‘ ( 𝑘 ∈ 𝑍 ↦ ( 𝐹 ‘ 𝑘 ) ) ) )
36 35 3ad2ant1 ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ∧ ( 𝐺 ‘ 𝑗 ) = 𝑧 ) → ( Σ^ ‘ ( 𝑘 ∈ ( 𝑀 ... 𝑗 ) ↦ ( 𝐹 ‘ 𝑘 ) ) ) ≤ ( Σ^ ‘ ( 𝑘 ∈ 𝑍 ↦ ( 𝐹 ‘ 𝑘 ) ) ) )
37 fzfid ⊢ ( 𝜑 → ( 𝑀 ... 𝑗 ) ∈ Fin )
38 32 6 sylan2 ⊢ ( ( 𝜑 ∧ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ) → ( 𝐹 ‘ 𝑘 ) ∈ ( 0 [,) +∞ ) )
39 37 38 sge0fsummpt ⊢ ( 𝜑 → ( Σ^ ‘ ( 𝑘 ∈ ( 𝑀 ... 𝑗 ) ↦ ( 𝐹 ‘ 𝑘 ) ) ) = Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) )
40 39 3ad2ant1 ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ∧ ( 𝐺 ‘ 𝑗 ) = 𝑧 ) → ( Σ^ ‘ ( 𝑘 ∈ ( 𝑀 ... 𝑗 ) ↦ ( 𝐹 ‘ 𝑘 ) ) ) = Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) )
41 simpll ⊢ ( ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ) ∧ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ) → 𝜑 )
42 32 adantl ⊢ ( ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ) ∧ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ) → 𝑘 ∈ 𝑍 )
43 eqidd ⊢ ( ( 𝜑 ∧ 𝑘 ∈ 𝑍 ) → ( 𝐹 ‘ 𝑘 ) = ( 𝐹 ‘ 𝑘 ) )
44 41 42 43 syl2anc ⊢ ( ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ) ∧ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ) → ( 𝐹 ‘ 𝑘 ) = ( 𝐹 ‘ 𝑘 ) )
45 2 eleq2i ⊢ ( 𝑗 ∈ 𝑍 ↔ 𝑗 ∈ ( ℤ≥ ‘ 𝑀 ) )
46 45 bilani ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ) → 𝑗 ∈ ( ℤ≥ ‘ 𝑀 ) )
47 7 recnd ⊢ ( ( 𝜑 ∧ 𝑘 ∈ 𝑍 ) → ( 𝐹 ‘ 𝑘 ) ∈ ℂ )
48 41 42 47 syl2anc ⊢ ( ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ) ∧ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ) → ( 𝐹 ‘ 𝑘 ) ∈ ℂ )
49 44 46 48 fsumser ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ) → Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) = ( seq 𝑀 ( + , 𝐹 ) ‘ 𝑗 ) )
50 49 3adant3 ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ∧ ( 𝐺 ‘ 𝑗 ) = 𝑧 ) → Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) = ( seq 𝑀 ( + , 𝐹 ) ‘ 𝑗 ) )
51 40 50 eqtrd ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ∧ ( 𝐺 ‘ 𝑗 ) = 𝑧 ) → ( Σ^ ‘ ( 𝑘 ∈ ( 𝑀 ... 𝑗 ) ↦ ( 𝐹 ‘ 𝑘 ) ) ) = ( seq 𝑀 ( + , 𝐹 ) ‘ 𝑗 ) )
52 4 eqcomi ⊢ seq 𝑀 ( + , 𝐹 ) = 𝐺
53 52 fveq1i ⊢ ( seq 𝑀 ( + , 𝐹 ) ‘ 𝑗 ) = ( 𝐺 ‘ 𝑗 )
54 53 a1i ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ∧ ( 𝐺 ‘ 𝑗 ) = 𝑧 ) → ( seq 𝑀 ( + , 𝐹 ) ‘ 𝑗 ) = ( 𝐺 ‘ 𝑗 ) )
55 simp3 ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ∧ ( 𝐺 ‘ 𝑗 ) = 𝑧 ) → ( 𝐺 ‘ 𝑗 ) = 𝑧 )
56 51 54 55 3eqtrrd ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ∧ ( 𝐺 ‘ 𝑗 ) = 𝑧 ) → 𝑧 = ( Σ^ ‘ ( 𝑘 ∈ ( 𝑀 ... 𝑗 ) ↦ ( 𝐹 ‘ 𝑘 ) ) ) )
57 3 feqmptd ⊢ ( 𝜑 → 𝐹 = ( 𝑘 ∈ 𝑍 ↦ ( 𝐹 ‘ 𝑘 ) ) )
58 57 fveq2d ⊢ ( 𝜑 → ( Σ^ ‘ 𝐹 ) = ( Σ^ ‘ ( 𝑘 ∈ 𝑍 ↦ ( 𝐹 ‘ 𝑘 ) ) ) )
59 58 3ad2ant1 ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ∧ ( 𝐺 ‘ 𝑗 ) = 𝑧 ) → ( Σ^ ‘ 𝐹 ) = ( Σ^ ‘ ( 𝑘 ∈ 𝑍 ↦ ( 𝐹 ‘ 𝑘 ) ) ) )
60 56 59 breq12d ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ∧ ( 𝐺 ‘ 𝑗 ) = 𝑧 ) → ( 𝑧 ≤ ( Σ^ ‘ 𝐹 ) ↔ ( Σ^ ‘ ( 𝑘 ∈ ( 𝑀 ... 𝑗 ) ↦ ( 𝐹 ‘ 𝑘 ) ) ) ≤ ( Σ^ ‘ ( 𝑘 ∈ 𝑍 ↦ ( 𝐹 ‘ 𝑘 ) ) ) ) )
61 36 60 mpbird ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ∧ ( 𝐺 ‘ 𝑗 ) = 𝑧 ) → 𝑧 ≤ ( Σ^ ‘ 𝐹 ) )
62 61 3exp ⊢ ( 𝜑 → ( 𝑗 ∈ 𝑍 → ( ( 𝐺 ‘ 𝑗 ) = 𝑧 → 𝑧 ≤ ( Σ^ ‘ 𝐹 ) ) ) )
63 62 adantr ⊢ ( ( 𝜑 ∧ 𝑧 ∈ ran 𝐺 ) → ( 𝑗 ∈ 𝑍 → ( ( 𝐺 ‘ 𝑗 ) = 𝑧 → 𝑧 ≤ ( Σ^ ‘ 𝐹 ) ) ) )
64 63 rexlimdv ⊢ ( ( 𝜑 ∧ 𝑧 ∈ ran 𝐺 ) → ( ∃ 𝑗 ∈ 𝑍 ( 𝐺 ‘ 𝑗 ) = 𝑧 → 𝑧 ≤ ( Σ^ ‘ 𝐹 ) ) )
65 29 64 mpd ⊢ ( ( 𝜑 ∧ 𝑧 ∈ ran 𝐺 ) → 𝑧 ≤ ( Σ^ ‘ 𝐹 ) )
66 65 ralrimiva ⊢ ( 𝜑 → ∀ 𝑧 ∈ ran 𝐺 𝑧 ≤ ( Σ^ ‘ 𝐹 ) )
67 nfv ⊢ Ⅎ 𝑘 ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑧 < ( Σ^ ‘ 𝐹 ) )
68 18 a1i ⊢ ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑧 < ( Σ^ ‘ 𝐹 ) ) → 𝑍 ∈ V )
69 6 ad4ant14 ⊢ ( ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑧 < ( Σ^ ‘ 𝐹 ) ) ∧ 𝑘 ∈ 𝑍 ) → ( 𝐹 ‘ 𝑘 ) ∈ ( 0 [,) +∞ ) )
70 simplr ⊢ ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑧 < ( Σ^ ‘ 𝐹 ) ) → 𝑧 ∈ ℝ )
71 simpr ⊢ ( ( 𝜑 ∧ 𝑧 < ( Σ^ ‘ 𝐹 ) ) → 𝑧 < ( Σ^ ‘ 𝐹 ) )
72 58 adantr ⊢ ( ( 𝜑 ∧ 𝑧 < ( Σ^ ‘ 𝐹 ) ) → ( Σ^ ‘ 𝐹 ) = ( Σ^ ‘ ( 𝑘 ∈ 𝑍 ↦ ( 𝐹 ‘ 𝑘 ) ) ) )
73 71 72 breqtrd ⊢ ( ( 𝜑 ∧ 𝑧 < ( Σ^ ‘ 𝐹 ) ) → 𝑧 < ( Σ^ ‘ ( 𝑘 ∈ 𝑍 ↦ ( 𝐹 ‘ 𝑘 ) ) ) )
74 73 adantlr ⊢ ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑧 < ( Σ^ ‘ 𝐹 ) ) → 𝑧 < ( Σ^ ‘ ( 𝑘 ∈ 𝑍 ↦ ( 𝐹 ‘ 𝑘 ) ) ) )
75 67 68 69 70 74 sge0gtfsumgt ⊢ ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑧 < ( Σ^ ‘ 𝐹 ) ) → ∃ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) )
76 1 3ad2ant1 ⊢ ( ( 𝜑 ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ∧ 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ) → 𝑀 ∈ ℤ )
77 elpwinss ⊢ ( 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) → 𝑤 ⊆ 𝑍 )
78 77 3ad2ant2 ⊢ ( ( 𝜑 ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ∧ 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ) → 𝑤 ⊆ 𝑍 )
79 elinel2 ⊢ ( 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) → 𝑤 ∈ Fin )
80 79 3ad2ant2 ⊢ ( ( 𝜑 ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ∧ 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ) → 𝑤 ∈ Fin )
81 76 2 78 80 uzfissfz ⊢ ( ( 𝜑 ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ∧ 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ) → ∃ 𝑗 ∈ 𝑍 𝑤 ⊆ ( 𝑀 ... 𝑗 ) )
82 81 3adant1r ⊢ ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ∧ 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ) → ∃ 𝑗 ∈ 𝑍 𝑤 ⊆ ( 𝑀 ... 𝑗 ) )
83 simpl1r ⊢ ( ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ∧ 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ) ∧ 𝑤 ⊆ ( 𝑀 ... 𝑗 ) ) → 𝑧 ∈ ℝ )
84 79 adantl ⊢ ( ( 𝜑 ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ) → 𝑤 ∈ Fin )
85 57 7 fmpt3d ⊢ ( 𝜑 → 𝐹 : 𝑍 ⟶ ℝ )
86 85 ad2antrr ⊢ ( ( ( 𝜑 ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ) ∧ 𝑘 ∈ 𝑤 ) → 𝐹 : 𝑍 ⟶ ℝ )
87 77 sselda ⊢ ( ( 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ∧ 𝑘 ∈ 𝑤 ) → 𝑘 ∈ 𝑍 )
88 87 adantll ⊢ ( ( ( 𝜑 ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ) ∧ 𝑘 ∈ 𝑤 ) → 𝑘 ∈ 𝑍 )
89 86 88 ffvelcdmd ⊢ ( ( ( 𝜑 ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ) ∧ 𝑘 ∈ 𝑤 ) → ( 𝐹 ‘ 𝑘 ) ∈ ℝ )
90 84 89 fsumrecl ⊢ ( ( 𝜑 ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ) → Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ∈ ℝ )
91 90 ad4ant13 ⊢ ( ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ) ∧ 𝑤 ⊆ ( 𝑀 ... 𝑗 ) ) → Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ∈ ℝ )
92 91 3adantl3 ⊢ ( ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ∧ 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ) ∧ 𝑤 ⊆ ( 𝑀 ... 𝑗 ) ) → Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ∈ ℝ )
93 32 7 sylan2 ⊢ ( ( 𝜑 ∧ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ) → ( 𝐹 ‘ 𝑘 ) ∈ ℝ )
94 37 93 fsumrecl ⊢ ( 𝜑 → Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) ∈ ℝ )
95 94 ad3antrrr ⊢ ( ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ) ∧ 𝑤 ⊆ ( 𝑀 ... 𝑗 ) ) → Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) ∈ ℝ )
96 95 3adantl3 ⊢ ( ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ∧ 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ) ∧ 𝑤 ⊆ ( 𝑀 ... 𝑗 ) ) → Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) ∈ ℝ )
97 simpl3 ⊢ ( ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ∧ 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ) ∧ 𝑤 ⊆ ( 𝑀 ... 𝑗 ) ) → 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) )
98 37 adantr ⊢ ( ( 𝜑 ∧ 𝑤 ⊆ ( 𝑀 ... 𝑗 ) ) → ( 𝑀 ... 𝑗 ) ∈ Fin )
99 93 adantlr ⊢ ( ( ( 𝜑 ∧ 𝑤 ⊆ ( 𝑀 ... 𝑗 ) ) ∧ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ) → ( 𝐹 ‘ 𝑘 ) ∈ ℝ )
100 0xr ⊢ 0 ∈ ℝ*
101 100 a1i ⊢ ( ( 𝜑 ∧ 𝑘 ∈ 𝑍 ) → 0 ∈ ℝ* )
102 pnfxr ⊢ +∞ ∈ ℝ*
103 102 a1i ⊢ ( ( 𝜑 ∧ 𝑘 ∈ 𝑍 ) → +∞ ∈ ℝ* )
104 icogelb ⊢ ( ( 0 ∈ ℝ* ∧ +∞ ∈ ℝ* ∧ ( 𝐹 ‘ 𝑘 ) ∈ ( 0 [,) +∞ ) ) → 0 ≤ ( 𝐹 ‘ 𝑘 ) )
105 101 103 6 104 syl3anc ⊢ ( ( 𝜑 ∧ 𝑘 ∈ 𝑍 ) → 0 ≤ ( 𝐹 ‘ 𝑘 ) )
106 32 105 sylan2 ⊢ ( ( 𝜑 ∧ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ) → 0 ≤ ( 𝐹 ‘ 𝑘 ) )
107 106 adantlr ⊢ ( ( ( 𝜑 ∧ 𝑤 ⊆ ( 𝑀 ... 𝑗 ) ) ∧ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ) → 0 ≤ ( 𝐹 ‘ 𝑘 ) )
108 simpr ⊢ ( ( 𝜑 ∧ 𝑤 ⊆ ( 𝑀 ... 𝑗 ) ) → 𝑤 ⊆ ( 𝑀 ... 𝑗 ) )
109 98 99 107 108 fsumless ⊢ ( ( 𝜑 ∧ 𝑤 ⊆ ( 𝑀 ... 𝑗 ) ) → Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ≤ Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) )
110 109 adantlr ⊢ ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑤 ⊆ ( 𝑀 ... 𝑗 ) ) → Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ≤ Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) )
111 110 3ad2antl1 ⊢ ( ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ∧ 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ) ∧ 𝑤 ⊆ ( 𝑀 ... 𝑗 ) ) → Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ≤ Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) )
112 83 92 96 97 111 ltletrd ⊢ ( ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ∧ 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ) ∧ 𝑤 ⊆ ( 𝑀 ... 𝑗 ) ) → 𝑧 < Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) )
113 112 ex ⊢ ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ∧ 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ) → ( 𝑤 ⊆ ( 𝑀 ... 𝑗 ) → 𝑧 < Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) ) )
114 113 reximdv ⊢ ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ∧ 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ) → ( ∃ 𝑗 ∈ 𝑍 𝑤 ⊆ ( 𝑀 ... 𝑗 ) → ∃ 𝑗 ∈ 𝑍 𝑧 < Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) ) )
115 82 114 mpd ⊢ ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) ∧ 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) ) → ∃ 𝑗 ∈ 𝑍 𝑧 < Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) )
116 115 3exp ⊢ ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) → ( 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) → ( 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) → ∃ 𝑗 ∈ 𝑍 𝑧 < Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) ) ) )
117 116 adantr ⊢ ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑧 < ( Σ^ ‘ 𝐹 ) ) → ( 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) → ( 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) → ∃ 𝑗 ∈ 𝑍 𝑧 < Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) ) ) )
118 117 rexlimdv ⊢ ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑧 < ( Σ^ ‘ 𝐹 ) ) → ( ∃ 𝑤 ∈ ( 𝒫 𝑍 ∩ Fin ) 𝑧 < Σ 𝑘 ∈ 𝑤 ( 𝐹 ‘ 𝑘 ) → ∃ 𝑗 ∈ 𝑍 𝑧 < Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) ) )
119 75 118 mpd ⊢ ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑧 < ( Σ^ ‘ 𝐹 ) ) → ∃ 𝑗 ∈ 𝑍 𝑧 < Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) )
120 10 ffnd ⊢ ( 𝜑 → seq 𝑀 ( + , 𝐹 ) Fn 𝑍 )
121 120 adantr ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ) → seq 𝑀 ( + , 𝐹 ) Fn 𝑍 )
122 46 45 sylibr ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ) → 𝑗 ∈ 𝑍 )
123 fnfvelrn ⊢ ( ( seq 𝑀 ( + , 𝐹 ) Fn 𝑍 ∧ 𝑗 ∈ 𝑍 ) → ( seq 𝑀 ( + , 𝐹 ) ‘ 𝑗 ) ∈ ran seq 𝑀 ( + , 𝐹 ) )
124 121 122 123 syl2anc ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ) → ( seq 𝑀 ( + , 𝐹 ) ‘ 𝑗 ) ∈ ran seq 𝑀 ( + , 𝐹 ) )
125 4 a1i ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ) → 𝐺 = seq 𝑀 ( + , 𝐹 ) )
126 125 rneqd ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ) → ran 𝐺 = ran seq 𝑀 ( + , 𝐹 ) )
127 49 126 eleq12d ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ) → ( Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) ∈ ran 𝐺 ↔ ( seq 𝑀 ( + , 𝐹 ) ‘ 𝑗 ) ∈ ran seq 𝑀 ( + , 𝐹 ) ) )
128 124 127 mpbird ⊢ ( ( 𝜑 ∧ 𝑗 ∈ 𝑍 ) → Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) ∈ ran 𝐺 )
129 128 adantlr ⊢ ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑗 ∈ 𝑍 ) → Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) ∈ ran 𝐺 )
130 129 3adant3 ⊢ ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑗 ∈ 𝑍 ∧ 𝑧 < Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) ) → Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) ∈ ran 𝐺 )
131 simp3 ⊢ ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑗 ∈ 𝑍 ∧ 𝑧 < Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) ) → 𝑧 < Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) )
132 breq2 ⊢ ( 𝑦 = Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) → ( 𝑧 < 𝑦 ↔ 𝑧 < Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) ) )
133 132 rspcev ⊢ ( ( Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) ∈ ran 𝐺 ∧ 𝑧 < Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) ) → ∃ 𝑦 ∈ ran 𝐺 𝑧 < 𝑦 )
134 130 131 133 syl2anc ⊢ ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑗 ∈ 𝑍 ∧ 𝑧 < Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) ) → ∃ 𝑦 ∈ ran 𝐺 𝑧 < 𝑦 )
135 134 3exp ⊢ ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) → ( 𝑗 ∈ 𝑍 → ( 𝑧 < Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) → ∃ 𝑦 ∈ ran 𝐺 𝑧 < 𝑦 ) ) )
136 135 rexlimdv ⊢ ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) → ( ∃ 𝑗 ∈ 𝑍 𝑧 < Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) → ∃ 𝑦 ∈ ran 𝐺 𝑧 < 𝑦 ) )
137 136 adantr ⊢ ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑧 < ( Σ^ ‘ 𝐹 ) ) → ( ∃ 𝑗 ∈ 𝑍 𝑧 < Σ 𝑘 ∈ ( 𝑀 ... 𝑗 ) ( 𝐹 ‘ 𝑘 ) → ∃ 𝑦 ∈ ran 𝐺 𝑧 < 𝑦 ) )
138 119 137 mpd ⊢ ( ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) ∧ 𝑧 < ( Σ^ ‘ 𝐹 ) ) → ∃ 𝑦 ∈ ran 𝐺 𝑧 < 𝑦 )
139 138 ex ⊢ ( ( 𝜑 ∧ 𝑧 ∈ ℝ ) → ( 𝑧 < ( Σ^ ‘ 𝐹 ) → ∃ 𝑦 ∈ ran 𝐺 𝑧 < 𝑦 ) )
140 139 ralrimiva ⊢ ( 𝜑 → ∀ 𝑧 ∈ ℝ ( 𝑧 < ( Σ^ ‘ 𝐹 ) → ∃ 𝑦 ∈ ran 𝐺 𝑧 < 𝑦 ) )
141 supxr2 ⊢ ( ( ( ran 𝐺 ⊆ ℝ* ∧ ( Σ^ ‘ 𝐹 ) ∈ ℝ* ) ∧ ( ∀ 𝑧 ∈ ran 𝐺 𝑧 ≤ ( Σ^ ‘ 𝐹 ) ∧ ∀ 𝑧 ∈ ℝ ( 𝑧 < ( Σ^ ‘ 𝐹 ) → ∃ 𝑦 ∈ ran 𝐺 𝑧 < 𝑦 ) ) ) → sup ( ran 𝐺 , ℝ* , < ) = ( Σ^ ‘ 𝐹 ) )
142 17 23 66 140 141 syl22anc ⊢ ( 𝜑 → sup ( ran 𝐺 , ℝ* , < ) = ( Σ^ ‘ 𝐹 ) )
143 142 eqcomd ⊢ ( 𝜑 → ( Σ^ ‘ 𝐹 ) = sup ( ran 𝐺 , ℝ* , < ) )