Users' Mathboxes Mathbox for Glauco Siliprandi < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >   Mathboxes  >  fourierdlem90 Structured version   Visualization version   GIF version

Theorem fourierdlem90 45643
Description: Given a piecewise continuous function, it is still continuous with respect to an open interval of the moved partition. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem90.p 𝑃 = (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = 𝐴 ∧ (π‘β€˜π‘š) = 𝐡) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})
fourierdlem90.t 𝑇 = (𝐡 βˆ’ 𝐴)
fourierdlem90.m (πœ‘ β†’ 𝑀 ∈ β„•)
fourierdlem90.q (πœ‘ β†’ 𝑄 ∈ (π‘ƒβ€˜π‘€))
fourierdlem90.f (πœ‘ β†’ 𝐹:β„βŸΆβ„‚)
fourierdlem90.6 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ (πΉβ€˜(π‘₯ + 𝑇)) = (πΉβ€˜π‘₯))
fourierdlem90.fcn ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
fourierdlem90.c (πœ‘ β†’ 𝐢 ∈ ℝ)
fourierdlem90.d (πœ‘ β†’ 𝐷 ∈ (𝐢(,)+∞))
fourierdlem90.o 𝑂 = (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = 𝐢 ∧ (π‘β€˜π‘š) = 𝐷) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})
fourierdlem90.h 𝐻 = ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· 𝑇)) ∈ ran 𝑄})
fourierdlem90.n 𝑁 = ((β™―β€˜π») βˆ’ 1)
fourierdlem90.s 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝐻))
fourierdlem90.e 𝐸 = (π‘₯ ∈ ℝ ↦ (π‘₯ + ((βŒŠβ€˜((𝐡 βˆ’ π‘₯) / 𝑇)) Β· 𝑇)))
fourierdlem90.J 𝐿 = (𝑦 ∈ (𝐴(,]𝐡) ↦ if(𝑦 = 𝐡, 𝐴, 𝑦))
fourierdlem90.17 (πœ‘ β†’ 𝐽 ∈ (0..^𝑁))
fourierdlem90.u π‘ˆ = ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))
fourierdlem90.g 𝐺 = (𝐹 β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))))
fourierdlem90.r 𝑅 = (𝑦 ∈ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ)(,)((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ)) ↦ (πΊβ€˜(𝑦 βˆ’ π‘ˆ)))
fourierdlem90.i 𝐼 = (π‘₯ ∈ ℝ ↦ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))}, ℝ, < ))
Assertion
Ref Expression
fourierdlem90 (πœ‘ β†’ (𝐹 β†Ύ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) ∈ (((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))–cnβ†’β„‚))
Distinct variable groups:   𝐴,𝑓,π‘˜,𝑦   𝐴,𝑖,π‘₯,π‘˜,𝑦   𝐴,π‘š,𝑝,𝑖   𝐡,𝑓,π‘˜,𝑦   𝐡,𝑖,π‘₯   𝐡,π‘š,𝑝   𝐢,𝑓,𝑦   𝐢,𝑖,π‘š,𝑝   π‘₯,𝐢   𝐷,𝑓,𝑦   𝐷,𝑖,π‘š,𝑝   π‘₯,𝐷   𝑓,𝐸,π‘˜,𝑦   𝑖,𝐸,π‘₯   𝑖,𝐹,π‘₯,𝑦   𝑦,𝐺   𝑓,𝐻,𝑦   π‘₯,𝐻   𝑓,𝐼,π‘˜   𝑖,𝐼,π‘₯   𝑖,𝐽,π‘₯,𝑦   𝑖,𝐿,π‘₯,𝑦   𝑖,𝑀,π‘₯   π‘š,𝑀,𝑝   𝑓,𝑁,π‘˜,𝑦   𝑖,𝑁,π‘₯   π‘š,𝑁,𝑝   𝑄,𝑓,π‘˜,𝑦   𝑄,𝑖,π‘₯   𝑄,𝑝   𝑆,𝑓,π‘˜,𝑦   𝑆,𝑖,π‘₯   𝑆,𝑝   𝑇,𝑖,π‘˜,π‘₯,𝑦   𝑦,π‘ˆ   πœ‘,𝑓,π‘˜,𝑦   πœ‘,𝑖,π‘₯
Allowed substitution hints:   πœ‘(π‘š,𝑝)   𝐢(π‘˜)   𝐷(π‘˜)   𝑃(π‘₯,𝑦,𝑓,𝑖,π‘˜,π‘š,𝑝)   𝑄(π‘š)   𝑅(π‘₯,𝑦,𝑓,𝑖,π‘˜,π‘š,𝑝)   𝑆(π‘š)   𝑇(𝑓,π‘š,𝑝)   π‘ˆ(π‘₯,𝑓,𝑖,π‘˜,π‘š,𝑝)   𝐸(π‘š,𝑝)   𝐹(𝑓,π‘˜,π‘š,𝑝)   𝐺(π‘₯,𝑓,𝑖,π‘˜,π‘š,𝑝)   𝐻(𝑖,π‘˜,π‘š,𝑝)   𝐼(𝑦,π‘š,𝑝)   𝐽(𝑓,π‘˜,π‘š,𝑝)   𝐿(𝑓,π‘˜,π‘š,𝑝)   𝑀(𝑦,𝑓,π‘˜)   𝑂(π‘₯,𝑦,𝑓,𝑖,π‘˜,π‘š,𝑝)

Proof of Theorem fourierdlem90
Dummy variable 𝑗 is distinct from all other variables.
StepHypRef Expression
1 fourierdlem90.p . . . . . . 7 𝑃 = (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = 𝐴 ∧ (π‘β€˜π‘š) = 𝐡) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})
2 fourierdlem90.m . . . . . . 7 (πœ‘ β†’ 𝑀 ∈ β„•)
3 fourierdlem90.q . . . . . . 7 (πœ‘ β†’ 𝑄 ∈ (π‘ƒβ€˜π‘€))
41, 2, 3fourierdlem11 45565 . . . . . 6 (πœ‘ β†’ (𝐴 ∈ ℝ ∧ 𝐡 ∈ ℝ ∧ 𝐴 < 𝐡))
54simp1d 1139 . . . . 5 (πœ‘ β†’ 𝐴 ∈ ℝ)
64simp2d 1140 . . . . 5 (πœ‘ β†’ 𝐡 ∈ ℝ)
75, 6iccssred 13438 . . . 4 (πœ‘ β†’ (𝐴[,]𝐡) βŠ† ℝ)
84simp3d 1141 . . . . . 6 (πœ‘ β†’ 𝐴 < 𝐡)
9 fourierdlem90.J . . . . . 6 𝐿 = (𝑦 ∈ (𝐴(,]𝐡) ↦ if(𝑦 = 𝐡, 𝐴, 𝑦))
105, 6, 8, 9fourierdlem17 45571 . . . . 5 (πœ‘ β†’ 𝐿:(𝐴(,]𝐡)⟢(𝐴[,]𝐡))
11 fourierdlem90.t . . . . . . 7 𝑇 = (𝐡 βˆ’ 𝐴)
12 fourierdlem90.e . . . . . . 7 𝐸 = (π‘₯ ∈ ℝ ↦ (π‘₯ + ((βŒŠβ€˜((𝐡 βˆ’ π‘₯) / 𝑇)) Β· 𝑇)))
135, 6, 8, 11, 12fourierdlem4 45558 . . . . . 6 (πœ‘ β†’ 𝐸:β„βŸΆ(𝐴(,]𝐡))
14 fourierdlem90.c . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐢 ∈ ℝ)
15 fourierdlem90.d . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐷 ∈ (𝐢(,)+∞))
16 elioore 13381 . . . . . . . . . . . . . 14 (𝐷 ∈ (𝐢(,)+∞) β†’ 𝐷 ∈ ℝ)
1715, 16syl 17 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐷 ∈ ℝ)
18 elioo4g 13411 . . . . . . . . . . . . . . . 16 (𝐷 ∈ (𝐢(,)+∞) ↔ ((𝐢 ∈ ℝ* ∧ +∞ ∈ ℝ* ∧ 𝐷 ∈ ℝ) ∧ (𝐢 < 𝐷 ∧ 𝐷 < +∞)))
1915, 18sylib 217 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ((𝐢 ∈ ℝ* ∧ +∞ ∈ ℝ* ∧ 𝐷 ∈ ℝ) ∧ (𝐢 < 𝐷 ∧ 𝐷 < +∞)))
2019simprd 494 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝐢 < 𝐷 ∧ 𝐷 < +∞))
2120simpld 493 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐢 < 𝐷)
22 fourierdlem90.o . . . . . . . . . . . . 13 𝑂 = (π‘š ∈ β„• ↦ {𝑝 ∈ (ℝ ↑m (0...π‘š)) ∣ (((π‘β€˜0) = 𝐢 ∧ (π‘β€˜π‘š) = 𝐷) ∧ βˆ€π‘– ∈ (0..^π‘š)(π‘β€˜π‘–) < (π‘β€˜(𝑖 + 1)))})
23 fourierdlem90.h . . . . . . . . . . . . 13 𝐻 = ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· 𝑇)) ∈ ran 𝑄})
24 fourierdlem90.n . . . . . . . . . . . . 13 𝑁 = ((β™―β€˜π») βˆ’ 1)
25 fourierdlem90.s . . . . . . . . . . . . 13 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝐻))
2611, 1, 2, 3, 14, 17, 21, 22, 23, 24, 25fourierdlem54 45607 . . . . . . . . . . . 12 (πœ‘ β†’ ((𝑁 ∈ β„• ∧ 𝑆 ∈ (π‘‚β€˜π‘)) ∧ 𝑆 Isom < , < ((0...𝑁), 𝐻)))
2726simpld 493 . . . . . . . . . . 11 (πœ‘ β†’ (𝑁 ∈ β„• ∧ 𝑆 ∈ (π‘‚β€˜π‘)))
2827simprd 494 . . . . . . . . . 10 (πœ‘ β†’ 𝑆 ∈ (π‘‚β€˜π‘))
2927simpld 493 . . . . . . . . . . 11 (πœ‘ β†’ 𝑁 ∈ β„•)
3022fourierdlem2 45556 . . . . . . . . . . 11 (𝑁 ∈ β„• β†’ (𝑆 ∈ (π‘‚β€˜π‘) ↔ (𝑆 ∈ (ℝ ↑m (0...𝑁)) ∧ (((π‘†β€˜0) = 𝐢 ∧ (π‘†β€˜π‘) = 𝐷) ∧ βˆ€π‘– ∈ (0..^𝑁)(π‘†β€˜π‘–) < (π‘†β€˜(𝑖 + 1))))))
3129, 30syl 17 . . . . . . . . . 10 (πœ‘ β†’ (𝑆 ∈ (π‘‚β€˜π‘) ↔ (𝑆 ∈ (ℝ ↑m (0...𝑁)) ∧ (((π‘†β€˜0) = 𝐢 ∧ (π‘†β€˜π‘) = 𝐷) ∧ βˆ€π‘– ∈ (0..^𝑁)(π‘†β€˜π‘–) < (π‘†β€˜(𝑖 + 1))))))
3228, 31mpbid 231 . . . . . . . . 9 (πœ‘ β†’ (𝑆 ∈ (ℝ ↑m (0...𝑁)) ∧ (((π‘†β€˜0) = 𝐢 ∧ (π‘†β€˜π‘) = 𝐷) ∧ βˆ€π‘– ∈ (0..^𝑁)(π‘†β€˜π‘–) < (π‘†β€˜(𝑖 + 1)))))
3332simpld 493 . . . . . . . 8 (πœ‘ β†’ 𝑆 ∈ (ℝ ↑m (0...𝑁)))
34 elmapi 8861 . . . . . . . 8 (𝑆 ∈ (ℝ ↑m (0...𝑁)) β†’ 𝑆:(0...𝑁)βŸΆβ„)
3533, 34syl 17 . . . . . . 7 (πœ‘ β†’ 𝑆:(0...𝑁)βŸΆβ„)
36 fourierdlem90.17 . . . . . . . 8 (πœ‘ β†’ 𝐽 ∈ (0..^𝑁))
37 elfzofz 13675 . . . . . . . 8 (𝐽 ∈ (0..^𝑁) β†’ 𝐽 ∈ (0...𝑁))
3836, 37syl 17 . . . . . . 7 (πœ‘ β†’ 𝐽 ∈ (0...𝑁))
3935, 38ffvelcdmd 7088 . . . . . 6 (πœ‘ β†’ (π‘†β€˜π½) ∈ ℝ)
4013, 39ffvelcdmd 7088 . . . . 5 (πœ‘ β†’ (πΈβ€˜(π‘†β€˜π½)) ∈ (𝐴(,]𝐡))
4110, 40ffvelcdmd 7088 . . . 4 (πœ‘ β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) ∈ (𝐴[,]𝐡))
427, 41sseldd 3974 . . 3 (πœ‘ β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) ∈ ℝ)
435rexrd 11289 . . . . 5 (πœ‘ β†’ 𝐴 ∈ ℝ*)
44 iocssre 13431 . . . . 5 ((𝐴 ∈ ℝ* ∧ 𝐡 ∈ ℝ) β†’ (𝐴(,]𝐡) βŠ† ℝ)
4543, 6, 44syl2anc 582 . . . 4 (πœ‘ β†’ (𝐴(,]𝐡) βŠ† ℝ)
46 fzofzp1 13756 . . . . . . 7 (𝐽 ∈ (0..^𝑁) β†’ (𝐽 + 1) ∈ (0...𝑁))
4736, 46syl 17 . . . . . 6 (πœ‘ β†’ (𝐽 + 1) ∈ (0...𝑁))
4835, 47ffvelcdmd 7088 . . . . 5 (πœ‘ β†’ (π‘†β€˜(𝐽 + 1)) ∈ ℝ)
4913, 48ffvelcdmd 7088 . . . 4 (πœ‘ β†’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))) ∈ (𝐴(,]𝐡))
5045, 49sseldd 3974 . . 3 (πœ‘ β†’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))) ∈ ℝ)
51 eqid 2725 . . 3 ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))) = ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))
52 fourierdlem90.u . . . 4 π‘ˆ = ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))
5348, 50resubcld 11667 . . . 4 (πœ‘ β†’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1)))) ∈ ℝ)
5452, 53eqeltrid 2829 . . 3 (πœ‘ β†’ π‘ˆ ∈ ℝ)
55 eqid 2725 . . 3 (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ)(,)((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ)) = (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ)(,)((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ))
56 fourierdlem90.g . . . 4 𝐺 = (𝐹 β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))))
57 eleq1 2813 . . . . . . . . . . . 12 (𝑗 = 𝐽 β†’ (𝑗 ∈ (0..^𝑁) ↔ 𝐽 ∈ (0..^𝑁)))
5857anbi2d 628 . . . . . . . . . . 11 (𝑗 = 𝐽 β†’ ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ↔ (πœ‘ ∧ 𝐽 ∈ (0..^𝑁))))
59 fveq2 6890 . . . . . . . . . . . . . . 15 (𝑗 = 𝐽 β†’ (π‘†β€˜π‘—) = (π‘†β€˜π½))
6059fveq2d 6894 . . . . . . . . . . . . . 14 (𝑗 = 𝐽 β†’ (πΈβ€˜(π‘†β€˜π‘—)) = (πΈβ€˜(π‘†β€˜π½)))
6160fveq2d 6894 . . . . . . . . . . . . 13 (𝑗 = 𝐽 β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))) = (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))))
62 oveq1 7420 . . . . . . . . . . . . . . 15 (𝑗 = 𝐽 β†’ (𝑗 + 1) = (𝐽 + 1))
6362fveq2d 6894 . . . . . . . . . . . . . 14 (𝑗 = 𝐽 β†’ (π‘†β€˜(𝑗 + 1)) = (π‘†β€˜(𝐽 + 1)))
6463fveq2d 6894 . . . . . . . . . . . . 13 (𝑗 = 𝐽 β†’ (πΈβ€˜(π‘†β€˜(𝑗 + 1))) = (πΈβ€˜(π‘†β€˜(𝐽 + 1))))
6561, 64oveq12d 7431 . . . . . . . . . . . 12 (𝑗 = 𝐽 β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))(,)(πΈβ€˜(π‘†β€˜(𝑗 + 1)))) = ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))))
6659fveq2d 6894 . . . . . . . . . . . . . 14 (𝑗 = 𝐽 β†’ (πΌβ€˜(π‘†β€˜π‘—)) = (πΌβ€˜(π‘†β€˜π½)))
6766fveq2d 6894 . . . . . . . . . . . . 13 (𝑗 = 𝐽 β†’ (π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—))) = (π‘„β€˜(πΌβ€˜(π‘†β€˜π½))))
6866oveq1d 7428 . . . . . . . . . . . . . 14 (𝑗 = 𝐽 β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) = ((πΌβ€˜(π‘†β€˜π½)) + 1))
6968fveq2d 6894 . . . . . . . . . . . . 13 (𝑗 = 𝐽 β†’ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) = (π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))
7067, 69oveq12d 7431 . . . . . . . . . . . 12 (𝑗 = 𝐽 β†’ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))) = ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1))))
7165, 70sseq12d 4007 . . . . . . . . . . 11 (𝑗 = 𝐽 β†’ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))(,)(πΈβ€˜(π‘†β€˜(𝑗 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))) ↔ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))))
7258, 71imbi12d 343 . . . . . . . . . 10 (𝑗 = 𝐽 β†’ (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))(,)(πΈβ€˜(π‘†β€˜(𝑗 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))) ↔ ((πœ‘ ∧ 𝐽 ∈ (0..^𝑁)) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1))))))
7311oveq2i 7424 . . . . . . . . . . . . . . . . . . 19 (π‘˜ Β· 𝑇) = (π‘˜ Β· (𝐡 βˆ’ 𝐴))
7473oveq2i 7424 . . . . . . . . . . . . . . . . . 18 (𝑦 + (π‘˜ Β· 𝑇)) = (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴)))
7574eleq1i 2816 . . . . . . . . . . . . . . . . 17 ((𝑦 + (π‘˜ Β· 𝑇)) ∈ ran 𝑄 ↔ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄)
7675rexbii 3084 . . . . . . . . . . . . . . . 16 (βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· 𝑇)) ∈ ran 𝑄 ↔ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄)
7776a1i 11 . . . . . . . . . . . . . . 15 (𝑦 ∈ (𝐢[,]𝐷) β†’ (βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· 𝑇)) ∈ ran 𝑄 ↔ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄))
7877rabbiia 3423 . . . . . . . . . . . . . 14 {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· 𝑇)) ∈ ran 𝑄} = {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄}
7978uneq2i 4154 . . . . . . . . . . . . 13 ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· 𝑇)) ∈ ran 𝑄}) = ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄})
8023, 79eqtri 2753 . . . . . . . . . . . 12 𝐻 = ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄})
81 id 22 . . . . . . . . . . . . . . . . 17 (𝑦 = π‘₯ β†’ 𝑦 = π‘₯)
8211eqcomi 2734 . . . . . . . . . . . . . . . . . . 19 (𝐡 βˆ’ 𝐴) = 𝑇
8382oveq2i 7424 . . . . . . . . . . . . . . . . . 18 (π‘˜ Β· (𝐡 βˆ’ 𝐴)) = (π‘˜ Β· 𝑇)
8483a1i 11 . . . . . . . . . . . . . . . . 17 (𝑦 = π‘₯ β†’ (π‘˜ Β· (𝐡 βˆ’ 𝐴)) = (π‘˜ Β· 𝑇))
8581, 84oveq12d 7431 . . . . . . . . . . . . . . . 16 (𝑦 = π‘₯ β†’ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) = (π‘₯ + (π‘˜ Β· 𝑇)))
8685eleq1d 2810 . . . . . . . . . . . . . . 15 (𝑦 = π‘₯ β†’ ((𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄 ↔ (π‘₯ + (π‘˜ Β· 𝑇)) ∈ ran 𝑄))
8786rexbidv 3169 . . . . . . . . . . . . . 14 (𝑦 = π‘₯ β†’ (βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄 ↔ βˆƒπ‘˜ ∈ β„€ (π‘₯ + (π‘˜ Β· 𝑇)) ∈ ran 𝑄))
8887cbvrabv 3430 . . . . . . . . . . . . 13 {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄} = {π‘₯ ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (π‘₯ + (π‘˜ Β· 𝑇)) ∈ ran 𝑄}
8988uneq2i 4154 . . . . . . . . . . . 12 ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄}) = ({𝐢, 𝐷} βˆͺ {π‘₯ ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (π‘₯ + (π‘˜ Β· 𝑇)) ∈ ran 𝑄})
9080, 89eqtri 2753 . . . . . . . . . . 11 𝐻 = ({𝐢, 𝐷} βˆͺ {π‘₯ ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (π‘₯ + (π‘˜ Β· 𝑇)) ∈ ran 𝑄})
91 eqid 2725 . . . . . . . . . . 11 ((π‘†β€˜π‘—) + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2))) = ((π‘†β€˜π‘—) + if(((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) < ((π‘„β€˜1) βˆ’ 𝐴), (((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) / 2), (((π‘„β€˜1) βˆ’ 𝐴) / 2)))
92 fourierdlem90.i . . . . . . . . . . 11 𝐼 = (π‘₯ ∈ ℝ ↦ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))}, ℝ, < ))
9311, 1, 2, 3, 14, 17, 21, 22, 90, 24, 25, 12, 9, 91, 92fourierdlem79 45632 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))(,)(πΈβ€˜(π‘†β€˜(𝑗 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))))
9472, 93vtoclg 3533 . . . . . . . . 9 (𝐽 ∈ (0..^𝑁) β†’ ((πœ‘ ∧ 𝐽 ∈ (0..^𝑁)) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))))
9594anabsi7 669 . . . . . . . 8 ((πœ‘ ∧ 𝐽 ∈ (0..^𝑁)) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1))))
9636, 95mpdan 685 . . . . . . 7 (πœ‘ β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1))))
9796resabs1d 6008 . . . . . 6 (πœ‘ β†’ ((𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))) β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))) = (𝐹 β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))))
9897eqcomd 2731 . . . . 5 (πœ‘ β†’ (𝐹 β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))) = ((𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))) β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))))
991, 2, 3, 11, 12, 9, 92fourierdlem37 45591 . . . . . . . . 9 (πœ‘ β†’ (𝐼:β„βŸΆ(0..^𝑀) ∧ (π‘₯ ∈ ℝ β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))}, ℝ, < ) ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))})))
10099simpld 493 . . . . . . . 8 (πœ‘ β†’ 𝐼:β„βŸΆ(0..^𝑀))
101100, 39ffvelcdmd 7088 . . . . . . 7 (πœ‘ β†’ (πΌβ€˜(π‘†β€˜π½)) ∈ (0..^𝑀))
102101ancli 547 . . . . . . 7 (πœ‘ β†’ (πœ‘ ∧ (πΌβ€˜(π‘†β€˜π½)) ∈ (0..^𝑀)))
103 eleq1 2813 . . . . . . . . . 10 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ (𝑖 ∈ (0..^𝑀) ↔ (πΌβ€˜(π‘†β€˜π½)) ∈ (0..^𝑀)))
104103anbi2d 628 . . . . . . . . 9 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ↔ (πœ‘ ∧ (πΌβ€˜(π‘†β€˜π½)) ∈ (0..^𝑀))))
105 fveq2 6890 . . . . . . . . . . . 12 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ (π‘„β€˜π‘–) = (π‘„β€˜(πΌβ€˜(π‘†β€˜π½))))
106 oveq1 7420 . . . . . . . . . . . . 13 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ (𝑖 + 1) = ((πΌβ€˜(π‘†β€˜π½)) + 1))
107106fveq2d 6894 . . . . . . . . . . . 12 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ (π‘„β€˜(𝑖 + 1)) = (π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))
108105, 107oveq12d 7431 . . . . . . . . . . 11 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) = ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1))))
109108reseq2d 5980 . . . . . . . . . 10 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))))
110108oveq1d 7428 . . . . . . . . . 10 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚) = (((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))–cnβ†’β„‚))
111109, 110eleq12d 2819 . . . . . . . . 9 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚) ↔ (𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))) ∈ (((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))–cnβ†’β„‚)))
112104, 111imbi12d 343 . . . . . . . 8 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚)) ↔ ((πœ‘ ∧ (πΌβ€˜(π‘†β€˜π½)) ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))) ∈ (((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))–cnβ†’β„‚))))
113 fourierdlem90.fcn . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
114112, 113vtoclg 3533 . . . . . . 7 ((πΌβ€˜(π‘†β€˜π½)) ∈ (0..^𝑀) β†’ ((πœ‘ ∧ (πΌβ€˜(π‘†β€˜π½)) ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))) ∈ (((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))–cnβ†’β„‚)))
115101, 102, 114sylc 65 . . . . . 6 (πœ‘ β†’ (𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))) ∈ (((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))–cnβ†’β„‚))
116 rescncf 24830 . . . . . 6 (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1))) β†’ ((𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))) ∈ (((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))–cnβ†’β„‚) β†’ ((𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))) β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))) ∈ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))–cnβ†’β„‚)))
11796, 115, 116sylc 65 . . . . 5 (πœ‘ β†’ ((𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))) β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))) ∈ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))–cnβ†’β„‚))
11898, 117eqeltrd 2825 . . . 4 (πœ‘ β†’ (𝐹 β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))) ∈ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))–cnβ†’β„‚))
11956, 118eqeltrid 2829 . . 3 (πœ‘ β†’ 𝐺 ∈ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))–cnβ†’β„‚))
120 fourierdlem90.r . . 3 𝑅 = (𝑦 ∈ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ)(,)((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ)) ↦ (πΊβ€˜(𝑦 βˆ’ π‘ˆ)))
12142, 50, 51, 54, 55, 119, 120cncfshiftioo 45339 . 2 (πœ‘ β†’ 𝑅 ∈ ((((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ)(,)((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ))–cnβ†’β„‚))
122120a1i 11 . . 3 (πœ‘ β†’ 𝑅 = (𝑦 ∈ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ)(,)((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ)) ↦ (πΊβ€˜(𝑦 βˆ’ π‘ˆ))))
12352oveq2i 7424 . . . . . . 7 ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ) = ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1)))))
124123a1i 11 . . . . . 6 (πœ‘ β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ) = ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))))
12564, 61oveq12d 7431 . . . . . . . . . . . . . 14 (𝑗 = 𝐽 β†’ ((πΈβ€˜(π‘†β€˜(𝑗 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))) = ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))))
12663, 59oveq12d 7431 . . . . . . . . . . . . . 14 (𝑗 = 𝐽 β†’ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) = ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½)))
127125, 126eqeq12d 2741 . . . . . . . . . . . . 13 (𝑗 = 𝐽 β†’ (((πΈβ€˜(π‘†β€˜(𝑗 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))) = ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) ↔ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))) = ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))))
12858, 127imbi12d 343 . . . . . . . . . . . 12 (𝑗 = 𝐽 β†’ (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((πΈβ€˜(π‘†β€˜(𝑗 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))) = ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—))) ↔ ((πœ‘ ∧ 𝐽 ∈ (0..^𝑁)) β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))) = ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½)))))
12980fveq2i 6893 . . . . . . . . . . . . . . 15 (β™―β€˜π») = (β™―β€˜({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄}))
130129oveq1i 7423 . . . . . . . . . . . . . 14 ((β™―β€˜π») βˆ’ 1) = ((β™―β€˜({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄})) βˆ’ 1)
13124, 130eqtri 2753 . . . . . . . . . . . . 13 𝑁 = ((β™―β€˜({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄})) βˆ’ 1)
132 isoeq5 7322 . . . . . . . . . . . . . . . 16 (𝐻 = ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄}) β†’ (𝑓 Isom < , < ((0...𝑁), 𝐻) ↔ 𝑓 Isom < , < ((0...𝑁), ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄}))))
13380, 132ax-mp 5 . . . . . . . . . . . . . . 15 (𝑓 Isom < , < ((0...𝑁), 𝐻) ↔ 𝑓 Isom < , < ((0...𝑁), ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄})))
134133iotabii 6528 . . . . . . . . . . . . . 14 (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝐻)) = (℩𝑓𝑓 Isom < , < ((0...𝑁), ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄})))
13525, 134eqtri 2753 . . . . . . . . . . . . 13 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄})))
136 eqid 2725 . . . . . . . . . . . . 13 ((π‘†β€˜π‘—) + (𝐡 βˆ’ (πΈβ€˜(π‘†β€˜π‘—)))) = ((π‘†β€˜π‘—) + (𝐡 βˆ’ (πΈβ€˜(π‘†β€˜π‘—))))
1371, 11, 2, 3, 14, 15, 22, 131, 135, 12, 9, 136fourierdlem65 45618 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((πΈβ€˜(π‘†β€˜(𝑗 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))) = ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)))
138128, 137vtoclg 3533 . . . . . . . . . . 11 (𝐽 ∈ (0..^𝑁) β†’ ((πœ‘ ∧ 𝐽 ∈ (0..^𝑁)) β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))) = ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))))
139138anabsi7 669 . . . . . . . . . 10 ((πœ‘ ∧ 𝐽 ∈ (0..^𝑁)) β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))) = ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½)))
14036, 139mpdan 685 . . . . . . . . 9 (πœ‘ β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))) = ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½)))
14150recnd 11267 . . . . . . . . . 10 (πœ‘ β†’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))) ∈ β„‚)
14248recnd 11267 . . . . . . . . . . 11 (πœ‘ β†’ (π‘†β€˜(𝐽 + 1)) ∈ β„‚)
14314, 17iccssred 13438 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝐢[,]𝐷) βŠ† ℝ)
144 ax-resscn 11190 . . . . . . . . . . . . 13 ℝ βŠ† β„‚
145143, 144sstrdi 3986 . . . . . . . . . . . 12 (πœ‘ β†’ (𝐢[,]𝐷) βŠ† β„‚)
14622, 29, 28fourierdlem15 45569 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑆:(0...𝑁)⟢(𝐢[,]𝐷))
147146, 38ffvelcdmd 7088 . . . . . . . . . . . 12 (πœ‘ β†’ (π‘†β€˜π½) ∈ (𝐢[,]𝐷))
148145, 147sseldd 3974 . . . . . . . . . . 11 (πœ‘ β†’ (π‘†β€˜π½) ∈ β„‚)
149142, 148subcld 11596 . . . . . . . . . 10 (πœ‘ β†’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½)) ∈ β„‚)
15042recnd 11267 . . . . . . . . . 10 (πœ‘ β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) ∈ β„‚)
151141, 149, 150subsub23d 44728 . . . . . . . . 9 (πœ‘ β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) = (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) ↔ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))) = ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))))
152140, 151mpbird 256 . . . . . . . 8 (πœ‘ β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) = (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))))
153152eqcomd 2731 . . . . . . 7 (πœ‘ β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) = ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))))
154153oveq1d 7428 . . . . . 6 (πœ‘ β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))) = (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) + ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))))
155141, 149subcld 11596 . . . . . . . 8 (πœ‘ β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) ∈ β„‚)
156155, 142, 141addsub12d 11619 . . . . . . 7 (πœ‘ β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) + ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))) = ((π‘†β€˜(𝐽 + 1)) + (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))))
157141, 149, 141sub32d 11628 . . . . . . . . 9 (πœ‘ β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1)))) = (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1)))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))))
158141subidd 11584 . . . . . . . . . 10 (πœ‘ β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1)))) = 0)
159158oveq1d 7428 . . . . . . . . 9 (πœ‘ β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1)))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) = (0 βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))))
160 df-neg 11472 . . . . . . . . . 10 -((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½)) = (0 βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½)))
161142, 148negsubdi2d 11612 . . . . . . . . . 10 (πœ‘ β†’ -((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½)) = ((π‘†β€˜π½) βˆ’ (π‘†β€˜(𝐽 + 1))))
162160, 161eqtr3id 2779 . . . . . . . . 9 (πœ‘ β†’ (0 βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) = ((π‘†β€˜π½) βˆ’ (π‘†β€˜(𝐽 + 1))))
163157, 159, 1623eqtrd 2769 . . . . . . . 8 (πœ‘ β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1)))) = ((π‘†β€˜π½) βˆ’ (π‘†β€˜(𝐽 + 1))))
164163oveq2d 7429 . . . . . . 7 (πœ‘ β†’ ((π‘†β€˜(𝐽 + 1)) + (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))) = ((π‘†β€˜(𝐽 + 1)) + ((π‘†β€˜π½) βˆ’ (π‘†β€˜(𝐽 + 1)))))
165142, 148pncan3d 11599 . . . . . . 7 (πœ‘ β†’ ((π‘†β€˜(𝐽 + 1)) + ((π‘†β€˜π½) βˆ’ (π‘†β€˜(𝐽 + 1)))) = (π‘†β€˜π½))
166156, 164, 1653eqtrd 2769 . . . . . 6 (πœ‘ β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) + ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))) = (π‘†β€˜π½))
167124, 154, 1663eqtrd 2769 . . . . 5 (πœ‘ β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ) = (π‘†β€˜π½))
16852oveq2i 7424 . . . . . 6 ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ) = ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1)))))
169141, 142pncan3d 11599 . . . . . 6 (πœ‘ β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))) = (π‘†β€˜(𝐽 + 1)))
170168, 169eqtrid 2777 . . . . 5 (πœ‘ β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ) = (π‘†β€˜(𝐽 + 1)))
171167, 170oveq12d 7431 . . . 4 (πœ‘ β†’ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ)(,)((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ)) = ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1))))
172171mpteq1d 5239 . . 3 (πœ‘ β†’ (𝑦 ∈ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ)(,)((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ)) ↦ (πΊβ€˜(𝑦 βˆ’ π‘ˆ))) = (𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1))) ↦ (πΊβ€˜(𝑦 βˆ’ π‘ˆ))))
173 fourierdlem90.f . . . . . 6 (πœ‘ β†’ 𝐹:β„βŸΆβ„‚)
174173feqmptd 6960 . . . . 5 (πœ‘ β†’ 𝐹 = (𝑦 ∈ ℝ ↦ (πΉβ€˜π‘¦)))
175174reseq1d 5979 . . . 4 (πœ‘ β†’ (𝐹 β†Ύ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) = ((𝑦 ∈ ℝ ↦ (πΉβ€˜π‘¦)) β†Ύ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))))
176 ioossre 13412 . . . . . 6 ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1))) βŠ† ℝ
177176a1i 11 . . . . 5 (πœ‘ β†’ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1))) βŠ† ℝ)
178177resmptd 6040 . . . 4 (πœ‘ β†’ ((𝑦 ∈ ℝ ↦ (πΉβ€˜π‘¦)) β†Ύ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) = (𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1))) ↦ (πΉβ€˜π‘¦)))
17956fveq1i 6891 . . . . . . 7 (πΊβ€˜(𝑦 βˆ’ π‘ˆ)) = ((𝐹 β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))))β€˜(𝑦 βˆ’ π‘ˆ))
180179a1i 11 . . . . . 6 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΊβ€˜(𝑦 βˆ’ π‘ˆ)) = ((𝐹 β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))))β€˜(𝑦 βˆ’ π‘ˆ)))
18142adantr 479 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) ∈ ℝ)
182181rexrd 11289 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) ∈ ℝ*)
18350adantr 479 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))) ∈ ℝ)
184183rexrd 11289 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))) ∈ ℝ*)
185177sselda 3973 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ 𝑦 ∈ ℝ)
18654adantr 479 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ π‘ˆ ∈ ℝ)
187185, 186resubcld 11667 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (𝑦 βˆ’ π‘ˆ) ∈ ℝ)
18839rexrd 11289 . . . . . . . . . . . 12 (πœ‘ β†’ (π‘†β€˜π½) ∈ ℝ*)
189188adantr 479 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (π‘†β€˜π½) ∈ ℝ*)
19048rexrd 11289 . . . . . . . . . . . 12 (πœ‘ β†’ (π‘†β€˜(𝐽 + 1)) ∈ ℝ*)
191190adantr 479 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (π‘†β€˜(𝐽 + 1)) ∈ ℝ*)
192 simpr 483 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1))))
193 ioogtlb 44939 . . . . . . . . . . 11 (((π‘†β€˜π½) ∈ ℝ* ∧ (π‘†β€˜(𝐽 + 1)) ∈ ℝ* ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (π‘†β€˜π½) < 𝑦)
194189, 191, 192, 193syl3anc 1368 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (π‘†β€˜π½) < 𝑦)
195167adantr 479 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ) = (π‘†β€˜π½))
196185recnd 11267 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ 𝑦 ∈ β„‚)
197186recnd 11267 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ π‘ˆ ∈ β„‚)
198196, 197npcand 11600 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((𝑦 βˆ’ π‘ˆ) + π‘ˆ) = 𝑦)
199194, 195, 1983brtr4d 5176 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ) < ((𝑦 βˆ’ π‘ˆ) + π‘ˆ))
200181, 187, 186ltadd1d 11832 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) < (𝑦 βˆ’ π‘ˆ) ↔ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ) < ((𝑦 βˆ’ π‘ˆ) + π‘ˆ)))
201199, 200mpbird 256 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) < (𝑦 βˆ’ π‘ˆ))
202 iooltub 44954 . . . . . . . . . . 11 (((π‘†β€˜π½) ∈ ℝ* ∧ (π‘†β€˜(𝐽 + 1)) ∈ ℝ* ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ 𝑦 < (π‘†β€˜(𝐽 + 1)))
203189, 191, 192, 202syl3anc 1368 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ 𝑦 < (π‘†β€˜(𝐽 + 1)))
204170adantr 479 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ) = (π‘†β€˜(𝐽 + 1)))
205203, 198, 2043brtr4d 5176 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((𝑦 βˆ’ π‘ˆ) + π‘ˆ) < ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ))
206187, 183, 186ltadd1d 11832 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((𝑦 βˆ’ π‘ˆ) < (πΈβ€˜(π‘†β€˜(𝐽 + 1))) ↔ ((𝑦 βˆ’ π‘ˆ) + π‘ˆ) < ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ)))
207205, 206mpbird 256 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (𝑦 βˆ’ π‘ˆ) < (πΈβ€˜(π‘†β€˜(𝐽 + 1))))
208182, 184, 187, 201, 207eliood 44942 . . . . . . 7 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (𝑦 βˆ’ π‘ˆ) ∈ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))))
209 fvres 6909 . . . . . . 7 ((𝑦 βˆ’ π‘ˆ) ∈ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))) β†’ ((𝐹 β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))))β€˜(𝑦 βˆ’ π‘ˆ)) = (πΉβ€˜(𝑦 βˆ’ π‘ˆ)))
210208, 209syl 17 . . . . . 6 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((𝐹 β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))))β€˜(𝑦 βˆ’ π‘ˆ)) = (πΉβ€˜(𝑦 βˆ’ π‘ˆ)))
21152oveq2i 7424 . . . . . . . . . 10 (𝑦 βˆ’ π‘ˆ) = (𝑦 βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1)))))
212211a1i 11 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (𝑦 βˆ’ π‘ˆ) = (𝑦 βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))))
213142adantr 479 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (π‘†β€˜(𝐽 + 1)) ∈ β„‚)
214141adantr 479 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))) ∈ β„‚)
215196, 213, 214subsub2d 11625 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (𝑦 βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))) = (𝑦 + ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1)))))
216214, 213subcld 11596 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) ∈ β„‚)
2176, 5resubcld 11667 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝐡 βˆ’ 𝐴) ∈ ℝ)
21811, 217eqeltrid 2829 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝑇 ∈ ℝ)
219218recnd 11267 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑇 ∈ β„‚)
220219adantr 479 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ 𝑇 ∈ β„‚)
2215, 6posdifd 11826 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (𝐴 < 𝐡 ↔ 0 < (𝐡 βˆ’ 𝐴)))
2228, 221mpbid 231 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 0 < (𝐡 βˆ’ 𝐴))
223222, 11breqtrrdi 5186 . . . . . . . . . . . . . 14 (πœ‘ β†’ 0 < 𝑇)
224223gt0ne0d 11803 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑇 β‰  0)
225224adantr 479 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ 𝑇 β‰  0)
226216, 220, 225divcan1d 12016 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) Β· 𝑇) = ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))))
227226eqcomd 2731 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) = ((((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) Β· 𝑇))
228227oveq2d 7429 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (𝑦 + ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1)))) = (𝑦 + ((((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) Β· 𝑇)))
229212, 215, 2283eqtrd 2769 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (𝑦 βˆ’ π‘ˆ) = (𝑦 + ((((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) Β· 𝑇)))
230229fveq2d 6894 . . . . . . 7 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΉβ€˜(𝑦 βˆ’ π‘ˆ)) = (πΉβ€˜(𝑦 + ((((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) Β· 𝑇))))
231173adantr 479 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ 𝐹:β„βŸΆβ„‚)
232218adantr 479 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ 𝑇 ∈ ℝ)
23312a1i 11 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝐸 = (π‘₯ ∈ ℝ ↦ (π‘₯ + ((βŒŠβ€˜((𝐡 βˆ’ π‘₯) / 𝑇)) Β· 𝑇))))
234 id 22 . . . . . . . . . . . . . . . . 17 (π‘₯ = (π‘†β€˜(𝐽 + 1)) β†’ π‘₯ = (π‘†β€˜(𝐽 + 1)))
235 oveq2 7421 . . . . . . . . . . . . . . . . . . . 20 (π‘₯ = (π‘†β€˜(𝐽 + 1)) β†’ (𝐡 βˆ’ π‘₯) = (𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))))
236235oveq1d 7428 . . . . . . . . . . . . . . . . . . 19 (π‘₯ = (π‘†β€˜(𝐽 + 1)) β†’ ((𝐡 βˆ’ π‘₯) / 𝑇) = ((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇))
237236fveq2d 6894 . . . . . . . . . . . . . . . . . 18 (π‘₯ = (π‘†β€˜(𝐽 + 1)) β†’ (βŒŠβ€˜((𝐡 βˆ’ π‘₯) / 𝑇)) = (βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)))
238237oveq1d 7428 . . . . . . . . . . . . . . . . 17 (π‘₯ = (π‘†β€˜(𝐽 + 1)) β†’ ((βŒŠβ€˜((𝐡 βˆ’ π‘₯) / 𝑇)) Β· 𝑇) = ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇))
239234, 238oveq12d 7431 . . . . . . . . . . . . . . . 16 (π‘₯ = (π‘†β€˜(𝐽 + 1)) β†’ (π‘₯ + ((βŒŠβ€˜((𝐡 βˆ’ π‘₯) / 𝑇)) Β· 𝑇)) = ((π‘†β€˜(𝐽 + 1)) + ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇)))
240239adantl 480 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘₯ = (π‘†β€˜(𝐽 + 1))) β†’ (π‘₯ + ((βŒŠβ€˜((𝐡 βˆ’ π‘₯) / 𝑇)) Β· 𝑇)) = ((π‘†β€˜(𝐽 + 1)) + ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇)))
2416, 48resubcld 11667 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) ∈ ℝ)
242241, 218, 224redivcld 12067 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ ((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) ∈ ℝ)
243242flcld 13790 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ (βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) ∈ β„€)
244243zred 12691 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) ∈ ℝ)
245244, 218remulcld 11269 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇) ∈ ℝ)
24648, 245readdcld 11268 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ((π‘†β€˜(𝐽 + 1)) + ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇)) ∈ ℝ)
247233, 240, 48, 246fvmptd 7005 . . . . . . . . . . . . . 14 (πœ‘ β†’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))) = ((π‘†β€˜(𝐽 + 1)) + ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇)))
248247oveq1d 7428 . . . . . . . . . . . . 13 (πœ‘ β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) = (((π‘†β€˜(𝐽 + 1)) + ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇)) βˆ’ (π‘†β€˜(𝐽 + 1))))
249244recnd 11267 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) ∈ β„‚)
250249, 219mulcld 11259 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇) ∈ β„‚)
251142, 250pncan2d 11598 . . . . . . . . . . . . 13 (πœ‘ β†’ (((π‘†β€˜(𝐽 + 1)) + ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇)) βˆ’ (π‘†β€˜(𝐽 + 1))) = ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇))
252248, 251eqtrd 2765 . . . . . . . . . . . 12 (πœ‘ β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) = ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇))
253252oveq1d 7428 . . . . . . . . . . 11 (πœ‘ β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) = (((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇) / 𝑇))
254249, 219, 224divcan4d 12021 . . . . . . . . . . 11 (πœ‘ β†’ (((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇) / 𝑇) = (βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)))
255253, 254eqtrd 2765 . . . . . . . . . 10 (πœ‘ β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) = (βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)))
256255, 243eqeltrd 2825 . . . . . . . . 9 (πœ‘ β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) ∈ β„€)
257256adantr 479 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) ∈ β„€)
258 fourierdlem90.6 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ (πΉβ€˜(π‘₯ + 𝑇)) = (πΉβ€˜π‘₯))
259258adantlr 713 . . . . . . . 8 (((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) ∧ π‘₯ ∈ ℝ) β†’ (πΉβ€˜(π‘₯ + 𝑇)) = (πΉβ€˜π‘₯))
260231, 232, 257, 185, 259fperiodmul 44745 . . . . . . 7 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΉβ€˜(𝑦 + ((((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) Β· 𝑇))) = (πΉβ€˜π‘¦))
261230, 260eqtrd 2765 . . . . . 6 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΉβ€˜(𝑦 βˆ’ π‘ˆ)) = (πΉβ€˜π‘¦))
262180, 210, 2613eqtrrd 2770 . . . . 5 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΉβ€˜π‘¦) = (πΊβ€˜(𝑦 βˆ’ π‘ˆ)))
263262mpteq2dva 5244 . . . 4 (πœ‘ β†’ (𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1))) ↦ (πΉβ€˜π‘¦)) = (𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1))) ↦ (πΊβ€˜(𝑦 βˆ’ π‘ˆ))))
264175, 178, 2633eqtrrd 2770 . . 3 (πœ‘ β†’ (𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1))) ↦ (πΊβ€˜(𝑦 βˆ’ π‘ˆ))) = (𝐹 β†Ύ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))))
265122, 172, 2643eqtrd 2769 . 2 (πœ‘ β†’ 𝑅 = (𝐹 β†Ύ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))))
266171oveq1d 7428 . 2 (πœ‘ β†’ ((((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ)(,)((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ))–cnβ†’β„‚) = (((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))–cnβ†’β„‚))
267121, 265, 2663eltr3d 2839 1 (πœ‘ β†’ (𝐹 β†Ύ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) ∈ (((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))–cnβ†’β„‚))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 394   ∧ w3a 1084   = wceq 1533   ∈ wcel 2098   β‰  wne 2930  βˆ€wral 3051  βˆƒwrex 3060  {crab 3419   βˆͺ cun 3939   βŠ† wss 3941  ifcif 4525  {cpr 4627   class class class wbr 5144   ↦ cmpt 5227  ran crn 5674   β†Ύ cres 5675  β„©cio 6493  βŸΆwf 6539  β€˜cfv 6543   Isom wiso 6544  (class class class)co 7413   ↑m cmap 8838  supcsup 9458  β„‚cc 11131  β„cr 11132  0cc0 11133  1c1 11134   + caddc 11136   Β· cmul 11138  +∞cpnf 11270  β„*cxr 11272   < clt 11273   ≀ cle 11274   βˆ’ cmin 11469  -cneg 11470   / cdiv 11896  β„•cn 12237  2c2 12292  β„€cz 12583  (,)cioo 13351  (,]cioc 13352  [,]cicc 13354  ...cfz 13511  ..^cfzo 13654  βŒŠcfl 13782  β™―chash 14316  β€“cnβ†’ccncf 24809
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2696  ax-rep 5281  ax-sep 5295  ax-nul 5302  ax-pow 5360  ax-pr 5424  ax-un 7735  ax-inf2 9659  ax-cnex 11189  ax-resscn 11190  ax-1cn 11191  ax-icn 11192  ax-addcl 11193  ax-addrcl 11194  ax-mulcl 11195  ax-mulrcl 11196  ax-mulcom 11197  ax-addass 11198  ax-mulass 11199  ax-distr 11200  ax-i2m1 11201  ax-1ne0 11202  ax-1rid 11203  ax-rnegex 11204  ax-rrecex 11205  ax-cnre 11206  ax-pre-lttri 11207  ax-pre-lttrn 11208  ax-pre-ltadd 11209  ax-pre-mulgt0 11210  ax-pre-sup 11211
This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3or 1085  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2528  df-eu 2557  df-clab 2703  df-cleq 2717  df-clel 2802  df-nfc 2877  df-ne 2931  df-nel 3037  df-ral 3052  df-rex 3061  df-rmo 3364  df-reu 3365  df-rab 3420  df-v 3465  df-sbc 3771  df-csb 3887  df-dif 3944  df-un 3946  df-in 3948  df-ss 3958  df-pss 3961  df-nul 4320  df-if 4526  df-pw 4601  df-sn 4626  df-pr 4628  df-op 4632  df-uni 4905  df-int 4946  df-iun 4994  df-iin 4995  df-br 5145  df-opab 5207  df-mpt 5228  df-tr 5262  df-id 5571  df-eprel 5577  df-po 5585  df-so 5586  df-fr 5628  df-se 5629  df-we 5630  df-xp 5679  df-rel 5680  df-cnv 5681  df-co 5682  df-dm 5683  df-rn 5684  df-res 5685  df-ima 5686  df-pred 6301  df-ord 6368  df-on 6369  df-lim 6370  df-suc 6371  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-isom 6552  df-riota 7369  df-ov 7416  df-oprab 7417  df-mpo 7418  df-om 7866  df-1st 7987  df-2nd 7988  df-frecs 8280  df-wrecs 8311  df-recs 8385  df-rdg 8424  df-1o 8480  df-oadd 8484  df-er 8718  df-map 8840  df-en 8958  df-dom 8959  df-sdom 8960  df-fin 8961  df-fi 9429  df-sup 9460  df-inf 9461  df-oi 9528  df-dju 9919  df-card 9957  df-pnf 11275  df-mnf 11276  df-xr 11277  df-ltxr 11278  df-le 11279  df-sub 11471  df-neg 11472  df-div 11897  df-nn 12238  df-2 12300  df-3 12301  df-n0 12498  df-xnn0 12570  df-z 12584  df-uz 12848  df-q 12958  df-rp 13002  df-xneg 13119  df-xadd 13120  df-xmul 13121  df-ioo 13355  df-ioc 13356  df-ico 13357  df-icc 13358  df-fz 13512  df-fzo 13655  df-fl 13784  df-seq 13994  df-exp 14054  df-hash 14317  df-cj 15073  df-re 15074  df-im 15075  df-sqrt 15209  df-abs 15210  df-rest 17398  df-topgen 17419  df-psmet 21270  df-xmet 21271  df-met 21272  df-bl 21273  df-mopn 21274  df-top 22809  df-topon 22826  df-bases 22862  df-cld 22936  df-ntr 22937  df-cls 22938  df-nei 23015  df-lp 23053  df-cmp 23304  df-cncf 24811
This theorem is referenced by:  fourierdlem97  45650  fourierdlem98  45651  fourierdlem100  45653  fourierdlem107  45660  fourierdlem109  45662
  Copyright terms: Public domain W3C validator