Metamath Proof Explorer


Theorem fourierdlem63

Description: The upper bound of intervals in the moved partition are mapped to points that are not greater than the corresponding upper bounds in the original partition. (Contributed by Glauco Siliprandi, 11-Dec-2019)

Ref Expression
Hypotheses fourierdlem63.t T = B A
fourierdlem63.p P = m p 0 m | p 0 = A p m = B i 0 ..^ m p i < p i + 1
fourierdlem63.m φ M
fourierdlem63.q φ Q P M
fourierdlem63.c φ C
fourierdlem63.d φ D
fourierdlem63.cltd φ C < D
fourierdlem63.o O = m p 0 m | p 0 = C p m = D i 0 ..^ m p i < p i + 1
fourierdlem63.h H = C D x C D | k x + k T ran Q
fourierdlem63.n N = H 1
fourierdlem63.s S = ι f | f Isom < , < 0 N H
fourierdlem63.e E = x x + B x T T
fourierdlem63.k φ K 0 M
fourierdlem63.j φ J 0 ..^ N
fourierdlem63.y φ Y S J S J + 1
fourierdlem63.eyltqk φ E Y < Q K
fourierdlem63.x X = Q K E Y Y
Assertion fourierdlem63 φ E S J + 1 Q K

Proof

Step Hyp Ref Expression
1 fourierdlem63.t T = B A
2 fourierdlem63.p P = m p 0 m | p 0 = A p m = B i 0 ..^ m p i < p i + 1
3 fourierdlem63.m φ M
4 fourierdlem63.q φ Q P M
5 fourierdlem63.c φ C
6 fourierdlem63.d φ D
7 fourierdlem63.cltd φ C < D
8 fourierdlem63.o O = m p 0 m | p 0 = C p m = D i 0 ..^ m p i < p i + 1
9 fourierdlem63.h H = C D x C D | k x + k T ran Q
10 fourierdlem63.n N = H 1
11 fourierdlem63.s S = ι f | f Isom < , < 0 N H
12 fourierdlem63.e E = x x + B x T T
13 fourierdlem63.k φ K 0 M
14 fourierdlem63.j φ J 0 ..^ N
15 fourierdlem63.y φ Y S J S J + 1
16 fourierdlem63.eyltqk φ E Y < Q K
17 fourierdlem63.x X = Q K E Y Y
18 12 a1i φ E = x x + B x T T
19 id x = S J + 1 x = S J + 1
20 oveq2 x = S J + 1 B x = B S J + 1
21 20 oveq1d x = S J + 1 B x T = B S J + 1 T
22 21 fveq2d x = S J + 1 B x T = B S J + 1 T
23 22 oveq1d x = S J + 1 B x T T = B S J + 1 T T
24 19 23 oveq12d x = S J + 1 x + B x T T = S J + 1 + B S J + 1 T T
25 24 adantl φ x = S J + 1 x + B x T T = S J + 1 + B S J + 1 T T
26 1 2 3 4 5 6 7 8 9 10 11 fourierdlem54 φ N S O N S Isom < , < 0 N H
27 26 simpld φ N S O N
28 27 simprd φ S O N
29 27 simpld φ N
30 8 fourierdlem2 N S O N S 0 N S 0 = C S N = D i 0 ..^ N S i < S i + 1
31 29 30 syl φ S O N S 0 N S 0 = C S N = D i 0 ..^ N S i < S i + 1
32 28 31 mpbid φ S 0 N S 0 = C S N = D i 0 ..^ N S i < S i + 1
33 32 simpld φ S 0 N
34 elmapi S 0 N S : 0 N
35 33 34 syl φ S : 0 N
36 fzofzp1 J 0 ..^ N J + 1 0 N
37 14 36 syl φ J + 1 0 N
38 35 37 ffvelrnd φ S J + 1
39 2 3 4 fourierdlem11 φ A B A < B
40 39 simp2d φ B
41 40 38 resubcld φ B S J + 1
42 39 simp1d φ A
43 40 42 resubcld φ B A
44 1 43 eqeltrid φ T
45 39 simp3d φ A < B
46 42 40 posdifd φ A < B 0 < B A
47 45 46 mpbid φ 0 < B A
48 47 1 breqtrrdi φ 0 < T
49 48 gt0ne0d φ T 0
50 41 44 49 redivcld φ B S J + 1 T
51 50 flcld φ B S J + 1 T
52 51 zred φ B S J + 1 T
53 52 44 remulcld φ B S J + 1 T T
54 38 53 readdcld φ S J + 1 + B S J + 1 T T
55 18 25 38 54 fvmptd φ E S J + 1 = S J + 1 + B S J + 1 T T
56 55 54 eqeltrd φ E S J + 1
57 2 fourierdlem2 M Q P M Q 0 M Q 0 = A Q M = B i 0 ..^ M Q i < Q i + 1
58 3 57 syl φ Q P M Q 0 M Q 0 = A Q M = B i 0 ..^ M Q i < Q i + 1
59 4 58 mpbid φ Q 0 M Q 0 = A Q M = B i 0 ..^ M Q i < Q i + 1
60 59 simpld φ Q 0 M
61 elmapi Q 0 M Q : 0 M
62 60 61 syl φ Q : 0 M
63 62 13 ffvelrnd φ Q K
64 5 adantr φ Q K < E S J + 1 C
65 6 adantr φ Q K < E S J + 1 D
66 42 rexrd φ A *
67 iocssre A * B A B
68 66 40 67 syl2anc φ A B
69 42 40 45 1 12 fourierdlem4 φ E : A B
70 elfzofz J 0 ..^ N J 0 N
71 14 70 syl φ J 0 N
72 35 71 ffvelrnd φ S J
73 38 rexrd φ S J + 1 *
74 elico2 S J S J + 1 * Y S J S J + 1 Y S J Y Y < S J + 1
75 72 73 74 syl2anc φ Y S J S J + 1 Y S J Y Y < S J + 1
76 15 75 mpbid φ Y S J Y Y < S J + 1
77 76 simp1d φ Y
78 69 77 ffvelrnd φ E Y A B
79 68 78 sseldd φ E Y
80 79 77 resubcld φ E Y Y
81 63 80 resubcld φ Q K E Y Y
82 81 adantr φ Q K < E S J + 1 Q K E Y Y
83 icossicc S J S J + 1 S J S J + 1
84 5 rexrd φ C *
85 6 rexrd φ D *
86 8 29 28 fourierdlem15 φ S : 0 N C D
87 84 85 86 14 fourierdlem8 φ S J S J + 1 C D
88 83 87 sstrid φ S J S J + 1 C D
89 88 15 sseldd φ Y C D
90 elicc2 C D Y C D Y C Y Y D
91 5 6 90 syl2anc φ Y C D Y C Y Y D
92 89 91 mpbid φ Y C Y Y D
93 92 simp2d φ C Y
94 63 79 resubcld φ Q K E Y
95 79 63 posdifd φ E Y < Q K 0 < Q K E Y
96 16 95 mpbid φ 0 < Q K E Y
97 94 96 elrpd φ Q K E Y +
98 77 97 ltaddrpd φ Y < Y + Q K - E Y
99 63 recnd φ Q K
100 79 recnd φ E Y
101 77 recnd φ Y
102 99 100 101 subsub3d φ Q K E Y Y = Q K + Y - E Y
103 99 101 addcomd φ Q K + Y = Y + Q K
104 103 oveq1d φ Q K + Y - E Y = Y + Q K - E Y
105 101 99 100 addsubassd φ Y + Q K - E Y = Y + Q K - E Y
106 102 104 105 3eqtrrd φ Y + Q K - E Y = Q K E Y Y
107 98 106 breqtrd φ Y < Q K E Y Y
108 5 77 81 93 107 lelttrd φ C < Q K E Y Y
109 5 81 108 ltled φ C Q K E Y Y
110 109 adantr φ Q K < E S J + 1 C Q K E Y Y
111 38 adantr φ Q K < E S J + 1 S J + 1
112 63 adantr φ Q K < E S J + 1 Q K
113 56 38 resubcld φ E S J + 1 S J + 1
114 113 adantr φ Q K < E S J + 1 E S J + 1 S J + 1
115 112 114 resubcld φ Q K < E S J + 1 Q K E S J + 1 S J + 1
116 76 simp3d φ Y < S J + 1
117 77 38 116 ltled φ Y S J + 1
118 42 40 45 1 12 77 38 117 fourierdlem7 φ E S J + 1 S J + 1 E Y Y
119 113 80 63 118 lesub2dd φ Q K E Y Y Q K E S J + 1 S J + 1
120 119 adantr φ Q K < E S J + 1 Q K E Y Y Q K E S J + 1 S J + 1
121 99 adantr φ Q K < E S J + 1 Q K
122 56 recnd φ E S J + 1
123 122 adantr φ Q K < E S J + 1 E S J + 1
124 111 recnd φ Q K < E S J + 1 S J + 1
125 121 123 124 subsubd φ Q K < E S J + 1 Q K E S J + 1 S J + 1 = Q K - E S J + 1 + S J + 1
126 99 122 subcld φ Q K E S J + 1
127 38 recnd φ S J + 1
128 126 127 addcomd φ Q K - E S J + 1 + S J + 1 = S J + 1 + Q K - E S J + 1
129 128 adantr φ Q K < E S J + 1 Q K - E S J + 1 + S J + 1 = S J + 1 + Q K - E S J + 1
130 125 129 eqtrd φ Q K < E S J + 1 Q K E S J + 1 S J + 1 = S J + 1 + Q K - E S J + 1
131 simpr φ Q K < E S J + 1 Q K < E S J + 1
132 56 adantr φ Q K < E S J + 1 E S J + 1
133 112 132 sublt0d φ Q K < E S J + 1 Q K E S J + 1 < 0 Q K < E S J + 1
134 131 133 mpbird φ Q K < E S J + 1 Q K E S J + 1 < 0
135 112 132 resubcld φ Q K < E S J + 1 Q K E S J + 1
136 ltaddneg Q K E S J + 1 S J + 1 Q K E S J + 1 < 0 S J + 1 + Q K - E S J + 1 < S J + 1
137 135 111 136 syl2anc φ Q K < E S J + 1 Q K E S J + 1 < 0 S J + 1 + Q K - E S J + 1 < S J + 1
138 134 137 mpbid φ Q K < E S J + 1 S J + 1 + Q K - E S J + 1 < S J + 1
139 130 138 eqbrtrd φ Q K < E S J + 1 Q K E S J + 1 S J + 1 < S J + 1
140 82 115 111 120 139 lelttrd φ Q K < E S J + 1 Q K E Y Y < S J + 1
141 86 37 ffvelrnd φ S J + 1 C D
142 elicc2 C D S J + 1 C D S J + 1 C S J + 1 S J + 1 D
143 5 6 142 syl2anc φ S J + 1 C D S J + 1 C S J + 1 S J + 1 D
144 141 143 mpbid φ S J + 1 C S J + 1 S J + 1 D
145 144 simp3d φ S J + 1 D
146 145 adantr φ Q K < E S J + 1 S J + 1 D
147 82 111 65 140 146 ltletrd φ Q K < E S J + 1 Q K E Y Y < D
148 82 65 147 ltled φ Q K < E S J + 1 Q K E Y Y D
149 64 65 82 110 148 eliccd φ Q K < E S J + 1 Q K E Y Y C D
150 id x = Y x = Y
151 oveq2 x = Y B x = B Y
152 151 oveq1d x = Y B x T = B Y T
153 152 fveq2d x = Y B x T = B Y T
154 153 oveq1d x = Y B x T T = B Y T T
155 150 154 oveq12d x = Y x + B x T T = Y + B Y T T
156 155 adantl φ x = Y x + B x T T = Y + B Y T T
157 40 77 resubcld φ B Y
158 157 44 49 redivcld φ B Y T
159 158 flcld φ B Y T
160 159 zred φ B Y T
161 160 44 remulcld φ B Y T T
162 77 161 readdcld φ Y + B Y T T
163 18 156 77 162 fvmptd φ E Y = Y + B Y T T
164 163 oveq1d φ E Y Y = Y + B Y T T - Y
165 164 oveq1d φ E Y Y T = Y + B Y T T - Y T
166 161 recnd φ B Y T T
167 101 166 pncan2d φ Y + B Y T T - Y = B Y T T
168 167 oveq1d φ Y + B Y T T - Y T = B Y T T T
169 160 recnd φ B Y T
170 44 recnd φ T
171 169 170 49 divcan4d φ B Y T T T = B Y T
172 165 168 171 3eqtrd φ E Y Y T = B Y T
173 172 159 eqeltrd φ E Y Y T
174 80 recnd φ E Y Y
175 174 170 49 divcan1d φ E Y Y T T = E Y Y
176 175 oveq2d φ Q K - E Y Y + E Y Y T T = Q K E Y Y + E Y - Y
177 99 174 npcand φ Q K E Y Y + E Y - Y = Q K
178 176 177 eqtrd φ Q K - E Y Y + E Y Y T T = Q K
179 ffun Q : 0 M Fun Q
180 62 179 syl φ Fun Q
181 62 fdmd φ dom Q = 0 M
182 13 181 eleqtrrd φ K dom Q
183 fvelrn Fun Q K dom Q Q K ran Q
184 180 182 183 syl2anc φ Q K ran Q
185 178 184 eqeltrd φ Q K - E Y Y + E Y Y T T ran Q
186 oveq1 k = E Y Y T k T = E Y Y T T
187 186 oveq2d k = E Y Y T Q K - E Y Y + k T = Q K - E Y Y + E Y Y T T
188 187 eleq1d k = E Y Y T Q K - E Y Y + k T ran Q Q K - E Y Y + E Y Y T T ran Q
189 188 rspcev E Y Y T Q K - E Y Y + E Y Y T T ran Q k Q K - E Y Y + k T ran Q
190 173 185 189 syl2anc φ k Q K - E Y Y + k T ran Q
191 190 adantr φ Q K < E S J + 1 k Q K - E Y Y + k T ran Q
192 oveq1 x = Q K E Y Y x + k T = Q K - E Y Y + k T
193 192 eleq1d x = Q K E Y Y x + k T ran Q Q K - E Y Y + k T ran Q
194 193 rexbidv x = Q K E Y Y k x + k T ran Q k Q K - E Y Y + k T ran Q
195 194 elrab Q K E Y Y x C D | k x + k T ran Q Q K E Y Y C D k Q K - E Y Y + k T ran Q
196 149 191 195 sylanbrc φ Q K < E S J + 1 Q K E Y Y x C D | k x + k T ran Q
197 elun2 Q K E Y Y x C D | k x + k T ran Q Q K E Y Y C D x C D | k x + k T ran Q
198 196 197 syl φ Q K < E S J + 1 Q K E Y Y C D x C D | k x + k T ran Q
199 198 17 9 3eltr4g φ Q K < E S J + 1 X H
200 elfzelz j 0 N j
201 200 ad2antlr φ j 0 N S J < S j S j < S J + 1 j
202 elfzoelz J 0 ..^ N J
203 14 202 syl φ J
204 203 ad2antrr φ j 0 N S J < S j S j < S J + 1 J
205 simpr φ j 0 N S J < S j S J < S j
206 26 simprd φ S Isom < , < 0 N H
207 206 ad2antrr φ j 0 N S J < S j S Isom < , < 0 N H
208 71 ad2antrr φ j 0 N S J < S j J 0 N
209 simplr φ j 0 N S J < S j j 0 N
210 isorel S Isom < , < 0 N H J 0 N j 0 N J < j S J < S j
211 207 208 209 210 syl12anc φ j 0 N S J < S j J < j S J < S j
212 205 211 mpbird φ j 0 N S J < S j J < j
213 212 adantrr φ j 0 N S J < S j S j < S J + 1 J < j
214 simpr φ j 0 N S j < S J + 1 S j < S J + 1
215 206 ad2antrr φ j 0 N S j < S J + 1 S Isom < , < 0 N H
216 simplr φ j 0 N S j < S J + 1 j 0 N
217 37 ad2antrr φ j 0 N S j < S J + 1 J + 1 0 N
218 isorel S Isom < , < 0 N H j 0 N J + 1 0 N j < J + 1 S j < S J + 1
219 215 216 217 218 syl12anc φ j 0 N S j < S J + 1 j < J + 1 S j < S J + 1
220 214 219 mpbird φ j 0 N S j < S J + 1 j < J + 1
221 220 adantrl φ j 0 N S J < S j S j < S J + 1 j < J + 1
222 btwnnz J J < j j < J + 1 ¬ j
223 204 213 221 222 syl3anc φ j 0 N S J < S j S j < S J + 1 ¬ j
224 201 223 pm2.65da φ j 0 N ¬ S J < S j S j < S J + 1
225 224 adantlr φ Q K < E S J + 1 j 0 N ¬ S J < S j S j < S J + 1
226 72 ad2antrr φ j 0 N S j = X S J
227 77 ad2antrr φ j 0 N S j = X Y
228 35 ffvelrnda φ j 0 N S j
229 228 adantr φ j 0 N S j = X S j
230 76 simp2d φ S J Y
231 230 ad2antrr φ j 0 N S j = X S J Y
232 107 17 breqtrrdi φ Y < X
233 232 adantr φ S j = X Y < X
234 eqcom X = S j S j = X
235 234 biimpri S j = X X = S j
236 235 adantl φ S j = X X = S j
237 233 236 breqtrd φ S j = X Y < S j
238 237 adantlr φ j 0 N S j = X Y < S j
239 226 227 229 231 238 lelttrd φ j 0 N S j = X S J < S j
240 239 adantllr φ Q K < E S J + 1 j 0 N S j = X S J < S j
241 simpr φ Q K < E S J + 1 S j = X S j = X
242 17 140 eqbrtrid φ Q K < E S J + 1 X < S J + 1
243 242 adantr φ Q K < E S J + 1 S j = X X < S J + 1
244 241 243 eqbrtrd φ Q K < E S J + 1 S j = X S j < S J + 1
245 244 adantlr φ Q K < E S J + 1 j 0 N S j = X S j < S J + 1
246 240 245 jca φ Q K < E S J + 1 j 0 N S j = X S J < S j S j < S J + 1
247 225 246 mtand φ Q K < E S J + 1 j 0 N ¬ S j = X
248 247 nrexdv φ Q K < E S J + 1 ¬ j 0 N S j = X
249 isof1o S Isom < , < 0 N H S : 0 N 1-1 onto H
250 206 249 syl φ S : 0 N 1-1 onto H
251 f1ofo S : 0 N 1-1 onto H S : 0 N onto H
252 250 251 syl φ S : 0 N onto H
253 foelrn S : 0 N onto H X H j 0 N X = S j
254 252 253 sylan φ X H j 0 N X = S j
255 234 rexbii j 0 N X = S j j 0 N S j = X
256 254 255 sylib φ X H j 0 N S j = X
257 256 adantlr φ Q K < E S J + 1 X H j 0 N S j = X
258 248 257 mtand φ Q K < E S J + 1 ¬ X H
259 199 258 pm2.65da φ ¬ Q K < E S J + 1
260 56 63 259 nltled φ E S J + 1 Q K