Metamath Proof Explorer


Theorem fourierdlem48

Description: The given periodic function F has a right limit at every point in the reals. (Contributed by Glauco Siliprandi, 11-Dec-2019)

Ref Expression
Hypotheses fourierdlem48.a φ A
fourierdlem48.b φ B
fourierdlem48.altb φ A < B
fourierdlem48.p P = m p 0 m | p 0 = A p m = B i 0 ..^ m p i < p i + 1
fourierdlem48.t T = B A
fourierdlem48.m φ M
fourierdlem48.q φ Q P M
fourierdlem48.f φ F : D
fourierdlem48.dper φ x D k x + k T D
fourierdlem48.per φ x D k F x + k T = F x
fourierdlem48.cn φ i 0 ..^ M F Q i Q i + 1 : Q i Q i + 1 cn
fourierdlem48.r φ i 0 ..^ M R F Q i Q i + 1 lim Q i
fourierdlem48.x φ X
fourierdlem48.z Z = x B x T T
fourierdlem48.e E = x x + Z x
fourierdlem48.ch χ φ i 0 ..^ M y Q i Q i + 1 k y = X + k T
Assertion fourierdlem48 φ F X +∞ lim X

Proof

Step Hyp Ref Expression
1 fourierdlem48.a φ A
2 fourierdlem48.b φ B
3 fourierdlem48.altb φ A < B
4 fourierdlem48.p P = m p 0 m | p 0 = A p m = B i 0 ..^ m p i < p i + 1
5 fourierdlem48.t T = B A
6 fourierdlem48.m φ M
7 fourierdlem48.q φ Q P M
8 fourierdlem48.f φ F : D
9 fourierdlem48.dper φ x D k x + k T D
10 fourierdlem48.per φ x D k F x + k T = F x
11 fourierdlem48.cn φ i 0 ..^ M F Q i Q i + 1 : Q i Q i + 1 cn
12 fourierdlem48.r φ i 0 ..^ M R F Q i Q i + 1 lim Q i
13 fourierdlem48.x φ X
14 fourierdlem48.z Z = x B x T T
15 fourierdlem48.e E = x x + Z x
16 fourierdlem48.ch χ φ i 0 ..^ M y Q i Q i + 1 k y = X + k T
17 simpl φ E X = B φ
18 fveq2 i = 0 Q i = Q 0
19 fvoveq1 i = 0 Q i + 1 = Q 0 + 1
20 18 19 oveq12d i = 0 Q i Q i + 1 = Q 0 Q 0 + 1
21 20 eleq2d i = 0 E X T Q i Q i + 1 E X T Q 0 Q 0 + 1
22 21 anbi1d i = 0 E X T Q i Q i + 1 E X T = X + k T E X T Q 0 Q 0 + 1 E X T = X + k T
23 22 rexbidv i = 0 k E X T Q i Q i + 1 E X T = X + k T k E X T Q 0 Q 0 + 1 E X T = X + k T
24 0zd φ 0
25 6 nnzd φ M
26 6 nngt0d φ 0 < M
27 fzolb 0 0 ..^ M 0 M 0 < M
28 24 25 26 27 syl3anbrc φ 0 0 ..^ M
29 28 adantr φ E X = B 0 0 ..^ M
30 2 13 resubcld φ B X
31 2 1 resubcld φ B A
32 5 31 eqeltrid φ T
33 1 2 posdifd φ A < B 0 < B A
34 3 33 mpbid φ 0 < B A
35 34 5 breqtrrdi φ 0 < T
36 35 gt0ne0d φ T 0
37 30 32 36 redivcld φ B X T
38 37 adantr φ E X = B B X T
39 38 flcld φ E X = B B X T
40 1zzd φ E X = B 1
41 39 40 zsubcld φ E X = B B X T 1
42 id E X = B E X = B
43 5 a1i E X = B T = B A
44 42 43 oveq12d E X = B E X T = B B A
45 2 recnd φ B
46 1 recnd φ A
47 45 46 nncand φ B B A = A
48 44 47 sylan9eqr φ E X = B E X T = A
49 4 fourierdlem2 M Q P M Q 0 M Q 0 = A Q M = B i 0 ..^ M Q i < Q i + 1
50 6 49 syl φ Q P M Q 0 M Q 0 = A Q M = B i 0 ..^ M Q i < Q i + 1
51 7 50 mpbid φ Q 0 M Q 0 = A Q M = B i 0 ..^ M Q i < Q i + 1
52 51 simpld φ Q 0 M
53 elmapi Q 0 M Q : 0 M
54 52 53 syl φ Q : 0 M
55 6 nnnn0d φ M 0
56 nn0uz 0 = 0
57 55 56 eleqtrdi φ M 0
58 eluzfz1 M 0 0 0 M
59 57 58 syl φ 0 0 M
60 54 59 ffvelcdmd φ Q 0
61 60 rexrd φ Q 0 *
62 1zzd φ 1
63 0le1 0 1
64 63 a1i φ 0 1
65 6 nnge1d φ 1 M
66 24 25 62 64 65 elfzd φ 1 0 M
67 54 66 ffvelcdmd φ Q 1
68 67 rexrd φ Q 1 *
69 1 rexrd φ A *
70 51 simprd φ Q 0 = A Q M = B i 0 ..^ M Q i < Q i + 1
71 70 simplld φ Q 0 = A
72 1 leidd φ A A
73 71 72 eqbrtrd φ Q 0 A
74 71 eqcomd φ A = Q 0
75 18 19 breq12d i = 0 Q i < Q i + 1 Q 0 < Q 0 + 1
76 51 simprrd φ i 0 ..^ M Q i < Q i + 1
77 75 76 28 rspcdva φ Q 0 < Q 0 + 1
78 1e0p1 1 = 0 + 1
79 78 fveq2i Q 1 = Q 0 + 1
80 77 79 breqtrrdi φ Q 0 < Q 1
81 74 80 eqbrtrd φ A < Q 1
82 61 68 69 73 81 elicod φ A Q 0 Q 1
83 79 oveq2i Q 0 Q 1 = Q 0 Q 0 + 1
84 82 83 eleqtrdi φ A Q 0 Q 0 + 1
85 84 adantr φ E X = B A Q 0 Q 0 + 1
86 48 85 eqeltrd φ E X = B E X T Q 0 Q 0 + 1
87 id x = X x = X
88 fveq2 x = X Z x = Z X
89 87 88 oveq12d x = X x + Z x = X + Z X
90 oveq2 x = X B x = B X
91 90 fvoveq1d x = X B x T = B X T
92 91 oveq1d x = X B x T T = B X T T
93 37 flcld φ B X T
94 93 zred φ B X T
95 94 32 remulcld φ B X T T
96 14 92 13 95 fvmptd3 φ Z X = B X T T
97 96 95 eqeltrd φ Z X
98 13 97 readdcld φ X + Z X
99 15 89 13 98 fvmptd3 φ E X = X + Z X
100 96 oveq2d φ X + Z X = X + B X T T
101 99 100 eqtrd φ E X = X + B X T T
102 101 oveq1d φ E X T = X + B X T T - T
103 13 recnd φ X
104 95 recnd φ B X T T
105 32 recnd φ T
106 103 104 105 addsubassd φ X + B X T T - T = X + B X T T - T
107 93 zcnd φ B X T
108 107 105 mulsubfacd φ B X T T T = B X T 1 T
109 108 oveq2d φ X + B X T T - T = X + B X T 1 T
110 102 106 109 3eqtrd φ E X T = X + B X T 1 T
111 110 adantr φ E X = B E X T = X + B X T 1 T
112 oveq1 k = B X T 1 k T = B X T 1 T
113 112 oveq2d k = B X T 1 X + k T = X + B X T 1 T
114 113 eqeq2d k = B X T 1 E X T = X + k T E X T = X + B X T 1 T
115 114 anbi2d k = B X T 1 E X T Q 0 Q 0 + 1 E X T = X + k T E X T Q 0 Q 0 + 1 E X T = X + B X T 1 T
116 115 rspcev B X T 1 E X T Q 0 Q 0 + 1 E X T = X + B X T 1 T k E X T Q 0 Q 0 + 1 E X T = X + k T
117 41 86 111 116 syl12anc φ E X = B k E X T Q 0 Q 0 + 1 E X T = X + k T
118 23 29 117 rspcedvdw φ E X = B i 0 ..^ M k E X T Q i Q i + 1 E X T = X + k T
119 ovex E X T V
120 eleq1 y = E X T y Q i Q i + 1 E X T Q i Q i + 1
121 eqeq1 y = E X T y = X + k T E X T = X + k T
122 120 121 anbi12d y = E X T y Q i Q i + 1 y = X + k T E X T Q i Q i + 1 E X T = X + k T
123 122 2rexbidv y = E X T i 0 ..^ M k y Q i Q i + 1 y = X + k T i 0 ..^ M k E X T Q i Q i + 1 E X T = X + k T
124 123 anbi2d y = E X T φ i 0 ..^ M k y Q i Q i + 1 y = X + k T φ i 0 ..^ M k E X T Q i Q i + 1 E X T = X + k T
125 124 imbi1d y = E X T φ i 0 ..^ M k y Q i Q i + 1 y = X + k T F X +∞ lim X φ i 0 ..^ M k E X T Q i Q i + 1 E X T = X + k T F X +∞ lim X
126 simpr φ i 0 ..^ M k y Q i Q i + 1 y = X + k T i 0 ..^ M k y Q i Q i + 1 y = X + k T
127 nfv i φ
128 nfre1 i i 0 ..^ M k y Q i Q i + 1 y = X + k T
129 127 128 nfan i φ i 0 ..^ M k y Q i Q i + 1 y = X + k T
130 nfv k φ
131 nfcv _ k 0 ..^ M
132 nfre1 k k y Q i Q i + 1 y = X + k T
133 131 132 nfrexw k i 0 ..^ M k y Q i Q i + 1 y = X + k T
134 130 133 nfan k φ i 0 ..^ M k y Q i Q i + 1 y = X + k T
135 simp1 φ i 0 ..^ M k y Q i Q i + 1 y = X + k T φ
136 simp2l φ i 0 ..^ M k y Q i Q i + 1 y = X + k T i 0 ..^ M
137 simp3l φ i 0 ..^ M k y Q i Q i + 1 y = X + k T y Q i Q i + 1
138 135 136 137 jca31 φ i 0 ..^ M k y Q i Q i + 1 y = X + k T φ i 0 ..^ M y Q i Q i + 1
139 simp2r φ i 0 ..^ M k y Q i Q i + 1 y = X + k T k
140 simp3r φ i 0 ..^ M k y Q i Q i + 1 y = X + k T y = X + k T
141 resindm F X +∞ dom F = F X +∞
142 16 biimpi χ φ i 0 ..^ M y Q i Q i + 1 k y = X + k T
143 142 simplld χ φ i 0 ..^ M y Q i Q i + 1
144 143 simplld χ φ
145 fdm F : D dom F = D
146 144 8 145 3syl χ dom F = D
147 146 ineq2d χ X +∞ dom F = X +∞ D
148 147 reseq2d χ F X +∞ dom F = F X +∞ D
149 141 148 eqtr3id χ F X +∞ = F X +∞ D
150 149 oveq1d χ F X +∞ lim X = F X +∞ D lim X
151 144 8 syl χ F : D
152 ax-resscn
153 152 a1i χ
154 151 153 fssd χ F : D
155 inss2 X +∞ D D
156 155 a1i χ X +∞ D D
157 154 156 fssresd χ F X +∞ D : X +∞ D
158 pnfxr +∞ *
159 158 a1i χ +∞ *
160 143 simplrd χ i 0 ..^ M
161 54 adantr φ i 0 ..^ M Q : 0 M
162 fzofzp1 i 0 ..^ M i + 1 0 M
163 162 adantl φ i 0 ..^ M i + 1 0 M
164 161 163 ffvelcdmd φ i 0 ..^ M Q i + 1
165 144 160 164 syl2anc χ Q i + 1
166 142 simplrd χ k
167 166 zred χ k
168 144 32 syl χ T
169 167 168 remulcld χ k T
170 165 169 resubcld χ Q i + 1 k T
171 170 rexrd χ Q i + 1 k T *
172 171 pnfged χ Q i + 1 k T +∞
173 iooss2 +∞ * Q i + 1 k T +∞ X Q i + 1 k T X +∞
174 159 172 173 syl2anc χ X Q i + 1 k T X +∞
175 166 adantr χ w X Q i + 1 k T k
176 175 zcnd χ w X Q i + 1 k T k
177 168 recnd χ T
178 177 adantr χ w X Q i + 1 k T T
179 176 178 mulneg1d χ w X Q i + 1 k T k T = k T
180 179 oveq2d χ w X Q i + 1 k T w + k T + k T = w + k T + k T
181 elioore w X Q i + 1 k T w
182 181 recnd w X Q i + 1 k T w
183 182 adantl χ w X Q i + 1 k T w
184 176 178 mulcld χ w X Q i + 1 k T k T
185 183 184 addcld χ w X Q i + 1 k T w + k T
186 185 184 negsubd χ w X Q i + 1 k T w + k T + k T = w + k T - k T
187 183 184 pncand χ w X Q i + 1 k T w + k T - k T = w
188 180 186 187 3eqtrrd χ w X Q i + 1 k T w = w + k T + k T
189 144 adantr χ w X Q i + 1 k T φ
190 143 simpld χ φ i 0 ..^ M
191 cncff F Q i Q i + 1 : Q i Q i + 1 cn F Q i Q i + 1 : Q i Q i + 1
192 fdm F Q i Q i + 1 : Q i Q i + 1 dom F Q i Q i + 1 = Q i Q i + 1
193 11 191 192 3syl φ i 0 ..^ M dom F Q i Q i + 1 = Q i Q i + 1
194 ssdmres Q i Q i + 1 dom F dom F Q i Q i + 1 = Q i Q i + 1
195 193 194 sylibr φ i 0 ..^ M Q i Q i + 1 dom F
196 8 fdmd φ dom F = D
197 196 adantr φ i 0 ..^ M dom F = D
198 195 197 sseqtrd φ i 0 ..^ M Q i Q i + 1 D
199 190 198 syl χ Q i Q i + 1 D
200 199 adantr χ w X Q i + 1 k T Q i Q i + 1 D
201 elfzofz i 0 ..^ M i 0 M
202 201 adantl φ i 0 ..^ M i 0 M
203 161 202 ffvelcdmd φ i 0 ..^ M Q i
204 144 160 203 syl2anc χ Q i
205 204 rexrd χ Q i *
206 205 adantr χ w X Q i + 1 k T Q i *
207 165 rexrd χ Q i + 1 *
208 207 adantr χ w X Q i + 1 k T Q i + 1 *
209 181 adantl χ w X Q i + 1 k T w
210 175 zred χ w X Q i + 1 k T k
211 189 32 syl χ w X Q i + 1 k T T
212 210 211 remulcld χ w X Q i + 1 k T k T
213 209 212 readdcld χ w X Q i + 1 k T w + k T
214 204 adantr χ w X Q i + 1 k T Q i
215 144 13 syl χ X
216 215 169 readdcld χ X + k T
217 216 adantr χ w X Q i + 1 k T X + k T
218 16 simprbi χ y = X + k T
219 218 eqcomd χ X + k T = y
220 143 simprd χ y Q i Q i + 1
221 219 220 eqeltrd χ X + k T Q i Q i + 1
222 205 207 221 icogelbd χ Q i X + k T
223 222 adantr χ w X Q i + 1 k T Q i X + k T
224 189 13 syl χ w X Q i + 1 k T X
225 224 rexrd χ w X Q i + 1 k T X *
226 165 adantr χ w X Q i + 1 k T Q i + 1
227 226 212 resubcld χ w X Q i + 1 k T Q i + 1 k T
228 227 rexrd χ w X Q i + 1 k T Q i + 1 k T *
229 simpr χ w X Q i + 1 k T w X Q i + 1 k T
230 225 228 229 ioogtlbd χ w X Q i + 1 k T X < w
231 224 209 212 230 ltadd1dd χ w X Q i + 1 k T X + k T < w + k T
232 214 217 213 223 231 lelttrd χ w X Q i + 1 k T Q i < w + k T
233 225 228 229 iooltubd χ w X Q i + 1 k T w < Q i + 1 k T
234 209 227 212 233 ltadd1dd χ w X Q i + 1 k T w + k T < Q i + 1 - k T + k T
235 165 recnd χ Q i + 1
236 169 recnd χ k T
237 235 236 npcand χ Q i + 1 - k T + k T = Q i + 1
238 237 adantr χ w X Q i + 1 k T Q i + 1 - k T + k T = Q i + 1
239 234 238 breqtrd χ w X Q i + 1 k T w + k T < Q i + 1
240 206 208 213 232 239 eliood χ w X Q i + 1 k T w + k T Q i Q i + 1
241 200 240 sseldd χ w X Q i + 1 k T w + k T D
242 175 znegcld χ w X Q i + 1 k T k
243 ovex w + k T V
244 eleq1 x = w + k T x D w + k T D
245 244 3anbi2d x = w + k T φ x D k φ w + k T D k
246 oveq1 x = w + k T x + k T = w + k T + k T
247 246 eleq1d x = w + k T x + k T D w + k T + k T D
248 245 247 imbi12d x = w + k T φ x D k x + k T D φ w + k T D k w + k T + k T D
249 negex k V
250 eleq1 j = k j k
251 250 3anbi3d j = k φ x D j φ x D k
252 oveq1 j = k j T = k T
253 252 oveq2d j = k x + j T = x + k T
254 253 eleq1d j = k x + j T D x + k T D
255 251 254 imbi12d j = k φ x D j x + j T D φ x D k x + k T D
256 eleq1 k = j k j
257 256 3anbi3d k = j φ x D k φ x D j
258 oveq1 k = j k T = j T
259 258 oveq2d k = j x + k T = x + j T
260 259 eleq1d k = j x + k T D x + j T D
261 257 260 imbi12d k = j φ x D k x + k T D φ x D j x + j T D
262 261 9 chvarvv φ x D j x + j T D
263 249 255 262 vtocl φ x D k x + k T D
264 243 248 263 vtocl φ w + k T D k w + k T + k T D
265 189 241 242 264 syl3anc χ w X Q i + 1 k T w + k T + k T D
266 188 265 eqeltrd χ w X Q i + 1 k T w D
267 266 ssd χ X Q i + 1 k T D
268 174 267 ssind χ X Q i + 1 k T X +∞ D
269 ioosscn X +∞
270 ssinss1 X +∞ X +∞ D
271 269 270 mp1i χ X +∞ D
272 eqid TopOpen fld = TopOpen fld
273 eqid TopOpen fld 𝑡 X +∞ D X = TopOpen fld 𝑡 X +∞ D X
274 215 rexrd χ X *
275 215 leidd χ X X
276 218 oveq1d χ y k T = X + k T - k T
277 215 recnd χ X
278 277 236 pncand χ X + k T - k T = X
279 276 278 eqtr2d χ X = y k T
280 icossre Q i Q i + 1 * Q i Q i + 1
281 204 207 280 syl2anc χ Q i Q i + 1
282 281 220 sseldd χ y
283 205 207 220 icoltubd χ y < Q i + 1
284 282 165 169 283 ltsub1dd χ y k T < Q i + 1 k T
285 279 284 eqbrtrd χ X < Q i + 1 k T
286 274 171 274 275 285 elicod χ X X Q i + 1 k T
287 snunioo1 X * Q i + 1 k T * X < Q i + 1 k T X Q i + 1 k T X = X Q i + 1 k T
288 274 171 285 287 syl3anc χ X Q i + 1 k T X = X Q i + 1 k T
289 288 fveq2d χ int TopOpen fld 𝑡 X +∞ D X X Q i + 1 k T X = int TopOpen fld 𝑡 X +∞ D X X Q i + 1 k T
290 272 cnfldtop TopOpen fld Top
291 ovex X +∞ V
292 291 inex1 X +∞ D V
293 snex X V
294 292 293 unex X +∞ D X V
295 resttop TopOpen fld Top X +∞ D X V TopOpen fld 𝑡 X +∞ D X Top
296 290 294 295 mp2an TopOpen fld 𝑡 X +∞ D X Top
297 296 a1i χ TopOpen fld 𝑡 X +∞ D X Top
298 retop topGen ran . Top
299 iooretop −∞ Q i + 1 k T topGen ran .
300 299 a1i χ −∞ Q i + 1 k T topGen ran .
301 elrestr topGen ran . Top X +∞ D X V −∞ Q i + 1 k T topGen ran . −∞ Q i + 1 k T X +∞ D X topGen ran . 𝑡 X +∞ D X
302 298 294 300 301 mp3an12i χ −∞ Q i + 1 k T X +∞ D X topGen ran . 𝑡 X +∞ D X
303 mnfxr −∞ *
304 303 a1i χ x X Q i + 1 k T −∞ *
305 171 adantr χ x X Q i + 1 k T Q i + 1 k T *
306 icossre X Q i + 1 k T * X Q i + 1 k T
307 215 171 306 syl2anc χ X Q i + 1 k T
308 307 sselda χ x X Q i + 1 k T x
309 308 mnfltd χ x X Q i + 1 k T −∞ < x
310 274 adantr χ x X Q i + 1 k T X *
311 simpr χ x X Q i + 1 k T x X Q i + 1 k T
312 310 305 311 icoltubd χ x X Q i + 1 k T x < Q i + 1 k T
313 304 305 308 309 312 eliood χ x X Q i + 1 k T x −∞ Q i + 1 k T
314 vsnid x x
315 sneq x = X x = X
316 314 315 eleqtrid x = X x X
317 elun2 x X x X +∞ D X
318 316 317 syl x = X x X +∞ D X
319 318 adantl χ x X Q i + 1 k T x = X x X +∞ D X
320 274 ad2antrr χ x X Q i + 1 k T ¬ x = X X *
321 158 a1i χ x X Q i + 1 k T ¬ x = X +∞ *
322 308 adantr χ x X Q i + 1 k T ¬ x = X x
323 215 ad2antrr χ x X Q i + 1 k T ¬ x = X X
324 310 305 311 icogelbd χ x X Q i + 1 k T X x
325 324 adantr χ x X Q i + 1 k T ¬ x = X X x
326 neqne ¬ x = X x X
327 326 adantl χ x X Q i + 1 k T ¬ x = X x X
328 323 322 325 327 leneltd χ x X Q i + 1 k T ¬ x = X X < x
329 322 ltpnfd χ x X Q i + 1 k T ¬ x = X x < +∞
330 320 321 322 328 329 eliood χ x X Q i + 1 k T ¬ x = X x X +∞
331 166 zcnd χ k
332 331 177 mulneg1d χ k T = k T
333 332 oveq2d χ w + k T + k T = w + k T + k T
334 333 adantr χ w X Q i + 1 k T w + k T + k T = w + k T + k T
335 ioosscn X Q i + 1 k T
336 335 sseli w X Q i + 1 k T w
337 336 adantl χ w X Q i + 1 k T w
338 236 adantr χ w X Q i + 1 k T k T
339 337 338 addcld χ w X Q i + 1 k T w + k T
340 339 338 negsubd χ w X Q i + 1 k T w + k T + k T = w + k T - k T
341 337 338 pncand χ w X Q i + 1 k T w + k T - k T = w
342 334 340 341 3eqtrrd χ w X Q i + 1 k T w = w + k T + k T
343 169 adantr χ w X Q i + 1 k T k T
344 209 343 readdcld χ w X Q i + 1 k T w + k T
345 206 208 344 232 239 eliood χ w X Q i + 1 k T w + k T Q i Q i + 1
346 200 345 sseldd χ w X Q i + 1 k T w + k T D
347 250 3anbi3d j = k φ w + k T D j φ w + k T D k
348 252 oveq2d j = k w + k T + j T = w + k T + k T
349 348 eleq1d j = k w + k T + j T D w + k T + k T D
350 347 349 imbi12d j = k φ w + k T D j w + k T + j T D φ w + k T D k w + k T + k T D
351 244 3anbi2d x = w + k T φ x D j φ w + k T D j
352 oveq1 x = w + k T x + j T = w + k T + j T
353 352 eleq1d x = w + k T x + j T D w + k T + j T D
354 351 353 imbi12d x = w + k T φ x D j x + j T D φ w + k T D j w + k T + j T D
355 243 354 262 vtocl φ w + k T D j w + k T + j T D
356 249 350 355 vtocl φ w + k T D k w + k T + k T D
357 189 346 242 356 syl3anc χ w X Q i + 1 k T w + k T + k T D
358 342 357 eqeltrd χ w X Q i + 1 k T w D
359 358 ssd χ X Q i + 1 k T D
360 359 ad2antrr χ x X Q i + 1 k T ¬ x = X X Q i + 1 k T D
361 171 ad2antrr χ x X Q i + 1 k T ¬ x = X Q i + 1 k T *
362 312 adantr χ x X Q i + 1 k T ¬ x = X x < Q i + 1 k T
363 320 361 322 328 362 eliood χ x X Q i + 1 k T ¬ x = X x X Q i + 1 k T
364 360 363 sseldd χ x X Q i + 1 k T ¬ x = X x D
365 330 364 elind χ x X Q i + 1 k T ¬ x = X x X +∞ D
366 elun1 x X +∞ D x X +∞ D X
367 365 366 syl χ x X Q i + 1 k T ¬ x = X x X +∞ D X
368 319 367 pm2.61dan χ x X Q i + 1 k T x X +∞ D X
369 313 368 elind χ x X Q i + 1 k T x −∞ Q i + 1 k T X +∞ D X
370 274 adantr χ x −∞ Q i + 1 k T X +∞ D X X *
371 171 adantr χ x −∞ Q i + 1 k T X +∞ D X Q i + 1 k T *
372 elinel1 x −∞ Q i + 1 k T X +∞ D X x −∞ Q i + 1 k T
373 372 elioored x −∞ Q i + 1 k T X +∞ D X x
374 373 rexrd x −∞ Q i + 1 k T X +∞ D X x *
375 374 adantl χ x −∞ Q i + 1 k T X +∞ D X x *
376 elinel2 x −∞ Q i + 1 k T X +∞ D X x X +∞ D X
377 215 adantr χ x = X X
378 87 eqcomd x = X X = x
379 378 adantl χ x = X X = x
380 377 379 eqled χ x = X X x
381 380 adantlr χ x X +∞ D X x = X X x
382 simpll χ x X +∞ D X ¬ x = X χ
383 simplr χ x X +∞ D X ¬ x = X x X +∞ D X
384 id ¬ x = X ¬ x = X
385 velsn x X x = X
386 384 385 sylnibr ¬ x = X ¬ x X
387 386 adantl χ x X +∞ D X ¬ x = X ¬ x X
388 elunnel2 x X +∞ D X ¬ x X x X +∞ D
389 383 387 388 syl2anc χ x X +∞ D X ¬ x = X x X +∞ D
390 elinel1 x X +∞ D x X +∞
391 389 390 syl χ x X +∞ D X ¬ x = X x X +∞
392 215 adantr χ x X +∞ X
393 elioore x X +∞ x
394 393 adantl χ x X +∞ x
395 274 adantr χ x X +∞ X *
396 158 a1i χ x X +∞ +∞ *
397 simpr χ x X +∞ x X +∞
398 395 396 397 ioogtlbd χ x X +∞ X < x
399 392 394 398 ltled χ x X +∞ X x
400 382 391 399 syl2anc χ x X +∞ D X ¬ x = X X x
401 381 400 pm2.61dan χ x X +∞ D X X x
402 376 401 sylan2 χ x −∞ Q i + 1 k T X +∞ D X X x
403 iooltub −∞ * Q i + 1 k T * x −∞ Q i + 1 k T x < Q i + 1 k T
404 303 171 372 403 mp3an3an χ x −∞ Q i + 1 k T X +∞ D X x < Q i + 1 k T
405 370 371 375 402 404 elicod χ x −∞ Q i + 1 k T X +∞ D X x X Q i + 1 k T
406 369 405 impbida χ x X Q i + 1 k T x −∞ Q i + 1 k T X +∞ D X
407 406 eqrdv χ X Q i + 1 k T = −∞ Q i + 1 k T X +∞ D X
408 ioossre X +∞
409 ssinss1 X +∞ X +∞ D
410 408 409 mp1i χ X +∞ D
411 215 snssd χ X
412 410 411 unssd χ X +∞ D X
413 eqid topGen ran . = topGen ran .
414 272 413 rerest X +∞ D X TopOpen fld 𝑡 X +∞ D X = topGen ran . 𝑡 X +∞ D X
415 412 414 syl χ TopOpen fld 𝑡 X +∞ D X = topGen ran . 𝑡 X +∞ D X
416 302 407 415 3eltr4d χ X Q i + 1 k T TopOpen fld 𝑡 X +∞ D X
417 isopn3i TopOpen fld 𝑡 X +∞ D X Top X Q i + 1 k T TopOpen fld 𝑡 X +∞ D X int TopOpen fld 𝑡 X +∞ D X X Q i + 1 k T = X Q i + 1 k T
418 297 416 417 syl2anc χ int TopOpen fld 𝑡 X +∞ D X X Q i + 1 k T = X Q i + 1 k T
419 289 418 eqtr2d χ X Q i + 1 k T = int TopOpen fld 𝑡 X +∞ D X X Q i + 1 k T X
420 286 419 eleqtrd χ X int TopOpen fld 𝑡 X +∞ D X X Q i + 1 k T X
421 157 268 271 272 273 420 limcres χ F X +∞ D X Q i + 1 k T lim X = F X +∞ D lim X
422 268 resabs1d χ F X +∞ D X Q i + 1 k T = F X Q i + 1 k T
423 422 oveq1d χ F X +∞ D X Q i + 1 k T lim X = F X Q i + 1 k T lim X
424 152 a1i φ
425 8 424 fssd φ F : D
426 425 ffdmd φ F : dom F
427 144 426 syl χ F : dom F
428 427 adantr χ w F X Q i + 1 k T lim X F : dom F
429 335 a1i χ w F X Q i + 1 k T lim X X Q i + 1 k T
430 359 146 sseqtrrd χ X Q i + 1 k T dom F
431 430 adantr χ w F X Q i + 1 k T lim X X Q i + 1 k T dom F
432 236 adantr χ w F X Q i + 1 k T lim X k T
433 eqid z | x X Q i + 1 k T z = x + k T = z | x X Q i + 1 k T z = x + k T
434 eqeq1 z = w z = x + k T w = x + k T
435 434 rexbidv z = w x X Q i + 1 k T z = x + k T x X Q i + 1 k T w = x + k T
436 435 elrab w z | x X Q i + 1 k T z = x + k T w x X Q i + 1 k T w = x + k T
437 436 simprbi w z | x X Q i + 1 k T z = x + k T x X Q i + 1 k T w = x + k T
438 437 adantl χ w z | x X Q i + 1 k T z = x + k T x X Q i + 1 k T w = x + k T
439 nfv x χ
440 nfre1 x x X Q i + 1 k T z = x + k T
441 nfcv _ x
442 440 441 nfrabw _ x z | x X Q i + 1 k T z = x + k T
443 442 nfcri x w z | x X Q i + 1 k T z = x + k T
444 439 443 nfan x χ w z | x X Q i + 1 k T z = x + k T
445 nfv x w D
446 simp3 χ x X Q i + 1 k T w = x + k T w = x + k T
447 eleq1 w = x w X Q i + 1 k T x X Q i + 1 k T
448 447 anbi2d w = x χ w X Q i + 1 k T χ x X Q i + 1 k T
449 oveq1 w = x w + k T = x + k T
450 449 eleq1d w = x w + k T D x + k T D
451 448 450 imbi12d w = x χ w X Q i + 1 k T w + k T D χ x X Q i + 1 k T x + k T D
452 451 241 chvarvv χ x X Q i + 1 k T x + k T D
453 452 3adant3 χ x X Q i + 1 k T w = x + k T x + k T D
454 446 453 eqeltrd χ x X Q i + 1 k T w = x + k T w D
455 454 3exp χ x X Q i + 1 k T w = x + k T w D
456 455 adantr χ w z | x X Q i + 1 k T z = x + k T x X Q i + 1 k T w = x + k T w D
457 444 445 456 rexlimd χ w z | x X Q i + 1 k T z = x + k T x X Q i + 1 k T w = x + k T w D
458 438 457 mpd χ w z | x X Q i + 1 k T z = x + k T w D
459 458 ssd χ z | x X Q i + 1 k T z = x + k T D
460 459 146 sseqtrrd χ z | x X Q i + 1 k T z = x + k T dom F
461 460 adantr χ w F X Q i + 1 k T lim X z | x X Q i + 1 k T z = x + k T dom F
462 144 adantr χ x X Q i + 1 k T φ
463 359 sselda χ x X Q i + 1 k T x D
464 166 adantr χ x X Q i + 1 k T k
465 462 463 464 10 syl3anc χ x X Q i + 1 k T F x + k T = F x
466 465 adantlr χ w F X Q i + 1 k T lim X x X Q i + 1 k T F x + k T = F x
467 simpr χ w F X Q i + 1 k T lim X w F X Q i + 1 k T lim X
468 428 429 431 432 433 461 466 467 limcperiod χ w F X Q i + 1 k T lim X w F z | x X Q i + 1 k T z = x + k T lim X + k T
469 237 eqcomd χ Q i + 1 = Q i + 1 - k T + k T
470 218 469 oveq12d χ y Q i + 1 = X + k T Q i + 1 - k T + k T
471 215 170 169 iooshift χ X + k T Q i + 1 - k T + k T = z | x X Q i + 1 k T z = x + k T
472 470 471 eqtr2d χ z | x X Q i + 1 k T z = x + k T = y Q i + 1
473 472 reseq2d χ F z | x X Q i + 1 k T z = x + k T = F y Q i + 1
474 473 219 oveq12d χ F z | x X Q i + 1 k T z = x + k T lim X + k T = F y Q i + 1 lim y
475 474 adantr χ w F X Q i + 1 k T lim X F z | x X Q i + 1 k T z = x + k T lim X + k T = F y Q i + 1 lim y
476 468 475 eleqtrd χ w F X Q i + 1 k T lim X w F y Q i + 1 lim y
477 427 adantr χ w F y Q i + 1 lim y F : dom F
478 ioosscn y Q i + 1
479 478 a1i χ w F y Q i + 1 lim y y Q i + 1
480 205 207 220 icogelbd χ Q i y
481 iooss1 Q i * Q i y y Q i + 1 Q i Q i + 1
482 205 480 481 syl2anc χ y Q i + 1 Q i Q i + 1
483 482 199 sstrd χ y Q i + 1 D
484 483 146 sseqtrrd χ y Q i + 1 dom F
485 484 adantr χ w F y Q i + 1 lim y y Q i + 1 dom F
486 331 negcld χ k
487 486 177 mulcld χ k T
488 487 adantr χ w F y Q i + 1 lim y k T
489 eqid z | x y Q i + 1 z = x + k T = z | x y Q i + 1 z = x + k T
490 eqeq1 z = w z = x + k T w = x + k T
491 490 rexbidv z = w x y Q i + 1 z = x + k T x y Q i + 1 w = x + k T
492 491 elrab w z | x y Q i + 1 z = x + k T w x y Q i + 1 w = x + k T
493 492 simprbi w z | x y Q i + 1 z = x + k T x y Q i + 1 w = x + k T
494 493 adantl χ w z | x y Q i + 1 z = x + k T x y Q i + 1 w = x + k T
495 nfre1 x x y Q i + 1 z = x + k T
496 495 441 nfrabw _ x z | x y Q i + 1 z = x + k T
497 496 nfcri x w z | x y Q i + 1 z = x + k T
498 439 497 nfan x χ w z | x y Q i + 1 z = x + k T
499 simp3 χ x y Q i + 1 w = x + k T w = x + k T
500 144 adantr χ x y Q i + 1 φ
501 483 sselda χ x y Q i + 1 x D
502 166 adantr χ x y Q i + 1 k
503 502 znegcld χ x y Q i + 1 k
504 500 501 503 263 syl3anc χ x y Q i + 1 x + k T D
505 504 3adant3 χ x y Q i + 1 w = x + k T x + k T D
506 499 505 eqeltrd χ x y Q i + 1 w = x + k T w D
507 506 3exp χ x y Q i + 1 w = x + k T w D
508 507 adantr χ w z | x y Q i + 1 z = x + k T x y Q i + 1 w = x + k T w D
509 498 445 508 rexlimd χ w z | x y Q i + 1 z = x + k T x y Q i + 1 w = x + k T w D
510 494 509 mpd χ w z | x y Q i + 1 z = x + k T w D
511 510 ssd χ z | x y Q i + 1 z = x + k T D
512 511 146 sseqtrrd χ z | x y Q i + 1 z = x + k T dom F
513 512 adantr χ w F y Q i + 1 lim y z | x y Q i + 1 z = x + k T dom F
514 144 ad2antrr χ w F y Q i + 1 lim y x y Q i + 1 φ
515 501 adantlr χ w F y Q i + 1 lim y x y Q i + 1 x D
516 503 adantlr χ w F y Q i + 1 lim y x y Q i + 1 k
517 253 fveqeq2d j = k F x + j T = F x F x + k T = F x
518 251 517 imbi12d j = k φ x D j F x + j T = F x φ x D k F x + k T = F x
519 259 fveqeq2d k = j F x + k T = F x F x + j T = F x
520 257 519 imbi12d k = j φ x D k F x + k T = F x φ x D j F x + j T = F x
521 520 10 chvarvv φ x D j F x + j T = F x
522 249 518 521 vtocl φ x D k F x + k T = F x
523 514 515 516 522 syl3anc χ w F y Q i + 1 lim y x y Q i + 1 F x + k T = F x
524 simpr χ w F y Q i + 1 lim y w F y Q i + 1 lim y
525 477 479 485 488 489 513 523 524 limcperiod χ w F y Q i + 1 lim y w F z | x y Q i + 1 z = x + k T lim y + k T
526 332 oveq2d χ y + k T = y + k T
527 282 recnd χ y
528 527 236 negsubd χ y + k T = y k T
529 279 eqcomd χ y k T = X
530 526 528 529 3eqtrd χ y + k T = X
531 530 eqcomd χ X = y + k T
532 332 oveq2d χ Q i + 1 + k T = Q i + 1 + k T
533 235 236 negsubd χ Q i + 1 + k T = Q i + 1 k T
534 532 533 eqtr2d χ Q i + 1 k T = Q i + 1 + k T
535 531 534 oveq12d χ X Q i + 1 k T = y + k T Q i + 1 + k T
536 167 renegcld χ k
537 536 168 remulcld χ k T
538 282 165 537 iooshift χ y + k T Q i + 1 + k T = z | x y Q i + 1 z = x + k T
539 535 538 eqtr2d χ z | x y Q i + 1 z = x + k T = X Q i + 1 k T
540 539 adantr χ w F y Q i + 1 lim y z | x y Q i + 1 z = x + k T = X Q i + 1 k T
541 540 reseq2d χ w F y Q i + 1 lim y F z | x y Q i + 1 z = x + k T = F X Q i + 1 k T
542 530 adantr χ w F y Q i + 1 lim y y + k T = X
543 541 542 oveq12d χ w F y Q i + 1 lim y F z | x y Q i + 1 z = x + k T lim y + k T = F X Q i + 1 k T lim X
544 525 543 eleqtrd χ w F y Q i + 1 lim y w F X Q i + 1 k T lim X
545 476 544 impbida χ w F X Q i + 1 k T lim X w F y Q i + 1 lim y
546 545 eqrdv χ F X Q i + 1 k T lim X = F y Q i + 1 lim y
547 423 546 eqtrd χ F X +∞ D X Q i + 1 k T lim X = F y Q i + 1 lim y
548 150 421 547 3eqtr2d χ F X +∞ lim X = F y Q i + 1 lim y
549 76 r19.21bi φ i 0 ..^ M Q i < Q i + 1
550 144 160 549 syl2anc χ Q i < Q i + 1
551 144 160 11 syl2anc χ F Q i Q i + 1 : Q i Q i + 1 cn
552 144 160 12 syl2anc χ R F Q i Q i + 1 lim Q i
553 eqid if y = Q i R F Q i Q i + 1 y = if y = Q i R F Q i Q i + 1 y
554 eqid TopOpen fld 𝑡 Q i Q i + 1 = TopOpen fld 𝑡 Q i Q i + 1
555 204 165 550 551 552 282 165 283 482 553 554 fourierdlem32 χ if y = Q i R F Q i Q i + 1 y F Q i Q i + 1 y Q i + 1 lim y
556 482 resabs1d χ F Q i Q i + 1 y Q i + 1 = F y Q i + 1
557 556 oveq1d χ F Q i Q i + 1 y Q i + 1 lim y = F y Q i + 1 lim y
558 555 557 eleqtrd χ if y = Q i R F Q i Q i + 1 y F y Q i + 1 lim y
559 558 ne0d χ F y Q i + 1 lim y
560 548 559 eqnetrd χ F X +∞ lim X
561 16 560 sylbir φ i 0 ..^ M y Q i Q i + 1 k y = X + k T F X +∞ lim X
562 138 139 140 561 syl21anc φ i 0 ..^ M k y Q i Q i + 1 y = X + k T F X +∞ lim X
563 562 3exp φ i 0 ..^ M k y Q i Q i + 1 y = X + k T F X +∞ lim X
564 563 adantr φ i 0 ..^ M k y Q i Q i + 1 y = X + k T i 0 ..^ M k y Q i Q i + 1 y = X + k T F X +∞ lim X
565 129 134 564 rexlim2d φ i 0 ..^ M k y Q i Q i + 1 y = X + k T i 0 ..^ M k y Q i Q i + 1 y = X + k T F X +∞ lim X
566 126 565 mpd φ i 0 ..^ M k y Q i Q i + 1 y = X + k T F X +∞ lim X
567 119 125 566 vtocl φ i 0 ..^ M k E X T Q i Q i + 1 E X T = X + k T F X +∞ lim X
568 17 118 567 syl2anc φ E X = B F X +∞ lim X
569 iocssre A * B A B
570 69 2 569 syl2anc φ A B
571 ovex B x T T V
572 14 fvmpt2 x B x T T V Z x = B x T T
573 571 572 mpan2 x Z x = B x T T
574 573 oveq2d x x + Z x = x + B x T T
575 574 mpteq2ia x x + Z x = x x + B x T T
576 15 575 eqtri E = x x + B x T T
577 1 2 3 5 576 fourierdlem4 φ E : A B
578 577 13 ffvelcdmd φ E X A B
579 570 578 sseldd φ E X
580 579 adantr φ E X B E X
581 simpl φ E X B φ
582 simpr φ E X A B E X ran Q E X ran Q
583 54 ffnd φ Q Fn 0 M
584 583 ad2antrr φ E X A B E X ran Q Q Fn 0 M
585 fvelrnb Q Fn 0 M E X ran Q j 0 M Q j = E X
586 584 585 syl φ E X A B E X ran Q E X ran Q j 0 M Q j = E X
587 582 586 mpbid φ E X A B E X ran Q j 0 M Q j = E X
588 fveq2 i = j 1 Q i = Q j 1
589 fvoveq1 i = j 1 Q i + 1 = Q j - 1 + 1
590 588 589 oveq12d i = j 1 Q i Q i + 1 = Q j 1 Q j - 1 + 1
591 590 eleq2d i = j 1 E X Q i Q i + 1 E X Q j 1 Q j - 1 + 1
592 nnuz = 1
593 1zzd φ E X A B j 0 M Q j = E X 1
594 elfzelz j 0 M j
595 594 ad2antlr φ E X A B j 0 M Q j = E X j
596 595 zred φ E X A B j 0 M Q j = E X j
597 elfzle1 j 0 M 0 j
598 597 ad2antlr φ E X A B j 0 M Q j = E X 0 j
599 id Q j = E X Q j = E X
600 599 eqcomd Q j = E X E X = Q j
601 600 ad2antlr φ Q j = E X j = 0 E X = Q j
602 fveq2 j = 0 Q j = Q 0
603 602 adantl φ Q j = E X j = 0 Q j = Q 0
604 51 simprld φ Q 0 = A Q M = B
605 604 simpld φ Q 0 = A
606 605 ad2antrr φ Q j = E X j = 0 Q 0 = A
607 601 603 606 3eqtrd φ Q j = E X j = 0 E X = A
608 607 adantllr φ E X A B Q j = E X j = 0 E X = A
609 608 adantllr φ E X A B j 0 M Q j = E X j = 0 E X = A
610 1 adantr φ E X A B A
611 69 adantr φ E X A B A *
612 2 rexrd φ B *
613 612 adantr φ E X A B B *
614 simpr φ E X A B E X A B
615 611 613 614 iocgtlbd φ E X A B A < E X
616 610 615 gtned φ E X A B E X A
617 616 neneqd φ E X A B ¬ E X = A
618 617 ad3antrrr φ E X A B j 0 M Q j = E X j = 0 ¬ E X = A
619 609 618 pm2.65da φ E X A B j 0 M Q j = E X ¬ j = 0
620 619 neqned φ E X A B j 0 M Q j = E X j 0
621 596 598 620 ne0gt0d φ E X A B j 0 M Q j = E X 0 < j
622 0zd φ E X A B j 0 M Q j = E X 0
623 622 595 zltp1led φ E X A B j 0 M Q j = E X 0 < j 0 + 1 j
624 621 623 mpbid φ E X A B j 0 M Q j = E X 0 + 1 j
625 78 624 eqbrtrid φ E X A B j 0 M Q j = E X 1 j
626 592 593 595 625 eluzd φ E X A B j 0 M Q j = E X j
627 nnm1nn0 j j 1 0
628 626 627 syl φ E X A B j 0 M Q j = E X j 1 0
629 628 56 eleqtrdi φ E X A B j 0 M Q j = E X j 1 0
630 25 ad3antrrr φ E X A B j 0 M Q j = E X M
631 peano2zm j j 1
632 594 631 syl j 0 M j 1
633 632 zred j 0 M j 1
634 594 zred j 0 M j
635 elfzel2 j 0 M M
636 635 zred j 0 M M
637 634 ltm1d j 0 M j 1 < j
638 elfzle2 j 0 M j M
639 633 634 636 637 638 ltletrd j 0 M j 1 < M
640 639 ad2antlr φ E X A B j 0 M Q j = E X j 1 < M
641 629 630 640 elfzod φ E X A B j 0 M Q j = E X j 1 0 ..^ M
642 54 ad3antrrr φ E X A B j 0 M Q j = E X Q : 0 M
643 595 631 syl φ E X A B j 0 M Q j = E X j 1
644 628 nn0ge0d φ E X A B j 0 M Q j = E X 0 j 1
645 633 636 639 ltled j 0 M j 1 M
646 645 ad2antlr φ E X A B j 0 M Q j = E X j 1 M
647 622 630 643 644 646 elfzd φ E X A B j 0 M Q j = E X j 1 0 M
648 642 647 ffvelcdmd φ E X A B j 0 M Q j = E X Q j 1
649 648 rexrd φ E X A B j 0 M Q j = E X Q j 1 *
650 54 ffvelcdmda φ j 0 M Q j
651 650 rexrd φ j 0 M Q j *
652 651 adantlr φ E X A B j 0 M Q j *
653 652 adantr φ E X A B j 0 M Q j = E X Q j *
654 570 sselda φ E X A B E X
655 654 rexrd φ E X A B E X *
656 655 ad2antrr φ E X A B j 0 M Q j = E X E X *
657 simplll φ E X A B j 0 M Q j = E X φ
658 ovex j 1 V
659 eleq1 i = j 1 i 0 ..^ M j 1 0 ..^ M
660 659 anbi2d i = j 1 φ i 0 ..^ M φ j 1 0 ..^ M
661 588 589 breq12d i = j 1 Q i < Q i + 1 Q j 1 < Q j - 1 + 1
662 660 661 imbi12d i = j 1 φ i 0 ..^ M Q i < Q i + 1 φ j 1 0 ..^ M Q j 1 < Q j - 1 + 1
663 658 662 549 vtocl φ j 1 0 ..^ M Q j 1 < Q j - 1 + 1
664 657 641 663 syl2anc φ E X A B j 0 M Q j = E X Q j 1 < Q j - 1 + 1
665 594 zcnd j 0 M j
666 1cnd j 0 M 1
667 665 666 npcand j 0 M j - 1 + 1 = j
668 667 fveq2d j 0 M Q j - 1 + 1 = Q j
669 668 ad2antlr φ E X A B j 0 M Q j = E X Q j - 1 + 1 = Q j
670 664 669 breqtrd φ E X A B j 0 M Q j = E X Q j 1 < Q j
671 simpr φ E X A B j 0 M Q j = E X Q j = E X
672 670 671 breqtrd φ E X A B j 0 M Q j = E X Q j 1 < E X
673 579 leidd φ E X E X
674 673 ad2antrr φ j 0 M Q j = E X E X E X
675 600 adantl φ j 0 M Q j = E X E X = Q j
676 674 675 breqtrd φ j 0 M Q j = E X E X Q j
677 676 adantllr φ E X A B j 0 M Q j = E X E X Q j
678 649 653 656 672 677 eliocd φ E X A B j 0 M Q j = E X E X Q j 1 Q j
679 667 eqcomd j 0 M j = j - 1 + 1
680 679 fveq2d j 0 M Q j = Q j - 1 + 1
681 680 oveq2d j 0 M Q j 1 Q j = Q j 1 Q j - 1 + 1
682 681 ad2antlr φ E X A B j 0 M Q j = E X Q j 1 Q j = Q j 1 Q j - 1 + 1
683 678 682 eleqtrd φ E X A B j 0 M Q j = E X E X Q j 1 Q j - 1 + 1
684 591 641 683 rspcedvdw φ E X A B j 0 M Q j = E X i 0 ..^ M E X Q i Q i + 1
685 684 ex φ E X A B j 0 M Q j = E X i 0 ..^ M E X Q i Q i + 1
686 685 adantlr φ E X A B E X ran Q j 0 M Q j = E X i 0 ..^ M E X Q i Q i + 1
687 686 rexlimdva φ E X A B E X ran Q j 0 M Q j = E X i 0 ..^ M E X Q i Q i + 1
688 587 687 mpd φ E X A B E X ran Q i 0 ..^ M E X Q i Q i + 1
689 6 ad2antrr φ E X A B ¬ E X ran Q M
690 54 ad2antrr φ E X A B ¬ E X ran Q Q : 0 M
691 iocssicc A B A B
692 605 eqcomd φ A = Q 0
693 604 simprd φ Q M = B
694 693 eqcomd φ B = Q M
695 692 694 oveq12d φ A B = Q 0 Q M
696 691 695 sseqtrid φ A B Q 0 Q M
697 696 sselda φ E X A B E X Q 0 Q M
698 697 adantr φ E X A B ¬ E X ran Q E X Q 0 Q M
699 simpr φ E X A B ¬ E X ran Q ¬ E X ran Q
700 fveq2 k = j Q k = Q j
701 700 breq1d k = j Q k < E X Q j < E X
702 701 cbvrabv k 0 ..^ M | Q k < E X = j 0 ..^ M | Q j < E X
703 702 supeq1i sup k 0 ..^ M | Q k < E X < = sup j 0 ..^ M | Q j < E X <
704 689 690 698 699 703 fourierdlem25 φ E X A B ¬ E X ran Q i 0 ..^ M E X Q i Q i + 1
705 ioossioc Q i Q i + 1 Q i Q i + 1
706 705 sseli E X Q i Q i + 1 E X Q i Q i + 1
707 706 a1i φ E X A B ¬ E X ran Q i 0 ..^ M E X Q i Q i + 1 E X Q i Q i + 1
708 707 reximdva φ E X A B ¬ E X ran Q i 0 ..^ M E X Q i Q i + 1 i 0 ..^ M E X Q i Q i + 1
709 704 708 mpd φ E X A B ¬ E X ran Q i 0 ..^ M E X Q i Q i + 1
710 688 709 pm2.61dan φ E X A B i 0 ..^ M E X Q i Q i + 1
711 578 710 mpdan φ i 0 ..^ M E X Q i Q i + 1
712 fveq2 i = j Q i = Q j
713 fvoveq1 i = j Q i + 1 = Q j + 1
714 712 713 oveq12d i = j Q i Q i + 1 = Q j Q j + 1
715 714 eleq2d i = j E X Q i Q i + 1 E X Q j Q j + 1
716 715 cbvrexvw i 0 ..^ M E X Q i Q i + 1 j 0 ..^ M E X Q j Q j + 1
717 711 716 sylib φ j 0 ..^ M E X Q j Q j + 1
718 717 adantr φ E X B j 0 ..^ M E X Q j Q j + 1
719 fveq2 i = j + 1 Q i = Q j + 1
720 fvoveq1 i = j + 1 Q i + 1 = Q j + 1 + 1
721 719 720 oveq12d i = j + 1 Q i Q i + 1 = Q j + 1 Q j + 1 + 1
722 721 eleq2d i = j + 1 E X Q i Q i + 1 E X Q j + 1 Q j + 1 + 1
723 elfzonn0 j 0 ..^ M j 0
724 1nn0 1 0
725 724 a1i j 0 ..^ M 1 0
726 723 725 nn0addcld j 0 ..^ M j + 1 0
727 726 56 eleqtrdi j 0 ..^ M j + 1 0
728 727 adantr j 0 ..^ M E X = Q j + 1 j + 1 0
729 728 3ad2antl2 φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 j + 1 0
730 25 ad2antrr φ E X B E X = Q j + 1 M
731 730 3ad2antl1 φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 M
732 723 nn0red j 0 ..^ M j
733 732 adantr j 0 ..^ M E X = Q j + 1 j
734 733 3ad2antl2 φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 j
735 1red φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 1
736 734 735 readdcld φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 j + 1
737 731 zred φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 M
738 elfzop1le2 j 0 ..^ M j + 1 M
739 738 adantr j 0 ..^ M E X = Q j + 1 j + 1 M
740 739 3ad2antl2 φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 j + 1 M
741 simplr φ E X = Q j + 1 M = j + 1 E X = Q j + 1
742 fveq2 M = j + 1 Q M = Q j + 1
743 742 eqcomd M = j + 1 Q j + 1 = Q M
744 743 adantl φ E X = Q j + 1 M = j + 1 Q j + 1 = Q M
745 693 ad2antrr φ E X = Q j + 1 M = j + 1 Q M = B
746 741 744 745 3eqtrd φ E X = Q j + 1 M = j + 1 E X = B
747 746 adantllr φ E X B E X = Q j + 1 M = j + 1 E X = B
748 simpllr φ E X B E X = Q j + 1 M = j + 1 E X B
749 748 neneqd φ E X B E X = Q j + 1 M = j + 1 ¬ E X = B
750 747 749 pm2.65da φ E X B E X = Q j + 1 ¬ M = j + 1
751 750 neqned φ E X B E X = Q j + 1 M j + 1
752 751 3ad2antl1 φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 M j + 1
753 736 737 740 752 leneltd φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 j + 1 < M
754 729 731 753 elfzod φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 j + 1 0 ..^ M
755 54 adantr φ j 0 ..^ M Q : 0 M
756 fzofzp1 j 0 ..^ M j + 1 0 M
757 756 adantl φ j 0 ..^ M j + 1 0 M
758 755 757 ffvelcdmd φ j 0 ..^ M Q j + 1
759 758 rexrd φ j 0 ..^ M Q j + 1 *
760 759 adantlr φ E X B j 0 ..^ M Q j + 1 *
761 760 3adant3 φ E X B j 0 ..^ M E X Q j Q j + 1 Q j + 1 *
762 761 adantr φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 Q j + 1 *
763 simpl1l φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 φ
764 763 54 syl φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 Q : 0 M
765 fzofzp1 j + 1 0 ..^ M j + 1 + 1 0 M
766 754 765 syl φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 j + 1 + 1 0 M
767 764 766 ffvelcdmd φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 Q j + 1 + 1
768 767 rexrd φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 Q j + 1 + 1 *
769 579 rexrd φ E X *
770 769 ad2antrr φ E X B E X = Q j + 1 E X *
771 770 3ad2antl1 φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 E X *
772 758 leidd φ j 0 ..^ M Q j + 1 Q j + 1
773 772 adantr φ j 0 ..^ M E X = Q j + 1 Q j + 1 Q j + 1
774 id E X = Q j + 1 E X = Q j + 1
775 774 eqcomd E X = Q j + 1 Q j + 1 = E X
776 775 adantl φ j 0 ..^ M E X = Q j + 1 Q j + 1 = E X
777 773 776 breqtrd φ j 0 ..^ M E X = Q j + 1 Q j + 1 E X
778 777 adantllr φ E X B j 0 ..^ M E X = Q j + 1 Q j + 1 E X
779 778 3adantl3 φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 Q j + 1 E X
780 simpr φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 E X = Q j + 1
781 simpr φ j + 1 0 ..^ M E X = Q j + 1 E X = Q j + 1
782 ovex j + 1 V
783 eleq1 i = j + 1 i 0 ..^ M j + 1 0 ..^ M
784 783 anbi2d i = j + 1 φ i 0 ..^ M φ j + 1 0 ..^ M
785 719 720 breq12d i = j + 1 Q i < Q i + 1 Q j + 1 < Q j + 1 + 1
786 784 785 imbi12d i = j + 1 φ i 0 ..^ M Q i < Q i + 1 φ j + 1 0 ..^ M Q j + 1 < Q j + 1 + 1
787 782 786 549 vtocl φ j + 1 0 ..^ M Q j + 1 < Q j + 1 + 1
788 787 adantr φ j + 1 0 ..^ M E X = Q j + 1 Q j + 1 < Q j + 1 + 1
789 781 788 eqbrtrd φ j + 1 0 ..^ M E X = Q j + 1 E X < Q j + 1 + 1
790 763 754 780 789 syl21anc φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 E X < Q j + 1 + 1
791 762 768 771 779 790 elicod φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 E X Q j + 1 Q j + 1 + 1
792 722 754 791 rspcedvdw φ E X B j 0 ..^ M E X Q j Q j + 1 E X = Q j + 1 i 0 ..^ M E X Q i Q i + 1
793 712 713 oveq12d i = j Q i Q i + 1 = Q j Q j + 1
794 793 eleq2d i = j E X Q i Q i + 1 E X Q j Q j + 1
795 simpl2 φ E X B j 0 ..^ M E X Q j Q j + 1 ¬ E X = Q j + 1 j 0 ..^ M
796 id φ j 0 ..^ M E X Q j Q j + 1 φ j 0 ..^ M E X Q j Q j + 1
797 796 3adant1r φ E X B j 0 ..^ M E X Q j Q j + 1 φ j 0 ..^ M E X Q j Q j + 1
798 elfzofz j 0 ..^ M j 0 M
799 798 adantl φ j 0 ..^ M j 0 M
800 755 799 ffvelcdmd φ j 0 ..^ M Q j
801 800 rexrd φ j 0 ..^ M Q j *
802 801 adantr φ j 0 ..^ M ¬ E X = Q j + 1 Q j *
803 802 3adantl3 φ j 0 ..^ M E X Q j Q j + 1 ¬ E X = Q j + 1 Q j *
804 759 adantr φ j 0 ..^ M ¬ E X = Q j + 1 Q j + 1 *
805 804 3adantl3 φ j 0 ..^ M E X Q j Q j + 1 ¬ E X = Q j + 1 Q j + 1 *
806 769 adantr φ ¬ E X = Q j + 1 E X *
807 806 3ad2antl1 φ j 0 ..^ M E X Q j Q j + 1 ¬ E X = Q j + 1 E X *
808 800 3adant3 φ j 0 ..^ M E X Q j Q j + 1 Q j
809 579 3ad2ant1 φ j 0 ..^ M E X Q j Q j + 1 E X
810 801 3adant3 φ j 0 ..^ M E X Q j Q j + 1 Q j *
811 759 3adant3 φ j 0 ..^ M E X Q j Q j + 1 Q j + 1 *
812 simp3 φ j 0 ..^ M E X Q j Q j + 1 E X Q j Q j + 1
813 810 811 812 iocgtlbd φ j 0 ..^ M E X Q j Q j + 1 Q j < E X
814 808 809 813 ltled φ j 0 ..^ M E X Q j Q j + 1 Q j E X
815 814 adantr φ j 0 ..^ M E X Q j Q j + 1 ¬ E X = Q j + 1 Q j E X
816 809 adantr φ j 0 ..^ M E X Q j Q j + 1 ¬ E X = Q j + 1 E X
817 758 adantr φ j 0 ..^ M ¬ E X = Q j + 1 Q j + 1
818 817 3adantl3 φ j 0 ..^ M E X Q j Q j + 1 ¬ E X = Q j + 1 Q j + 1
819 810 811 812 iocleubd φ j 0 ..^ M E X Q j Q j + 1 E X Q j + 1
820 819 adantr φ j 0 ..^ M E X Q j Q j + 1 ¬ E X = Q j + 1 E X Q j + 1
821 neqne ¬ E X = Q j + 1 E X Q j + 1
822 821 necomd ¬ E X = Q j + 1 Q j + 1 E X
823 822 adantl φ j 0 ..^ M E X Q j Q j + 1 ¬ E X = Q j + 1 Q j + 1 E X
824 816 818 820 823 leneltd φ j 0 ..^ M E X Q j Q j + 1 ¬ E X = Q j + 1 E X < Q j + 1
825 803 805 807 815 824 elicod φ j 0 ..^ M E X Q j Q j + 1 ¬ E X = Q j + 1 E X Q j Q j + 1
826 797 825 sylan φ E X B j 0 ..^ M E X Q j Q j + 1 ¬ E X = Q j + 1 E X Q j Q j + 1
827 794 795 826 rspcedvdw φ E X B j 0 ..^ M E X Q j Q j + 1 ¬ E X = Q j + 1 i 0 ..^ M E X Q i Q i + 1
828 792 827 pm2.61dan φ E X B j 0 ..^ M E X Q j Q j + 1 i 0 ..^ M E X Q i Q i + 1
829 828 rexlimdv3a φ E X B j 0 ..^ M E X Q j Q j + 1 i 0 ..^ M E X Q i Q i + 1
830 718 829 mpd φ E X B i 0 ..^ M E X Q i Q i + 1
831 simpr φ E X B E X Q i Q i + 1 E X Q i Q i + 1
832 oveq1 k = B X T k T = B X T T
833 832 oveq2d k = B X T X + k T = X + B X T T
834 833 eqeq2d k = B X T E X = X + k T E X = X + B X T T
835 834 93 101 rspcedvdw φ k E X = X + k T
836 835 ad2antrr φ E X B E X Q i Q i + 1 k E X = X + k T
837 r19.42v k E X Q i Q i + 1 E X = X + k T E X Q i Q i + 1 k E X = X + k T
838 831 836 837 sylanbrc φ E X B E X Q i Q i + 1 k E X Q i Q i + 1 E X = X + k T
839 838 ex φ E X B E X Q i Q i + 1 k E X Q i Q i + 1 E X = X + k T
840 839 reximdv φ E X B i 0 ..^ M E X Q i Q i + 1 i 0 ..^ M k E X Q i Q i + 1 E X = X + k T
841 830 840 mpd φ E X B i 0 ..^ M k E X Q i Q i + 1 E X = X + k T
842 581 841 jca φ E X B φ i 0 ..^ M k E X Q i Q i + 1 E X = X + k T
843 eleq1 y = E X y Q i Q i + 1 E X Q i Q i + 1
844 eqeq1 y = E X y = X + k T E X = X + k T
845 843 844 anbi12d y = E X y Q i Q i + 1 y = X + k T E X Q i Q i + 1 E X = X + k T
846 845 2rexbidv y = E X i 0 ..^ M k y Q i Q i + 1 y = X + k T i 0 ..^ M k E X Q i Q i + 1 E X = X + k T
847 846 anbi2d y = E X φ i 0 ..^ M k y Q i Q i + 1 y = X + k T φ i 0 ..^ M k E X Q i Q i + 1 E X = X + k T
848 847 imbi1d y = E X φ i 0 ..^ M k y Q i Q i + 1 y = X + k T F X +∞ lim X φ i 0 ..^ M k E X Q i Q i + 1 E X = X + k T F X +∞ lim X
849 848 566 vtoclg E X φ i 0 ..^ M k E X Q i Q i + 1 E X = X + k T F X +∞ lim X
850 580 842 849 sylc φ E X B F X +∞ lim X
851 568 850 pm2.61dane φ F X +∞ lim X