Metamath Proof Explorer


Theorem smfmullem1

Description: The multiplication of two sigma-measurable functions is measurable: this is the step (i) of the proof of Proposition 121E (d) of Fremlin1 p. 37 . (Contributed by Glauco Siliprandi, 26-Jun-2021)

Ref Expression
Hypotheses smfmullem1.a φA
smfmullem1.u φU
smfmullem1.v φV
smfmullem1.l φUV<A
smfmullem1.x X=AUV1+U+V
smfmullem1.y Y=if1X1X
smfmullem1.p φPUYU
smfmullem1.r φRUU+Y
smfmullem1.s φSVYV
smfmullem1.z φZVV+Y
smfmullem1.h φHPR
smfmullem1.i φISZ
Assertion smfmullem1 φH I<A

Proof

Step Hyp Ref Expression
1 smfmullem1.a φA
2 smfmullem1.u φU
3 smfmullem1.v φV
4 smfmullem1.l φUV<A
5 smfmullem1.x X=AUV1+U+V
6 smfmullem1.y Y=if1X1X
7 smfmullem1.p φPUYU
8 smfmullem1.r φRUU+Y
9 smfmullem1.s φSVYV
10 smfmullem1.z φZVV+Y
11 smfmullem1.h φHPR
12 smfmullem1.i φISZ
13 11 elioored φH
14 13 recnd φH
15 2 recnd φU
16 12 elioored φI
17 16 recnd φI
18 3 recnd φV
19 14 15 17 18 mulsubd φHUIV=H I+VU-HV+IU
20 14 15 18 subdird φHUV=HVUV
21 15 17 18 subdid φUIV=U IUV
22 20 21 oveq12d φHUV+UIV=HVUV+U I-UV
23 14 18 mulcld φHV
24 15 17 mulcld φU I
25 15 18 mulcld φUV
26 23 24 25 25 addsub4d φHV+U I-UV+UV=HVUV+U I-UV
27 26 eqcomd φHVUV+U I-UV=HV+U I-UV+UV
28 15 17 mulcomd φU I=IU
29 28 oveq2d φHV+U I=HV+IU
30 29 oveq1d φHV+U I-UV+UV=HV+IU-UV+UV
31 22 27 30 3eqtrd φHUV+UIV=HV+IU-UV+UV
32 19 31 oveq12d φHUIV+HUV+UIV=H I+VU-HV+IU+HV+IU-UV+UV
33 14 17 mulcld φH I
34 18 15 mulcld φVU
35 33 34 addcld φH I+VU
36 17 15 mulcld φIU
37 23 36 addcld φHV+IU
38 35 37 npcand φH I+VU-HV+IU+HV+IU=H I+VU
39 18 15 mulcomd φVU=UV
40 39 oveq2d φH I+VU=H I+UV
41 38 40 eqtrd φH I+VU-HV+IU+HV+IU=H I+UV
42 41 eqcomd φH I+UV=H I+VU-HV+IU+HV+IU
43 42 oveq1d φH I+UV-UV+UV=H I+VU-HV+IU+HV+IU-UV+UV
44 35 37 subcld φH I+VU-HV+IU
45 25 25 addcld φUV+UV
46 44 37 45 addsubassd φH I+VU-HV+IU+HV+IU-UV+UV=H I+VU-HV+IU+HV+IU-UV+UV
47 43 46 eqtr2d φH I+VU-HV+IU+HV+IU-UV+UV=H I+UV-UV+UV
48 33 25 25 pnpcan2d φH I+UV-UV+UV=H IUV
49 32 47 48 3eqtrrd φH IUV=HUIV+HUV+UIV
50 13 2 jca φHU
51 resubcl HUHU
52 50 51 syl φHU
53 16 3 jca φIV
54 resubcl IVIV
55 53 54 syl φIV
56 52 55 jca φHUIV
57 remulcl HUIVHUIV
58 56 57 syl φHUIV
59 52 3 jca φHUV
60 remulcl HUVHUV
61 59 60 syl φHUV
62 2 55 jca φUIV
63 remulcl UIVUIV
64 62 63 syl φUIV
65 61 64 jca φHUVUIV
66 readdcl HUVUIVHUV+UIV
67 65 66 syl φHUV+UIV
68 58 67 jca φHUIVHUV+UIV
69 readdcl HUIVHUV+UIVHUIV+HUV+UIV
70 68 69 syl φHUIV+HUV+UIV
71 6 a1i φY=if1X1X
72 1rp 1+
73 72 a1i φ1+
74 5 a1i φX=AUV1+U+V
75 2 3 remulcld φUV
76 difrp UVAUV<AAUV+
77 75 1 76 syl2anc φUV<AAUV+
78 4 77 mpbid φAUV+
79 1red φ1
80 15 abscld φU
81 18 abscld φV
82 80 81 readdcld φU+V
83 79 82 readdcld φ1+U+V
84 0re 0
85 84 a1i φ0
86 73 rpgt0d φ0<1
87 15 absge0d φ0U
88 18 absge0d φ0V
89 80 81 addge01d φ0VUU+V
90 88 89 mpbid φUU+V
91 85 80 82 87 90 letrd φ0U+V
92 79 82 addge01d φ0U+V11+U+V
93 91 92 mpbid φ11+U+V
94 85 79 83 86 93 ltletrd φ0<1+U+V
95 83 94 elrpd φ1+U+V+
96 78 95 rpdivcld φAUV1+U+V+
97 74 96 eqeltrd φX+
98 73 97 ifcld φif1X1X+
99 71 98 eqeltrd φY+
100 99 rpred φY
101 resqcl YY2
102 100 101 syl φY2
103 100 81 remulcld φYV
104 100 80 remulcld φYU
105 103 104 jca φYVYU
106 readdcl YVYUYV+YU
107 105 106 syl φYV+YU
108 102 107 jca φY2YV+YU
109 readdcl Y2YV+YUY2+YV+YU
110 108 109 syl φY2+YV+YU
111 1 75 resubcld φAUV
112 100 resqcld φY2
113 103 104 readdcld φYV+YU
114 19 44 eqeltrd φHUIV
115 114 abscld φHUIV
116 100 100 remulcld φYY
117 58 leabsd φHUIVHUIV
118 52 recnd φHU
119 55 recnd φIV
120 118 119 absmuld φHUIV=HUIV
121 118 abscld φHU
122 119 abscld φIV
123 118 absge0d φ0HU
124 2 100 resubcld φUY
125 7 elioored φP
126 124 rexrd φUY*
127 2 rexrd φU*
128 ioogtlb UY*U*PUYUUY<P
129 126 127 7 128 syl3anc φUY<P
130 125 rexrd φP*
131 8 elioored φR
132 131 rexrd φR*
133 ioogtlb P*R*HPRP<H
134 130 132 11 133 syl3anc φP<H
135 124 125 13 129 134 lttrd φUY<H
136 2 100 readdcld φU+Y
137 iooltub P*R*HPRH<R
138 130 132 11 137 syl3anc φH<R
139 136 rexrd φU+Y*
140 iooltub U*U+Y*RUU+YR<U+Y
141 127 139 8 140 syl3anc φR<U+Y
142 13 131 136 138 141 lttrd φH<U+Y
143 135 142 jca φUY<HH<U+Y
144 13 2 100 absdifltd φHU<YUY<HH<U+Y
145 143 144 mpbird φHU<Y
146 119 absge0d φ0IV
147 3 100 resubcld φVY
148 9 elioored φS
149 147 rexrd φVY*
150 3 rexrd φV*
151 149 150 9 ioogtlbd φVY<S
152 148 rexrd φS*
153 10 elioored φZ
154 153 rexrd φZ*
155 152 154 12 ioogtlbd φS<I
156 147 148 16 151 155 lttrd φVY<I
157 3 100 readdcld φV+Y
158 152 154 12 iooltubd φI<Z
159 157 rexrd φV+Y*
160 150 159 10 iooltubd φZ<V+Y
161 16 153 157 158 160 lttrd φI<V+Y
162 156 161 jca φVY<II<V+Y
163 16 3 100 absdifltd φIV<YVY<II<V+Y
164 162 163 mpbird φIV<Y
165 121 100 122 100 123 145 146 164 ltmul12ad φHUIV<YY
166 120 165 eqbrtrd φHUIV<YY
167 58 115 116 117 166 lelttrd φHUIV<YY
168 100 recnd φY
169 168 sqvald φY2=YY
170 169 eqcomd φYY=Y2
171 167 170 breqtrd φHUIV<Y2
172 61 recnd φHUV
173 172 abscld φHUV
174 61 leabsd φHUVHUV
175 118 18 absmuld φHUV=HUV
176 121 100 145 ltled φHUY
177 121 100 81 88 176 lemul1ad φHUVYV
178 175 177 eqbrtrd φHUVYV
179 61 173 103 174 178 letrd φHUVYV
180 64 recnd φUIV
181 180 abscld φUIV
182 64 leabsd φUIVUIV
183 15 119 absmuld φUIV=UIV
184 80 recnd φU
185 122 recnd φIV
186 184 185 mulcomd φUIV=IVU
187 183 186 eqtrd φUIV=IVU
188 122 100 164 ltled φIVY
189 122 100 80 87 188 lemul1ad φIVUYU
190 187 189 eqbrtrd φUIVYU
191 64 181 104 182 190 letrd φUIVYU
192 61 64 103 104 179 191 leadd12dd φHUV+UIVYV+YU
193 58 67 112 113 171 192 ltleaddd φHUIV+HUV+UIV<Y2+YV+YU
194 100 107 readdcld φY+YV+YU
195 85 121 100 123 176 letrd φ0Y
196 97 rpred φX
197 min1 1Xif1X1X1
198 79 196 197 syl2anc φif1X1X1
199 6 198 eqbrtrid φY1
200 85 79 100 195 199 eliccd φY01
201 100 sqrlearg φY2YY01
202 200 201 mpbird φY2Y
203 102 100 107 202 leadd1dd φY2+YV+YUY+YV+YU
204 1cnd φ1
205 81 recnd φV
206 205 184 addcld φV+U
207 168 204 206 adddid φY1+V+U=Y1+YV+U
208 168 mulridd φY1=Y
209 168 205 184 adddid φYV+U=YV+YU
210 208 209 oveq12d φY1+YV+U=Y+YV+YU
211 207 210 eqtr2d φY+YV+YU=Y1+V+U
212 81 80 readdcld φV+U
213 79 212 readdcld φ1+V+U
214 81 80 addge01d φ0UVV+U
215 87 214 mpbid φVV+U
216 85 81 212 88 215 letrd φ0V+U
217 79 212 addge01d φ0V+U11+V+U
218 216 217 mpbid φ11+V+U
219 85 79 213 86 218 ltletrd φ0<1+V+U
220 85 213 219 ltled φ01+V+U
221 min2 1Xif1X1XX
222 79 196 221 syl2anc φif1X1XX
223 71 222 eqbrtrd φYX
224 100 196 213 220 223 lemul1ad φY1+V+UX1+V+U
225 74 oveq1d φX1+V+U=AUV1+U+V1+V+U
226 184 205 addcomd φU+V=V+U
227 226 oveq2d φ1+U+V=1+V+U
228 227 oveq2d φAUV1+U+V=AUV1+V+U
229 228 oveq1d φAUV1+U+V1+V+U=AUV1+V+U1+V+U
230 111 recnd φAUV
231 204 206 addcld φ1+V+U
232 85 219 gtned φ1+V+U0
233 230 231 232 divcan1d φAUV1+V+U1+V+U=AUV
234 225 229 233 3eqtrd φX1+V+U=AUV
235 224 234 breqtrd φY1+V+UAUV
236 211 235 eqbrtrd φY+YV+YUAUV
237 110 194 111 203 236 letrd φY2+YV+YUAUV
238 70 110 111 193 237 ltletrd φHUIV+HUV+UIV<AUV
239 49 238 eqbrtrd φH IUV<AUV
240 13 16 remulcld φH I
241 240 1 75 ltsub1d φH I<AH IUV<AUV
242 239 241 mpbird φH I<A