Metamath Proof Explorer


Theorem fourierdlem51

Description: X is in the periodic partition, when the considered interval is centered at X . (Contributed by Glauco Siliprandi, 11-Dec-2019)

Ref Expression
Hypotheses fourierdlem51.a φ A
fourierdlem51.b φ B
fourierdlem51.alt0 φ A < 0
fourierdlem51.bgt0 φ 0 < B
fourierdlem51.t T = B A
fourierdlem51.cfi φ C Fin
fourierdlem51.css φ C A B
fourierdlem51.bc φ B C
fourierdlem51.e E = x x + B x T T
fourierdlem51.x φ X
fourierdlem51.exc φ E X C
fourierdlem51.d D = A + X B + X y A + X B + X | k y + k T C
fourierdlem51.f F = ι f | f Isom < , < 0 D 1 D
fourierdlem51.h H = y A + X B + X | k y + k T C
Assertion fourierdlem51 φ X ran F

Proof

Step Hyp Ref Expression
1 fourierdlem51.a φ A
2 fourierdlem51.b φ B
3 fourierdlem51.alt0 φ A < 0
4 fourierdlem51.bgt0 φ 0 < B
5 fourierdlem51.t T = B A
6 fourierdlem51.cfi φ C Fin
7 fourierdlem51.css φ C A B
8 fourierdlem51.bc φ B C
9 fourierdlem51.e E = x x + B x T T
10 fourierdlem51.x φ X
11 fourierdlem51.exc φ E X C
12 fourierdlem51.d D = A + X B + X y A + X B + X | k y + k T C
13 fourierdlem51.f F = ι f | f Isom < , < 0 D 1 D
14 fourierdlem51.h H = y A + X B + X | k y + k T C
15 1 10 readdcld φ A + X
16 2 10 readdcld φ B + X
17 0red φ 0
18 1 17 10 3 ltadd1dd φ A + X < 0 + X
19 10 recnd φ X
20 19 addid2d φ 0 + X = X
21 18 20 breqtrd φ A + X < X
22 15 10 21 ltled φ A + X X
23 17 2 10 4 ltadd1dd φ 0 + X < B + X
24 20 23 eqbrtrrd φ X < B + X
25 10 16 24 ltled φ X B + X
26 15 16 10 22 25 eliccd φ X A + X B + X
27 2 10 resubcld φ B X
28 2 1 resubcld φ B A
29 5 28 eqeltrid φ T
30 1 17 2 3 4 lttrd φ A < B
31 1 2 posdifd φ A < B 0 < B A
32 30 31 mpbid φ 0 < B A
33 5 eqcomi B A = T
34 33 a1i φ B A = T
35 32 34 breqtrd φ 0 < T
36 35 gt0ne0d φ T 0
37 27 29 36 redivcld φ B X T
38 37 flcld φ B X T
39 9 a1i φ E = x x + B x T T
40 id x = X x = X
41 oveq2 x = X B x = B X
42 41 oveq1d x = X B x T = B X T
43 42 fveq2d x = X B x T = B X T
44 43 oveq1d x = X B x T T = B X T T
45 40 44 oveq12d x = X x + B x T T = X + B X T T
46 45 adantl φ x = X x + B x T T = X + B X T T
47 38 zred φ B X T
48 47 29 remulcld φ B X T T
49 10 48 readdcld φ X + B X T T
50 39 46 10 49 fvmptd φ E X = X + B X T T
51 50 11 eqeltrrd φ X + B X T T C
52 oveq1 k = B X T k T = B X T T
53 52 oveq2d k = B X T X + k T = X + B X T T
54 53 eleq1d k = B X T X + k T C X + B X T T C
55 54 rspcev B X T X + B X T T C k X + k T C
56 38 51 55 syl2anc φ k X + k T C
57 oveq1 y = X y + k T = X + k T
58 57 eleq1d y = X y + k T C X + k T C
59 58 rexbidv y = X k y + k T C k X + k T C
60 59 elrab X y A + X B + X | k y + k T C X A + X B + X k X + k T C
61 26 56 60 sylanbrc φ X y A + X B + X | k y + k T C
62 elun2 X y A + X B + X | k y + k T C X A + X B + X y A + X B + X | k y + k T C
63 61 62 syl φ X A + X B + X y A + X B + X | k y + k T C
64 63 12 eleqtrrdi φ X D
65 prfi A + X B + X Fin
66 snfi A + X Fin
67 fvres x y A + X B + X | k y + k T C E y A + X B + X | k y + k T C x = E x
68 67 adantl φ x y A + X B + X | k y + k T C E y A + X B + X | k y + k T C x = E x
69 oveq1 y = x y + k T = x + k T
70 69 eleq1d y = x y + k T C x + k T C
71 70 rexbidv y = x k y + k T C k x + k T C
72 71 elrab x y A + X B + X | k y + k T C x A + X B + X k x + k T C
73 72 simprbi x y A + X B + X | k y + k T C k x + k T C
74 73 adantl φ x y A + X B + X | k y + k T C k x + k T C
75 nfv k φ
76 nfre1 k k y + k T C
77 nfcv _ k A + X B + X
78 76 77 nfrabw _ k y A + X B + X | k y + k T C
79 78 nfcri k x y A + X B + X | k y + k T C
80 75 79 nfan k φ x y A + X B + X | k y + k T C
81 nfv k E x C
82 simpl φ x y A + X B + X | k y + k T C φ
83 15 rexrd φ A + X *
84 iocssre A + X * B + X A + X B + X
85 83 16 84 syl2anc φ A + X B + X
86 85 adantr φ x y A + X B + X | k y + k T C A + X B + X
87 elrabi x y A + X B + X | k y + k T C x A + X B + X
88 87 adantl φ x y A + X B + X | k y + k T C x A + X B + X
89 86 88 sseldd φ x y A + X B + X | k y + k T C x
90 simpr φ x x
91 2 adantr φ x B
92 91 90 resubcld φ x B x
93 29 adantr φ x T
94 36 adantr φ x T 0
95 92 93 94 redivcld φ x B x T
96 95 flcld φ x B x T
97 96 zred φ x B x T
98 97 93 remulcld φ x B x T T
99 90 98 readdcld φ x x + B x T T
100 9 fvmpt2 x x + B x T T E x = x + B x T T
101 90 99 100 syl2anc φ x E x = x + B x T T
102 101 ad2antrr φ x k x + k T = A E x = x + B x T T
103 simpl φ x k x + k T = A φ x k
104 96 ad2antrr φ x k x + k T = A B x T
105 simpr φ x + k T = A x + k T = A
106 1 rexrd φ A *
107 2 rexrd φ B *
108 1 2 30 ltled φ A B
109 lbicc2 A * B * A B A A B
110 106 107 108 109 syl3anc φ A A B
111 110 adantr φ x + k T = A A A B
112 105 111 eqeltrd φ x + k T = A x + k T A B
113 112 ad4ant14 φ x k x + k T = A x + k T A B
114 103 104 113 jca31 φ x k x + k T = A φ x k B x T x + k T A B
115 iocssicc A B A B
116 1 2 30 5 9 fourierdlem4 φ E : A B
117 116 ffvelrnda φ x E x A B
118 115 117 sselid φ x E x A B
119 101 118 eqeltrrd φ x x + B x T T A B
120 119 ad2antrr φ x k x + k T = A x + B x T T A B
121 106 adantr φ x A *
122 91 rexrd φ x B *
123 iocgtlb A * B * E x A B A < E x
124 121 122 117 123 syl3anc φ x A < E x
125 124 ad2antrr φ x k x + k T = A A < E x
126 id x + k T = A x + k T = A
127 126 eqcomd x + k T = A A = x + k T
128 127 adantl φ x k x + k T = A A = x + k T
129 125 128 102 3brtr3d φ x k x + k T = A x + k T < x + B x T T
130 zre k k
131 130 adantl φ k k
132 29 adantr φ k T
133 131 132 remulcld φ k k T
134 133 adantlr φ x k k T
135 134 adantr φ x k x + k T = A k T
136 98 ad2antrr φ x k x + k T = A B x T T
137 simpllr φ x k x + k T = A x
138 135 136 137 ltadd2d φ x k x + k T = A k T < B x T T x + k T < x + B x T T
139 129 138 mpbird φ x k x + k T = A k T < B x T T
140 130 ad2antlr φ x k x + k T = A k
141 97 ad2antrr φ x k x + k T = A B x T
142 29 35 elrpd φ T +
143 142 ad3antrrr φ x k x + k T = A T +
144 140 141 143 ltmul1d φ x k x + k T = A k < B x T k T < B x T T
145 139 144 mpbird φ x k x + k T = A k < B x T
146 fvex B x T V
147 eleq1 j = B x T j B x T
148 147 anbi2d j = B x T φ x k j φ x k B x T
149 148 anbi1d j = B x T φ x k j x + k T A B φ x k B x T x + k T A B
150 oveq1 j = B x T j T = B x T T
151 150 oveq2d j = B x T x + j T = x + B x T T
152 151 eleq1d j = B x T x + j T A B x + B x T T A B
153 149 152 anbi12d j = B x T φ x k j x + k T A B x + j T A B φ x k B x T x + k T A B x + B x T T A B
154 breq2 j = B x T k < j k < B x T
155 153 154 anbi12d j = B x T φ x k j x + k T A B x + j T A B k < j φ x k B x T x + k T A B x + B x T T A B k < B x T
156 eqeq1 j = B x T j = k + 1 B x T = k + 1
157 155 156 imbi12d j = B x T φ x k j x + k T A B x + j T A B k < j j = k + 1 φ x k B x T x + k T A B x + B x T T A B k < B x T B x T = k + 1
158 eleq1 i = k i k
159 158 anbi2d i = k φ x i φ x k
160 159 anbi1d i = k φ x i j φ x k j
161 oveq1 i = k i T = k T
162 161 oveq2d i = k x + i T = x + k T
163 162 eleq1d i = k x + i T A B x + k T A B
164 160 163 anbi12d i = k φ x i j x + i T A B φ x k j x + k T A B
165 164 anbi1d i = k φ x i j x + i T A B x + j T A B φ x k j x + k T A B x + j T A B
166 breq1 i = k i < j k < j
167 165 166 anbi12d i = k φ x i j x + i T A B x + j T A B i < j φ x k j x + k T A B x + j T A B k < j
168 oveq1 i = k i + 1 = k + 1
169 168 eqeq2d i = k j = i + 1 j = k + 1
170 167 169 imbi12d i = k φ x i j x + i T A B x + j T A B i < j j = i + 1 φ x k j x + k T A B x + j T A B k < j j = k + 1
171 simp-6l φ x i j x + i T A B x + j T A B i < j φ
172 171 1 syl φ x i j x + i T A B x + j T A B i < j A
173 171 2 syl φ x i j x + i T A B x + j T A B i < j B
174 171 30 syl φ x i j x + i T A B x + j T A B i < j A < B
175 simp-6r φ x i j x + i T A B x + j T A B i < j x
176 simp-5r φ x i j x + i T A B x + j T A B i < j i
177 simp-4r φ x i j x + i T A B x + j T A B i < j j
178 simpr φ x i j x + i T A B x + j T A B i < j i < j
179 simpllr φ x i j x + i T A B x + j T A B i < j x + i T A B
180 simplr φ x i j x + i T A B x + j T A B i < j x + j T A B
181 172 173 174 5 175 176 177 178 179 180 fourierdlem6 φ x i j x + i T A B x + j T A B i < j j = i + 1
182 170 181 chvarvv φ x k j x + k T A B x + j T A B k < j j = k + 1
183 146 157 182 vtocl φ x k B x T x + k T A B x + B x T T A B k < B x T B x T = k + 1
184 114 120 145 183 syl21anc φ x k x + k T = A B x T = k + 1
185 184 oveq1d φ x k x + k T = A B x T T = k + 1 T
186 185 oveq2d φ x k x + k T = A x + B x T T = x + k + 1 T
187 131 recnd φ k k
188 29 recnd φ T
189 188 adantr φ k T
190 187 189 adddirp1d φ k k + 1 T = k T + T
191 190 oveq2d φ k x + k + 1 T = x + k T + T
192 191 adantlr φ x k x + k + 1 T = x + k T + T
193 192 adantr φ x k x + k T = A x + k + 1 T = x + k T + T
194 90 recnd φ x x
195 194 adantr φ x k x
196 134 recnd φ x k k T
197 188 ad2antrr φ x k T
198 195 196 197 addassd φ x k x + k T + T = x + k T + T
199 198 eqcomd φ x k x + k T + T = x + k T + T
200 199 adantr φ x k x + k T = A x + k T + T = x + k T + T
201 oveq1 x + k T = A x + k T + T = A + T
202 201 adantl φ x k x + k T = A x + k T + T = A + T
203 2 recnd φ B
204 1 recnd φ A
205 203 204 188 subaddd φ B A = T A + T = B
206 34 205 mpbid φ A + T = B
207 206 ad3antrrr φ x k x + k T = A A + T = B
208 202 207 eqtrd φ x k x + k T = A x + k T + T = B
209 193 200 208 3eqtrd φ x k x + k T = A x + k + 1 T = B
210 102 186 209 3eqtrd φ x k x + k T = A E x = B
211 8 ad3antrrr φ x k x + k T = A B C
212 210 211 eqeltrd φ x k x + k T = A E x C
213 212 3adantl3 φ x k x + k T C x + k T = A E x C
214 simpl1 φ x k x + k T C ¬ x + k T = A φ x
215 simpl2 φ x k x + k T C ¬ x + k T = A k
216 7 sselda φ x + k T C x + k T A B
217 216 adantlr φ x x + k T C x + k T A B
218 217 3adant2 φ x k x + k T C x + k T A B
219 218 adantr φ x k x + k T C ¬ x + k T = A x + k T A B
220 neqne ¬ x + k T = A x + k T A
221 220 adantl φ x k x + k T C ¬ x + k T = A x + k T A
222 1 adantr φ x A
223 214 222 syl φ x k x + k T C ¬ x + k T = A A
224 214 91 syl φ x k x + k T C ¬ x + k T = A B
225 simplr φ x k x
226 225 134 readdcld φ x k x + k T
227 226 rexrd φ x k x + k T *
228 214 215 227 syl2anc φ x k x + k T C ¬ x + k T = A x + k T *
229 223 224 228 eliccelioc φ x k x + k T C ¬ x + k T = A x + k T A B x + k T A B x + k T A
230 219 221 229 mpbir2and φ x k x + k T C ¬ x + k T = A x + k T A B
231 101 ad2antrr φ x k x + k T A B E x = x + B x T T
232 1 ad3antrrr φ x k x + k T A B A
233 2 ad3antrrr φ x k x + k T A B B
234 30 ad3antrrr φ x k x + k T A B A < B
235 simpllr φ x k x + k T A B x
236 96 ad2antrr φ x k x + k T A B B x T
237 simplr φ x k x + k T A B k
238 101 117 eqeltrrd φ x x + B x T T A B
239 238 ad2antrr φ x k x + k T A B x + B x T T A B
240 simpr φ x k x + k T A B x + k T A B
241 232 233 234 5 235 236 237 239 240 fourierdlem35 φ x k x + k T A B B x T = k
242 241 oveq1d φ x k x + k T A B B x T T = k T
243 242 oveq2d φ x k x + k T A B x + B x T T = x + k T
244 231 243 eqtrd φ x k x + k T A B E x = x + k T
245 214 215 230 244 syl21anc φ x k x + k T C ¬ x + k T = A E x = x + k T
246 simpl3 φ x k x + k T C ¬ x + k T = A x + k T C
247 245 246 eqeltrd φ x k x + k T C ¬ x + k T = A E x C
248 213 247 pm2.61dan φ x k x + k T C E x C
249 248 3exp φ x k x + k T C E x C
250 82 89 249 syl2anc φ x y A + X B + X | k y + k T C k x + k T C E x C
251 80 81 250 rexlimd φ x y A + X B + X | k y + k T C k x + k T C E x C
252 74 251 mpd φ x y A + X B + X | k y + k T C E x C
253 68 252 eqeltrd φ x y A + X B + X | k y + k T C E y A + X B + X | k y + k T C x C
254 eqid x y A + X B + X | k y + k T C E y A + X B + X | k y + k T C x = x y A + X B + X | k y + k T C E y A + X B + X | k y + k T C x
255 253 254 fmptd φ x y A + X B + X | k y + k T C E y A + X B + X | k y + k T C x : y A + X B + X | k y + k T C C
256 iocssre A * B A B
257 106 2 256 syl2anc φ A B
258 116 257 fssd φ E :
259 ssrab2 y A + X B + X | k y + k T C A + X B + X
260 259 85 sstrid φ y A + X B + X | k y + k T C
261 258 260 fssresd φ E y A + X B + X | k y + k T C : y A + X B + X | k y + k T C
262 261 feqmptd φ E y A + X B + X | k y + k T C = x y A + X B + X | k y + k T C E y A + X B + X | k y + k T C x
263 262 feq1d φ E y A + X B + X | k y + k T C : y A + X B + X | k y + k T C C x y A + X B + X | k y + k T C E y A + X B + X | k y + k T C x : y A + X B + X | k y + k T C C
264 255 263 mpbird φ E y A + X B + X | k y + k T C : y A + X B + X | k y + k T C C
265 simplll φ w y A + X B + X | k y + k T C z y A + X B + X | k y + k T C E y A + X B + X | k y + k T C w = E y A + X B + X | k y + k T C z φ
266 id w y A + X B + X | k y + k T C w y A + X B + X | k y + k T C
267 266 14 eleqtrrdi w y A + X B + X | k y + k T C w H
268 267 ad3antlr φ w y A + X B + X | k y + k T C z y A + X B + X | k y + k T C E y A + X B + X | k y + k T C w = E y A + X B + X | k y + k T C z w H
269 265 268 jca φ w y A + X B + X | k y + k T C z y A + X B + X | k y + k T C E y A + X B + X | k y + k T C w = E y A + X B + X | k y + k T C z φ w H
270 id z y A + X B + X | k y + k T C z y A + X B + X | k y + k T C
271 270 14 eleqtrrdi z y A + X B + X | k y + k T C z H
272 271 ad2antlr φ w y A + X B + X | k y + k T C z y A + X B + X | k y + k T C E y A + X B + X | k y + k T C w = E y A + X B + X | k y + k T C z z H
273 fvres z y A + X B + X | k y + k T C E y A + X B + X | k y + k T C z = E z
274 273 eqcomd z y A + X B + X | k y + k T C E z = E y A + X B + X | k y + k T C z
275 274 ad2antlr φ w y A + X B + X | k y + k T C z y A + X B + X | k y + k T C E y A + X B + X | k y + k T C w = E y A + X B + X | k y + k T C z E z = E y A + X B + X | k y + k T C z
276 id E y A + X B + X | k y + k T C w = E y A + X B + X | k y + k T C z E y A + X B + X | k y + k T C w = E y A + X B + X | k y + k T C z
277 276 eqcomd E y A + X B + X | k y + k T C w = E y A + X B + X | k y + k T C z E y A + X B + X | k y + k T C z = E y A + X B + X | k y + k T C w
278 277 adantl φ w y A + X B + X | k y + k T C z y A + X B + X | k y + k T C E y A + X B + X | k y + k T C w = E y A + X B + X | k y + k T C z E y A + X B + X | k y + k T C z = E y A + X B + X | k y + k T C w
279 fvres w y A + X B + X | k y + k T C E y A + X B + X | k y + k T C w = E w
280 279 ad3antlr φ w y A + X B + X | k y + k T C z y A + X B + X | k y + k T C E y A + X B + X | k y + k T C w = E y A + X B + X | k y + k T C z E y A + X B + X | k y + k T C w = E w
281 275 278 280 3eqtrd φ w y A + X B + X | k y + k T C z y A + X B + X | k y + k T C E y A + X B + X | k y + k T C w = E y A + X B + X | k y + k T C z E z = E w
282 1 ad3antrrr φ w H z H E z = E w A
283 2 ad3antrrr φ w H z H E z = E w B
284 30 ad3antrrr φ w H z H E z = E w A < B
285 10 ad3antrrr φ w H z H E z = E w X
286 simpllr φ w H z H E z = E w w H
287 simplr φ w H z H E z = E w z H
288 simpr φ w H z H E z = E w E z = E w
289 282 283 284 285 14 5 9 286 287 288 fourierdlem19 φ w H z H E z = E w ¬ w < z
290 288 eqcomd φ w H z H E z = E w E w = E z
291 282 283 284 285 14 5 9 287 286 290 fourierdlem19 φ w H z H E z = E w ¬ z < w
292 14 260 eqsstrid φ H
293 292 sselda φ w H w
294 293 ad2antrr φ w H z H E z = E w w
295 292 adantr φ w H H
296 295 sselda φ w H z H z
297 296 adantr φ w H z H E z = E w z
298 294 297 lttri3d φ w H z H E z = E w w = z ¬ w < z ¬ z < w
299 289 291 298 mpbir2and φ w H z H E z = E w w = z
300 269 272 281 299 syl21anc φ w y A + X B + X | k y + k T C z y A + X B + X | k y + k T C E y A + X B + X | k y + k T C w = E y A + X B + X | k y + k T C z w = z
301 300 ex φ w y A + X B + X | k y + k T C z y A + X B + X | k y + k T C E y A + X B + X | k y + k T C w = E y A + X B + X | k y + k T C z w = z
302 301 ralrimiva φ w y A + X B + X | k y + k T C z y A + X B + X | k y + k T C E y A + X B + X | k y + k T C w = E y A + X B + X | k y + k T C z w = z
303 302 ralrimiva φ w y A + X B + X | k y + k T C z y A + X B + X | k y + k T C E y A + X B + X | k y + k T C w = E y A + X B + X | k y + k T C z w = z
304 dff13 E y A + X B + X | k y + k T C : y A + X B + X | k y + k T C 1-1 C E y A + X B + X | k y + k T C : y A + X B + X | k y + k T C C w y A + X B + X | k y + k T C z y A + X B + X | k y + k T C E y A + X B + X | k y + k T C w = E y A + X B + X | k y + k T C z w = z
305 264 303 304 sylanbrc φ E y A + X B + X | k y + k T C : y A + X B + X | k y + k T C 1-1 C
306 f1fi C Fin E y A + X B + X | k y + k T C : y A + X B + X | k y + k T C 1-1 C y A + X B + X | k y + k T C Fin
307 6 305 306 syl2anc φ y A + X B + X | k y + k T C Fin
308 unfi A + X Fin y A + X B + X | k y + k T C Fin A + X y A + X B + X | k y + k T C Fin
309 66 307 308 sylancr φ A + X y A + X B + X | k y + k T C Fin
310 simpl φ x y A + X B + X | k y + k T C φ
311 elrabi x y A + X B + X | k y + k T C x A + X B + X
312 311 adantl φ x y A + X B + X | k y + k T C x A + X B + X
313 71 elrab x y A + X B + X | k y + k T C x A + X B + X k x + k T C
314 313 simprbi x y A + X B + X | k y + k T C k x + k T C
315 314 adantl φ x y A + X B + X | k y + k T C k x + k T C
316 velsn x A + X x = A + X
317 elun1 x A + X x A + X y A + X B + X | k y + k T C
318 316 317 sylbir x = A + X x A + X y A + X B + X | k y + k T C
319 318 adantl φ x A + X B + X k x + k T C x = A + X x A + X y A + X B + X | k y + k T C
320 83 ad2antrr φ x A + X B + X ¬ x = A + X A + X *
321 16 rexrd φ B + X *
322 321 ad2antrr φ x A + X B + X ¬ x = A + X B + X *
323 15 16 iccssred φ A + X B + X
324 323 sselda φ x A + X B + X x
325 324 rexrd φ x A + X B + X x *
326 325 adantr φ x A + X B + X ¬ x = A + X x *
327 15 ad2antrr φ x A + X B + X ¬ x = A + X A + X
328 324 adantr φ x A + X B + X ¬ x = A + X x
329 83 adantr φ x A + X B + X A + X *
330 321 adantr φ x A + X B + X B + X *
331 simpr φ x A + X B + X x A + X B + X
332 iccgelb A + X * B + X * x A + X B + X A + X x
333 329 330 331 332 syl3anc φ x A + X B + X A + X x
334 333 adantr φ x A + X B + X ¬ x = A + X A + X x
335 neqne ¬ x = A + X x A + X
336 335 adantl φ x A + X B + X ¬ x = A + X x A + X
337 327 328 334 336 leneltd φ x A + X B + X ¬ x = A + X A + X < x
338 iccleub A + X * B + X * x A + X B + X x B + X
339 329 330 331 338 syl3anc φ x A + X B + X x B + X
340 339 adantr φ x A + X B + X ¬ x = A + X x B + X
341 320 322 326 337 340 eliocd φ x A + X B + X ¬ x = A + X x A + X B + X
342 341 adantlr φ x A + X B + X k x + k T C ¬ x = A + X x A + X B + X
343 simplr φ x A + X B + X k x + k T C ¬ x = A + X k x + k T C
344 342 343 72 sylanbrc φ x A + X B + X k x + k T C ¬ x = A + X x y A + X B + X | k y + k T C
345 elun2 x y A + X B + X | k y + k T C x A + X y A + X B + X | k y + k T C
346 344 345 syl φ x A + X B + X k x + k T C ¬ x = A + X x A + X y A + X B + X | k y + k T C
347 319 346 pm2.61dan φ x A + X B + X k x + k T C x A + X y A + X B + X | k y + k T C
348 310 312 315 347 syl21anc φ x y A + X B + X | k y + k T C x A + X y A + X B + X | k y + k T C
349 348 ralrimiva φ x y A + X B + X | k y + k T C x A + X y A + X B + X | k y + k T C
350 dfss3 y A + X B + X | k y + k T C A + X y A + X B + X | k y + k T C x y A + X B + X | k y + k T C x A + X y A + X B + X | k y + k T C
351 349 350 sylibr φ y A + X B + X | k y + k T C A + X y A + X B + X | k y + k T C
352 ssfi A + X y A + X B + X | k y + k T C Fin y A + X B + X | k y + k T C A + X y A + X B + X | k y + k T C y A + X B + X | k y + k T C Fin
353 309 351 352 syl2anc φ y A + X B + X | k y + k T C Fin
354 unfi A + X B + X Fin y A + X B + X | k y + k T C Fin A + X B + X y A + X B + X | k y + k T C Fin
355 65 353 354 sylancr φ A + X B + X y A + X B + X | k y + k T C Fin
356 12 355 eqeltrid φ D Fin
357 prssi A + X B + X A + X B + X
358 15 16 357 syl2anc φ A + X B + X
359 ssrab2 y A + X B + X | k y + k T C A + X B + X
360 359 323 sstrid φ y A + X B + X | k y + k T C
361 358 360 unssd φ A + X B + X y A + X B + X | k y + k T C
362 12 361 eqsstrid φ D
363 eqid D 1 = D 1
364 356 362 13 363 fourierdlem36 φ F Isom < , < 0 D 1 D
365 isof1o F Isom < , < 0 D 1 D F : 0 D 1 1-1 onto D
366 f1ofo F : 0 D 1 1-1 onto D F : 0 D 1 onto D
367 365 366 syl F Isom < , < 0 D 1 D F : 0 D 1 onto D
368 forn F : 0 D 1 onto D ran F = D
369 364 367 368 3syl φ ran F = D
370 64 369 eleqtrrd φ X ran F