Metamath Proof Explorer


Theorem sge0iunmpt

Description: Sum of nonnegative extended reals over a disjoint indexed union. (Contributed by Glauco Siliprandi, 17-Aug-2020)

Ref Expression
Hypotheses sge0iunmpt.a φ A V
sge0iunmpt.b φ x A B W
sge0iunmpt.dj φ Disj x A B
sge0iunmpt.c φ x A k B C 0 +∞
Assertion sge0iunmpt φ sum^ k x A B C = sum^ x A sum^ k B C

Proof

Step Hyp Ref Expression
1 sge0iunmpt.a φ A V
2 sge0iunmpt.b φ x A B W
3 sge0iunmpt.dj φ Disj x A B
4 sge0iunmpt.c φ x A k B C 0 +∞
5 nfv x φ
6 nfcv _ x sum^
7 nfiu1 _ x x A B
8 nfcv _ x C
9 7 8 nfmpt _ x k x A B C
10 6 9 nffv _ x sum^ k x A B C
11 nfmpt1 _ x x A sum^ k B C
12 6 11 nffv _ x sum^ x A sum^ k B C
13 10 12 nfeq x sum^ k x A B C = sum^ x A sum^ k B C
14 2 ralrimiva φ x A B W
15 iunexg A V x A B W x A B V
16 1 14 15 syl2anc φ x A B V
17 eliun k x A B x A k B
18 17 biimpi k x A B x A k B
19 18 adantl φ k x A B x A k B
20 nfcv _ x k
21 20 7 nfel x k x A B
22 5 21 nfan x φ k x A B
23 8 nfel1 x C 0 +∞
24 4 3exp φ x A k B C 0 +∞
25 24 adantr φ k x A B x A k B C 0 +∞
26 22 23 25 rexlimd φ k x A B x A k B C 0 +∞
27 19 26 mpd φ k x A B C 0 +∞
28 eqid k x A B C = k x A B C
29 27 28 fmptd φ k x A B C : x A B 0 +∞
30 16 29 sge0xrcl φ sum^ k x A B C *
31 30 3ad2ant1 φ x A sum^ k B C = +∞ sum^ k x A B C *
32 id sum^ k B C = +∞ sum^ k B C = +∞
33 32 eqcomd sum^ k B C = +∞ +∞ = sum^ k B C
34 33 adantl x A sum^ k B C = +∞ +∞ = sum^ k B C
35 34 3adant1 φ x A sum^ k B C = +∞ +∞ = sum^ k B C
36 16 adantr φ x A x A B V
37 27 adantlr φ x A k x A B C 0 +∞
38 ssiun2 x A B x A B
39 38 adantl φ x A B x A B
40 36 37 39 sge0lessmpt φ x A sum^ k B C sum^ k x A B C
41 40 3adant3 φ x A sum^ k B C = +∞ sum^ k B C sum^ k x A B C
42 35 41 eqbrtrd φ x A sum^ k B C = +∞ +∞ sum^ k x A B C
43 31 42 xrgepnfd φ x A sum^ k B C = +∞ sum^ k x A B C = +∞
44 1 3ad2ant1 φ x A sum^ k B C = +∞ A V
45 nfv x φ y A
46 nfcsb1v _ x y / x B
47 nfcsb1v _ x y / x W
48 46 47 nfel x y / x B y / x W
49 45 48 nfim x φ y A y / x B y / x W
50 eleq1w x = y x A y A
51 50 anbi2d x = y φ x A φ y A
52 csbeq1a x = y B = y / x B
53 csbeq1a x = y W = y / x W
54 52 53 eleq12d x = y B W y / x B y / x W
55 51 54 imbi12d x = y φ x A B W φ y A y / x B y / x W
56 49 55 2 chvarfv φ y A y / x B y / x W
57 56 adantlr φ x A y A y / x B y / x W
58 46 8 nfmpt _ x k y / x B C
59 nfcv _ x 0 +∞
60 58 46 59 nff x k y / x B C : y / x B 0 +∞
61 45 60 nfim x φ y A k y / x B C : y / x B 0 +∞
62 52 mpteq1d x = y k B C = k y / x B C
63 62 52 feq12d x = y k B C : B 0 +∞ k y / x B C : y / x B 0 +∞
64 51 63 imbi12d x = y φ x A k B C : B 0 +∞ φ y A k y / x B C : y / x B 0 +∞
65 24 imp31 φ x A k B C 0 +∞
66 eqid k B C = k B C
67 65 66 fmptd φ x A k B C : B 0 +∞
68 61 64 67 chvarfv φ y A k y / x B C : y / x B 0 +∞
69 68 adantlr φ x A y A k y / x B C : y / x B 0 +∞
70 57 69 sge0cl φ x A y A sum^ k y / x B C 0 +∞
71 nfcv _ y sum^ k B C
72 6 58 nffv _ x sum^ k y / x B C
73 62 fveq2d x = y sum^ k B C = sum^ k y / x B C
74 71 72 73 cbvmpt x A sum^ k B C = y A sum^ k y / x B C
75 70 74 fmptd φ x A x A sum^ k B C : A 0 +∞
76 75 3adant3 φ x A sum^ k B C = +∞ x A sum^ k B C : A 0 +∞
77 id x A x A
78 fvexd x A sum^ k B C V
79 eqid x A sum^ k B C = x A sum^ k B C
80 79 elrnmpt1 x A sum^ k B C V sum^ k B C ran x A sum^ k B C
81 77 78 80 syl2anc x A sum^ k B C ran x A sum^ k B C
82 81 adantr x A sum^ k B C = +∞ sum^ k B C ran x A sum^ k B C
83 34 82 eqeltrd x A sum^ k B C = +∞ +∞ ran x A sum^ k B C
84 83 3adant1 φ x A sum^ k B C = +∞ +∞ ran x A sum^ k B C
85 44 76 84 sge0pnfval φ x A sum^ k B C = +∞ sum^ x A sum^ k B C = +∞
86 43 85 eqtr4d φ x A sum^ k B C = +∞ sum^ k x A B C = sum^ x A sum^ k B C
87 86 3exp φ x A sum^ k B C = +∞ sum^ k x A B C = sum^ x A sum^ k B C
88 5 13 87 rexlimd φ x A sum^ k B C = +∞ sum^ k x A B C = sum^ x A sum^ k B C
89 88 imp φ x A sum^ k B C = +∞ sum^ k x A B C = sum^ x A sum^ k B C
90 simpl φ ¬ x A sum^ k B C = +∞ φ
91 ralnex x A ¬ sum^ k B C = +∞ ¬ x A sum^ k B C = +∞
92 df-ne sum^ k B C +∞ ¬ sum^ k B C = +∞
93 92 bicomi ¬ sum^ k B C = +∞ sum^ k B C +∞
94 93 ralbii x A ¬ sum^ k B C = +∞ x A sum^ k B C +∞
95 91 94 sylbb1 ¬ x A sum^ k B C = +∞ x A sum^ k B C +∞
96 95 adantl φ ¬ x A sum^ k B C = +∞ x A sum^ k B C +∞
97 1 adantr φ x A sum^ k B C +∞ A V
98 nfcv _ x W
99 46 98 nfel x y / x B W
100 45 99 nfim x φ y A y / x B W
101 52 eleq1d x = y B W y / x B W
102 51 101 imbi12d x = y φ x A B W φ y A y / x B W
103 100 102 2 chvarfv φ y A y / x B W
104 103 adantlr φ x A sum^ k B C +∞ y A y / x B W
105 nfcv _ y B
106 105 46 52 cbvdisj Disj x A B Disj y A y / x B
107 3 106 sylib φ Disj y A y / x B
108 107 adantr φ x A sum^ k B C +∞ Disj y A y / x B
109 nfv k φ y A j y / x B
110 nfcsb1v _ k j / k C
111 110 nfel1 k j / k C 0 +∞
112 109 111 nfim k φ y A j y / x B j / k C 0 +∞
113 eleq1w k = j k y / x B j y / x B
114 113 3anbi3d k = j φ y A k y / x B φ y A j y / x B
115 csbeq1a k = j C = j / k C
116 115 eleq1d k = j C 0 +∞ j / k C 0 +∞
117 114 116 imbi12d k = j φ y A k y / x B C 0 +∞ φ y A j y / x B j / k C 0 +∞
118 nfv x y A
119 20 46 nfel x k y / x B
120 5 118 119 nf3an x φ y A k y / x B
121 120 23 nfim x φ y A k y / x B C 0 +∞
122 52 eleq2d x = y k B k y / x B
123 50 122 3anbi23d x = y φ x A k B φ y A k y / x B
124 123 imbi1d x = y φ x A k B C 0 +∞ φ y A k y / x B C 0 +∞
125 121 124 4 chvarfv φ y A k y / x B C 0 +∞
126 112 117 125 chvarfv φ y A j y / x B j / k C 0 +∞
127 126 3adant1r φ x A sum^ k B C +∞ y A j y / x B j / k C 0 +∞
128 simpr x A sum^ k B C +∞ y A y A
129 simpl x A sum^ k B C +∞ y A x A sum^ k B C +∞
130 simpl y A x A sum^ k B C +∞ y A
131 simpr y A x A sum^ k B C +∞ x A sum^ k B C +∞
132 nfcv _ x j / k C
133 46 132 nfmpt _ x j y / x B j / k C
134 6 133 nffv _ x sum^ j y / x B j / k C
135 nfcv _ x +∞
136 134 135 nfne x sum^ j y / x B j / k C +∞
137 nfcv _ j C
138 137 110 115 cbvmpt k y / x B C = j y / x B j / k C
139 138 a1i x = y k y / x B C = j y / x B j / k C
140 62 139 eqtrd x = y k B C = j y / x B j / k C
141 140 fveq2d x = y sum^ k B C = sum^ j y / x B j / k C
142 141 neeq1d x = y sum^ k B C +∞ sum^ j y / x B j / k C +∞
143 136 142 rspc y A x A sum^ k B C +∞ sum^ j y / x B j / k C +∞
144 130 131 143 sylc y A x A sum^ k B C +∞ sum^ j y / x B j / k C +∞
145 128 129 144 syl2anc x A sum^ k B C +∞ y A sum^ j y / x B j / k C +∞
146 145 neneqd x A sum^ k B C +∞ y A ¬ sum^ j y / x B j / k C = +∞
147 146 adantll φ x A sum^ k B C +∞ y A ¬ sum^ j y / x B j / k C = +∞
148 126 3expa φ y A j y / x B j / k C 0 +∞
149 eqid j y / x B j / k C = j y / x B j / k C
150 148 149 fmptd φ y A j y / x B j / k C : y / x B 0 +∞
151 150 adantlr φ x A sum^ k B C +∞ y A j y / x B j / k C : y / x B 0 +∞
152 104 151 sge0repnf φ x A sum^ k B C +∞ y A sum^ j y / x B j / k C ¬ sum^ j y / x B j / k C = +∞
153 147 152 mpbird φ x A sum^ k B C +∞ y A sum^ j y / x B j / k C
154 137 110 115 cbvmpt k x A B C = j x A B j / k C
155 105 46 52 cbviun x A B = y A y / x B
156 155 mpteq1i j x A B j / k C = j y A y / x B j / k C
157 154 156 eqtri k x A B C = j y A y / x B j / k C
158 157 fveq2i sum^ k x A B C = sum^ j y A y / x B j / k C
159 158 30 eqeltrrid φ sum^ j y A y / x B j / k C *
160 159 adantr φ x A sum^ k B C +∞ sum^ j y A y / x B j / k C *
161 71 134 141 cbvmpt x A sum^ k B C = y A sum^ j y / x B j / k C
162 161 fveq2i sum^ x A sum^ k B C = sum^ y A sum^ j y / x B j / k C
163 2 67 sge0cl φ x A sum^ k B C 0 +∞
164 163 79 fmptd φ x A sum^ k B C : A 0 +∞
165 1 164 sge0xrcl φ sum^ x A sum^ k B C *
166 162 165 eqeltrrid φ sum^ y A sum^ j y / x B j / k C *
167 166 adantr φ x A sum^ k B C +∞ sum^ y A sum^ j y / x B j / k C *
168 eliun j y A y / x B y A j y / x B
169 168 biimpi j y A y / x B y A j y / x B
170 169 adantl φ j y A y / x B y A j y / x B
171 nfv y φ
172 nfcv _ y j
173 nfiu1 _ y y A y / x B
174 172 173 nfel y j y A y / x B
175 171 174 nfan y φ j y A y / x B
176 nfv y j / k C 0 +∞
177 148 exp31 φ y A j y / x B j / k C 0 +∞
178 177 adantr φ j y A y / x B y A j y / x B j / k C 0 +∞
179 175 176 178 rexlimd φ j y A y / x B y A j y / x B j / k C 0 +∞
180 170 179 mpd φ j y A y / x B j / k C 0 +∞
181 eqid j y A y / x B j / k C = j y A y / x B j / k C
182 180 181 fmptd φ j y A y / x B j / k C : y A y / x B 0 +∞
183 182 adantr φ x A sum^ k B C +∞ j y A y / x B j / k C : y A y / x B 0 +∞
184 155 16 eqeltrrid φ y A y / x B V
185 184 adantr φ x A sum^ k B C +∞ y A y / x B V
186 97 104 108 127 153 160 167 183 185 sge0iunmptlemre φ x A sum^ k B C +∞ sum^ j y A y / x B j / k C = sum^ y A sum^ j y / x B j / k C
187 158 a1i φ x A sum^ k B C +∞ sum^ k x A B C = sum^ j y A y / x B j / k C
188 162 a1i φ x A sum^ k B C +∞ sum^ x A sum^ k B C = sum^ y A sum^ j y / x B j / k C
189 186 187 188 3eqtr4d φ x A sum^ k B C +∞ sum^ k x A B C = sum^ x A sum^ k B C
190 90 96 189 syl2anc φ ¬ x A sum^ k B C = +∞ sum^ k x A B C = sum^ x A sum^ k B C
191 89 190 pm2.61dan φ sum^ k x A B C = sum^ x A sum^ k B C