Metamath Proof Explorer


Theorem ftc1anc

Description: ftc1a holds for functions that obey the triangle inequality in the absence of ax-cc . Theorem 565Ma of Fremlin5 p. 220. (Contributed by Brendan Leahy, 11-May-2018)

Ref Expression
Hypotheses ftc1anc.g G=xABAxFtdt
ftc1anc.a φA
ftc1anc.b φB
ftc1anc.le φAB
ftc1anc.s φABD
ftc1anc.d φD
ftc1anc.i φF𝐿1
ftc1anc.f φF:D
ftc1anc.t φs.AB×ABsFtdt2tiftsFt0
Assertion ftc1anc φG:ABcn

Proof

Step Hyp Ref Expression
1 ftc1anc.g G=xABAxFtdt
2 ftc1anc.a φA
3 ftc1anc.b φB
4 ftc1anc.le φAB
5 ftc1anc.s φABD
6 ftc1anc.d φD
7 ftc1anc.i φF𝐿1
8 ftc1anc.f φF:D
9 ftc1anc.t φs.AB×ABsFtdt2tiftsFt0
10 1 2 3 4 5 6 7 8 ftc1lem2 φG:AB
11 rphalfcl y+y2+
12 1 2 3 4 5 6 7 8 ftc1anclem6 φy2+fdom1gdom12tiftDFt0ft+igt<y2
13 11 12 sylan2 φy+fdom1gdom12tiftDFt0ft+igt<y2
14 13 adantrl φuABy+fdom1gdom12tiftDFt0ft+igt<y2
15 11 ad2antll φuABy+y2+
16 2rp 2+
17 i1ff fdom1f:
18 17 frnd fdom1ranf
19 18 adantr fdom1gdom1ranf
20 i1ff gdom1g:
21 20 frnd gdom1rang
22 21 adantl fdom1gdom1rang
23 19 22 unssd fdom1gdom1ranfrang
24 ax-resscn
25 23 24 sstrdi fdom1gdom1ranfrang
26 i1f0rn fdom10ranf
27 elun1 0ranf0ranfrang
28 26 27 syl fdom10ranfrang
29 28 adantr fdom1gdom10ranfrang
30 absf abs:
31 ffn abs:absFn
32 30 31 ax-mp absFn
33 fnfvima absFnranfrang0ranfrang0absranfrang
34 32 33 mp3an1 ranfrang0ranfrang0absranfrang
35 25 29 34 syl2anc fdom1gdom10absranfrang
36 35 ne0d fdom1gdom1absranfrang
37 imassrn absranfrangranabs
38 frn abs:ranabs
39 30 38 ax-mp ranabs
40 37 39 sstri absranfrang
41 ffun abs:Funabs
42 30 41 ax-mp Funabs
43 i1frn fdom1ranfFin
44 i1frn gdom1rangFin
45 unfi ranfFinrangFinranfrangFin
46 43 44 45 syl2an fdom1gdom1ranfrangFin
47 imafi FunabsranfrangFinabsranfrangFin
48 42 46 47 sylancr fdom1gdom1absranfrangFin
49 fimaxre2 absranfrangabsranfrangFinxyabsranfrangyx
50 40 48 49 sylancr fdom1gdom1xyabsranfrangyx
51 suprcl absranfrangabsranfrangxyabsranfrangyxsupabsranfrang<
52 40 51 mp3an1 absranfrangxyabsranfrangyxsupabsranfrang<
53 36 50 52 syl2anc fdom1gdom1supabsranfrang<
54 53 adantr fdom1gdom1rranfrangr0supabsranfrang<
55 0red fdom1gdom1rranfrangr00
56 25 sselda fdom1gdom1rranfrangr
57 56 abscld fdom1gdom1rranfrangr
58 57 adantrr fdom1gdom1rranfrangr0r
59 53 adantr fdom1gdom1rranfrangr0supabsranfrang<
60 absgt0 rr00<r
61 56 60 syl fdom1gdom1rranfrangr00<r
62 61 biimpd fdom1gdom1rranfrangr00<r
63 62 impr fdom1gdom1rranfrangr00<r
64 40 a1i fdom1gdom1absranfrang
65 64 36 50 3jca fdom1gdom1absranfrangabsranfrangxyabsranfrangyx
66 65 adantr fdom1gdom1rranfrangabsranfrangabsranfrangxyabsranfrangyx
67 fnfvima absFnranfrangrranfrangrabsranfrang
68 32 67 mp3an1 ranfrangrranfrangrabsranfrang
69 25 68 sylan fdom1gdom1rranfrangrabsranfrang
70 suprub absranfrangabsranfrangxyabsranfrangyxrabsranfrangrsupabsranfrang<
71 66 69 70 syl2anc fdom1gdom1rranfrangrsupabsranfrang<
72 71 adantrr fdom1gdom1rranfrangr0rsupabsranfrang<
73 55 58 59 63 72 ltletrd fdom1gdom1rranfrangr00<supabsranfrang<
74 73 rexlimdvaa fdom1gdom1rranfrangr00<supabsranfrang<
75 74 imp fdom1gdom1rranfrangr00<supabsranfrang<
76 54 75 elrpd fdom1gdom1rranfrangr0supabsranfrang<+
77 rpmulcl 2+supabsranfrang<+2supabsranfrang<+
78 16 76 77 sylancr fdom1gdom1rranfrangr02supabsranfrang<+
79 rpdivcl y2+2supabsranfrang<+y22supabsranfrang<+
80 15 78 79 syl2an φuABy+fdom1gdom1rranfrangr0y22supabsranfrang<+
81 80 anassrs φuABy+fdom1gdom1rranfrangr0y22supabsranfrang<+
82 81 adantlr φuABy+fdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y22supabsranfrang<+
83 ancom uABy+y+uAB
84 83 anbi2i φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0uABy+φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uAB
85 an32 φuABy+fdom1gdom1φfdom1gdom1uABy+
86 85 anbi1i φuABy+fdom1gdom12tiftDFt0ft+igt<y2φfdom1gdom1uABy+2tiftDFt0ft+igt<y2
87 an32 φfdom1gdom1uABy+2tiftDFt0ft+igt<y2φfdom1gdom12tiftDFt0ft+igt<y2uABy+
88 86 87 bitri φuABy+fdom1gdom12tiftDFt0ft+igt<y2φfdom1gdom12tiftDFt0ft+igt<y2uABy+
89 88 anbi1i φuABy+fdom1gdom12tiftDFt0ft+igt<y2rranfrangr0φfdom1gdom12tiftDFt0ft+igt<y2uABy+rranfrangr0
90 an32 φfdom1gdom12tiftDFt0ft+igt<y2uABy+rranfrangr0φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0uABy+
91 89 90 bitri φuABy+fdom1gdom12tiftDFt0ft+igt<y2rranfrangr0φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0uABy+
92 anass φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uABφfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uAB
93 84 91 92 3bitr4i φuABy+fdom1gdom12tiftDFt0ft+igt<y2rranfrangr0φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uAB
94 oveq12 b=wa=uba=wu
95 94 ancoms a=ub=wba=wu
96 95 fveq2d a=ub=wba=wu
97 96 breq1d a=ub=wba<y22supabsranfrang<wu<y22supabsranfrang<
98 fveq2 b=wGb=Gw
99 fveq2 a=uGa=Gu
100 98 99 oveqan12rd a=ub=wGbGa=GwGu
101 100 fveq2d a=ub=wGbGa=GwGu
102 101 breq1d a=ub=wGbGa<yGwGu<y
103 97 102 imbi12d a=ub=wba<y22supabsranfrang<GbGa<ywu<y22supabsranfrang<GwGu<y
104 oveq12 b=ua=wba=uw
105 104 ancoms a=wb=uba=uw
106 105 fveq2d a=wb=uba=uw
107 106 breq1d a=wb=uba<y22supabsranfrang<uw<y22supabsranfrang<
108 fveq2 b=uGb=Gu
109 fveq2 a=wGa=Gw
110 108 109 oveqan12rd a=wb=uGbGa=GuGw
111 110 fveq2d a=wb=uGbGa=GuGw
112 111 breq1d a=wb=uGbGa<yGuGw<y
113 107 112 imbi12d a=wb=uba<y22supabsranfrang<GbGa<yuw<y22supabsranfrang<GuGw<y
114 iccssre ABAB
115 2 3 114 syl2anc φAB
116 115 ad4antr φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+AB
117 simp-4l φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+φ
118 115 24 sstrdi φAB
119 118 sselda φwABw
120 118 sselda φuABu
121 abssub wuwu=uw
122 119 120 121 syl2anr φuABφwABwu=uw
123 122 anandis φuABwABwu=uw
124 123 breq1d φuABwABwu<y22supabsranfrang<uw<y22supabsranfrang<
125 10 ffvelrnda φwABGw
126 10 ffvelrnda φuABGu
127 abssub GwGuGwGu=GuGw
128 125 126 127 syl2anr φuABφwABGwGu=GuGw
129 128 anandis φuABwABGwGu=GuGw
130 129 breq1d φuABwABGwGu<yGuGw<y
131 124 130 imbi12d φuABwABwu<y22supabsranfrang<GwGu<yuw<y22supabsranfrang<GuGw<y
132 117 131 sylan φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uABwABwu<y22supabsranfrang<GwGu<yuw<y22supabsranfrang<GuGw<y
133 2 rexrd φA*
134 3 rexrd φB*
135 133 134 jca φA*B*
136 df-icc .=x*,y*t*|xtty
137 136 elixx3g uABA*B*u*AuuB
138 137 simprbi uABAuuB
139 138 simpld uABAu
140 136 elixx3g wABA*B*w*AwwB
141 140 simprbi wABAwwB
142 141 simprd wABwB
143 139 142 anim12i uABwABAuwB
144 ioossioo A*B*AuwBuwAB
145 135 143 144 syl2an φuABwABuwAB
146 5 adantr φuABwABABD
147 145 146 sstrd φuABwABuwD
148 147 sselda φuABwABtuwtD
149 8 ffvelrnda φtDFt
150 149 abscld φtDFt
151 150 rexrd φtDFt*
152 149 absge0d φtD0Ft
153 elxrge0 Ft0+∞Ft*0Ft
154 151 152 153 sylanbrc φtDFt0+∞
155 154 adantlr φuABwABtDFt0+∞
156 148 155 syldan φuABwABtuwFt0+∞
157 0e0iccpnf 00+∞
158 157 a1i φuABwAB¬tuw00+∞
159 156 158 ifclda φuABwABiftuwFt00+∞
160 159 adantr φuABwABtiftuwFt00+∞
161 160 fmpttd φuABwABtiftuwFt0:0+∞
162 itg2cl tiftuwFt0:0+∞2tiftuwFt0*
163 161 162 syl φuABwAB2tiftuwFt0*
164 163 3adantr3 φuABwABuw2tiftuwFt0*
165 117 164 sylan φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uABwABuw2tiftuwFt0*
166 165 adantr φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uABwABuwwu<y22supabsranfrang<2tiftuwFt0*
167 simplll φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+φfdom1gdom1
168 149 adantlr φuABwABtDFt
169 148 168 syldan φuABwABtuwFt
170 169 adantllr φfdom1gdom1uABwABtuwFt
171 elioore tuwt
172 17 ffvelrnda fdom1tft
173 172 recnd fdom1tft
174 ax-icn i
175 20 ffvelrnda gdom1tgt
176 175 recnd gdom1tgt
177 mulcl igtigt
178 174 176 177 sylancr gdom1tigt
179 addcl ftigtft+igt
180 173 178 179 syl2an fdom1tgdom1tft+igt
181 180 anandirs fdom1gdom1tft+igt
182 171 181 sylan2 fdom1gdom1tuwft+igt
183 182 adantll φfdom1gdom1tuwft+igt
184 183 adantlr φfdom1gdom1uABwABtuwft+igt
185 170 184 subcld φfdom1gdom1uABwABtuwFtft+igt
186 185 abscld φfdom1gdom1uABwABtuwFtft+igt
187 182 abscld fdom1gdom1tuwft+igt
188 187 adantll φfdom1gdom1tuwft+igt
189 188 adantlr φfdom1gdom1uABwABtuwft+igt
190 186 189 readdcld φfdom1gdom1uABwABtuwFtft+igt+ft+igt
191 190 rexrd φfdom1gdom1uABwABtuwFtft+igt+ft+igt*
192 185 absge0d φfdom1gdom1uABwABtuw0Ftft+igt
193 181 absge0d fdom1gdom1t0ft+igt
194 171 193 sylan2 fdom1gdom1tuw0ft+igt
195 194 adantll φfdom1gdom1tuw0ft+igt
196 195 adantlr φfdom1gdom1uABwABtuw0ft+igt
197 186 189 192 196 addge0d φfdom1gdom1uABwABtuw0Ftft+igt+ft+igt
198 elxrge0 Ftft+igt+ft+igt0+∞Ftft+igt+ft+igt*0Ftft+igt+ft+igt
199 191 197 198 sylanbrc φfdom1gdom1uABwABtuwFtft+igt+ft+igt0+∞
200 157 a1i φfdom1gdom1uABwAB¬tuw00+∞
201 199 200 ifclda φfdom1gdom1uABwABiftuwFtft+igt+ft+igt00+∞
202 201 adantr φfdom1gdom1uABwABtiftuwFtft+igt+ft+igt00+∞
203 202 fmpttd φfdom1gdom1uABwABtiftuwFtft+igt+ft+igt0:0+∞
204 itg2cl tiftuwFtft+igt+ft+igt0:0+∞2tiftuwFtft+igt+ft+igt0*
205 203 204 syl φfdom1gdom1uABwAB2tiftuwFtft+igt+ft+igt0*
206 205 3adantr3 φfdom1gdom1uABwABuw2tiftuwFtft+igt+ft+igt0*
207 167 206 sylan φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uABwABuw2tiftuwFtft+igt+ft+igt0*
208 207 adantr φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uABwABuwwu<y22supabsranfrang<2tiftuwFtft+igt+ft+igt0*
209 rpxr y+y*
210 209 ad3antlr φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uABwABuwwu<y22supabsranfrang<y*
211 159 adantlr φfdom1gdom1uABwABiftuwFt00+∞
212 211 adantr φfdom1gdom1uABwABtiftuwFt00+∞
213 212 fmpttd φfdom1gdom1uABwABtiftuwFt0:0+∞
214 170 184 npcand φfdom1gdom1uABwABtuwFtft+igt+ft+igt=Ft
215 214 fveq2d φfdom1gdom1uABwABtuwFtft+igt+ft+igt=Ft
216 185 184 abstrid φfdom1gdom1uABwABtuwFtft+igt+ft+igtFtft+igt+ft+igt
217 215 216 eqbrtrrd φfdom1gdom1uABwABtuwFtFtft+igt+ft+igt
218 iftrue tuwiftuwFt0=Ft
219 218 adantl φfdom1gdom1uABwABtuwiftuwFt0=Ft
220 iftrue tuwiftuwFtft+igt+ft+igt0=Ftft+igt+ft+igt
221 220 adantl φfdom1gdom1uABwABtuwiftuwFtft+igt+ft+igt0=Ftft+igt+ft+igt
222 217 219 221 3brtr4d φfdom1gdom1uABwABtuwiftuwFt0iftuwFtft+igt+ft+igt0
223 222 ex φfdom1gdom1uABwABtuwiftuwFt0iftuwFtft+igt+ft+igt0
224 0le0 00
225 224 a1i ¬tuw00
226 iffalse ¬tuwiftuwFt0=0
227 iffalse ¬tuwiftuwFtft+igt+ft+igt0=0
228 225 226 227 3brtr4d ¬tuwiftuwFt0iftuwFtft+igt+ft+igt0
229 223 228 pm2.61d1 φfdom1gdom1uABwABiftuwFt0iftuwFtft+igt+ft+igt0
230 229 ralrimivw φfdom1gdom1uABwABtiftuwFt0iftuwFtft+igt+ft+igt0
231 reex V
232 231 a1i φV
233 fvex FtV
234 c0ex 0V
235 233 234 ifex iftuwFt0V
236 235 a1i φtiftuwFt0V
237 ovex Ftft+igt+ft+igtV
238 237 234 ifex iftuwFtft+igt+ft+igt0V
239 238 a1i φtiftuwFtft+igt+ft+igt0V
240 eqidd φtiftuwFt0=tiftuwFt0
241 eqidd φtiftuwFtft+igt+ft+igt0=tiftuwFtft+igt+ft+igt0
242 232 236 239 240 241 ofrfval2 φtiftuwFt0ftiftuwFtft+igt+ft+igt0tiftuwFt0iftuwFtft+igt+ft+igt0
243 242 ad2antrr φfdom1gdom1uABwABtiftuwFt0ftiftuwFtft+igt+ft+igt0tiftuwFt0iftuwFtft+igt+ft+igt0
244 230 243 mpbird φfdom1gdom1uABwABtiftuwFt0ftiftuwFtft+igt+ft+igt0
245 itg2le tiftuwFt0:0+∞tiftuwFtft+igt+ft+igt0:0+∞tiftuwFt0ftiftuwFtft+igt+ft+igt02tiftuwFt02tiftuwFtft+igt+ft+igt0
246 213 203 244 245 syl3anc φfdom1gdom1uABwAB2tiftuwFt02tiftuwFtft+igt+ft+igt0
247 246 3adantr3 φfdom1gdom1uABwABuw2tiftuwFt02tiftuwFtft+igt+ft+igt0
248 167 247 sylan φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uABwABuw2tiftuwFt02tiftuwFtft+igt+ft+igt0
249 248 adantr φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uABwABuwwu<y22supabsranfrang<2tiftuwFt02tiftuwFtft+igt+ft+igt0
250 1 2 3 4 5 6 7 8 ftc1anclem8 φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uABwABuwwu<y22supabsranfrang<2tiftuwFtft+igt+ft+igt0<y
251 166 208 210 249 250 xrlelttrd φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uABwABuwwu<y22supabsranfrang<2tiftuwFt0<y
252 simplll φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0φ
253 simpr2 φuABwABuwwAB
254 oveq2 x=wAx=Aw
255 itgeq1 Ax=AwAxFtdt=AwFtdt
256 254 255 syl x=wAxFtdt=AwFtdt
257 itgex AwFtdtV
258 256 1 257 fvmpt wABGw=AwFtdt
259 253 258 syl φuABwABuwGw=AwFtdt
260 2 adantr φuABwABuwA
261 115 sselda φwABw
262 261 3ad2antr2 φuABwABuww
263 115 sselda φuABu
264 263 rexrd φuABu*
265 264 3ad2antr1 φuABwABuwu*
266 elicc1 A*B*uABu*AuuB
267 133 134 266 syl2anc φuABu*AuuB
268 267 biimpa φuABu*AuuB
269 268 simp2d φuABAu
270 269 3ad2antr1 φuABwABuwAu
271 simpr3 φuABwABuwuw
272 133 adantr φwABA*
273 261 rexrd φwABw*
274 elicc1 A*w*uAwu*Auuw
275 272 273 274 syl2anc φwABuAwu*Auuw
276 275 3ad2antr2 φuABwABuwuAwu*Auuw
277 265 270 271 276 mpbir3and φuABwABuwuAw
278 iooss2 B*wBAwAB
279 134 142 278 syl2an φwABAwAB
280 5 adantr φwABABD
281 279 280 sstrd φwABAwD
282 281 3ad2antr2 φuABwABuwAwD
283 282 sselda φuABwABuwtAwtD
284 149 adantlr φuABwABuwtDFt
285 283 284 syldan φuABwABuwtAwFt
286 eleq1w w=uwABuAB
287 286 anbi2d w=uφwABφuAB
288 oveq2 w=uAw=Au
289 288 mpteq1d w=utAwFt=tAuFt
290 289 eleq1d w=utAwFt𝐿1tAuFt𝐿1
291 287 290 imbi12d w=uφwABtAwFt𝐿1φuABtAuFt𝐿1
292 ioombl Awdomvol
293 292 a1i φwABAwdomvol
294 149 adantlr φwABtDFt
295 8 feqmptd φF=tDFt
296 295 7 eqeltrrd φtDFt𝐿1
297 296 adantr φwABtDFt𝐿1
298 281 293 294 297 iblss φwABtAwFt𝐿1
299 291 298 chvarvv φuABtAuFt𝐿1
300 299 3ad2antr1 φuABwABuwtAuFt𝐿1
301 ioombl uwdomvol
302 301 a1i φuABwABuwdomvol
303 fvexd φuABwABtDFtV
304 296 adantr φuABwABtDFt𝐿1
305 147 302 303 304 iblss φuABwABtuwFt𝐿1
306 305 3adantr3 φuABwABuwtuwFt𝐿1
307 260 262 277 285 300 306 itgsplitioo φuABwABuwAwFtdt=AuFtdt+uwFtdt
308 259 307 eqtrd φuABwABuwGw=AuFtdt+uwFtdt
309 simpr1 φuABwABuwuAB
310 oveq2 x=uAx=Au
311 itgeq1 Ax=AuAxFtdt=AuFtdt
312 310 311 syl x=uAxFtdt=AuFtdt
313 itgex AuFtdtV
314 312 1 313 fvmpt uABGu=AuFtdt
315 309 314 syl φuABwABuwGu=AuFtdt
316 308 315 oveq12d φuABwABuwGwGu=AuFtdt+uwFtdt-AuFtdt
317 fvexd φuABtAuFtV
318 317 299 itgcl φuABAuFtdt
319 318 adantrr φuABwABAuFtdt
320 fvexd φuABwABtuwFtV
321 320 305 itgcl φuABwABuwFtdt
322 319 321 pncan2d φuABwABAuFtdt+uwFtdt-AuFtdt=uwFtdt
323 322 3adantr3 φuABwABuwAuFtdt+uwFtdt-AuFtdt=uwFtdt
324 316 323 eqtrd φuABwABuwGwGu=uwFtdt
325 324 fveq2d φuABwABuwGwGu=uwFtdt
326 df-ov uw=.uw
327 opelxpi uABwABuwAB×AB
328 ioof .:*×*𝒫
329 ffn .:*×*𝒫.Fn*×*
330 328 329 ax-mp .Fn*×*
331 iccssxr AB*
332 xpss12 AB*AB*AB×AB*×*
333 331 331 332 mp2an AB×AB*×*
334 fnfvima .Fn*×*AB×AB*×*uwAB×AB.uw.AB×AB
335 330 333 334 mp3an12 uwAB×AB.uw.AB×AB
336 327 335 syl uABwAB.uw.AB×AB
337 326 336 eqeltrid uABwABuw.AB×AB
338 itgeq1 s=uwsFtdt=uwFtdt
339 338 fveq2d s=uwsFtdt=uwFtdt
340 eleq2 s=uwtstuw
341 340 ifbid s=uwiftsFt0=iftuwFt0
342 341 mpteq2dv s=uwtiftsFt0=tiftuwFt0
343 342 fveq2d s=uw2tiftsFt0=2tiftuwFt0
344 339 343 breq12d s=uwsFtdt2tiftsFt0uwFtdt2tiftuwFt0
345 344 rspccva s.AB×ABsFtdt2tiftsFt0uw.AB×ABuwFtdt2tiftuwFt0
346 9 337 345 syl2an φuABwABuwFtdt2tiftuwFt0
347 346 3adantr3 φuABwABuwuwFtdt2tiftuwFt0
348 325 347 eqbrtrd φuABwABuwGwGu2tiftuwFt0
349 348 adantlr φy+uABwABuwGwGu2tiftuwFt0
350 subcl GwGuGwGu
351 125 126 350 syl2anr φuABφwABGwGu
352 351 anandis φuABwABGwGu
353 352 abscld φuABwABGwGu
354 353 rexrd φuABwABGwGu*
355 354 3adantr3 φuABwABuwGwGu*
356 355 adantlr φy+uABwABuwGwGu*
357 164 adantlr φy+uABwABuw2tiftuwFt0*
358 209 ad2antlr φy+uABwABuwy*
359 xrlelttr GwGu*2tiftuwFt0*y*GwGu2tiftuwFt02tiftuwFt0<yGwGu<y
360 356 357 358 359 syl3anc φy+uABwABuwGwGu2tiftuwFt02tiftuwFt0<yGwGu<y
361 349 360 mpand φy+uABwABuw2tiftuwFt0<yGwGu<y
362 252 361 sylanl1 φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uABwABuw2tiftuwFt0<yGwGu<y
363 362 adantr φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uABwABuwwu<y22supabsranfrang<2tiftuwFt0<yGwGu<y
364 251 363 mpd φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uABwABuwwu<y22supabsranfrang<GwGu<y
365 364 ex φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uABwABuwwu<y22supabsranfrang<GwGu<y
366 103 113 116 132 365 wlogle φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uABwABwu<y22supabsranfrang<GwGu<y
367 366 anassrs φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr0y+uABwABwu<y22supabsranfrang<GwGu<y
368 93 367 sylanb φuABy+fdom1gdom12tiftDFt0ft+igt<y2rranfrangr0wABwu<y22supabsranfrang<GwGu<y
369 368 ralrimiva φuABy+fdom1gdom12tiftDFt0ft+igt<y2rranfrangr0wABwu<y22supabsranfrang<GwGu<y
370 breq2 z=y22supabsranfrang<wu<zwu<y22supabsranfrang<
371 370 rspceaimv y22supabsranfrang<+wABwu<y22supabsranfrang<GwGu<yz+wABwu<zGwGu<y
372 82 369 371 syl2anc φuABy+fdom1gdom12tiftDFt0ft+igt<y2rranfrangr0z+wABwu<zGwGu<y
373 ralnex rranfrang¬r0¬rranfrangr0
374 nne ¬r0r=0
375 374 ralbii rranfrang¬r0rranfrangr=0
376 373 375 bitr3i ¬rranfrangr0rranfrangr=0
377 17 ffnd fdom1fFn
378 fnfvelrn fFntftranf
379 377 378 sylan fdom1tftranf
380 elun1 ftranfftranfrang
381 379 380 syl fdom1tftranfrang
382 eqeq1 r=ftr=0ft=0
383 382 rspcva ftranfrangrranfrangr=0ft=0
384 381 383 sylan fdom1trranfrangr=0ft=0
385 384 adantllr fdom1gdom1trranfrangr=0ft=0
386 20 ffnd gdom1gFn
387 fnfvelrn gFntgtrang
388 386 387 sylan gdom1tgtrang
389 elun2 gtranggtranfrang
390 388 389 syl gdom1tgtranfrang
391 eqeq1 r=gtr=0gt=0
392 391 rspcva gtranfrangrranfrangr=0gt=0
393 392 oveq2d gtranfrangrranfrangr=0igt=i0
394 it0e0 i0=0
395 393 394 eqtrdi gtranfrangrranfrangr=0igt=0
396 390 395 sylan gdom1trranfrangr=0igt=0
397 396 adantlll fdom1gdom1trranfrangr=0igt=0
398 385 397 oveq12d fdom1gdom1trranfrangr=0ft+igt=0+0
399 398 an32s fdom1gdom1rranfrangr=0tft+igt=0+0
400 00id 0+0=0
401 399 400 eqtrdi fdom1gdom1rranfrangr=0tft+igt=0
402 401 adantlll φfdom1gdom1rranfrangr=0tft+igt=0
403 402 oveq2d φfdom1gdom1rranfrangr=0tiftDFt0ft+igt=iftDFt00
404 0cnd φ¬tD0
405 149 404 ifclda φiftDFt0
406 405 subid1d φiftDFt00=iftDFt0
407 406 ad3antrrr φfdom1gdom1rranfrangr=0tiftDFt00=iftDFt0
408 403 407 eqtrd φfdom1gdom1rranfrangr=0tiftDFt0ft+igt=iftDFt0
409 408 fveq2d φfdom1gdom1rranfrangr=0tiftDFt0ft+igt=iftDFt0
410 fvif iftDFt0=iftDFt0
411 abs0 0=0
412 ifeq2 0=0iftDFt0=iftDFt0
413 411 412 ax-mp iftDFt0=iftDFt0
414 410 413 eqtri iftDFt0=iftDFt0
415 409 414 eqtrdi φfdom1gdom1rranfrangr=0tiftDFt0ft+igt=iftDFt0
416 415 mpteq2dva φfdom1gdom1rranfrangr=0tiftDFt0ft+igt=tiftDFt0
417 416 fveq2d φfdom1gdom1rranfrangr=02tiftDFt0ft+igt=2tiftDFt0
418 417 breq1d φfdom1gdom1rranfrangr=02tiftDFt0ft+igt<y22tiftDFt0<y2
419 418 biimpd φfdom1gdom1rranfrangr=02tiftDFt0ft+igt<y22tiftDFt0<y2
420 419 ex φfdom1gdom1rranfrangr=02tiftDFt0ft+igt<y22tiftDFt0<y2
421 420 com23 φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr=02tiftDFt0<y2
422 421 imp32 φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr=02tiftDFt0<y2
423 422 anasss φfdom1gdom12tiftDFt0ft+igt<y2rranfrangr=02tiftDFt0<y2
424 423 adantlr φuABy+fdom1gdom12tiftDFt0ft+igt<y2rranfrangr=02tiftDFt0<y2
425 1rp 1+
426 425 ne0ii +
427 352 anassrs φuABwABGwGu
428 427 abscld φuABwABGwGu
429 428 adantlrr φuABy+wABGwGu
430 429 adantlr φuABy+2tiftDFt0<y2wABGwGu
431 rpre y+y
432 431 rehalfcld y+y2
433 432 adantl uABy+y2
434 433 ad3antlr φuABy+2tiftDFt0<y2wABy2
435 431 adantl uABy+y
436 435 ad3antlr φuABy+2tiftDFt0<y2wABy
437 430 rexrd φuABy+2tiftDFt0<y2wABGwGu*
438 157 a1i φ¬tD00+∞
439 154 438 ifclda φiftDFt00+∞
440 439 adantr φtiftDFt00+∞
441 440 fmpttd φtiftDFt0:0+∞
442 itg2cl tiftDFt0:0+∞2tiftDFt0*
443 441 442 syl φ2tiftDFt0*
444 443 ad3antrrr φuABy+2tiftDFt0<y2wAB2tiftDFt0*
445 434 rexrd φuABy+2tiftDFt0<y2wABy2*
446 109 108 oveqan12rd b=ua=wGaGb=GwGu
447 446 fveq2d b=ua=wGaGb=GwGu
448 447 breq1d b=ua=wGaGb2tiftDFt0GwGu2tiftDFt0
449 99 98 oveqan12rd b=wa=uGaGb=GuGw
450 449 fveq2d b=wa=uGaGb=GuGw
451 450 breq1d b=wa=uGaGb2tiftDFt0GuGw2tiftDFt0
452 129 breq1d φuABwABGwGu2tiftDFt0GuGw2tiftDFt0
453 321 abscld φuABwABuwFtdt
454 453 rexrd φuABwABuwFtdt*
455 443 adantr φuABwAB2tiftDFt0*
456 441 adantr φuABwABtiftDFt0:0+∞
457 breq2 Ft=iftDFt0iftuwFt0FtiftuwFt0iftDFt0
458 breq2 0=iftDFt0iftuwFt00iftuwFt0iftDFt0
459 150 leidd φtDFtFt
460 breq1 Ft=iftuwFt0FtFtiftuwFt0Ft
461 breq1 0=iftuwFt00FtiftuwFt0Ft
462 460 461 ifboth FtFt0FtiftuwFt0Ft
463 459 152 462 syl2anc φtDiftuwFt0Ft
464 463 adantlr φuABwABtDiftuwFt0Ft
465 147 ssneld φuABwAB¬tD¬tuw
466 465 imp φuABwAB¬tD¬tuw
467 226 224 eqbrtrdi ¬tuwiftuwFt00
468 466 467 syl φuABwAB¬tDiftuwFt00
469 457 458 464 468 ifbothda φuABwABiftuwFt0iftDFt0
470 469 ralrimivw φuABwABtiftuwFt0iftDFt0
471 233 234 ifex iftDFt0V
472 471 a1i φtiftDFt0V
473 eqidd φtiftDFt0=tiftDFt0
474 232 236 472 240 473 ofrfval2 φtiftuwFt0ftiftDFt0tiftuwFt0iftDFt0
475 474 adantr φuABwABtiftuwFt0ftiftDFt0tiftuwFt0iftDFt0
476 470 475 mpbird φuABwABtiftuwFt0ftiftDFt0
477 itg2le tiftuwFt0:0+∞tiftDFt0:0+∞tiftuwFt0ftiftDFt02tiftuwFt02tiftDFt0
478 161 456 476 477 syl3anc φuABwAB2tiftuwFt02tiftDFt0
479 454 163 455 346 478 xrletrd φuABwABuwFtdt2tiftDFt0
480 479 3adantr3 φuABwABuwuwFtdt2tiftDFt0
481 325 480 eqbrtrd φuABwABuwGwGu2tiftDFt0
482 448 451 115 452 481 wlogle φuABwABGwGu2tiftDFt0
483 482 anassrs φuABwABGwGu2tiftDFt0
484 483 adantlrr φuABy+wABGwGu2tiftDFt0
485 484 adantlr φuABy+2tiftDFt0<y2wABGwGu2tiftDFt0
486 simplr φuABy+2tiftDFt0<y2wAB2tiftDFt0<y2
487 437 444 445 485 486 xrlelttrd φuABy+2tiftDFt0<y2wABGwGu<y2
488 rphalflt y+y2<y
489 488 adantl uABy+y2<y
490 489 ad3antlr φuABy+2tiftDFt0<y2wABy2<y
491 430 434 436 487 490 lttrd φuABy+2tiftDFt0<y2wABGwGu<y
492 491 a1d φuABy+2tiftDFt0<y2wABwu<zGwGu<y
493 492 ralrimiva φuABy+2tiftDFt0<y2wABwu<zGwGu<y
494 493 ralrimivw φuABy+2tiftDFt0<y2z+wABwu<zGwGu<y
495 r19.2z +z+wABwu<zGwGu<yz+wABwu<zGwGu<y
496 426 494 495 sylancr φuABy+2tiftDFt0<y2z+wABwu<zGwGu<y
497 424 496 syldan φuABy+fdom1gdom12tiftDFt0ft+igt<y2rranfrangr=0z+wABwu<zGwGu<y
498 497 anassrs φuABy+fdom1gdom12tiftDFt0ft+igt<y2rranfrangr=0z+wABwu<zGwGu<y
499 498 anassrs φuABy+fdom1gdom12tiftDFt0ft+igt<y2rranfrangr=0z+wABwu<zGwGu<y
500 376 499 sylan2b φuABy+fdom1gdom12tiftDFt0ft+igt<y2¬rranfrangr0z+wABwu<zGwGu<y
501 372 500 pm2.61dan φuABy+fdom1gdom12tiftDFt0ft+igt<y2z+wABwu<zGwGu<y
502 501 ex φuABy+fdom1gdom12tiftDFt0ft+igt<y2z+wABwu<zGwGu<y
503 502 rexlimdvva φuABy+fdom1gdom12tiftDFt0ft+igt<y2z+wABwu<zGwGu<y
504 14 503 mpd φuABy+z+wABwu<zGwGu<y
505 504 ralrimivva φuABy+z+wABwu<zGwGu<y
506 ssid
507 elcncf2 ABG:ABcnG:ABuABy+z+wABwu<zGwGu<y
508 118 506 507 sylancl φG:ABcnG:ABuABy+z+wABwu<zGwGu<y
509 10 505 508 mpbir2and φG:ABcn