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 44527
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 44449 . . . . . 6 (πœ‘ β†’ (𝐴 ∈ ℝ ∧ 𝐡 ∈ ℝ ∧ 𝐴 < 𝐡))
54simp1d 1143 . . . . 5 (πœ‘ β†’ 𝐴 ∈ ℝ)
64simp2d 1144 . . . . 5 (πœ‘ β†’ 𝐡 ∈ ℝ)
75, 6iccssred 13360 . . . 4 (πœ‘ β†’ (𝐴[,]𝐡) βŠ† ℝ)
84simp3d 1145 . . . . . 6 (πœ‘ β†’ 𝐴 < 𝐡)
9 fourierdlem90.J . . . . . 6 𝐿 = (𝑦 ∈ (𝐴(,]𝐡) ↦ if(𝑦 = 𝐡, 𝐴, 𝑦))
105, 6, 8, 9fourierdlem17 44455 . . . . 5 (πœ‘ β†’ 𝐿:(𝐴(,]𝐡)⟢(𝐴[,]𝐡))
11 fourierdlem90.t . . . . . . 7 𝑇 = (𝐡 βˆ’ 𝐴)
12 fourierdlem90.e . . . . . . 7 𝐸 = (π‘₯ ∈ ℝ ↦ (π‘₯ + ((βŒŠβ€˜((𝐡 βˆ’ π‘₯) / 𝑇)) Β· 𝑇)))
135, 6, 8, 11, 12fourierdlem4 44442 . . . . . 6 (πœ‘ β†’ 𝐸:β„βŸΆ(𝐴(,]𝐡))
14 fourierdlem90.c . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐢 ∈ ℝ)
15 fourierdlem90.d . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝐷 ∈ (𝐢(,)+∞))
16 elioore 13303 . . . . . . . . . . . . . 14 (𝐷 ∈ (𝐢(,)+∞) β†’ 𝐷 ∈ ℝ)
1715, 16syl 17 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝐷 ∈ ℝ)
18 elioo4g 13333 . . . . . . . . . . . . . . . 16 (𝐷 ∈ (𝐢(,)+∞) ↔ ((𝐢 ∈ ℝ* ∧ +∞ ∈ ℝ* ∧ 𝐷 ∈ ℝ) ∧ (𝐢 < 𝐷 ∧ 𝐷 < +∞)))
1915, 18sylib 217 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ((𝐢 ∈ ℝ* ∧ +∞ ∈ ℝ* ∧ 𝐷 ∈ ℝ) ∧ (𝐢 < 𝐷 ∧ 𝐷 < +∞)))
2019simprd 497 . . . . . . . . . . . . . 14 (πœ‘ β†’ (𝐢 < 𝐷 ∧ 𝐷 < +∞))
2120simpld 496 . . . . . . . . . . . . 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 44491 . . . . . . . . . . . 12 (πœ‘ β†’ ((𝑁 ∈ β„• ∧ 𝑆 ∈ (π‘‚β€˜π‘)) ∧ 𝑆 Isom < , < ((0...𝑁), 𝐻)))
2726simpld 496 . . . . . . . . . . 11 (πœ‘ β†’ (𝑁 ∈ β„• ∧ 𝑆 ∈ (π‘‚β€˜π‘)))
2827simprd 497 . . . . . . . . . 10 (πœ‘ β†’ 𝑆 ∈ (π‘‚β€˜π‘))
2927simpld 496 . . . . . . . . . . 11 (πœ‘ β†’ 𝑁 ∈ β„•)
3022fourierdlem2 44440 . . . . . . . . . . 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 496 . . . . . . . 8 (πœ‘ β†’ 𝑆 ∈ (ℝ ↑m (0...𝑁)))
34 elmapi 8793 . . . . . . . 8 (𝑆 ∈ (ℝ ↑m (0...𝑁)) β†’ 𝑆:(0...𝑁)βŸΆβ„)
3533, 34syl 17 . . . . . . 7 (πœ‘ β†’ 𝑆:(0...𝑁)βŸΆβ„)
36 fourierdlem90.17 . . . . . . . 8 (πœ‘ β†’ 𝐽 ∈ (0..^𝑁))
37 elfzofz 13597 . . . . . . . 8 (𝐽 ∈ (0..^𝑁) β†’ 𝐽 ∈ (0...𝑁))
3836, 37syl 17 . . . . . . 7 (πœ‘ β†’ 𝐽 ∈ (0...𝑁))
3935, 38ffvelcdmd 7040 . . . . . 6 (πœ‘ β†’ (π‘†β€˜π½) ∈ ℝ)
4013, 39ffvelcdmd 7040 . . . . 5 (πœ‘ β†’ (πΈβ€˜(π‘†β€˜π½)) ∈ (𝐴(,]𝐡))
4110, 40ffvelcdmd 7040 . . . 4 (πœ‘ β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) ∈ (𝐴[,]𝐡))
427, 41sseldd 3949 . . 3 (πœ‘ β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) ∈ ℝ)
435rexrd 11213 . . . . 5 (πœ‘ β†’ 𝐴 ∈ ℝ*)
44 iocssre 13353 . . . . 5 ((𝐴 ∈ ℝ* ∧ 𝐡 ∈ ℝ) β†’ (𝐴(,]𝐡) βŠ† ℝ)
4543, 6, 44syl2anc 585 . . . 4 (πœ‘ β†’ (𝐴(,]𝐡) βŠ† ℝ)
46 fzofzp1 13678 . . . . . . 7 (𝐽 ∈ (0..^𝑁) β†’ (𝐽 + 1) ∈ (0...𝑁))
4736, 46syl 17 . . . . . 6 (πœ‘ β†’ (𝐽 + 1) ∈ (0...𝑁))
4835, 47ffvelcdmd 7040 . . . . 5 (πœ‘ β†’ (π‘†β€˜(𝐽 + 1)) ∈ ℝ)
4913, 48ffvelcdmd 7040 . . . 4 (πœ‘ β†’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))) ∈ (𝐴(,]𝐡))
5045, 49sseldd 3949 . . 3 (πœ‘ β†’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))) ∈ ℝ)
51 eqid 2733 . . 3 ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))) = ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))
52 fourierdlem90.u . . . 4 π‘ˆ = ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))
5348, 50resubcld 11591 . . . 4 (πœ‘ β†’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1)))) ∈ ℝ)
5452, 53eqeltrid 2838 . . 3 (πœ‘ β†’ π‘ˆ ∈ ℝ)
55 eqid 2733 . . 3 (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ)(,)((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ)) = (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ)(,)((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ))
56 fourierdlem90.g . . . 4 𝐺 = (𝐹 β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))))
57 eleq1 2822 . . . . . . . . . . . 12 (𝑗 = 𝐽 β†’ (𝑗 ∈ (0..^𝑁) ↔ 𝐽 ∈ (0..^𝑁)))
5857anbi2d 630 . . . . . . . . . . 11 (𝑗 = 𝐽 β†’ ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) ↔ (πœ‘ ∧ 𝐽 ∈ (0..^𝑁))))
59 fveq2 6846 . . . . . . . . . . . . . . 15 (𝑗 = 𝐽 β†’ (π‘†β€˜π‘—) = (π‘†β€˜π½))
6059fveq2d 6850 . . . . . . . . . . . . . 14 (𝑗 = 𝐽 β†’ (πΈβ€˜(π‘†β€˜π‘—)) = (πΈβ€˜(π‘†β€˜π½)))
6160fveq2d 6850 . . . . . . . . . . . . 13 (𝑗 = 𝐽 β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—))) = (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))))
62 oveq1 7368 . . . . . . . . . . . . . . 15 (𝑗 = 𝐽 β†’ (𝑗 + 1) = (𝐽 + 1))
6362fveq2d 6850 . . . . . . . . . . . . . 14 (𝑗 = 𝐽 β†’ (π‘†β€˜(𝑗 + 1)) = (π‘†β€˜(𝐽 + 1)))
6463fveq2d 6850 . . . . . . . . . . . . 13 (𝑗 = 𝐽 β†’ (πΈβ€˜(π‘†β€˜(𝑗 + 1))) = (πΈβ€˜(π‘†β€˜(𝐽 + 1))))
6561, 64oveq12d 7379 . . . . . . . . . . . 12 (𝑗 = 𝐽 β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))(,)(πΈβ€˜(π‘†β€˜(𝑗 + 1)))) = ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))))
6659fveq2d 6850 . . . . . . . . . . . . . 14 (𝑗 = 𝐽 β†’ (πΌβ€˜(π‘†β€˜π‘—)) = (πΌβ€˜(π‘†β€˜π½)))
6766fveq2d 6850 . . . . . . . . . . . . 13 (𝑗 = 𝐽 β†’ (π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—))) = (π‘„β€˜(πΌβ€˜(π‘†β€˜π½))))
6866oveq1d 7376 . . . . . . . . . . . . . 14 (𝑗 = 𝐽 β†’ ((πΌβ€˜(π‘†β€˜π‘—)) + 1) = ((πΌβ€˜(π‘†β€˜π½)) + 1))
6968fveq2d 6850 . . . . . . . . . . . . 13 (𝑗 = 𝐽 β†’ (π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)) = (π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))
7067, 69oveq12d 7379 . . . . . . . . . . . 12 (𝑗 = 𝐽 β†’ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))) = ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1))))
7165, 70sseq12d 3981 . . . . . . . . . . 11 (𝑗 = 𝐽 β†’ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))(,)(πΈβ€˜(π‘†β€˜(𝑗 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))) ↔ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))))
7258, 71imbi12d 345 . . . . . . . . . 10 (𝑗 = 𝐽 β†’ (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))(,)(πΈβ€˜(π‘†β€˜(𝑗 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1)))) ↔ ((πœ‘ ∧ 𝐽 ∈ (0..^𝑁)) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1))))))
7311oveq2i 7372 . . . . . . . . . . . . . . . . . . 19 (π‘˜ Β· 𝑇) = (π‘˜ Β· (𝐡 βˆ’ 𝐴))
7473oveq2i 7372 . . . . . . . . . . . . . . . . . 18 (𝑦 + (π‘˜ Β· 𝑇)) = (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴)))
7574eleq1i 2825 . . . . . . . . . . . . . . . . 17 ((𝑦 + (π‘˜ Β· 𝑇)) ∈ ran 𝑄 ↔ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄)
7675rexbii 3094 . . . . . . . . . . . . . . . 16 (βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· 𝑇)) ∈ ran 𝑄 ↔ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄)
7776a1i 11 . . . . . . . . . . . . . . 15 (𝑦 ∈ (𝐢[,]𝐷) β†’ (βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· 𝑇)) ∈ ran 𝑄 ↔ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄))
7877rabbiia 3410 . . . . . . . . . . . . . 14 {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· 𝑇)) ∈ ran 𝑄} = {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄}
7978uneq2i 4124 . . . . . . . . . . . . 13 ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· 𝑇)) ∈ ran 𝑄}) = ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄})
8023, 79eqtri 2761 . . . . . . . . . . . 12 𝐻 = ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄})
81 id 22 . . . . . . . . . . . . . . . . 17 (𝑦 = π‘₯ β†’ 𝑦 = π‘₯)
8211eqcomi 2742 . . . . . . . . . . . . . . . . . . 19 (𝐡 βˆ’ 𝐴) = 𝑇
8382oveq2i 7372 . . . . . . . . . . . . . . . . . 18 (π‘˜ Β· (𝐡 βˆ’ 𝐴)) = (π‘˜ Β· 𝑇)
8483a1i 11 . . . . . . . . . . . . . . . . 17 (𝑦 = π‘₯ β†’ (π‘˜ Β· (𝐡 βˆ’ 𝐴)) = (π‘˜ Β· 𝑇))
8581, 84oveq12d 7379 . . . . . . . . . . . . . . . 16 (𝑦 = π‘₯ β†’ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) = (π‘₯ + (π‘˜ Β· 𝑇)))
8685eleq1d 2819 . . . . . . . . . . . . . . 15 (𝑦 = π‘₯ β†’ ((𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄 ↔ (π‘₯ + (π‘˜ Β· 𝑇)) ∈ ran 𝑄))
8786rexbidv 3172 . . . . . . . . . . . . . 14 (𝑦 = π‘₯ β†’ (βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄 ↔ βˆƒπ‘˜ ∈ β„€ (π‘₯ + (π‘˜ Β· 𝑇)) ∈ ran 𝑄))
8887cbvrabv 3416 . . . . . . . . . . . . 13 {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄} = {π‘₯ ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (π‘₯ + (π‘˜ Β· 𝑇)) ∈ ran 𝑄}
8988uneq2i 4124 . . . . . . . . . . . 12 ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄}) = ({𝐢, 𝐷} βˆͺ {π‘₯ ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (π‘₯ + (π‘˜ Β· 𝑇)) ∈ ran 𝑄})
9080, 89eqtri 2761 . . . . . . . . . . 11 𝐻 = ({𝐢, 𝐷} βˆͺ {π‘₯ ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (π‘₯ + (π‘˜ Β· 𝑇)) ∈ ran 𝑄})
91 eqid 2733 . . . . . . . . . . 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 44516 . . . . . . . . . 10 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))(,)(πΈβ€˜(π‘†β€˜(𝑗 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π‘—)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π‘—)) + 1))))
9472, 93vtoclg 3527 . . . . . . . . 9 (𝐽 ∈ (0..^𝑁) β†’ ((πœ‘ ∧ 𝐽 ∈ (0..^𝑁)) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))))
9594anabsi7 670 . . . . . . . 8 ((πœ‘ ∧ 𝐽 ∈ (0..^𝑁)) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1))))
9636, 95mpdan 686 . . . . . . 7 (πœ‘ β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1))))
9796resabs1d 5972 . . . . . 6 (πœ‘ β†’ ((𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))) β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))) = (𝐹 β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))))
9897eqcomd 2739 . . . . 5 (πœ‘ β†’ (𝐹 β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))) = ((𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))) β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))))
991, 2, 3, 11, 12, 9, 92fourierdlem37 44475 . . . . . . . . 9 (πœ‘ β†’ (𝐼:β„βŸΆ(0..^𝑀) ∧ (π‘₯ ∈ ℝ β†’ sup({𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))}, ℝ, < ) ∈ {𝑖 ∈ (0..^𝑀) ∣ (π‘„β€˜π‘–) ≀ (πΏβ€˜(πΈβ€˜π‘₯))})))
10099simpld 496 . . . . . . . 8 (πœ‘ β†’ 𝐼:β„βŸΆ(0..^𝑀))
101100, 39ffvelcdmd 7040 . . . . . . 7 (πœ‘ β†’ (πΌβ€˜(π‘†β€˜π½)) ∈ (0..^𝑀))
102101ancli 550 . . . . . . 7 (πœ‘ β†’ (πœ‘ ∧ (πΌβ€˜(π‘†β€˜π½)) ∈ (0..^𝑀)))
103 eleq1 2822 . . . . . . . . . 10 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ (𝑖 ∈ (0..^𝑀) ↔ (πΌβ€˜(π‘†β€˜π½)) ∈ (0..^𝑀)))
104103anbi2d 630 . . . . . . . . 9 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) ↔ (πœ‘ ∧ (πΌβ€˜(π‘†β€˜π½)) ∈ (0..^𝑀))))
105 fveq2 6846 . . . . . . . . . . . 12 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ (π‘„β€˜π‘–) = (π‘„β€˜(πΌβ€˜(π‘†β€˜π½))))
106 oveq1 7368 . . . . . . . . . . . . 13 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ (𝑖 + 1) = ((πΌβ€˜(π‘†β€˜π½)) + 1))
107106fveq2d 6850 . . . . . . . . . . . 12 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ (π‘„β€˜(𝑖 + 1)) = (π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))
108105, 107oveq12d 7379 . . . . . . . . . . 11 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1))) = ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1))))
109108reseq2d 5941 . . . . . . . . . 10 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) = (𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))))
110108oveq1d 7376 . . . . . . . . . 10 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚) = (((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))–cnβ†’β„‚))
111109, 110eleq12d 2828 . . . . . . . . 9 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ ((𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚) ↔ (𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))) ∈ (((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))–cnβ†’β„‚)))
112104, 111imbi12d 345 . . . . . . . 8 (𝑖 = (πΌβ€˜(π‘†β€˜π½)) β†’ (((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚)) ↔ ((πœ‘ ∧ (πΌβ€˜(π‘†β€˜π½)) ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))) ∈ (((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))–cnβ†’β„‚))))
113 fourierdlem90.fcn . . . . . . . 8 ((πœ‘ ∧ 𝑖 ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))) ∈ (((π‘„β€˜π‘–)(,)(π‘„β€˜(𝑖 + 1)))–cnβ†’β„‚))
114112, 113vtoclg 3527 . . . . . . 7 ((πΌβ€˜(π‘†β€˜π½)) ∈ (0..^𝑀) β†’ ((πœ‘ ∧ (πΌβ€˜(π‘†β€˜π½)) ∈ (0..^𝑀)) β†’ (𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))) ∈ (((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))–cnβ†’β„‚)))
115101, 102, 114sylc 65 . . . . . 6 (πœ‘ β†’ (𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))) ∈ (((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))–cnβ†’β„‚))
116 rescncf 24283 . . . . . 6 (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))) βŠ† ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1))) β†’ ((𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))) ∈ (((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))–cnβ†’β„‚) β†’ ((𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))) β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))) ∈ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))–cnβ†’β„‚)))
11796, 115, 116sylc 65 . . . . 5 (πœ‘ β†’ ((𝐹 β†Ύ ((π‘„β€˜(πΌβ€˜(π‘†β€˜π½)))(,)(π‘„β€˜((πΌβ€˜(π‘†β€˜π½)) + 1)))) β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))) ∈ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))–cnβ†’β„‚))
11898, 117eqeltrd 2834 . . . 4 (πœ‘ β†’ (𝐹 β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))) ∈ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))–cnβ†’β„‚))
11956, 118eqeltrid 2838 . . 3 (πœ‘ β†’ 𝐺 ∈ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1))))–cnβ†’β„‚))
120 fourierdlem90.r . . 3 𝑅 = (𝑦 ∈ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ)(,)((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ)) ↦ (πΊβ€˜(𝑦 βˆ’ π‘ˆ)))
12142, 50, 51, 54, 55, 119, 120cncfshiftioo 44223 . 2 (πœ‘ β†’ 𝑅 ∈ ((((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ)(,)((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ))–cnβ†’β„‚))
122120a1i 11 . . 3 (πœ‘ β†’ 𝑅 = (𝑦 ∈ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ)(,)((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ)) ↦ (πΊβ€˜(𝑦 βˆ’ π‘ˆ))))
12352oveq2i 7372 . . . . . . 7 ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ) = ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1)))))
124123a1i 11 . . . . . 6 (πœ‘ β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ) = ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))))
12564, 61oveq12d 7379 . . . . . . . . . . . . . 14 (𝑗 = 𝐽 β†’ ((πΈβ€˜(π‘†β€˜(𝑗 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))) = ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))))
12663, 59oveq12d 7379 . . . . . . . . . . . . . 14 (𝑗 = 𝐽 β†’ ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) = ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½)))
127125, 126eqeq12d 2749 . . . . . . . . . . . . 13 (𝑗 = 𝐽 β†’ (((πΈβ€˜(π‘†β€˜(𝑗 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))) = ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)) ↔ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))) = ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))))
12858, 127imbi12d 345 . . . . . . . . . . . 12 (𝑗 = 𝐽 β†’ (((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((πΈβ€˜(π‘†β€˜(𝑗 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))) = ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—))) ↔ ((πœ‘ ∧ 𝐽 ∈ (0..^𝑁)) β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))) = ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½)))))
12980fveq2i 6849 . . . . . . . . . . . . . . 15 (β™―β€˜π») = (β™―β€˜({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄}))
130129oveq1i 7371 . . . . . . . . . . . . . 14 ((β™―β€˜π») βˆ’ 1) = ((β™―β€˜({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄})) βˆ’ 1)
13124, 130eqtri 2761 . . . . . . . . . . . . 13 𝑁 = ((β™―β€˜({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄})) βˆ’ 1)
132 isoeq5 7270 . . . . . . . . . . . . . . . 16 (𝐻 = ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄}) β†’ (𝑓 Isom < , < ((0...𝑁), 𝐻) ↔ 𝑓 Isom < , < ((0...𝑁), ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄}))))
13380, 132ax-mp 5 . . . . . . . . . . . . . . 15 (𝑓 Isom < , < ((0...𝑁), 𝐻) ↔ 𝑓 Isom < , < ((0...𝑁), ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄})))
134133iotabii 6485 . . . . . . . . . . . . . 14 (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝐻)) = (℩𝑓𝑓 Isom < , < ((0...𝑁), ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄})))
13525, 134eqtri 2761 . . . . . . . . . . . . 13 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), ({𝐢, 𝐷} βˆͺ {𝑦 ∈ (𝐢[,]𝐷) ∣ βˆƒπ‘˜ ∈ β„€ (𝑦 + (π‘˜ Β· (𝐡 βˆ’ 𝐴))) ∈ ran 𝑄})))
136 eqid 2733 . . . . . . . . . . . . 13 ((π‘†β€˜π‘—) + (𝐡 βˆ’ (πΈβ€˜(π‘†β€˜π‘—)))) = ((π‘†β€˜π‘—) + (𝐡 βˆ’ (πΈβ€˜(π‘†β€˜π‘—))))
1371, 11, 2, 3, 14, 15, 22, 131, 135, 12, 9, 136fourierdlem65 44502 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑗 ∈ (0..^𝑁)) β†’ ((πΈβ€˜(π‘†β€˜(𝑗 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π‘—)))) = ((π‘†β€˜(𝑗 + 1)) βˆ’ (π‘†β€˜π‘—)))
138128, 137vtoclg 3527 . . . . . . . . . . 11 (𝐽 ∈ (0..^𝑁) β†’ ((πœ‘ ∧ 𝐽 ∈ (0..^𝑁)) β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))) = ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))))
139138anabsi7 670 . . . . . . . . . 10 ((πœ‘ ∧ 𝐽 ∈ (0..^𝑁)) β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))) = ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½)))
14036, 139mpdan 686 . . . . . . . . 9 (πœ‘ β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))) = ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½)))
14150recnd 11191 . . . . . . . . . 10 (πœ‘ β†’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))) ∈ β„‚)
14248recnd 11191 . . . . . . . . . . 11 (πœ‘ β†’ (π‘†β€˜(𝐽 + 1)) ∈ β„‚)
14314, 17iccssred 13360 . . . . . . . . . . . . 13 (πœ‘ β†’ (𝐢[,]𝐷) βŠ† ℝ)
144 ax-resscn 11116 . . . . . . . . . . . . 13 ℝ βŠ† β„‚
145143, 144sstrdi 3960 . . . . . . . . . . . 12 (πœ‘ β†’ (𝐢[,]𝐷) βŠ† β„‚)
14622, 29, 28fourierdlem15 44453 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑆:(0...𝑁)⟢(𝐢[,]𝐷))
147146, 38ffvelcdmd 7040 . . . . . . . . . . . 12 (πœ‘ β†’ (π‘†β€˜π½) ∈ (𝐢[,]𝐷))
148145, 147sseldd 3949 . . . . . . . . . . 11 (πœ‘ β†’ (π‘†β€˜π½) ∈ β„‚)
149142, 148subcld 11520 . . . . . . . . . 10 (πœ‘ β†’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½)) ∈ β„‚)
15042recnd 11191 . . . . . . . . . 10 (πœ‘ β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) ∈ β„‚)
151141, 149, 150subsub23d 43612 . . . . . . . . 9 (πœ‘ β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) = (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) ↔ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))) = ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))))
152140, 151mpbird 257 . . . . . . . 8 (πœ‘ β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) = (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))))
153152eqcomd 2739 . . . . . . 7 (πœ‘ β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) = ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))))
154153oveq1d 7376 . . . . . 6 (πœ‘ β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))) = (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) + ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))))
155141, 149subcld 11520 . . . . . . . 8 (πœ‘ β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) ∈ β„‚)
156155, 142, 141addsub12d 11543 . . . . . . 7 (πœ‘ β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) + ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))) = ((π‘†β€˜(𝐽 + 1)) + (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))))
157141, 149, 141sub32d 11552 . . . . . . . . 9 (πœ‘ β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1)))) = (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1)))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))))
158141subidd 11508 . . . . . . . . . 10 (πœ‘ β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1)))) = 0)
159158oveq1d 7376 . . . . . . . . 9 (πœ‘ β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1)))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) = (0 βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))))
160 df-neg 11396 . . . . . . . . . 10 -((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½)) = (0 βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½)))
161142, 148negsubdi2d 11536 . . . . . . . . . 10 (πœ‘ β†’ -((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½)) = ((π‘†β€˜π½) βˆ’ (π‘†β€˜(𝐽 + 1))))
162160, 161eqtr3id 2787 . . . . . . . . 9 (πœ‘ β†’ (0 βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) = ((π‘†β€˜π½) βˆ’ (π‘†β€˜(𝐽 + 1))))
163157, 159, 1623eqtrd 2777 . . . . . . . 8 (πœ‘ β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1)))) = ((π‘†β€˜π½) βˆ’ (π‘†β€˜(𝐽 + 1))))
164163oveq2d 7377 . . . . . . 7 (πœ‘ β†’ ((π‘†β€˜(𝐽 + 1)) + (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))) = ((π‘†β€˜(𝐽 + 1)) + ((π‘†β€˜π½) βˆ’ (π‘†β€˜(𝐽 + 1)))))
165142, 148pncan3d 11523 . . . . . . 7 (πœ‘ β†’ ((π‘†β€˜(𝐽 + 1)) + ((π‘†β€˜π½) βˆ’ (π‘†β€˜(𝐽 + 1)))) = (π‘†β€˜π½))
166156, 164, 1653eqtrd 2777 . . . . . 6 (πœ‘ β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (π‘†β€˜π½))) + ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))) = (π‘†β€˜π½))
167124, 154, 1663eqtrd 2777 . . . . 5 (πœ‘ β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ) = (π‘†β€˜π½))
16852oveq2i 7372 . . . . . 6 ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ) = ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1)))))
169141, 142pncan3d 11523 . . . . . 6 (πœ‘ β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))) = (π‘†β€˜(𝐽 + 1)))
170168, 169eqtrid 2785 . . . . 5 (πœ‘ β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ) = (π‘†β€˜(𝐽 + 1)))
171167, 170oveq12d 7379 . . . 4 (πœ‘ β†’ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ)(,)((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ)) = ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1))))
172171mpteq1d 5204 . . 3 (πœ‘ β†’ (𝑦 ∈ (((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ)(,)((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ)) ↦ (πΊβ€˜(𝑦 βˆ’ π‘ˆ))) = (𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1))) ↦ (πΊβ€˜(𝑦 βˆ’ π‘ˆ))))
173 fourierdlem90.f . . . . . 6 (πœ‘ β†’ 𝐹:β„βŸΆβ„‚)
174173feqmptd 6914 . . . . 5 (πœ‘ β†’ 𝐹 = (𝑦 ∈ ℝ ↦ (πΉβ€˜π‘¦)))
175174reseq1d 5940 . . . 4 (πœ‘ β†’ (𝐹 β†Ύ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) = ((𝑦 ∈ ℝ ↦ (πΉβ€˜π‘¦)) β†Ύ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))))
176 ioossre 13334 . . . . . 6 ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1))) βŠ† ℝ
177176a1i 11 . . . . 5 (πœ‘ β†’ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1))) βŠ† ℝ)
178177resmptd 5998 . . . 4 (πœ‘ β†’ ((𝑦 ∈ ℝ ↦ (πΉβ€˜π‘¦)) β†Ύ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) = (𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1))) ↦ (πΉβ€˜π‘¦)))
17956fveq1i 6847 . . . . . . 7 (πΊβ€˜(𝑦 βˆ’ π‘ˆ)) = ((𝐹 β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))))β€˜(𝑦 βˆ’ π‘ˆ))
180179a1i 11 . . . . . 6 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΊβ€˜(𝑦 βˆ’ π‘ˆ)) = ((𝐹 β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))))β€˜(𝑦 βˆ’ π‘ˆ)))
18142adantr 482 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) ∈ ℝ)
182181rexrd 11213 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) ∈ ℝ*)
18350adantr 482 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))) ∈ ℝ)
184183rexrd 11213 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))) ∈ ℝ*)
185177sselda 3948 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ 𝑦 ∈ ℝ)
18654adantr 482 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ π‘ˆ ∈ ℝ)
187185, 186resubcld 11591 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (𝑦 βˆ’ π‘ˆ) ∈ ℝ)
18839rexrd 11213 . . . . . . . . . . . 12 (πœ‘ β†’ (π‘†β€˜π½) ∈ ℝ*)
189188adantr 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (π‘†β€˜π½) ∈ ℝ*)
19048rexrd 11213 . . . . . . . . . . . 12 (πœ‘ β†’ (π‘†β€˜(𝐽 + 1)) ∈ ℝ*)
191190adantr 482 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (π‘†β€˜(𝐽 + 1)) ∈ ℝ*)
192 simpr 486 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1))))
193 ioogtlb 43823 . . . . . . . . . . 11 (((π‘†β€˜π½) ∈ ℝ* ∧ (π‘†β€˜(𝐽 + 1)) ∈ ℝ* ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (π‘†β€˜π½) < 𝑦)
194189, 191, 192, 193syl3anc 1372 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (π‘†β€˜π½) < 𝑦)
195167adantr 482 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ) = (π‘†β€˜π½))
196185recnd 11191 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ 𝑦 ∈ β„‚)
197186recnd 11191 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ π‘ˆ ∈ β„‚)
198196, 197npcand 11524 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((𝑦 βˆ’ π‘ˆ) + π‘ˆ) = 𝑦)
199194, 195, 1983brtr4d 5141 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ) < ((𝑦 βˆ’ π‘ˆ) + π‘ˆ))
200181, 187, 186ltadd1d 11756 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) < (𝑦 βˆ’ π‘ˆ) ↔ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ) < ((𝑦 βˆ’ π‘ˆ) + π‘ˆ)))
201199, 200mpbird 257 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) < (𝑦 βˆ’ π‘ˆ))
202 iooltub 43838 . . . . . . . . . . 11 (((π‘†β€˜π½) ∈ ℝ* ∧ (π‘†β€˜(𝐽 + 1)) ∈ ℝ* ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ 𝑦 < (π‘†β€˜(𝐽 + 1)))
203189, 191, 192, 202syl3anc 1372 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ 𝑦 < (π‘†β€˜(𝐽 + 1)))
204170adantr 482 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ) = (π‘†β€˜(𝐽 + 1)))
205203, 198, 2043brtr4d 5141 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((𝑦 βˆ’ π‘ˆ) + π‘ˆ) < ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ))
206187, 183, 186ltadd1d 11756 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((𝑦 βˆ’ π‘ˆ) < (πΈβ€˜(π‘†β€˜(𝐽 + 1))) ↔ ((𝑦 βˆ’ π‘ˆ) + π‘ˆ) < ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ)))
207205, 206mpbird 257 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (𝑦 βˆ’ π‘ˆ) < (πΈβ€˜(π‘†β€˜(𝐽 + 1))))
208182, 184, 187, 201, 207eliood 43826 . . . . . . 7 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (𝑦 βˆ’ π‘ˆ) ∈ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))))
209 fvres 6865 . . . . . . 7 ((𝑦 βˆ’ π‘ˆ) ∈ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))) β†’ ((𝐹 β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))))β€˜(𝑦 βˆ’ π‘ˆ)) = (πΉβ€˜(𝑦 βˆ’ π‘ˆ)))
210208, 209syl 17 . . . . . 6 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((𝐹 β†Ύ ((πΏβ€˜(πΈβ€˜(π‘†β€˜π½)))(,)(πΈβ€˜(π‘†β€˜(𝐽 + 1)))))β€˜(𝑦 βˆ’ π‘ˆ)) = (πΉβ€˜(𝑦 βˆ’ π‘ˆ)))
21152oveq2i 7372 . . . . . . . . . 10 (𝑦 βˆ’ π‘ˆ) = (𝑦 βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1)))))
212211a1i 11 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (𝑦 βˆ’ π‘ˆ) = (𝑦 βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))))
213142adantr 482 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (π‘†β€˜(𝐽 + 1)) ∈ β„‚)
214141adantr 482 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))) ∈ β„‚)
215196, 213, 214subsub2d 11549 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (𝑦 βˆ’ ((π‘†β€˜(𝐽 + 1)) βˆ’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))))) = (𝑦 + ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1)))))
216214, 213subcld 11520 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) ∈ β„‚)
2176, 5resubcld 11591 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (𝐡 βˆ’ 𝐴) ∈ ℝ)
21811, 217eqeltrid 2838 . . . . . . . . . . . . . 14 (πœ‘ β†’ 𝑇 ∈ ℝ)
219218recnd 11191 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑇 ∈ β„‚)
220219adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ 𝑇 ∈ β„‚)
2215, 6posdifd 11750 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ (𝐴 < 𝐡 ↔ 0 < (𝐡 βˆ’ 𝐴)))
2228, 221mpbid 231 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 0 < (𝐡 βˆ’ 𝐴))
223222, 11breqtrrdi 5151 . . . . . . . . . . . . . 14 (πœ‘ β†’ 0 < 𝑇)
224223gt0ne0d 11727 . . . . . . . . . . . . 13 (πœ‘ β†’ 𝑇 β‰  0)
225224adantr 482 . . . . . . . . . . . 12 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ 𝑇 β‰  0)
226216, 220, 225divcan1d 11940 . . . . . . . . . . 11 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) Β· 𝑇) = ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))))
227226eqcomd 2739 . . . . . . . . . 10 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) = ((((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) Β· 𝑇))
228227oveq2d 7377 . . . . . . . . 9 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (𝑦 + ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1)))) = (𝑦 + ((((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) Β· 𝑇)))
229212, 215, 2283eqtrd 2777 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (𝑦 βˆ’ π‘ˆ) = (𝑦 + ((((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) Β· 𝑇)))
230229fveq2d 6850 . . . . . . 7 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΉβ€˜(𝑦 βˆ’ π‘ˆ)) = (πΉβ€˜(𝑦 + ((((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) Β· 𝑇))))
231173adantr 482 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ 𝐹:β„βŸΆβ„‚)
232218adantr 482 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ 𝑇 ∈ ℝ)
23312a1i 11 . . . . . . . . . . . . . . 15 (πœ‘ β†’ 𝐸 = (π‘₯ ∈ ℝ ↦ (π‘₯ + ((βŒŠβ€˜((𝐡 βˆ’ π‘₯) / 𝑇)) Β· 𝑇))))
234 id 22 . . . . . . . . . . . . . . . . 17 (π‘₯ = (π‘†β€˜(𝐽 + 1)) β†’ π‘₯ = (π‘†β€˜(𝐽 + 1)))
235 oveq2 7369 . . . . . . . . . . . . . . . . . . . 20 (π‘₯ = (π‘†β€˜(𝐽 + 1)) β†’ (𝐡 βˆ’ π‘₯) = (𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))))
236235oveq1d 7376 . . . . . . . . . . . . . . . . . . 19 (π‘₯ = (π‘†β€˜(𝐽 + 1)) β†’ ((𝐡 βˆ’ π‘₯) / 𝑇) = ((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇))
237236fveq2d 6850 . . . . . . . . . . . . . . . . . 18 (π‘₯ = (π‘†β€˜(𝐽 + 1)) β†’ (βŒŠβ€˜((𝐡 βˆ’ π‘₯) / 𝑇)) = (βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)))
238237oveq1d 7376 . . . . . . . . . . . . . . . . 17 (π‘₯ = (π‘†β€˜(𝐽 + 1)) β†’ ((βŒŠβ€˜((𝐡 βˆ’ π‘₯) / 𝑇)) Β· 𝑇) = ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇))
239234, 238oveq12d 7379 . . . . . . . . . . . . . . . 16 (π‘₯ = (π‘†β€˜(𝐽 + 1)) β†’ (π‘₯ + ((βŒŠβ€˜((𝐡 βˆ’ π‘₯) / 𝑇)) Β· 𝑇)) = ((π‘†β€˜(𝐽 + 1)) + ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇)))
240239adantl 483 . . . . . . . . . . . . . . 15 ((πœ‘ ∧ π‘₯ = (π‘†β€˜(𝐽 + 1))) β†’ (π‘₯ + ((βŒŠβ€˜((𝐡 βˆ’ π‘₯) / 𝑇)) Β· 𝑇)) = ((π‘†β€˜(𝐽 + 1)) + ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇)))
2416, 48resubcld 11591 . . . . . . . . . . . . . . . . . . . 20 (πœ‘ β†’ (𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) ∈ ℝ)
242241, 218, 224redivcld 11991 . . . . . . . . . . . . . . . . . . 19 (πœ‘ β†’ ((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) ∈ ℝ)
243242flcld 13712 . . . . . . . . . . . . . . . . . 18 (πœ‘ β†’ (βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) ∈ β„€)
244243zred 12615 . . . . . . . . . . . . . . . . 17 (πœ‘ β†’ (βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) ∈ ℝ)
245244, 218remulcld 11193 . . . . . . . . . . . . . . . 16 (πœ‘ β†’ ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇) ∈ ℝ)
24648, 245readdcld 11192 . . . . . . . . . . . . . . 15 (πœ‘ β†’ ((π‘†β€˜(𝐽 + 1)) + ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇)) ∈ ℝ)
247233, 240, 48, 246fvmptd 6959 . . . . . . . . . . . . . 14 (πœ‘ β†’ (πΈβ€˜(π‘†β€˜(𝐽 + 1))) = ((π‘†β€˜(𝐽 + 1)) + ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇)))
248247oveq1d 7376 . . . . . . . . . . . . 13 (πœ‘ β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) = (((π‘†β€˜(𝐽 + 1)) + ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇)) βˆ’ (π‘†β€˜(𝐽 + 1))))
249244recnd 11191 . . . . . . . . . . . . . . 15 (πœ‘ β†’ (βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) ∈ β„‚)
250249, 219mulcld 11183 . . . . . . . . . . . . . 14 (πœ‘ β†’ ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇) ∈ β„‚)
251142, 250pncan2d 11522 . . . . . . . . . . . . 13 (πœ‘ β†’ (((π‘†β€˜(𝐽 + 1)) + ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇)) βˆ’ (π‘†β€˜(𝐽 + 1))) = ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇))
252248, 251eqtrd 2773 . . . . . . . . . . . 12 (πœ‘ β†’ ((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) = ((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇))
253252oveq1d 7376 . . . . . . . . . . 11 (πœ‘ β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) = (((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇) / 𝑇))
254249, 219, 224divcan4d 11945 . . . . . . . . . . 11 (πœ‘ β†’ (((βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)) Β· 𝑇) / 𝑇) = (βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)))
255253, 254eqtrd 2773 . . . . . . . . . 10 (πœ‘ β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) = (βŒŠβ€˜((𝐡 βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇)))
256255, 243eqeltrd 2834 . . . . . . . . 9 (πœ‘ β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) ∈ β„€)
257256adantr 482 . . . . . . . 8 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) ∈ β„€)
258 fourierdlem90.6 . . . . . . . . 9 ((πœ‘ ∧ π‘₯ ∈ ℝ) β†’ (πΉβ€˜(π‘₯ + 𝑇)) = (πΉβ€˜π‘₯))
259258adantlr 714 . . . . . . . 8 (((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) ∧ π‘₯ ∈ ℝ) β†’ (πΉβ€˜(π‘₯ + 𝑇)) = (πΉβ€˜π‘₯))
260231, 232, 257, 185, 259fperiodmul 43629 . . . . . . 7 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΉβ€˜(𝑦 + ((((πΈβ€˜(π‘†β€˜(𝐽 + 1))) βˆ’ (π‘†β€˜(𝐽 + 1))) / 𝑇) Β· 𝑇))) = (πΉβ€˜π‘¦))
261230, 260eqtrd 2773 . . . . . 6 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΉβ€˜(𝑦 βˆ’ π‘ˆ)) = (πΉβ€˜π‘¦))
262180, 210, 2613eqtrrd 2778 . . . . 5 ((πœ‘ ∧ 𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) β†’ (πΉβ€˜π‘¦) = (πΊβ€˜(𝑦 βˆ’ π‘ˆ)))
263262mpteq2dva 5209 . . . 4 (πœ‘ β†’ (𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1))) ↦ (πΉβ€˜π‘¦)) = (𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1))) ↦ (πΊβ€˜(𝑦 βˆ’ π‘ˆ))))
264175, 178, 2633eqtrrd 2778 . . 3 (πœ‘ β†’ (𝑦 ∈ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1))) ↦ (πΊβ€˜(𝑦 βˆ’ π‘ˆ))) = (𝐹 β†Ύ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))))
265122, 172, 2643eqtrd 2777 . 2 (πœ‘ β†’ 𝑅 = (𝐹 β†Ύ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))))
266171oveq1d 7376 . 2 (πœ‘ β†’ ((((πΏβ€˜(πΈβ€˜(π‘†β€˜π½))) + π‘ˆ)(,)((πΈβ€˜(π‘†β€˜(𝐽 + 1))) + π‘ˆ))–cnβ†’β„‚) = (((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))–cnβ†’β„‚))
267121, 265, 2663eltr3d 2848 1 (πœ‘ β†’ (𝐹 β†Ύ ((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))) ∈ (((π‘†β€˜π½)(,)(π‘†β€˜(𝐽 + 1)))–cnβ†’β„‚))
Colors of variables: wff setvar class
Syntax hints:   β†’ wi 4   ↔ wb 205   ∧ wa 397   ∧ w3a 1088   = wceq 1542   ∈ wcel 2107   β‰  wne 2940  βˆ€wral 3061  βˆƒwrex 3070  {crab 3406   βˆͺ cun 3912   βŠ† wss 3914  ifcif 4490  {cpr 4592   class class class wbr 5109   ↦ cmpt 5192  ran crn 5638   β†Ύ cres 5639  β„©cio 6450  βŸΆwf 6496  β€˜cfv 6500   Isom wiso 6501  (class class class)co 7361   ↑m cmap 8771  supcsup 9384  β„‚cc 11057  β„cr 11058  0cc0 11059  1c1 11060   + caddc 11062   Β· cmul 11064  +∞cpnf 11194  β„*cxr 11196   < clt 11197   ≀ cle 11198   βˆ’ cmin 11393  -cneg 11394   / cdiv 11820  β„•cn 12161  2c2 12216  β„€cz 12507  (,)cioo 13273  (,]cioc 13274  [,]cicc 13276  ...cfz 13433  ..^cfzo 13576  βŒŠcfl 13704  β™―chash 14239  β€“cnβ†’ccncf 24262
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1798  ax-4 1812  ax-5 1914  ax-6 1972  ax-7 2012  ax-8 2109  ax-9 2117  ax-10 2138  ax-11 2155  ax-12 2172  ax-ext 2704  ax-rep 5246  ax-sep 5260  ax-nul 5267  ax-pow 5324  ax-pr 5388  ax-un 7676  ax-inf2 9585  ax-cnex 11115  ax-resscn 11116  ax-1cn 11117  ax-icn 11118  ax-addcl 11119  ax-addrcl 11120  ax-mulcl 11121  ax-mulrcl 11122  ax-mulcom 11123  ax-addass 11124  ax-mulass 11125  ax-distr 11126  ax-i2m1 11127  ax-1ne0 11128  ax-1rid 11129  ax-rnegex 11130  ax-rrecex 11131  ax-cnre 11132  ax-pre-lttri 11133  ax-pre-lttrn 11134  ax-pre-ltadd 11135  ax-pre-mulgt0 11136  ax-pre-sup 11137
This theorem depends on definitions:  df-bi 206  df-an 398  df-or 847  df-3or 1089  df-3an 1090  df-tru 1545  df-fal 1555  df-ex 1783  df-nf 1787  df-sb 2069  df-mo 2535  df-eu 2564  df-clab 2711  df-cleq 2725  df-clel 2811  df-nfc 2886  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3352  df-reu 3353  df-rab 3407  df-v 3449  df-sbc 3744  df-csb 3860  df-dif 3917  df-un 3919  df-in 3921  df-ss 3931  df-pss 3933  df-nul 4287  df-if 4491  df-pw 4566  df-sn 4591  df-pr 4593  df-op 4597  df-uni 4870  df-int 4912  df-iun 4960  df-iin 4961  df-br 5110  df-opab 5172  df-mpt 5193  df-tr 5227  df-id 5535  df-eprel 5541  df-po 5549  df-so 5550  df-fr 5592  df-se 5593  df-we 5594  df-xp 5643  df-rel 5644  df-cnv 5645  df-co 5646  df-dm 5647  df-rn 5648  df-res 5649  df-ima 5650  df-pred 6257  df-ord 6324  df-on 6325  df-lim 6326  df-suc 6327  df-iota 6452  df-fun 6502  df-fn 6503  df-f 6504  df-f1 6505  df-fo 6506  df-f1o 6507  df-fv 6508  df-isom 6509  df-riota 7317  df-ov 7364  df-oprab 7365  df-mpo 7366  df-om 7807  df-1st 7925  df-2nd 7926  df-frecs 8216  df-wrecs 8247  df-recs 8321  df-rdg 8360  df-1o 8416  df-oadd 8420  df-er 8654  df-map 8773  df-en 8890  df-dom 8891  df-sdom 8892  df-fin 8893  df-fi 9355  df-sup 9386  df-inf 9387  df-oi 9454  df-dju 9845  df-card 9883  df-pnf 11199  df-mnf 11200  df-xr 11201  df-ltxr 11202  df-le 11203  df-sub 11395  df-neg 11396  df-div 11821  df-nn 12162  df-2 12224  df-3 12225  df-n0 12422  df-xnn0 12494  df-z 12508  df-uz 12772  df-q 12882  df-rp 12924  df-xneg 13041  df-xadd 13042  df-xmul 13043  df-ioo 13277  df-ioc 13278  df-ico 13279  df-icc 13280  df-fz 13434  df-fzo 13577  df-fl 13706  df-seq 13916  df-exp 13977  df-hash 14240  df-cj 14993  df-re 14994  df-im 14995  df-sqrt 15129  df-abs 15130  df-rest 17312  df-topgen 17333  df-psmet 20811  df-xmet 20812  df-met 20813  df-bl 20814  df-mopn 20815  df-top 22266  df-topon 22283  df-bases 22319  df-cld 22393  df-ntr 22394  df-cls 22395  df-nei 22472  df-lp 22510  df-cmp 22761  df-cncf 24264
This theorem is referenced by:  fourierdlem97  44534  fourierdlem98  44535  fourierdlem100  44537  fourierdlem107  44544  fourierdlem109  44546
  Copyright terms: Public domain W3C validator