Metamath Proof Explorer


Theorem sge0xaddlem2

Description: The extended addition of two generalized sums of nonnegative extended reals. (Contributed by Glauco Siliprandi, 11-Oct-2020)

Ref Expression
Hypotheses sge0xaddlem2.a φAV
sge0xaddlem2.b φkAB0+∞
sge0xaddlem2.c φkAC0+∞
sge0xaddlem2.sb φsum^kAB
sge0xaddlem2.sc φsum^kAC
Assertion sge0xaddlem2 φsum^kAB+𝑒C=sum^kAB+𝑒sum^kAC

Proof

Step Hyp Ref Expression
1 sge0xaddlem2.a φAV
2 sge0xaddlem2.b φkAB0+∞
3 sge0xaddlem2.c φkAC0+∞
4 sge0xaddlem2.sb φsum^kAB
5 sge0xaddlem2.sc φsum^kAC
6 nfv kφ
7 0xr 0*
8 7 a1i φkA0*
9 pnfxr +∞*
10 9 a1i φkA+∞*
11 rge0ssre 0+∞
12 11 2 sselid φkAB
13 11 3 sselid φkAC
14 12 13 readdcld φkAB+C
15 14 rexrd φkAB+C*
16 icossicc 0+∞0+∞
17 16 2 sselid φkAB0+∞
18 xrge0ge0 B0+∞0B
19 17 18 syl φkA0B
20 16 3 sselid φkAC0+∞
21 xrge0ge0 C0+∞0C
22 20 21 syl φkA0C
23 12 13 19 22 addge0d φkA0B+C
24 14 ltpnfd φkAB+C<+∞
25 8 10 15 23 24 elicod φkAB+C0+∞
26 6 1 25 sge0revalmpt φsum^kAB+C=supranx𝒫AFinkxB+C*<
27 rexadd BCB+𝑒C=B+C
28 12 13 27 syl2anc φkAB+𝑒C=B+C
29 28 mpteq2dva φkAB+𝑒C=kAB+C
30 29 fveq2d φsum^kAB+𝑒C=sum^kAB+C
31 rexadd sum^kABsum^kACsum^kAB+𝑒sum^kAC=sum^kAB+sum^kAC
32 4 5 31 syl2anc φsum^kAB+𝑒sum^kAC=sum^kAB+sum^kAC
33 6 1 2 sge0revalmpt φsum^kAB=suprany𝒫AFinkyB*<
34 6 1 3 sge0revalmpt φsum^kAC=supranz𝒫AFinkzC*<
35 33 34 oveq12d φsum^kAB+sum^kAC=suprany𝒫AFinkyB*<+supranz𝒫AFinkzC*<
36 33 eqcomd φsuprany𝒫AFinkyB*<=sum^kAB
37 36 4 eqeltrd φsuprany𝒫AFinkyB*<
38 34 5 eqeltrrd φsupranz𝒫AFinkzC*<
39 37 38 readdcld φsuprany𝒫AFinkyB*<+supranz𝒫AFinkzC*<
40 39 rexrd φsuprany𝒫AFinkyB*<+supranz𝒫AFinkzC*<*
41 elinel2 x𝒫AFinxFin
42 41 adantl φx𝒫AFinxFin
43 simpll φx𝒫AFinkxφ
44 elpwinss x𝒫AFinxA
45 44 adantr x𝒫AFinkxxA
46 simpr x𝒫AFinkxkx
47 45 46 sseldd x𝒫AFinkxkA
48 47 adantll φx𝒫AFinkxkA
49 43 48 12 syl2anc φx𝒫AFinkxB
50 43 48 13 syl2anc φx𝒫AFinkxC
51 49 50 readdcld φx𝒫AFinkxB+C
52 42 51 fsumrecl φx𝒫AFinkxB+C
53 52 rexrd φx𝒫AFinkxB+C*
54 53 ralrimiva φx𝒫AFinkxB+C*
55 eqid x𝒫AFinkxB+C=x𝒫AFinkxB+C
56 55 rnmptss x𝒫AFinkxB+C*ranx𝒫AFinkxB+C*
57 54 56 syl φranx𝒫AFinkxB+C*
58 supxrcl ranx𝒫AFinkxB+C*supranx𝒫AFinkxB+C*<*
59 57 58 syl φsupranx𝒫AFinkxB+C*<*
60 35 eqcomd φsuprany𝒫AFinkyB*<+supranz𝒫AFinkzC*<=sum^kAB+sum^kAC
61 60 adantr φe+suprany𝒫AFinkyB*<+supranz𝒫AFinkzC*<=sum^kAB+sum^kAC
62 nfv kφe+
63 1 adantr φe+AV
64 17 adantlr φe+kAB0+∞
65 rphalfcl e+e2+
66 65 adantl φe+e2+
67 4 adantr φe+sum^kAB
68 62 63 64 66 67 sge0ltfirpmpt2 φe+u𝒫AFinsum^kAB<kuB+e2
69 20 adantlr φe+kAC0+∞
70 5 adantr φe+sum^kAC
71 62 63 69 66 70 sge0ltfirpmpt2 φe+v𝒫AFinsum^kAC<kvC+e2
72 71 3ad2ant1 φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2
73 63 3ad2ant1 φe+u𝒫AFinsum^kAB<kuB+e2AV
74 73 3ad2ant1 φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2AV
75 simpl1l φe+u𝒫AFinsum^kAB<kuB+e2jAφ
76 75 3ad2antl1 φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2jAφ
77 simpr φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2jAjA
78 nfv kφjA
79 nfcsb1v _kj/kB
80 79 nfel1 kj/kB0+∞
81 78 80 nfim kφjAj/kB0+∞
82 eleq1w k=jkAjA
83 82 anbi2d k=jφkAφjA
84 csbeq1a k=jB=j/kB
85 84 eleq1d k=jB0+∞j/kB0+∞
86 83 85 imbi12d k=jφkAB0+∞φjAj/kB0+∞
87 81 86 2 chvarfv φjAj/kB0+∞
88 76 77 87 syl2anc φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2jAj/kB0+∞
89 nfcsb1v _kj/kC
90 89 nfel1 kj/kC0+∞
91 78 90 nfim kφjAj/kC0+∞
92 csbeq1a k=jC=j/kC
93 92 eleq1d k=jC0+∞j/kC0+∞
94 83 93 imbi12d k=jφkAC0+∞φjAj/kC0+∞
95 91 94 3 chvarfv φjAj/kC0+∞
96 76 77 95 syl2anc φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2jAj/kC0+∞
97 simp11r φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2e+
98 simp12 φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2u𝒫AFin
99 elpwinss u𝒫AFinuA
100 98 99 syl φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2uA
101 elinel2 u𝒫AFinuFin
102 101 3ad2ant2 φe+u𝒫AFinsum^kAB<kuB+e2uFin
103 102 3ad2ant1 φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2uFin
104 simp2 φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2v𝒫AFin
105 elpwinss v𝒫AFinvA
106 104 105 syl φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2vA
107 elinel2 v𝒫AFinvFin
108 107 3ad2ant2 φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2vFin
109 simp13 φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2sum^kAB<kuB+e2
110 nfcv _jB
111 110 79 84 cbvmpt kAB=jAj/kB
112 111 fveq2i sum^kAB=sum^jAj/kB
113 nfcv _ju
114 nfcv _ku
115 84 113 114 110 79 cbvsum kuB=juj/kB
116 115 oveq1i kuB+e2=juj/kB+e2
117 112 116 breq12i sum^kAB<kuB+e2sum^jAj/kB<juj/kB+e2
118 117 biimpi sum^kAB<kuB+e2sum^jAj/kB<juj/kB+e2
119 109 118 syl φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2sum^jAj/kB<juj/kB+e2
120 simp3 φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2sum^kAC<kvC+e2
121 nfcv _jC
122 121 89 92 cbvmpt kAC=jAj/kC
123 122 fveq2i sum^kAC=sum^jAj/kC
124 nfcv _jv
125 nfcv _kv
126 92 124 125 121 89 cbvsum kvC=jvj/kC
127 126 oveq1i kvC+e2=jvj/kC+e2
128 123 127 breq12i sum^kAC<kvC+e2sum^jAj/kC<jvj/kC+e2
129 128 biimpi sum^kAC<kvC+e2sum^jAj/kC<jvj/kC+e2
130 120 129 syl φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2sum^jAj/kC<jvj/kC+e2
131 simp11l φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2φ
132 84 92 oveq12d k=jB+C=j/kB+j/kC
133 nfcv _jx
134 nfcv _kx
135 nfcv _jB+C
136 nfcv _k+
137 79 136 89 nfov _kj/kB+j/kC
138 132 133 134 135 137 cbvsum kxB+C=jxj/kB+j/kC
139 138 mpteq2i x𝒫AFinkxB+C=x𝒫AFinjxj/kB+j/kC
140 139 rneqi ranx𝒫AFinkxB+C=ranx𝒫AFinjxj/kB+j/kC
141 140 supeq1i supranx𝒫AFinkxB+C*<=supranx𝒫AFinjxj/kB+j/kC*<
142 141 eqcomi supranx𝒫AFinjxj/kB+j/kC*<=supranx𝒫AFinkxB+C*<
143 142 a1i φsupranx𝒫AFinjxj/kB+j/kC*<=supranx𝒫AFinkxB+C*<
144 143 26 eqtr4d φsupranx𝒫AFinjxj/kB+j/kC*<=sum^kAB+C
145 ge0xaddcl B0+∞C0+∞B+𝑒C0+∞
146 17 20 145 syl2anc φkAB+𝑒C0+∞
147 28 146 eqeltrrd φkAB+C0+∞
148 6 1 147 sge0clmpt φsum^kAB+C0+∞
149 144 148 eqeltrd φsupranx𝒫AFinjxj/kB+j/kC*<0+∞
150 131 149 syl φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2supranx𝒫AFinjxj/kB+j/kC*<0+∞
151 112 4 eqeltrrid φsum^jAj/kB
152 131 151 syl φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2sum^jAj/kB
153 123 5 eqeltrrid φsum^jAj/kC
154 131 153 syl φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2sum^jAj/kC
155 74 88 96 97 100 103 106 108 119 130 150 152 154 sge0xaddlem1 φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2sum^jAj/kB+sum^jAj/kCsupranx𝒫AFinjxj/kB+j/kC*<+𝑒e
156 112 123 oveq12i sum^kAB+sum^kAC=sum^jAj/kB+sum^jAj/kC
157 141 oveq1i supranx𝒫AFinkxB+C*<+𝑒e=supranx𝒫AFinjxj/kB+j/kC*<+𝑒e
158 156 157 breq12i sum^kAB+sum^kACsupranx𝒫AFinkxB+C*<+𝑒esum^jAj/kB+sum^jAj/kCsupranx𝒫AFinjxj/kB+j/kC*<+𝑒e
159 155 158 sylibr φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2sum^kAB+sum^kACsupranx𝒫AFinkxB+C*<+𝑒e
160 159 3exp φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2sum^kAB+sum^kACsupranx𝒫AFinkxB+C*<+𝑒e
161 160 rexlimdv φe+u𝒫AFinsum^kAB<kuB+e2v𝒫AFinsum^kAC<kvC+e2sum^kAB+sum^kACsupranx𝒫AFinkxB+C*<+𝑒e
162 72 161 mpd φe+u𝒫AFinsum^kAB<kuB+e2sum^kAB+sum^kACsupranx𝒫AFinkxB+C*<+𝑒e
163 162 3exp φe+u𝒫AFinsum^kAB<kuB+e2sum^kAB+sum^kACsupranx𝒫AFinkxB+C*<+𝑒e
164 163 rexlimdv φe+u𝒫AFinsum^kAB<kuB+e2sum^kAB+sum^kACsupranx𝒫AFinkxB+C*<+𝑒e
165 68 164 mpd φe+sum^kAB+sum^kACsupranx𝒫AFinkxB+C*<+𝑒e
166 61 165 eqbrtrd φe+suprany𝒫AFinkyB*<+supranz𝒫AFinkzC*<supranx𝒫AFinkxB+C*<+𝑒e
167 40 59 166 xrlexaddrp φsuprany𝒫AFinkyB*<+supranz𝒫AFinkzC*<supranx𝒫AFinkxB+C*<
168 26 eqcomd φsupranx𝒫AFinkxB+C*<=sum^kAB+C
169 43 48 25 syl2anc φx𝒫AFinkxB+C0+∞
170 42 169 sge0fsummpt φx𝒫AFinsum^kxB+C=kxB+C
171 49 recnd φx𝒫AFinkxB
172 50 recnd φx𝒫AFinkxC
173 42 171 172 fsumadd φx𝒫AFinkxB+C=kxB+kxC
174 170 173 eqtrd φx𝒫AFinsum^kxB+C=kxB+kxC
175 42 49 fsumrecl φx𝒫AFinkxB
176 42 50 fsumrecl φx𝒫AFinkxC
177 37 adantr φx𝒫AFinsuprany𝒫AFinkyB*<
178 38 adantr φx𝒫AFinsupranz𝒫AFinkzC*<
179 elinel2 y𝒫AFinyFin
180 179 adantl φy𝒫AFinyFin
181 simpll φy𝒫AFinkyφ
182 elpwinss y𝒫AFinyA
183 182 adantr y𝒫AFinkyyA
184 simpr y𝒫AFinkyky
185 183 184 sseldd y𝒫AFinkykA
186 185 adantll φy𝒫AFinkykA
187 181 186 12 syl2anc φy𝒫AFinkyB
188 180 187 fsumrecl φy𝒫AFinkyB
189 188 rexrd φy𝒫AFinkyB*
190 189 ralrimiva φy𝒫AFinkyB*
191 eqid y𝒫AFinkyB=y𝒫AFinkyB
192 191 rnmptss y𝒫AFinkyB*rany𝒫AFinkyB*
193 190 192 syl φrany𝒫AFinkyB*
194 193 adantr φx𝒫AFinrany𝒫AFinkyB*
195 simpr φx𝒫AFinx𝒫AFin
196 eqidd φx𝒫AFinkxB=kxB
197 sumeq1 y=xkyB=kxB
198 197 rspceeqv x𝒫AFinkxB=kxBy𝒫AFinkxB=kyB
199 195 196 198 syl2anc φx𝒫AFiny𝒫AFinkxB=kyB
200 175 elexd φx𝒫AFinkxBV
201 191 199 200 elrnmptd φx𝒫AFinkxBrany𝒫AFinkyB
202 supxrub rany𝒫AFinkyB*kxBrany𝒫AFinkyBkxBsuprany𝒫AFinkyB*<
203 194 201 202 syl2anc φx𝒫AFinkxBsuprany𝒫AFinkyB*<
204 nfv zφ
205 eqid z𝒫AFinkzC=z𝒫AFinkzC
206 elinel2 z𝒫AFinzFin
207 206 adantl φz𝒫AFinzFin
208 simpll φz𝒫AFinkzφ
209 elpwinss z𝒫AFinzA
210 209 adantr z𝒫AFinkzzA
211 simpr z𝒫AFinkzkz
212 210 211 sseldd z𝒫AFinkzkA
213 212 adantll φz𝒫AFinkzkA
214 208 213 13 syl2anc φz𝒫AFinkzC
215 207 214 fsumrecl φz𝒫AFinkzC
216 215 rexrd φz𝒫AFinkzC*
217 204 205 216 rnmptssd φranz𝒫AFinkzC*
218 217 adantr φx𝒫AFinranz𝒫AFinkzC*
219 eqidd φx𝒫AFinkxC=kxC
220 sumeq1 z=xkzC=kxC
221 220 rspceeqv x𝒫AFinkxC=kxCz𝒫AFinkxC=kzC
222 195 219 221 syl2anc φx𝒫AFinz𝒫AFinkxC=kzC
223 176 elexd φx𝒫AFinkxCV
224 205 222 223 elrnmptd φx𝒫AFinkxCranz𝒫AFinkzC
225 supxrub ranz𝒫AFinkzC*kxCranz𝒫AFinkzCkxCsupranz𝒫AFinkzC*<
226 218 224 225 syl2anc φx𝒫AFinkxCsupranz𝒫AFinkzC*<
227 175 176 177 178 203 226 le2addd φx𝒫AFinkxB+kxCsuprany𝒫AFinkyB*<+supranz𝒫AFinkzC*<
228 174 227 eqbrtrd φx𝒫AFinsum^kxB+Csuprany𝒫AFinkyB*<+supranz𝒫AFinkzC*<
229 228 ralrimiva φx𝒫AFinsum^kxB+Csuprany𝒫AFinkyB*<+supranz𝒫AFinkzC*<
230 6 1 147 40 sge0lefimpt φsum^kAB+Csuprany𝒫AFinkyB*<+supranz𝒫AFinkzC*<x𝒫AFinsum^kxB+Csuprany𝒫AFinkyB*<+supranz𝒫AFinkzC*<
231 229 230 mpbird φsum^kAB+Csuprany𝒫AFinkyB*<+supranz𝒫AFinkzC*<
232 168 231 eqbrtrd φsupranx𝒫AFinkxB+C*<suprany𝒫AFinkyB*<+supranz𝒫AFinkzC*<
233 40 59 167 232 xrletrid φsuprany𝒫AFinkyB*<+supranz𝒫AFinkzC*<=supranx𝒫AFinkxB+C*<
234 32 35 233 3eqtrd φsum^kAB+𝑒sum^kAC=supranx𝒫AFinkxB+C*<
235 26 30 234 3eqtr4d φsum^kAB+𝑒C=sum^kAB+𝑒sum^kAC