Metamath Proof Explorer


Theorem caratheodorylem1

Description: Lemma used to prove that Caratheodory's construction is sigma-additive. This is the proof of the statement in the middle of Step (e) in the proof of Theorem 113C of Fremlin1 p. 21. (Contributed by Glauco Siliprandi, 17-Aug-2020)

Ref Expression
Hypotheses caratheodorylem1.o φ O OutMeas
caratheodorylem1.s S = CaraGen O
caratheodorylem1.z Z = M
caratheodorylem1.e φ E : Z S
caratheodorylem1.dj φ Disj n Z E n
caratheodorylem1.g G = n Z i = M n E i
caratheodorylem1.n φ N M
Assertion caratheodorylem1 φ O G N = sum^ n M N O E n

Proof

Step Hyp Ref Expression
1 caratheodorylem1.o φ O OutMeas
2 caratheodorylem1.s S = CaraGen O
3 caratheodorylem1.z Z = M
4 caratheodorylem1.e φ E : Z S
5 caratheodorylem1.dj φ Disj n Z E n
6 caratheodorylem1.g G = n Z i = M n E i
7 caratheodorylem1.n φ N M
8 eluzfz2 N M N M N
9 7 8 syl φ N M N
10 id φ φ
11 2fveq3 j = M O G j = O G M
12 oveq2 j = M M j = M M
13 12 mpteq1d j = M n M j O E n = n M M O E n
14 13 fveq2d j = M sum^ n M j O E n = sum^ n M M O E n
15 11 14 eqeq12d j = M O G j = sum^ n M j O E n O G M = sum^ n M M O E n
16 15 imbi2d j = M φ O G j = sum^ n M j O E n φ O G M = sum^ n M M O E n
17 2fveq3 j = i O G j = O G i
18 oveq2 j = i M j = M i
19 18 mpteq1d j = i n M j O E n = n M i O E n
20 19 fveq2d j = i sum^ n M j O E n = sum^ n M i O E n
21 17 20 eqeq12d j = i O G j = sum^ n M j O E n O G i = sum^ n M i O E n
22 21 imbi2d j = i φ O G j = sum^ n M j O E n φ O G i = sum^ n M i O E n
23 2fveq3 j = i + 1 O G j = O G i + 1
24 oveq2 j = i + 1 M j = M i + 1
25 24 mpteq1d j = i + 1 n M j O E n = n M i + 1 O E n
26 25 fveq2d j = i + 1 sum^ n M j O E n = sum^ n M i + 1 O E n
27 23 26 eqeq12d j = i + 1 O G j = sum^ n M j O E n O G i + 1 = sum^ n M i + 1 O E n
28 27 imbi2d j = i + 1 φ O G j = sum^ n M j O E n φ O G i + 1 = sum^ n M i + 1 O E n
29 2fveq3 j = N O G j = O G N
30 oveq2 j = N M j = M N
31 30 mpteq1d j = N n M j O E n = n M N O E n
32 31 fveq2d j = N sum^ n M j O E n = sum^ n M N O E n
33 29 32 eqeq12d j = N O G j = sum^ n M j O E n O G N = sum^ n M N O E n
34 33 imbi2d j = N φ O G j = sum^ n M j O E n φ O G N = sum^ n M N O E n
35 eluzel2 N M M
36 7 35 syl φ M
37 fzsn M M M = M
38 36 37 syl φ M M = M
39 38 mpteq1d φ n M M O E n = n M O E n
40 39 fveq2d φ sum^ n M M O E n = sum^ n M O E n
41 1 adantr φ n M O OutMeas
42 eqid dom O = dom O
43 2 caragenss O OutMeas S dom O
44 41 43 syl φ n M S dom O
45 4 adantr φ n M E : Z S
46 elsni n M n = M
47 46 adantl φ n M n = M
48 uzid M M M
49 36 48 syl φ M M
50 49 3 eleqtrrdi φ M Z
51 50 adantr φ n M M Z
52 47 51 eqeltrd φ n M n Z
53 45 52 ffvelrnd φ n M E n S
54 44 53 sseldd φ n M E n dom O
55 elssuni E n dom O E n dom O
56 54 55 syl φ n M E n dom O
57 41 42 56 omecl φ n M O E n 0 +∞
58 eqid n M O E n = n M O E n
59 57 58 fmptd φ n M O E n : M 0 +∞
60 36 59 sge0sn φ sum^ n M O E n = n M O E n M
61 eqidd φ n M O E n = n M O E n
62 38 iuneq1d φ i = M M E i = i M E i
63 fveq2 i = M E i = E M
64 63 iunxsng M Z i M E i = E M
65 50 64 syl φ i M E i = E M
66 eqidd φ E M = E M
67 62 65 66 3eqtrrd φ E M = i = M M E i
68 67 adantr φ n = M E M = i = M M E i
69 fveq2 n = M E n = E M
70 69 adantl φ n = M E n = E M
71 oveq2 n = M M n = M M
72 71 iuneq1d n = M i = M n E i = i = M M E i
73 ovex M M V
74 fvex E i V
75 73 74 iunex i = M M E i V
76 75 a1i φ i = M M E i V
77 6 72 50 76 fvmptd3 φ G M = i = M M E i
78 77 adantr φ n = M G M = i = M M E i
79 68 70 78 3eqtr4d φ n = M E n = G M
80 79 fveq2d φ n = M O E n = O G M
81 snidg M Z M M
82 50 81 syl φ M M
83 fvexd φ O G M V
84 61 80 82 83 fvmptd φ n M O E n M = O G M
85 40 60 84 3eqtrrd φ O G M = sum^ n M M O E n
86 85 a1i N M φ O G M = sum^ n M M O E n
87 simp3 i M ..^ N φ O G i = sum^ n M i O E n φ φ
88 simp1 i M ..^ N φ O G i = sum^ n M i O E n φ i M ..^ N
89 id φ O G i = sum^ n M i O E n φ O G i = sum^ n M i O E n
90 89 imp φ O G i = sum^ n M i O E n φ O G i = sum^ n M i O E n
91 90 3adant1 i M ..^ N φ O G i = sum^ n M i O E n φ O G i = sum^ n M i O E n
92 elfzoel1 i M ..^ N M
93 elfzoelz i M ..^ N i
94 93 peano2zd i M ..^ N i + 1
95 92 94 94 3jca i M ..^ N M i + 1 i + 1
96 92 zred i M ..^ N M
97 94 zred i M ..^ N i + 1
98 93 zred i M ..^ N i
99 elfzole1 i M ..^ N M i
100 98 ltp1d i M ..^ N i < i + 1
101 96 98 97 99 100 lelttrd i M ..^ N M < i + 1
102 96 97 101 ltled i M ..^ N M i + 1
103 leid i + 1 i + 1 i + 1
104 97 103 syl i M ..^ N i + 1 i + 1
105 95 102 104 jca32 i M ..^ N M i + 1 i + 1 M i + 1 i + 1 i + 1
106 elfz2 i + 1 M i + 1 M i + 1 i + 1 M i + 1 i + 1 i + 1
107 105 106 sylibr i M ..^ N i + 1 M i + 1
108 107 adantl φ i M ..^ N i + 1 M i + 1
109 fveq2 j = i + 1 E j = E i + 1
110 109 ssiun2s i + 1 M i + 1 E i + 1 j = M i + 1 E j
111 108 110 syl φ i M ..^ N E i + 1 j = M i + 1 E j
112 fveq2 i = j E i = E j
113 112 cbviunv i = M n E i = j = M n E j
114 113 mpteq2i n Z i = M n E i = n Z j = M n E j
115 6 114 eqtri G = n Z j = M n E j
116 oveq2 n = i + 1 M n = M i + 1
117 116 iuneq1d n = i + 1 j = M n E j = j = M i + 1 E j
118 36 adantr φ i M ..^ N M
119 93 adantl φ i M ..^ N i
120 119 peano2zd φ i M ..^ N i + 1
121 118 zred φ i M ..^ N M
122 120 zred φ i M ..^ N i + 1
123 119 zred φ i M ..^ N i
124 99 adantl φ i M ..^ N M i
125 123 ltp1d φ i M ..^ N i < i + 1
126 121 123 122 124 125 lelttrd φ i M ..^ N M < i + 1
127 121 122 126 ltled φ i M ..^ N M i + 1
128 118 120 127 3jca φ i M ..^ N M i + 1 M i + 1
129 eluz2 i + 1 M M i + 1 M i + 1
130 128 129 sylibr φ i M ..^ N i + 1 M
131 3 eqcomi M = Z
132 130 131 eleqtrdi φ i M ..^ N i + 1 Z
133 ovex M i + 1 V
134 fvex E j V
135 133 134 iunex j = M i + 1 E j V
136 135 a1i φ i M ..^ N j = M i + 1 E j V
137 115 117 132 136 fvmptd3 φ i M ..^ N G i + 1 = j = M i + 1 E j
138 137 eqcomd φ i M ..^ N j = M i + 1 E j = G i + 1
139 111 138 sseqtrd φ i M ..^ N E i + 1 G i + 1
140 sseqin2 E i + 1 G i + 1 G i + 1 E i + 1 = E i + 1
141 140 biimpi E i + 1 G i + 1 G i + 1 E i + 1 = E i + 1
142 139 141 syl φ i M ..^ N G i + 1 E i + 1 = E i + 1
143 142 fveq2d φ i M ..^ N O G i + 1 E i + 1 = O E i + 1
144 nfcv _ j E i + 1
145 elfzouz i M ..^ N i M
146 145 adantl φ i M ..^ N i M
147 144 146 109 iunp1 φ i M ..^ N j = M i + 1 E j = j = M i E j E i + 1
148 137 147 eqtrd φ i M ..^ N G i + 1 = j = M i E j E i + 1
149 148 difeq1d φ i M ..^ N G i + 1 E i + 1 = j = M i E j E i + 1 E i + 1
150 fveq2 n = j E n = E j
151 150 cbvdisjv Disj n Z E n Disj j Z E j
152 5 151 sylib φ Disj j Z E j
153 152 adantr φ i M ..^ N Disj j Z E j
154 fzssuz M i M
155 154 131 sseqtri M i Z
156 155 a1i φ i M ..^ N M i Z
157 fzp1nel ¬ i + 1 M i
158 157 a1i i M ..^ N ¬ i + 1 M i
159 158 adantl φ i M ..^ N ¬ i + 1 M i
160 132 159 eldifd φ i M ..^ N i + 1 Z M i
161 153 156 160 109 disjiun2 φ i M ..^ N j = M i E j E i + 1 =
162 undif4 j = M i E j E i + 1 = j = M i E j E i + 1 E i + 1 = j = M i E j E i + 1 E i + 1
163 161 162 syl φ i M ..^ N j = M i E j E i + 1 E i + 1 = j = M i E j E i + 1 E i + 1
164 163 eqcomd φ i M ..^ N j = M i E j E i + 1 E i + 1 = j = M i E j E i + 1 E i + 1
165 simpl φ i M ..^ N φ
166 146 131 eleqtrdi φ i M ..^ N i Z
167 115 a1i φ i Z G = n Z j = M n E j
168 simpr φ i Z n = i n = i
169 168 oveq2d φ i Z n = i M n = M i
170 169 iuneq1d φ i Z n = i j = M n E j = j = M i E j
171 simpr φ i Z i Z
172 ovex M i V
173 172 134 iunex j = M i E j V
174 173 a1i φ i Z j = M i E j V
175 167 170 171 174 fvmptd φ i Z G i = j = M i E j
176 165 166 175 syl2anc φ i M ..^ N G i = j = M i E j
177 176 eqcomd φ i M ..^ N j = M i E j = G i
178 difid E i + 1 E i + 1 =
179 178 a1i φ i M ..^ N E i + 1 E i + 1 =
180 177 179 uneq12d φ i M ..^ N j = M i E j E i + 1 E i + 1 = G i
181 un0 G i = G i
182 181 a1i φ i M ..^ N G i = G i
183 180 182 eqtrd φ i M ..^ N j = M i E j E i + 1 E i + 1 = G i
184 149 164 183 3eqtrd φ i M ..^ N G i + 1 E i + 1 = G i
185 184 fveq2d φ i M ..^ N O G i + 1 E i + 1 = O G i
186 143 185 oveq12d φ i M ..^ N O G i + 1 E i + 1 + 𝑒 O G i + 1 E i + 1 = O E i + 1 + 𝑒 O G i
187 186 3adant3 φ i M ..^ N O G i = sum^ n M i O E n O G i + 1 E i + 1 + 𝑒 O G i + 1 E i + 1 = O E i + 1 + 𝑒 O G i
188 1 adantr φ i M ..^ N O OutMeas
189 4 adantr φ i M ..^ N E : Z S
190 189 132 ffvelrnd φ i M ..^ N E i + 1 S
191 simpll φ i M ..^ N j M i + 1 φ
192 92 adantr i M ..^ N j M i + 1 M
193 elfzelz j M i + 1 j
194 193 adantl i M ..^ N j M i + 1 j
195 elfzle1 j M i + 1 M j
196 195 adantl i M ..^ N j M i + 1 M j
197 192 194 196 3jca i M ..^ N j M i + 1 M j M j
198 eluz2 j M M j M j
199 197 198 sylibr i M ..^ N j M i + 1 j M
200 199 131 eleqtrdi i M ..^ N j M i + 1 j Z
201 200 adantll φ i M ..^ N j M i + 1 j Z
202 1 43 syl φ S dom O
203 202 adantr φ j Z S dom O
204 4 ffvelrnda φ j Z E j S
205 203 204 sseldd φ j Z E j dom O
206 elssuni E j dom O E j dom O
207 205 206 syl φ j Z E j dom O
208 191 201 207 syl2anc φ i M ..^ N j M i + 1 E j dom O
209 208 ralrimiva φ i M ..^ N j M i + 1 E j dom O
210 iunss j = M i + 1 E j dom O j M i + 1 E j dom O
211 209 210 sylibr φ i M ..^ N j = M i + 1 E j dom O
212 137 211 eqsstrd φ i M ..^ N G i + 1 dom O
213 188 2 42 190 212 caragensplit φ i M ..^ N O G i + 1 E i + 1 + 𝑒 O G i + 1 E i + 1 = O G i + 1
214 213 eqcomd φ i M ..^ N O G i + 1 = O G i + 1 E i + 1 + 𝑒 O G i + 1 E i + 1
215 214 3adant3 φ i M ..^ N O G i = sum^ n M i O E n O G i + 1 = O G i + 1 E i + 1 + 𝑒 O G i + 1 E i + 1
216 188 adantr φ i M ..^ N n M i + 1 O OutMeas
217 165 adantr φ i M ..^ N n M i + 1 φ
218 elfzuz n M i + 1 n M
219 218 131 eleqtrdi n M i + 1 n Z
220 219 adantl φ i M ..^ N n M i + 1 n Z
221 4 202 fssd φ E : Z dom O
222 221 ffvelrnda φ n Z E n dom O
223 222 55 syl φ n Z E n dom O
224 217 220 223 syl2anc φ i M ..^ N n M i + 1 E n dom O
225 216 42 224 omecl φ i M ..^ N n M i + 1 O E n 0 +∞
226 2fveq3 n = i + 1 O E n = O E i + 1
227 146 225 226 sge0p1 φ i M ..^ N sum^ n M i + 1 O E n = sum^ n M i O E n + 𝑒 O E i + 1
228 227 3adant3 φ i M ..^ N O G i = sum^ n M i O E n sum^ n M i + 1 O E n = sum^ n M i O E n + 𝑒 O E i + 1
229 id O G i = sum^ n M i O E n O G i = sum^ n M i O E n
230 229 eqcomd O G i = sum^ n M i O E n sum^ n M i O E n = O G i
231 230 oveq1d O G i = sum^ n M i O E n sum^ n M i O E n + 𝑒 O E i + 1 = O G i + 𝑒 O E i + 1
232 231 3ad2ant3 φ i M ..^ N O G i = sum^ n M i O E n sum^ n M i O E n + 𝑒 O E i + 1 = O G i + 𝑒 O E i + 1
233 simpl φ j M i φ
234 155 sseli j M i j Z
235 234 adantl φ j M i j Z
236 233 235 207 syl2anc φ j M i E j dom O
237 236 adantlr φ i Z j M i E j dom O
238 237 ralrimiva φ i Z j M i E j dom O
239 iunss j = M i E j dom O j M i E j dom O
240 238 239 sylibr φ i Z j = M i E j dom O
241 175 240 eqsstrd φ i Z G i dom O
242 165 166 241 syl2anc φ i M ..^ N G i dom O
243 188 42 242 omexrcl φ i M ..^ N O G i *
244 111 211 sstrd φ i M ..^ N E i + 1 dom O
245 188 42 244 omexrcl φ i M ..^ N O E i + 1 *
246 243 245 xaddcomd φ i M ..^ N O G i + 𝑒 O E i + 1 = O E i + 1 + 𝑒 O G i
247 246 3adant3 φ i M ..^ N O G i = sum^ n M i O E n O G i + 𝑒 O E i + 1 = O E i + 1 + 𝑒 O G i
248 228 232 247 3eqtrd φ i M ..^ N O G i = sum^ n M i O E n sum^ n M i + 1 O E n = O E i + 1 + 𝑒 O G i
249 187 215 248 3eqtr4d φ i M ..^ N O G i = sum^ n M i O E n O G i + 1 = sum^ n M i + 1 O E n
250 87 88 91 249 syl3anc i M ..^ N φ O G i = sum^ n M i O E n φ O G i + 1 = sum^ n M i + 1 O E n
251 250 3exp i M ..^ N φ O G i = sum^ n M i O E n φ O G i + 1 = sum^ n M i + 1 O E n
252 16 22 28 34 86 251 fzind2 N M N φ O G N = sum^ n M N O E n
253 9 10 252 sylc φ O G N = sum^ n M N O E n