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

Theorem fourierdlem91 46555
Description: Given a piecewise continuous function and changing the interval and the partition, the limit at the upper bound of each interval of the moved partition is still finite. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem91.p 𝑃 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑m (0...𝑚)) ∣ (((𝑝‘0) = 𝐴 ∧ (𝑝𝑚) = 𝐵) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))})
fourierdlem91.t 𝑇 = (𝐵𝐴)
fourierdlem91.m (𝜑𝑀 ∈ ℕ)
fourierdlem91.q (𝜑𝑄 ∈ (𝑃𝑀))
fourierdlem91.f (𝜑𝐹:ℝ⟶ℂ)
fourierdlem91.6 ((𝜑𝑥 ∈ ℝ) → (𝐹‘(𝑥 + 𝑇)) = (𝐹𝑥))
fourierdlem91.fcn ((𝜑𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∈ (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))–cn→ℂ))
fourierdlem91.l ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
fourierdlem91.c (𝜑𝐶 ∈ ℝ)
fourierdlem91.d (𝜑𝐷 ∈ (𝐶(,)+∞))
fourierdlem91.o 𝑂 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑m (0...𝑚)) ∣ (((𝑝‘0) = 𝐶 ∧ (𝑝𝑚) = 𝐷) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))})
fourierdlem91.h 𝐻 = ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄})
fourierdlem91.n 𝑁 = ((♯‘𝐻) − 1)
fourierdlem91.s 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝐻))
fourierdlem91.e 𝐸 = (𝑥 ∈ ℝ ↦ (𝑥 + ((⌊‘((𝐵𝑥) / 𝑇)) · 𝑇)))
fourierdlem91.J 𝑍 = (𝑦 ∈ (𝐴(,]𝐵) ↦ if(𝑦 = 𝐵, 𝐴, 𝑦))
fourierdlem91.17 (𝜑𝐽 ∈ (0..^𝑁))
fourierdlem91.u 𝑈 = ((𝑆‘(𝐽 + 1)) − (𝐸‘(𝑆‘(𝐽 + 1))))
fourierdlem91.i 𝐼 = (𝑥 ∈ ℝ ↦ sup({𝑖 ∈ (0..^𝑀) ∣ (𝑄𝑖) ≤ (𝑍‘(𝐸𝑥))}, ℝ, < ))
fourierdlem91.w 𝑊 = (𝑖 ∈ (0..^𝑀) ↦ 𝐿)
Assertion
Ref Expression
fourierdlem91 (𝜑 → if((𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1)), (𝑊‘(𝐼‘(𝑆𝐽))), (𝐹‘(𝐸‘(𝑆‘(𝐽 + 1))))) ∈ ((𝐹 ↾ ((𝑆𝐽)(,)(𝑆‘(𝐽 + 1)))) lim (𝑆‘(𝐽 + 1))))
Distinct variable groups:   𝐴,𝑓,𝑘,𝑦   𝐴,𝑖,𝑥,𝑘,𝑦   𝐴,𝑚,𝑝,𝑖   𝐵,𝑓,𝑘,𝑦   𝐵,𝑖,𝑥   𝐵,𝑚,𝑝   𝐶,𝑓,𝑦   𝐶,𝑖,𝑚,𝑝   𝑥,𝐶   𝐷,𝑓,𝑦   𝐷,𝑖,𝑚,𝑝   𝑥,𝐷   𝑓,𝐸,𝑘,𝑦   𝑖,𝐸,𝑥   𝑖,𝐹,𝑥,𝑦   𝑓,𝐻   𝑥,𝐻   𝑓,𝐼,𝑘,𝑦   𝑖,𝐼,𝑥   𝑖,𝐽,𝑥,𝑦   𝑖,𝑀,𝑥   𝑚,𝑀,𝑝   𝑓,𝑁,𝑘,𝑦   𝑖,𝑁,𝑥   𝑚,𝑁,𝑝   𝑄,𝑓,𝑘,𝑦   𝑄,𝑖,𝑥   𝑄,𝑝   𝑆,𝑓,𝑘,𝑦   𝑆,𝑖,𝑥   𝑆,𝑝   𝑇,𝑓,𝑘,𝑦   𝑇,𝑖,𝑥   𝑥,𝑈,𝑦   𝑥,𝑊,𝑦   𝑖,𝑍,𝑥,𝑦   𝜑,𝑓,𝑘,𝑦   𝜑,𝑖,𝑥
Allowed substitution hints:   𝜑(𝑚,𝑝)   𝐶(𝑘)   𝐷(𝑘)   𝑃(𝑥,𝑦,𝑓,𝑖,𝑘,𝑚,𝑝)   𝑄(𝑚)   𝑆(𝑚)   𝑇(𝑚,𝑝)   𝑈(𝑓,𝑖,𝑘,𝑚,𝑝)   𝐸(𝑚,𝑝)   𝐹(𝑓,𝑘,𝑚,𝑝)   𝐻(𝑦,𝑖,𝑘,𝑚,𝑝)   𝐼(𝑚,𝑝)   𝐽(𝑓,𝑘,𝑚,𝑝)   𝐿(𝑥,𝑦,𝑓,𝑖,𝑘,𝑚,𝑝)   𝑀(𝑦,𝑓,𝑘)   𝑂(𝑥,𝑦,𝑓,𝑖,𝑘,𝑚,𝑝)   𝑊(𝑓,𝑖,𝑘,𝑚,𝑝)   𝑍(𝑓,𝑘,𝑚,𝑝)

Proof of Theorem fourierdlem91
Dummy variable 𝑗 is distinct from all other variables.
StepHypRef Expression
1 fourierdlem91.q . . . . . . . . . . . 12 (𝜑𝑄 ∈ (𝑃𝑀))
2 fourierdlem91.m . . . . . . . . . . . . 13 (𝜑𝑀 ∈ ℕ)
3 fourierdlem91.p . . . . . . . . . . . . . 14 𝑃 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑m (0...𝑚)) ∣ (((𝑝‘0) = 𝐴 ∧ (𝑝𝑚) = 𝐵) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))})
43fourierdlem2 46467 . . . . . . . . . . . . 13 (𝑀 ∈ ℕ → (𝑄 ∈ (𝑃𝑀) ↔ (𝑄 ∈ (ℝ ↑m (0...𝑀)) ∧ (((𝑄‘0) = 𝐴 ∧ (𝑄𝑀) = 𝐵) ∧ ∀𝑖 ∈ (0..^𝑀)(𝑄𝑖) < (𝑄‘(𝑖 + 1))))))
52, 4syl 17 . . . . . . . . . . . 12 (𝜑 → (𝑄 ∈ (𝑃𝑀) ↔ (𝑄 ∈ (ℝ ↑m (0...𝑀)) ∧ (((𝑄‘0) = 𝐴 ∧ (𝑄𝑀) = 𝐵) ∧ ∀𝑖 ∈ (0..^𝑀)(𝑄𝑖) < (𝑄‘(𝑖 + 1))))))
61, 5mpbid 232 . . . . . . . . . . 11 (𝜑 → (𝑄 ∈ (ℝ ↑m (0...𝑀)) ∧ (((𝑄‘0) = 𝐴 ∧ (𝑄𝑀) = 𝐵) ∧ ∀𝑖 ∈ (0..^𝑀)(𝑄𝑖) < (𝑄‘(𝑖 + 1)))))
76simpld 494 . . . . . . . . . 10 (𝜑𝑄 ∈ (ℝ ↑m (0...𝑀)))
8 elmapi 8798 . . . . . . . . . 10 (𝑄 ∈ (ℝ ↑m (0...𝑀)) → 𝑄:(0...𝑀)⟶ℝ)
97, 8syl 17 . . . . . . . . 9 (𝜑𝑄:(0...𝑀)⟶ℝ)
10 fzossfz 13606 . . . . . . . . . 10 (0..^𝑀) ⊆ (0...𝑀)
11 fourierdlem91.t . . . . . . . . . . . . 13 𝑇 = (𝐵𝐴)
12 fourierdlem91.e . . . . . . . . . . . . 13 𝐸 = (𝑥 ∈ ℝ ↦ (𝑥 + ((⌊‘((𝐵𝑥) / 𝑇)) · 𝑇)))
13 fourierdlem91.J . . . . . . . . . . . . 13 𝑍 = (𝑦 ∈ (𝐴(,]𝐵) ↦ if(𝑦 = 𝐵, 𝐴, 𝑦))
14 fourierdlem91.i . . . . . . . . . . . . 13 𝐼 = (𝑥 ∈ ℝ ↦ sup({𝑖 ∈ (0..^𝑀) ∣ (𝑄𝑖) ≤ (𝑍‘(𝐸𝑥))}, ℝ, < ))
153, 2, 1, 11, 12, 13, 14fourierdlem37 46502 . . . . . . . . . . . 12 (𝜑 → (𝐼:ℝ⟶(0..^𝑀) ∧ (𝑥 ∈ ℝ → sup({𝑖 ∈ (0..^𝑀) ∣ (𝑄𝑖) ≤ (𝑍‘(𝐸𝑥))}, ℝ, < ) ∈ {𝑖 ∈ (0..^𝑀) ∣ (𝑄𝑖) ≤ (𝑍‘(𝐸𝑥))})))
1615simpld 494 . . . . . . . . . . 11 (𝜑𝐼:ℝ⟶(0..^𝑀))
17 fourierdlem91.c . . . . . . . . . . . . . . . . . 18 (𝜑𝐶 ∈ ℝ)
18 fourierdlem91.d . . . . . . . . . . . . . . . . . . 19 (𝜑𝐷 ∈ (𝐶(,)+∞))
19 elioore 13303 . . . . . . . . . . . . . . . . . . 19 (𝐷 ∈ (𝐶(,)+∞) → 𝐷 ∈ ℝ)
2018, 19syl 17 . . . . . . . . . . . . . . . . . 18 (𝜑𝐷 ∈ ℝ)
21 elioo4g 13334 . . . . . . . . . . . . . . . . . . . . 21 (𝐷 ∈ (𝐶(,)+∞) ↔ ((𝐶 ∈ ℝ* ∧ +∞ ∈ ℝ*𝐷 ∈ ℝ) ∧ (𝐶 < 𝐷𝐷 < +∞)))
2218, 21sylib 218 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((𝐶 ∈ ℝ* ∧ +∞ ∈ ℝ*𝐷 ∈ ℝ) ∧ (𝐶 < 𝐷𝐷 < +∞)))
2322simprd 495 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (𝐶 < 𝐷𝐷 < +∞))
2423simpld 494 . . . . . . . . . . . . . . . . . 18 (𝜑𝐶 < 𝐷)
25 fourierdlem91.o . . . . . . . . . . . . . . . . . 18 𝑂 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑m (0...𝑚)) ∣ (((𝑝‘0) = 𝐶 ∧ (𝑝𝑚) = 𝐷) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))})
26 oveq1 7375 . . . . . . . . . . . . . . . . . . . . . 22 (𝑦 = 𝑥 → (𝑦 + (𝑘 · 𝑇)) = (𝑥 + (𝑘 · 𝑇)))
2726eleq1d 2822 . . . . . . . . . . . . . . . . . . . . 21 (𝑦 = 𝑥 → ((𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄 ↔ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄))
2827rexbidv 3162 . . . . . . . . . . . . . . . . . . . 20 (𝑦 = 𝑥 → (∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄 ↔ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄))
2928cbvrabv 3411 . . . . . . . . . . . . . . . . . . 19 {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄} = {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄}
3029uneq2i 4119 . . . . . . . . . . . . . . . . . 18 ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄}) = ({𝐶, 𝐷} ∪ {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄})
31 fourierdlem91.n . . . . . . . . . . . . . . . . . . 19 𝑁 = ((♯‘𝐻) − 1)
32 fourierdlem91.h . . . . . . . . . . . . . . . . . . . . 21 𝐻 = ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄})
3332fveq2i 6845 . . . . . . . . . . . . . . . . . . . 20 (♯‘𝐻) = (♯‘({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄}))
3433oveq1i 7378 . . . . . . . . . . . . . . . . . . 19 ((♯‘𝐻) − 1) = ((♯‘({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄})) − 1)
3531, 34eqtri 2760 . . . . . . . . . . . . . . . . . 18 𝑁 = ((♯‘({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄})) − 1)
36 fourierdlem91.s . . . . . . . . . . . . . . . . . . 19 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝐻))
37 isoeq5 7277 . . . . . . . . . . . . . . . . . . . . 21 (𝐻 = ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄}) → (𝑓 Isom < , < ((0...𝑁), 𝐻) ↔ 𝑓 Isom < , < ((0...𝑁), ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄}))))
3832, 37ax-mp 5 . . . . . . . . . . . . . . . . . . . 20 (𝑓 Isom < , < ((0...𝑁), 𝐻) ↔ 𝑓 Isom < , < ((0...𝑁), ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄})))
3938iotabii 6485 . . . . . . . . . . . . . . . . . . 19 (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝐻)) = (℩𝑓𝑓 Isom < , < ((0...𝑁), ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄})))
4036, 39eqtri 2760 . . . . . . . . . . . . . . . . . 18 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄})))
4111, 3, 2, 1, 17, 20, 24, 25, 30, 35, 40fourierdlem54 46518 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑁 ∈ ℕ ∧ 𝑆 ∈ (𝑂𝑁)) ∧ 𝑆 Isom < , < ((0...𝑁), ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄}))))
4241simpld 494 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑁 ∈ ℕ ∧ 𝑆 ∈ (𝑂𝑁)))
4342simprd 495 . . . . . . . . . . . . . . 15 (𝜑𝑆 ∈ (𝑂𝑁))
4442simpld 494 . . . . . . . . . . . . . . . 16 (𝜑𝑁 ∈ ℕ)
4525fourierdlem2 46467 . . . . . . . . . . . . . . . 16 (𝑁 ∈ ℕ → (𝑆 ∈ (𝑂𝑁) ↔ (𝑆 ∈ (ℝ ↑m (0...𝑁)) ∧ (((𝑆‘0) = 𝐶 ∧ (𝑆𝑁) = 𝐷) ∧ ∀𝑖 ∈ (0..^𝑁)(𝑆𝑖) < (𝑆‘(𝑖 + 1))))))
4644, 45syl 17 . . . . . . . . . . . . . . 15 (𝜑 → (𝑆 ∈ (𝑂𝑁) ↔ (𝑆 ∈ (ℝ ↑m (0...𝑁)) ∧ (((𝑆‘0) = 𝐶 ∧ (𝑆𝑁) = 𝐷) ∧ ∀𝑖 ∈ (0..^𝑁)(𝑆𝑖) < (𝑆‘(𝑖 + 1))))))
4743, 46mpbid 232 . . . . . . . . . . . . . 14 (𝜑 → (𝑆 ∈ (ℝ ↑m (0...𝑁)) ∧ (((𝑆‘0) = 𝐶 ∧ (𝑆𝑁) = 𝐷) ∧ ∀𝑖 ∈ (0..^𝑁)(𝑆𝑖) < (𝑆‘(𝑖 + 1)))))
4847simpld 494 . . . . . . . . . . . . 13 (𝜑𝑆 ∈ (ℝ ↑m (0...𝑁)))
49 elmapi 8798 . . . . . . . . . . . . 13 (𝑆 ∈ (ℝ ↑m (0...𝑁)) → 𝑆:(0...𝑁)⟶ℝ)
5048, 49syl 17 . . . . . . . . . . . 12 (𝜑𝑆:(0...𝑁)⟶ℝ)
51 fourierdlem91.17 . . . . . . . . . . . . 13 (𝜑𝐽 ∈ (0..^𝑁))
52 elfzofz 13603 . . . . . . . . . . . . 13 (𝐽 ∈ (0..^𝑁) → 𝐽 ∈ (0...𝑁))
5351, 52syl 17 . . . . . . . . . . . 12 (𝜑𝐽 ∈ (0...𝑁))
5450, 53ffvelcdmd 7039 . . . . . . . . . . 11 (𝜑 → (𝑆𝐽) ∈ ℝ)
5516, 54ffvelcdmd 7039 . . . . . . . . . 10 (𝜑 → (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀))
5610, 55sselid 3933 . . . . . . . . 9 (𝜑 → (𝐼‘(𝑆𝐽)) ∈ (0...𝑀))
579, 56ffvelcdmd 7039 . . . . . . . 8 (𝜑 → (𝑄‘(𝐼‘(𝑆𝐽))) ∈ ℝ)
5857rexrd 11194 . . . . . . 7 (𝜑 → (𝑄‘(𝐼‘(𝑆𝐽))) ∈ ℝ*)
5958adantr 480 . . . . . 6 ((𝜑 ∧ ¬ (𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1))) → (𝑄‘(𝐼‘(𝑆𝐽))) ∈ ℝ*)
60 fzofzp1 13692 . . . . . . . . . 10 ((𝐼‘(𝑆𝐽)) ∈ (0..^𝑀) → ((𝐼‘(𝑆𝐽)) + 1) ∈ (0...𝑀))
6155, 60syl 17 . . . . . . . . 9 (𝜑 → ((𝐼‘(𝑆𝐽)) + 1) ∈ (0...𝑀))
629, 61ffvelcdmd 7039 . . . . . . . 8 (𝜑 → (𝑄‘((𝐼‘(𝑆𝐽)) + 1)) ∈ ℝ)
6362rexrd 11194 . . . . . . 7 (𝜑 → (𝑄‘((𝐼‘(𝑆𝐽)) + 1)) ∈ ℝ*)
6463adantr 480 . . . . . 6 ((𝜑 ∧ ¬ (𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1))) → (𝑄‘((𝐼‘(𝑆𝐽)) + 1)) ∈ ℝ*)
653, 2, 1fourierdlem11 46476 . . . . . . . . . . 11 (𝜑 → (𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵))
6665simp1d 1143 . . . . . . . . . 10 (𝜑𝐴 ∈ ℝ)
6766rexrd 11194 . . . . . . . . 9 (𝜑𝐴 ∈ ℝ*)
6865simp2d 1144 . . . . . . . . 9 (𝜑𝐵 ∈ ℝ)
69 iocssre 13355 . . . . . . . . 9 ((𝐴 ∈ ℝ*𝐵 ∈ ℝ) → (𝐴(,]𝐵) ⊆ ℝ)
7067, 68, 69syl2anc 585 . . . . . . . 8 (𝜑 → (𝐴(,]𝐵) ⊆ ℝ)
7165simp3d 1145 . . . . . . . . . 10 (𝜑𝐴 < 𝐵)
7266, 68, 71, 11, 12fourierdlem4 46469 . . . . . . . . 9 (𝜑𝐸:ℝ⟶(𝐴(,]𝐵))
73 fzofzp1 13692 . . . . . . . . . . 11 (𝐽 ∈ (0..^𝑁) → (𝐽 + 1) ∈ (0...𝑁))
7451, 73syl 17 . . . . . . . . . 10 (𝜑 → (𝐽 + 1) ∈ (0...𝑁))
7550, 74ffvelcdmd 7039 . . . . . . . . 9 (𝜑 → (𝑆‘(𝐽 + 1)) ∈ ℝ)
7672, 75ffvelcdmd 7039 . . . . . . . 8 (𝜑 → (𝐸‘(𝑆‘(𝐽 + 1))) ∈ (𝐴(,]𝐵))
7770, 76sseldd 3936 . . . . . . 7 (𝜑 → (𝐸‘(𝑆‘(𝐽 + 1))) ∈ ℝ)
7877adantr 480 . . . . . 6 ((𝜑 ∧ ¬ (𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1))) → (𝐸‘(𝑆‘(𝐽 + 1))) ∈ ℝ)
7966, 68iccssred 13362 . . . . . . . . 9 (𝜑 → (𝐴[,]𝐵) ⊆ ℝ)
8066, 68, 71, 13fourierdlem17 46482 . . . . . . . . . 10 (𝜑𝑍:(𝐴(,]𝐵)⟶(𝐴[,]𝐵))
8172, 54ffvelcdmd 7039 . . . . . . . . . 10 (𝜑 → (𝐸‘(𝑆𝐽)) ∈ (𝐴(,]𝐵))
8280, 81ffvelcdmd 7039 . . . . . . . . 9 (𝜑 → (𝑍‘(𝐸‘(𝑆𝐽))) ∈ (𝐴[,]𝐵))
8379, 82sseldd 3936 . . . . . . . 8 (𝜑 → (𝑍‘(𝐸‘(𝑆𝐽))) ∈ ℝ)
8447simprrd 774 . . . . . . . . . . . . . 14 (𝜑 → ∀𝑖 ∈ (0..^𝑁)(𝑆𝑖) < (𝑆‘(𝑖 + 1)))
85 fveq2 6842 . . . . . . . . . . . . . . . 16 (𝑖 = 𝐽 → (𝑆𝑖) = (𝑆𝐽))
86 oveq1 7375 . . . . . . . . . . . . . . . . 17 (𝑖 = 𝐽 → (𝑖 + 1) = (𝐽 + 1))
8786fveq2d 6846 . . . . . . . . . . . . . . . 16 (𝑖 = 𝐽 → (𝑆‘(𝑖 + 1)) = (𝑆‘(𝐽 + 1)))
8885, 87breq12d 5113 . . . . . . . . . . . . . . 15 (𝑖 = 𝐽 → ((𝑆𝑖) < (𝑆‘(𝑖 + 1)) ↔ (𝑆𝐽) < (𝑆‘(𝐽 + 1))))
8988rspccva 3577 . . . . . . . . . . . . . 14 ((∀𝑖 ∈ (0..^𝑁)(𝑆𝑖) < (𝑆‘(𝑖 + 1)) ∧ 𝐽 ∈ (0..^𝑁)) → (𝑆𝐽) < (𝑆‘(𝐽 + 1)))
9084, 51, 89syl2anc 585 . . . . . . . . . . . . 13 (𝜑 → (𝑆𝐽) < (𝑆‘(𝐽 + 1)))
9154, 75posdifd 11736 . . . . . . . . . . . . 13 (𝜑 → ((𝑆𝐽) < (𝑆‘(𝐽 + 1)) ↔ 0 < ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))))
9290, 91mpbid 232 . . . . . . . . . . . 12 (𝜑 → 0 < ((𝑆‘(𝐽 + 1)) − (𝑆𝐽)))
93 eleq1 2825 . . . . . . . . . . . . . . . . 17 (𝑗 = 𝐽 → (𝑗 ∈ (0..^𝑁) ↔ 𝐽 ∈ (0..^𝑁)))
9493anbi2d 631 . . . . . . . . . . . . . . . 16 (𝑗 = 𝐽 → ((𝜑𝑗 ∈ (0..^𝑁)) ↔ (𝜑𝐽 ∈ (0..^𝑁))))
95 oveq1 7375 . . . . . . . . . . . . . . . . . . . 20 (𝑗 = 𝐽 → (𝑗 + 1) = (𝐽 + 1))
9695fveq2d 6846 . . . . . . . . . . . . . . . . . . 19 (𝑗 = 𝐽 → (𝑆‘(𝑗 + 1)) = (𝑆‘(𝐽 + 1)))
9796fveq2d 6846 . . . . . . . . . . . . . . . . . 18 (𝑗 = 𝐽 → (𝐸‘(𝑆‘(𝑗 + 1))) = (𝐸‘(𝑆‘(𝐽 + 1))))
98 fveq2 6842 . . . . . . . . . . . . . . . . . . . 20 (𝑗 = 𝐽 → (𝑆𝑗) = (𝑆𝐽))
9998fveq2d 6846 . . . . . . . . . . . . . . . . . . 19 (𝑗 = 𝐽 → (𝐸‘(𝑆𝑗)) = (𝐸‘(𝑆𝐽)))
10099fveq2d 6846 . . . . . . . . . . . . . . . . . 18 (𝑗 = 𝐽 → (𝑍‘(𝐸‘(𝑆𝑗))) = (𝑍‘(𝐸‘(𝑆𝐽))))
10197, 100oveq12d 7386 . . . . . . . . . . . . . . . . 17 (𝑗 = 𝐽 → ((𝐸‘(𝑆‘(𝑗 + 1))) − (𝑍‘(𝐸‘(𝑆𝑗)))) = ((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑍‘(𝐸‘(𝑆𝐽)))))
10296, 98oveq12d 7386 . . . . . . . . . . . . . . . . 17 (𝑗 = 𝐽 → ((𝑆‘(𝑗 + 1)) − (𝑆𝑗)) = ((𝑆‘(𝐽 + 1)) − (𝑆𝐽)))
103101, 102eqeq12d 2753 . . . . . . . . . . . . . . . 16 (𝑗 = 𝐽 → (((𝐸‘(𝑆‘(𝑗 + 1))) − (𝑍‘(𝐸‘(𝑆𝑗)))) = ((𝑆‘(𝑗 + 1)) − (𝑆𝑗)) ↔ ((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑍‘(𝐸‘(𝑆𝐽)))) = ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))))
10494, 103imbi12d 344 . . . . . . . . . . . . . . 15 (𝑗 = 𝐽 → (((𝜑𝑗 ∈ (0..^𝑁)) → ((𝐸‘(𝑆‘(𝑗 + 1))) − (𝑍‘(𝐸‘(𝑆𝑗)))) = ((𝑆‘(𝑗 + 1)) − (𝑆𝑗))) ↔ ((𝜑𝐽 ∈ (0..^𝑁)) → ((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑍‘(𝐸‘(𝑆𝐽)))) = ((𝑆‘(𝐽 + 1)) − (𝑆𝐽)))))
10511oveq2i 7379 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑘 · 𝑇) = (𝑘 · (𝐵𝐴))
106105oveq2i 7379 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑦 + (𝑘 · 𝑇)) = (𝑦 + (𝑘 · (𝐵𝐴)))
107106eleq1i 2828 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄 ↔ (𝑦 + (𝑘 · (𝐵𝐴))) ∈ ran 𝑄)
108107rexbii 3085 . . . . . . . . . . . . . . . . . . . . . 22 (∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄 ↔ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · (𝐵𝐴))) ∈ ran 𝑄)
109108rgenw 3056 . . . . . . . . . . . . . . . . . . . . 21 𝑦 ∈ (𝐶[,]𝐷)(∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄 ↔ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · (𝐵𝐴))) ∈ ran 𝑄)
110 rabbi 3431 . . . . . . . . . . . . . . . . . . . . 21 (∀𝑦 ∈ (𝐶[,]𝐷)(∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄 ↔ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · (𝐵𝐴))) ∈ ran 𝑄) ↔ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄} = {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · (𝐵𝐴))) ∈ ran 𝑄})
111109, 110mpbi 230 . . . . . . . . . . . . . . . . . . . 20 {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄} = {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · (𝐵𝐴))) ∈ ran 𝑄}
112111uneq2i 4119 . . . . . . . . . . . . . . . . . . 19 ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄}) = ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · (𝐵𝐴))) ∈ ran 𝑄})
113112fveq2i 6845 . . . . . . . . . . . . . . . . . 18 (♯‘({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄})) = (♯‘({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · (𝐵𝐴))) ∈ ran 𝑄}))
114113oveq1i 7378 . . . . . . . . . . . . . . . . 17 ((♯‘({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄})) − 1) = ((♯‘({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · (𝐵𝐴))) ∈ ran 𝑄})) − 1)
11535, 114eqtri 2760 . . . . . . . . . . . . . . . 16 𝑁 = ((♯‘({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · (𝐵𝐴))) ∈ ran 𝑄})) − 1)
116 isoeq5 7277 . . . . . . . . . . . . . . . . . . 19 (({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄}) = ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · (𝐵𝐴))) ∈ ran 𝑄}) → (𝑓 Isom < , < ((0...𝑁), ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄})) ↔ 𝑓 Isom < , < ((0...𝑁), ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · (𝐵𝐴))) ∈ ran 𝑄}))))
117112, 116ax-mp 5 . . . . . . . . . . . . . . . . . 18 (𝑓 Isom < , < ((0...𝑁), ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄})) ↔ 𝑓 Isom < , < ((0...𝑁), ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · (𝐵𝐴))) ∈ ran 𝑄})))
118117iotabii 6485 . . . . . . . . . . . . . . . . 17 (℩𝑓𝑓 Isom < , < ((0...𝑁), ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄}))) = (℩𝑓𝑓 Isom < , < ((0...𝑁), ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · (𝐵𝐴))) ∈ ran 𝑄})))
11940, 118eqtri 2760 . . . . . . . . . . . . . . . 16 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), ({𝐶, 𝐷} ∪ {𝑦 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · (𝐵𝐴))) ∈ ran 𝑄})))
120 eqid 2737 . . . . . . . . . . . . . . . 16 ((𝑆𝑗) + (𝐵 − (𝐸‘(𝑆𝑗)))) = ((𝑆𝑗) + (𝐵 − (𝐸‘(𝑆𝑗))))
1213, 11, 2, 1, 17, 18, 25, 115, 119, 12, 13, 120fourierdlem65 46529 . . . . . . . . . . . . . . 15 ((𝜑𝑗 ∈ (0..^𝑁)) → ((𝐸‘(𝑆‘(𝑗 + 1))) − (𝑍‘(𝐸‘(𝑆𝑗)))) = ((𝑆‘(𝑗 + 1)) − (𝑆𝑗)))
122104, 121vtoclg 3513 . . . . . . . . . . . . . 14 (𝐽 ∈ (0..^𝑁) → ((𝜑𝐽 ∈ (0..^𝑁)) → ((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑍‘(𝐸‘(𝑆𝐽)))) = ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))))
123122anabsi7 672 . . . . . . . . . . . . 13 ((𝜑𝐽 ∈ (0..^𝑁)) → ((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑍‘(𝐸‘(𝑆𝐽)))) = ((𝑆‘(𝐽 + 1)) − (𝑆𝐽)))
12451, 123mpdan 688 . . . . . . . . . . . 12 (𝜑 → ((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑍‘(𝐸‘(𝑆𝐽)))) = ((𝑆‘(𝐽 + 1)) − (𝑆𝐽)))
12592, 124breqtrrd 5128 . . . . . . . . . . 11 (𝜑 → 0 < ((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑍‘(𝐸‘(𝑆𝐽)))))
12683, 77posdifd 11736 . . . . . . . . . . 11 (𝜑 → ((𝑍‘(𝐸‘(𝑆𝐽))) < (𝐸‘(𝑆‘(𝐽 + 1))) ↔ 0 < ((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑍‘(𝐸‘(𝑆𝐽))))))
127125, 126mpbird 257 . . . . . . . . . 10 (𝜑 → (𝑍‘(𝐸‘(𝑆𝐽))) < (𝐸‘(𝑆‘(𝐽 + 1))))
128100, 97oveq12d 7386 . . . . . . . . . . . . . . 15 (𝑗 = 𝐽 → ((𝑍‘(𝐸‘(𝑆𝑗)))(,)(𝐸‘(𝑆‘(𝑗 + 1)))) = ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1)))))
12998fveq2d 6846 . . . . . . . . . . . . . . . . 17 (𝑗 = 𝐽 → (𝐼‘(𝑆𝑗)) = (𝐼‘(𝑆𝐽)))
130129fveq2d 6846 . . . . . . . . . . . . . . . 16 (𝑗 = 𝐽 → (𝑄‘(𝐼‘(𝑆𝑗))) = (𝑄‘(𝐼‘(𝑆𝐽))))
131129oveq1d 7383 . . . . . . . . . . . . . . . . 17 (𝑗 = 𝐽 → ((𝐼‘(𝑆𝑗)) + 1) = ((𝐼‘(𝑆𝐽)) + 1))
132131fveq2d 6846 . . . . . . . . . . . . . . . 16 (𝑗 = 𝐽 → (𝑄‘((𝐼‘(𝑆𝑗)) + 1)) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1)))
133130, 132oveq12d 7386 . . . . . . . . . . . . . . 15 (𝑗 = 𝐽 → ((𝑄‘(𝐼‘(𝑆𝑗)))(,)(𝑄‘((𝐼‘(𝑆𝑗)) + 1))) = ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))))
134128, 133sseq12d 3969 . . . . . . . . . . . . . 14 (𝑗 = 𝐽 → (((𝑍‘(𝐸‘(𝑆𝑗)))(,)(𝐸‘(𝑆‘(𝑗 + 1)))) ⊆ ((𝑄‘(𝐼‘(𝑆𝑗)))(,)(𝑄‘((𝐼‘(𝑆𝑗)) + 1))) ↔ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1)))) ⊆ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))))
13594, 134imbi12d 344 . . . . . . . . . . . . 13 (𝑗 = 𝐽 → (((𝜑𝑗 ∈ (0..^𝑁)) → ((𝑍‘(𝐸‘(𝑆𝑗)))(,)(𝐸‘(𝑆‘(𝑗 + 1)))) ⊆ ((𝑄‘(𝐼‘(𝑆𝑗)))(,)(𝑄‘((𝐼‘(𝑆𝑗)) + 1)))) ↔ ((𝜑𝐽 ∈ (0..^𝑁)) → ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1)))) ⊆ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))))))
13632, 30eqtri 2760 . . . . . . . . . . . . . 14 𝐻 = ({𝐶, 𝐷} ∪ {𝑥 ∈ (𝐶[,]𝐷) ∣ ∃𝑘 ∈ ℤ (𝑥 + (𝑘 · 𝑇)) ∈ ran 𝑄})
137 eqid 2737 . . . . . . . . . . . . . 14 ((𝑆𝑗) + if(((𝑆‘(𝑗 + 1)) − (𝑆𝑗)) < ((𝑄‘1) − 𝐴), (((𝑆‘(𝑗 + 1)) − (𝑆𝑗)) / 2), (((𝑄‘1) − 𝐴) / 2))) = ((𝑆𝑗) + if(((𝑆‘(𝑗 + 1)) − (𝑆𝑗)) < ((𝑄‘1) − 𝐴), (((𝑆‘(𝑗 + 1)) − (𝑆𝑗)) / 2), (((𝑄‘1) − 𝐴) / 2)))
13811, 3, 2, 1, 17, 20, 24, 25, 136, 31, 36, 12, 13, 137, 14fourierdlem79 46543 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (0..^𝑁)) → ((𝑍‘(𝐸‘(𝑆𝑗)))(,)(𝐸‘(𝑆‘(𝑗 + 1)))) ⊆ ((𝑄‘(𝐼‘(𝑆𝑗)))(,)(𝑄‘((𝐼‘(𝑆𝑗)) + 1))))
139135, 138vtoclg 3513 . . . . . . . . . . . 12 (𝐽 ∈ (0..^𝑁) → ((𝜑𝐽 ∈ (0..^𝑁)) → ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1)))) ⊆ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))))
140139anabsi7 672 . . . . . . . . . . 11 ((𝜑𝐽 ∈ (0..^𝑁)) → ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1)))) ⊆ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))))
14151, 140mpdan 688 . . . . . . . . . 10 (𝜑 → ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1)))) ⊆ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))))
14257, 62, 83, 77, 127, 141fourierdlem10 46475 . . . . . . . . 9 (𝜑 → ((𝑄‘(𝐼‘(𝑆𝐽))) ≤ (𝑍‘(𝐸‘(𝑆𝐽))) ∧ (𝐸‘(𝑆‘(𝐽 + 1))) ≤ (𝑄‘((𝐼‘(𝑆𝐽)) + 1))))
143142simpld 494 . . . . . . . 8 (𝜑 → (𝑄‘(𝐼‘(𝑆𝐽))) ≤ (𝑍‘(𝐸‘(𝑆𝐽))))
14457, 83, 77, 143, 127lelttrd 11303 . . . . . . 7 (𝜑 → (𝑄‘(𝐼‘(𝑆𝐽))) < (𝐸‘(𝑆‘(𝐽 + 1))))
145144adantr 480 . . . . . 6 ((𝜑 ∧ ¬ (𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1))) → (𝑄‘(𝐼‘(𝑆𝐽))) < (𝐸‘(𝑆‘(𝐽 + 1))))
14662adantr 480 . . . . . . 7 ((𝜑 ∧ ¬ (𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1))) → (𝑄‘((𝐼‘(𝑆𝐽)) + 1)) ∈ ℝ)
147142simprd 495 . . . . . . . 8 (𝜑 → (𝐸‘(𝑆‘(𝐽 + 1))) ≤ (𝑄‘((𝐼‘(𝑆𝐽)) + 1)))
148147adantr 480 . . . . . . 7 ((𝜑 ∧ ¬ (𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1))) → (𝐸‘(𝑆‘(𝐽 + 1))) ≤ (𝑄‘((𝐼‘(𝑆𝐽)) + 1)))
149 neqne 2941 . . . . . . . . 9 (¬ (𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1)) → (𝐸‘(𝑆‘(𝐽 + 1))) ≠ (𝑄‘((𝐼‘(𝑆𝐽)) + 1)))
150149necomd 2988 . . . . . . . 8 (¬ (𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1)) → (𝑄‘((𝐼‘(𝑆𝐽)) + 1)) ≠ (𝐸‘(𝑆‘(𝐽 + 1))))
151150adantl 481 . . . . . . 7 ((𝜑 ∧ ¬ (𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1))) → (𝑄‘((𝐼‘(𝑆𝐽)) + 1)) ≠ (𝐸‘(𝑆‘(𝐽 + 1))))
15278, 146, 148, 151leneltd 11299 . . . . . 6 ((𝜑 ∧ ¬ (𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1))) → (𝐸‘(𝑆‘(𝐽 + 1))) < (𝑄‘((𝐼‘(𝑆𝐽)) + 1)))
15359, 64, 78, 145, 152eliood 45858 . . . . 5 ((𝜑 ∧ ¬ (𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1))) → (𝐸‘(𝑆‘(𝐽 + 1))) ∈ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))))
154 fvres 6861 . . . . 5 ((𝐸‘(𝑆‘(𝐽 + 1))) ∈ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))) → ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))))‘(𝐸‘(𝑆‘(𝐽 + 1)))) = (𝐹‘(𝐸‘(𝑆‘(𝐽 + 1)))))
155153, 154syl 17 . . . 4 ((𝜑 ∧ ¬ (𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1))) → ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))))‘(𝐸‘(𝑆‘(𝐽 + 1)))) = (𝐹‘(𝐸‘(𝑆‘(𝐽 + 1)))))
156155eqcomd 2743 . . 3 ((𝜑 ∧ ¬ (𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1))) → (𝐹‘(𝐸‘(𝑆‘(𝐽 + 1)))) = ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))))‘(𝐸‘(𝑆‘(𝐽 + 1)))))
157156ifeq2da 4514 . 2 (𝜑 → if((𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1)), (𝑊‘(𝐼‘(𝑆𝐽))), (𝐹‘(𝐸‘(𝑆‘(𝐽 + 1))))) = if((𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1)), (𝑊‘(𝐼‘(𝑆𝐽))), ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))))‘(𝐸‘(𝑆‘(𝐽 + 1))))))
158 fourierdlem91.f . . . . . 6 (𝜑𝐹:ℝ⟶ℂ)
159 fdm 6679 . . . . . . . 8 (𝐹:ℝ⟶ℂ → dom 𝐹 = ℝ)
160158, 159syl 17 . . . . . . 7 (𝜑 → dom 𝐹 = ℝ)
161160feq2d 6654 . . . . . 6 (𝜑 → (𝐹:dom 𝐹⟶ℂ ↔ 𝐹:ℝ⟶ℂ))
162158, 161mpbird 257 . . . . 5 (𝜑𝐹:dom 𝐹⟶ℂ)
163 ioosscn 13336 . . . . . 6 ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1)))) ⊆ ℂ
164163a1i 11 . . . . 5 (𝜑 → ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1)))) ⊆ ℂ)
165 ioossre 13335 . . . . . 6 ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1)))) ⊆ ℝ
166165, 160sseqtrrid 3979 . . . . 5 (𝜑 → ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1)))) ⊆ dom 𝐹)
167 fourierdlem91.u . . . . . . 7 𝑈 = ((𝑆‘(𝐽 + 1)) − (𝐸‘(𝑆‘(𝐽 + 1))))
16875, 77resubcld 11577 . . . . . . 7 (𝜑 → ((𝑆‘(𝐽 + 1)) − (𝐸‘(𝑆‘(𝐽 + 1)))) ∈ ℝ)
169167, 168eqeltrid 2841 . . . . . 6 (𝜑𝑈 ∈ ℝ)
170169recnd 11172 . . . . 5 (𝜑𝑈 ∈ ℂ)
171 eqid 2737 . . . . 5 {𝑥 ∈ ℂ ∣ ∃𝑦 ∈ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1))))𝑥 = (𝑦 + 𝑈)} = {𝑥 ∈ ℂ ∣ ∃𝑦 ∈ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1))))𝑥 = (𝑦 + 𝑈)}
17283, 77, 169iooshift 45882 . . . . . 6 (𝜑 → (((𝑍‘(𝐸‘(𝑆𝐽))) + 𝑈)(,)((𝐸‘(𝑆‘(𝐽 + 1))) + 𝑈)) = {𝑥 ∈ ℂ ∣ ∃𝑦 ∈ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1))))𝑥 = (𝑦 + 𝑈)})
173 ioossre 13335 . . . . . . 7 (((𝑍‘(𝐸‘(𝑆𝐽))) + 𝑈)(,)((𝐸‘(𝑆‘(𝐽 + 1))) + 𝑈)) ⊆ ℝ
174173, 160sseqtrrid 3979 . . . . . 6 (𝜑 → (((𝑍‘(𝐸‘(𝑆𝐽))) + 𝑈)(,)((𝐸‘(𝑆‘(𝐽 + 1))) + 𝑈)) ⊆ dom 𝐹)
175172, 174eqsstrrd 3971 . . . . 5 (𝜑 → {𝑥 ∈ ℂ ∣ ∃𝑦 ∈ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1))))𝑥 = (𝑦 + 𝑈)} ⊆ dom 𝐹)
176 elioore 13303 . . . . . 6 (𝑦 ∈ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1)))) → 𝑦 ∈ ℝ)
17768, 66resubcld 11577 . . . . . . . . . . . . . 14 (𝜑 → (𝐵𝐴) ∈ ℝ)
17811, 177eqeltrid 2841 . . . . . . . . . . . . 13 (𝜑𝑇 ∈ ℝ)
179178recnd 11172 . . . . . . . . . . . 12 (𝜑𝑇 ∈ ℂ)
18066, 68posdifd 11736 . . . . . . . . . . . . . . 15 (𝜑 → (𝐴 < 𝐵 ↔ 0 < (𝐵𝐴)))
18171, 180mpbid 232 . . . . . . . . . . . . . 14 (𝜑 → 0 < (𝐵𝐴))
182181, 11breqtrrdi 5142 . . . . . . . . . . . . 13 (𝜑 → 0 < 𝑇)
183182gt0ne0d 11713 . . . . . . . . . . . 12 (𝜑𝑇 ≠ 0)
184170, 179, 183divcan1d 11930 . . . . . . . . . . 11 (𝜑 → ((𝑈 / 𝑇) · 𝑇) = 𝑈)
185184eqcomd 2743 . . . . . . . . . 10 (𝜑𝑈 = ((𝑈 / 𝑇) · 𝑇))
186185oveq2d 7384 . . . . . . . . 9 (𝜑 → (𝑦 + 𝑈) = (𝑦 + ((𝑈 / 𝑇) · 𝑇)))
187186adantr 480 . . . . . . . 8 ((𝜑𝑦 ∈ ℝ) → (𝑦 + 𝑈) = (𝑦 + ((𝑈 / 𝑇) · 𝑇)))
188187fveq2d 6846 . . . . . . 7 ((𝜑𝑦 ∈ ℝ) → (𝐹‘(𝑦 + 𝑈)) = (𝐹‘(𝑦 + ((𝑈 / 𝑇) · 𝑇))))
189158adantr 480 . . . . . . . 8 ((𝜑𝑦 ∈ ℝ) → 𝐹:ℝ⟶ℂ)
190178adantr 480 . . . . . . . 8 ((𝜑𝑦 ∈ ℝ) → 𝑇 ∈ ℝ)
19177recnd 11172 . . . . . . . . . . . . . 14 (𝜑 → (𝐸‘(𝑆‘(𝐽 + 1))) ∈ ℂ)
19275recnd 11172 . . . . . . . . . . . . . 14 (𝜑 → (𝑆‘(𝐽 + 1)) ∈ ℂ)
193191, 192negsubdi2d 11520 . . . . . . . . . . . . 13 (𝜑 → -((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑆‘(𝐽 + 1))) = ((𝑆‘(𝐽 + 1)) − (𝐸‘(𝑆‘(𝐽 + 1)))))
194193eqcomd 2743 . . . . . . . . . . . 12 (𝜑 → ((𝑆‘(𝐽 + 1)) − (𝐸‘(𝑆‘(𝐽 + 1)))) = -((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑆‘(𝐽 + 1))))
195194oveq1d 7383 . . . . . . . . . . 11 (𝜑 → (((𝑆‘(𝐽 + 1)) − (𝐸‘(𝑆‘(𝐽 + 1)))) / 𝑇) = (-((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑆‘(𝐽 + 1))) / 𝑇))
196167oveq1i 7378 . . . . . . . . . . . 12 (𝑈 / 𝑇) = (((𝑆‘(𝐽 + 1)) − (𝐸‘(𝑆‘(𝐽 + 1)))) / 𝑇)
197196a1i 11 . . . . . . . . . . 11 (𝜑 → (𝑈 / 𝑇) = (((𝑆‘(𝐽 + 1)) − (𝐸‘(𝑆‘(𝐽 + 1)))) / 𝑇))
19812a1i 11 . . . . . . . . . . . . . . . 16 (𝜑𝐸 = (𝑥 ∈ ℝ ↦ (𝑥 + ((⌊‘((𝐵𝑥) / 𝑇)) · 𝑇))))
199 id 22 . . . . . . . . . . . . . . . . . 18 (𝑥 = (𝑆‘(𝐽 + 1)) → 𝑥 = (𝑆‘(𝐽 + 1)))
200 oveq2 7376 . . . . . . . . . . . . . . . . . . . . 21 (𝑥 = (𝑆‘(𝐽 + 1)) → (𝐵𝑥) = (𝐵 − (𝑆‘(𝐽 + 1))))
201200oveq1d 7383 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = (𝑆‘(𝐽 + 1)) → ((𝐵𝑥) / 𝑇) = ((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇))
202201fveq2d 6846 . . . . . . . . . . . . . . . . . . 19 (𝑥 = (𝑆‘(𝐽 + 1)) → (⌊‘((𝐵𝑥) / 𝑇)) = (⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)))
203202oveq1d 7383 . . . . . . . . . . . . . . . . . 18 (𝑥 = (𝑆‘(𝐽 + 1)) → ((⌊‘((𝐵𝑥) / 𝑇)) · 𝑇) = ((⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)) · 𝑇))
204199, 203oveq12d 7386 . . . . . . . . . . . . . . . . 17 (𝑥 = (𝑆‘(𝐽 + 1)) → (𝑥 + ((⌊‘((𝐵𝑥) / 𝑇)) · 𝑇)) = ((𝑆‘(𝐽 + 1)) + ((⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)) · 𝑇)))
205204adantl 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 = (𝑆‘(𝐽 + 1))) → (𝑥 + ((⌊‘((𝐵𝑥) / 𝑇)) · 𝑇)) = ((𝑆‘(𝐽 + 1)) + ((⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)) · 𝑇)))
20668, 75resubcld 11577 . . . . . . . . . . . . . . . . . . . . 21 (𝜑 → (𝐵 − (𝑆‘(𝐽 + 1))) ∈ ℝ)
207206, 178, 183redivcld 11981 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → ((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇) ∈ ℝ)
208207flcld 13730 . . . . . . . . . . . . . . . . . . 19 (𝜑 → (⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)) ∈ ℤ)
209208zred 12608 . . . . . . . . . . . . . . . . . 18 (𝜑 → (⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)) ∈ ℝ)
210209, 178remulcld 11174 . . . . . . . . . . . . . . . . 17 (𝜑 → ((⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)) · 𝑇) ∈ ℝ)
21175, 210readdcld 11173 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝑆‘(𝐽 + 1)) + ((⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)) · 𝑇)) ∈ ℝ)
212198, 205, 75, 211fvmptd 6957 . . . . . . . . . . . . . . 15 (𝜑 → (𝐸‘(𝑆‘(𝐽 + 1))) = ((𝑆‘(𝐽 + 1)) + ((⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)) · 𝑇)))
213212oveq1d 7383 . . . . . . . . . . . . . 14 (𝜑 → ((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑆‘(𝐽 + 1))) = (((𝑆‘(𝐽 + 1)) + ((⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)) · 𝑇)) − (𝑆‘(𝐽 + 1))))
214208zcnd 12609 . . . . . . . . . . . . . . . 16 (𝜑 → (⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)) ∈ ℂ)
215214, 179mulcld 11164 . . . . . . . . . . . . . . 15 (𝜑 → ((⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)) · 𝑇) ∈ ℂ)
216192, 215pncan2d 11506 . . . . . . . . . . . . . 14 (𝜑 → (((𝑆‘(𝐽 + 1)) + ((⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)) · 𝑇)) − (𝑆‘(𝐽 + 1))) = ((⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)) · 𝑇))
217213, 216eqtrd 2772 . . . . . . . . . . . . 13 (𝜑 → ((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑆‘(𝐽 + 1))) = ((⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)) · 𝑇))
218217, 215eqeltrd 2837 . . . . . . . . . . . 12 (𝜑 → ((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑆‘(𝐽 + 1))) ∈ ℂ)
219218, 179, 183divnegd 11942 . . . . . . . . . . 11 (𝜑 → -(((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑆‘(𝐽 + 1))) / 𝑇) = (-((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑆‘(𝐽 + 1))) / 𝑇))
220195, 197, 2193eqtr4d 2782 . . . . . . . . . 10 (𝜑 → (𝑈 / 𝑇) = -(((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑆‘(𝐽 + 1))) / 𝑇))
221217oveq1d 7383 . . . . . . . . . . . . 13 (𝜑 → (((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑆‘(𝐽 + 1))) / 𝑇) = (((⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)) · 𝑇) / 𝑇))
222214, 179, 183divcan4d 11935 . . . . . . . . . . . . 13 (𝜑 → (((⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)) · 𝑇) / 𝑇) = (⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)))
223221, 222eqtrd 2772 . . . . . . . . . . . 12 (𝜑 → (((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑆‘(𝐽 + 1))) / 𝑇) = (⌊‘((𝐵 − (𝑆‘(𝐽 + 1))) / 𝑇)))
224223, 208eqeltrd 2837 . . . . . . . . . . 11 (𝜑 → (((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑆‘(𝐽 + 1))) / 𝑇) ∈ ℤ)
225224znegcld 12610 . . . . . . . . . 10 (𝜑 → -(((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑆‘(𝐽 + 1))) / 𝑇) ∈ ℤ)
226220, 225eqeltrd 2837 . . . . . . . . 9 (𝜑 → (𝑈 / 𝑇) ∈ ℤ)
227226adantr 480 . . . . . . . 8 ((𝜑𝑦 ∈ ℝ) → (𝑈 / 𝑇) ∈ ℤ)
228 simpr 484 . . . . . . . 8 ((𝜑𝑦 ∈ ℝ) → 𝑦 ∈ ℝ)
229 fourierdlem91.6 . . . . . . . . 9 ((𝜑𝑥 ∈ ℝ) → (𝐹‘(𝑥 + 𝑇)) = (𝐹𝑥))
230229adantlr 716 . . . . . . . 8 (((𝜑𝑦 ∈ ℝ) ∧ 𝑥 ∈ ℝ) → (𝐹‘(𝑥 + 𝑇)) = (𝐹𝑥))
231189, 190, 227, 228, 230fperiodmul 45666 . . . . . . 7 ((𝜑𝑦 ∈ ℝ) → (𝐹‘(𝑦 + ((𝑈 / 𝑇) · 𝑇))) = (𝐹𝑦))
232188, 231eqtrd 2772 . . . . . 6 ((𝜑𝑦 ∈ ℝ) → (𝐹‘(𝑦 + 𝑈)) = (𝐹𝑦))
233176, 232sylan2 594 . . . . 5 ((𝜑𝑦 ∈ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1))))) → (𝐹‘(𝑦 + 𝑈)) = (𝐹𝑦))
2346simprrd 774 . . . . . . . 8 (𝜑 → ∀𝑖 ∈ (0..^𝑀)(𝑄𝑖) < (𝑄‘(𝑖 + 1)))
235 fveq2 6842 . . . . . . . . . 10 (𝑖 = (𝐼‘(𝑆𝐽)) → (𝑄𝑖) = (𝑄‘(𝐼‘(𝑆𝐽))))
236 oveq1 7375 . . . . . . . . . . 11 (𝑖 = (𝐼‘(𝑆𝐽)) → (𝑖 + 1) = ((𝐼‘(𝑆𝐽)) + 1))
237236fveq2d 6846 . . . . . . . . . 10 (𝑖 = (𝐼‘(𝑆𝐽)) → (𝑄‘(𝑖 + 1)) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1)))
238235, 237breq12d 5113 . . . . . . . . 9 (𝑖 = (𝐼‘(𝑆𝐽)) → ((𝑄𝑖) < (𝑄‘(𝑖 + 1)) ↔ (𝑄‘(𝐼‘(𝑆𝐽))) < (𝑄‘((𝐼‘(𝑆𝐽)) + 1))))
239238rspccva 3577 . . . . . . . 8 ((∀𝑖 ∈ (0..^𝑀)(𝑄𝑖) < (𝑄‘(𝑖 + 1)) ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀)) → (𝑄‘(𝐼‘(𝑆𝐽))) < (𝑄‘((𝐼‘(𝑆𝐽)) + 1)))
240234, 55, 239syl2anc 585 . . . . . . 7 (𝜑 → (𝑄‘(𝐼‘(𝑆𝐽))) < (𝑄‘((𝐼‘(𝑆𝐽)) + 1)))
24155ancli 548 . . . . . . . 8 (𝜑 → (𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀)))
242 eleq1 2825 . . . . . . . . . . 11 (𝑖 = (𝐼‘(𝑆𝐽)) → (𝑖 ∈ (0..^𝑀) ↔ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀)))
243242anbi2d 631 . . . . . . . . . 10 (𝑖 = (𝐼‘(𝑆𝐽)) → ((𝜑𝑖 ∈ (0..^𝑀)) ↔ (𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀))))
244235, 237oveq12d 7386 . . . . . . . . . . . 12 (𝑖 = (𝐼‘(𝑆𝐽)) → ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))) = ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))))
245244reseq2d 5946 . . . . . . . . . . 11 (𝑖 = (𝐼‘(𝑆𝐽)) → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) = (𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))))
246244oveq1d 7383 . . . . . . . . . . 11 (𝑖 = (𝐼‘(𝑆𝐽)) → (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))–cn→ℂ) = (((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))–cn→ℂ))
247245, 246eleq12d 2831 . . . . . . . . . 10 (𝑖 = (𝐼‘(𝑆𝐽)) → ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∈ (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))–cn→ℂ) ↔ (𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) ∈ (((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))–cn→ℂ)))
248243, 247imbi12d 344 . . . . . . . . 9 (𝑖 = (𝐼‘(𝑆𝐽)) → (((𝜑𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∈ (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))–cn→ℂ)) ↔ ((𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) ∈ (((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))–cn→ℂ))))
249 fourierdlem91.fcn . . . . . . . . 9 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∈ (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))–cn→ℂ))
250248, 249vtoclg 3513 . . . . . . . 8 ((𝐼‘(𝑆𝐽)) ∈ (0..^𝑀) → ((𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) ∈ (((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))–cn→ℂ)))
25155, 241, 250sylc 65 . . . . . . 7 (𝜑 → (𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) ∈ (((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))–cn→ℂ))
252 nfv 1916 . . . . . . . . . 10 𝑖(𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀))
253 fourierdlem91.w . . . . . . . . . . . . 13 𝑊 = (𝑖 ∈ (0..^𝑀) ↦ 𝐿)
254 nfmpt1 5199 . . . . . . . . . . . . 13 𝑖(𝑖 ∈ (0..^𝑀) ↦ 𝐿)
255253, 254nfcxfr 2897 . . . . . . . . . . . 12 𝑖𝑊
256 nfcv 2899 . . . . . . . . . . . 12 𝑖(𝐼‘(𝑆𝐽))
257255, 256nffv 6852 . . . . . . . . . . 11 𝑖(𝑊‘(𝐼‘(𝑆𝐽)))
258257nfel1 2916 . . . . . . . . . 10 𝑖(𝑊‘(𝐼‘(𝑆𝐽))) ∈ ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) lim (𝑄‘((𝐼‘(𝑆𝐽)) + 1)))
259252, 258nfim 1898 . . . . . . . . 9 𝑖((𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀)) → (𝑊‘(𝐼‘(𝑆𝐽))) ∈ ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) lim (𝑄‘((𝐼‘(𝑆𝐽)) + 1))))
260243biimpar 477 . . . . . . . . . . . . . 14 ((𝑖 = (𝐼‘(𝑆𝐽)) ∧ (𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀))) → (𝜑𝑖 ∈ (0..^𝑀)))
2612603adant2 1132 . . . . . . . . . . . . 13 ((𝑖 = (𝐼‘(𝑆𝐽)) ∧ ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1)))) ∧ (𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀))) → (𝜑𝑖 ∈ (0..^𝑀)))
262 fourierdlem91.l . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
263261, 262syl 17 . . . . . . . . . . . 12 ((𝑖 = (𝐼‘(𝑆𝐽)) ∧ ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1)))) ∧ (𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀))) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
264 fveq2 6842 . . . . . . . . . . . . . . . 16 (𝑖 = (𝐼‘(𝑆𝐽)) → (𝑊𝑖) = (𝑊‘(𝐼‘(𝑆𝐽))))
265264eqcomd 2743 . . . . . . . . . . . . . . 15 (𝑖 = (𝐼‘(𝑆𝐽)) → (𝑊‘(𝐼‘(𝑆𝐽))) = (𝑊𝑖))
266265adantr 480 . . . . . . . . . . . . . 14 ((𝑖 = (𝐼‘(𝑆𝐽)) ∧ (𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀))) → (𝑊‘(𝐼‘(𝑆𝐽))) = (𝑊𝑖))
267260simprd 495 . . . . . . . . . . . . . . 15 ((𝑖 = (𝐼‘(𝑆𝐽)) ∧ (𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀))) → 𝑖 ∈ (0..^𝑀))
268 elex 3463 . . . . . . . . . . . . . . . 16 (𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))) → 𝐿 ∈ V)
269260, 262, 2683syl 18 . . . . . . . . . . . . . . 15 ((𝑖 = (𝐼‘(𝑆𝐽)) ∧ (𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀))) → 𝐿 ∈ V)
270253fvmpt2 6961 . . . . . . . . . . . . . . 15 ((𝑖 ∈ (0..^𝑀) ∧ 𝐿 ∈ V) → (𝑊𝑖) = 𝐿)
271267, 269, 270syl2anc 585 . . . . . . . . . . . . . 14 ((𝑖 = (𝐼‘(𝑆𝐽)) ∧ (𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀))) → (𝑊𝑖) = 𝐿)
272266, 271eqtrd 2772 . . . . . . . . . . . . 13 ((𝑖 = (𝐼‘(𝑆𝐽)) ∧ (𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀))) → (𝑊‘(𝐼‘(𝑆𝐽))) = 𝐿)
2732723adant2 1132 . . . . . . . . . . . 12 ((𝑖 = (𝐼‘(𝑆𝐽)) ∧ ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1)))) ∧ (𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀))) → (𝑊‘(𝐼‘(𝑆𝐽))) = 𝐿)
274245, 237oveq12d 7386 . . . . . . . . . . . . . 14 (𝑖 = (𝐼‘(𝑆𝐽)) → ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))) = ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) lim (𝑄‘((𝐼‘(𝑆𝐽)) + 1))))
275274eqcomd 2743 . . . . . . . . . . . . 13 (𝑖 = (𝐼‘(𝑆𝐽)) → ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) lim (𝑄‘((𝐼‘(𝑆𝐽)) + 1))) = ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
2762753ad2ant1 1134 . . . . . . . . . . . 12 ((𝑖 = (𝐼‘(𝑆𝐽)) ∧ ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1)))) ∧ (𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀))) → ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) lim (𝑄‘((𝐼‘(𝑆𝐽)) + 1))) = ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
277263, 273, 2763eltr4d 2852 . . . . . . . . . . 11 ((𝑖 = (𝐼‘(𝑆𝐽)) ∧ ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1)))) ∧ (𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀))) → (𝑊‘(𝐼‘(𝑆𝐽))) ∈ ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) lim (𝑄‘((𝐼‘(𝑆𝐽)) + 1))))
2782773exp 1120 . . . . . . . . . 10 (𝑖 = (𝐼‘(𝑆𝐽)) → (((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1)))) → ((𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀)) → (𝑊‘(𝐼‘(𝑆𝐽))) ∈ ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) lim (𝑄‘((𝐼‘(𝑆𝐽)) + 1))))))
2792622a1i 12 . . . . . . . . . 10 (𝑖 = (𝐼‘(𝑆𝐽)) → (((𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀)) → (𝑊‘(𝐼‘(𝑆𝐽))) ∈ ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) lim (𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) → ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))))
280278, 279impbid 212 . . . . . . . . 9 (𝑖 = (𝐼‘(𝑆𝐽)) → (((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1)))) ↔ ((𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀)) → (𝑊‘(𝐼‘(𝑆𝐽))) ∈ ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) lim (𝑄‘((𝐼‘(𝑆𝐽)) + 1))))))
281259, 280, 262vtoclg1f 3528 . . . . . . . 8 ((𝐼‘(𝑆𝐽)) ∈ (0..^𝑀) → ((𝜑 ∧ (𝐼‘(𝑆𝐽)) ∈ (0..^𝑀)) → (𝑊‘(𝐼‘(𝑆𝐽))) ∈ ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) lim (𝑄‘((𝐼‘(𝑆𝐽)) + 1)))))
28255, 241, 281sylc 65 . . . . . . 7 (𝜑 → (𝑊‘(𝐼‘(𝑆𝐽))) ∈ ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) lim (𝑄‘((𝐼‘(𝑆𝐽)) + 1))))
283 eqid 2737 . . . . . . 7 if((𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1)), (𝑊‘(𝐼‘(𝑆𝐽))), ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))))‘(𝐸‘(𝑆‘(𝐽 + 1))))) = if((𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1)), (𝑊‘(𝐼‘(𝑆𝐽))), ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))))‘(𝐸‘(𝑆‘(𝐽 + 1)))))
284 eqid 2737 . . . . . . 7 ((TopOpen‘ℂfld) ↾t (((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))) ∪ {(𝑄‘((𝐼‘(𝑆𝐽)) + 1))})) = ((TopOpen‘ℂfld) ↾t (((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))) ∪ {(𝑄‘((𝐼‘(𝑆𝐽)) + 1))}))
28557, 62, 240, 251, 282, 83, 77, 127, 141, 283, 284fourierdlem33 46498 . . . . . 6 (𝜑 → if((𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1)), (𝑊‘(𝐼‘(𝑆𝐽))), ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))))‘(𝐸‘(𝑆‘(𝐽 + 1))))) ∈ (((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) ↾ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1))))) lim (𝐸‘(𝑆‘(𝐽 + 1)))))
286141resabs1d 5975 . . . . . . 7 (𝜑 → ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) ↾ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1))))) = (𝐹 ↾ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1))))))
287286oveq1d 7383 . . . . . 6 (𝜑 → (((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1)))) ↾ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1))))) lim (𝐸‘(𝑆‘(𝐽 + 1)))) = ((𝐹 ↾ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1))))) lim (𝐸‘(𝑆‘(𝐽 + 1)))))
288285, 287eleqtrd 2839 . . . . 5 (𝜑 → if((𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1)), (𝑊‘(𝐼‘(𝑆𝐽))), ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))))‘(𝐸‘(𝑆‘(𝐽 + 1))))) ∈ ((𝐹 ↾ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1))))) lim (𝐸‘(𝑆‘(𝐽 + 1)))))
289162, 164, 166, 170, 171, 175, 233, 288limcperiod 45988 . . . 4 (𝜑 → if((𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1)), (𝑊‘(𝐼‘(𝑆𝐽))), ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))))‘(𝐸‘(𝑆‘(𝐽 + 1))))) ∈ ((𝐹 ↾ {𝑥 ∈ ℂ ∣ ∃𝑦 ∈ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1))))𝑥 = (𝑦 + 𝑈)}) lim ((𝐸‘(𝑆‘(𝐽 + 1))) + 𝑈)))
290167oveq2i 7379 . . . . . 6 ((𝐸‘(𝑆‘(𝐽 + 1))) + 𝑈) = ((𝐸‘(𝑆‘(𝐽 + 1))) + ((𝑆‘(𝐽 + 1)) − (𝐸‘(𝑆‘(𝐽 + 1)))))
291191, 192pncan3d 11507 . . . . . 6 (𝜑 → ((𝐸‘(𝑆‘(𝐽 + 1))) + ((𝑆‘(𝐽 + 1)) − (𝐸‘(𝑆‘(𝐽 + 1))))) = (𝑆‘(𝐽 + 1)))
292290, 291eqtrid 2784 . . . . 5 (𝜑 → ((𝐸‘(𝑆‘(𝐽 + 1))) + 𝑈) = (𝑆‘(𝐽 + 1)))
293292oveq2d 7384 . . . 4 (𝜑 → ((𝐹 ↾ {𝑥 ∈ ℂ ∣ ∃𝑦 ∈ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1))))𝑥 = (𝑦 + 𝑈)}) lim ((𝐸‘(𝑆‘(𝐽 + 1))) + 𝑈)) = ((𝐹 ↾ {𝑥 ∈ ℂ ∣ ∃𝑦 ∈ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1))))𝑥 = (𝑦 + 𝑈)}) lim (𝑆‘(𝐽 + 1))))
294289, 293eleqtrd 2839 . . 3 (𝜑 → if((𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1)), (𝑊‘(𝐼‘(𝑆𝐽))), ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))))‘(𝐸‘(𝑆‘(𝐽 + 1))))) ∈ ((𝐹 ↾ {𝑥 ∈ ℂ ∣ ∃𝑦 ∈ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1))))𝑥 = (𝑦 + 𝑈)}) lim (𝑆‘(𝐽 + 1))))
295167oveq2i 7379 . . . . . . . . 9 ((𝑍‘(𝐸‘(𝑆𝐽))) + 𝑈) = ((𝑍‘(𝐸‘(𝑆𝐽))) + ((𝑆‘(𝐽 + 1)) − (𝐸‘(𝑆‘(𝐽 + 1)))))
296295a1i 11 . . . . . . . 8 (𝜑 → ((𝑍‘(𝐸‘(𝑆𝐽))) + 𝑈) = ((𝑍‘(𝐸‘(𝑆𝐽))) + ((𝑆‘(𝐽 + 1)) − (𝐸‘(𝑆‘(𝐽 + 1))))))
29717, 20iccssred 13362 . . . . . . . . . . . . . . 15 (𝜑 → (𝐶[,]𝐷) ⊆ ℝ)
298 ax-resscn 11095 . . . . . . . . . . . . . . 15 ℝ ⊆ ℂ
299297, 298sstrdi 3948 . . . . . . . . . . . . . 14 (𝜑 → (𝐶[,]𝐷) ⊆ ℂ)
30025, 44, 43fourierdlem15 46480 . . . . . . . . . . . . . . 15 (𝜑𝑆:(0...𝑁)⟶(𝐶[,]𝐷))
301300, 53ffvelcdmd 7039 . . . . . . . . . . . . . 14 (𝜑 → (𝑆𝐽) ∈ (𝐶[,]𝐷))
302299, 301sseldd 3936 . . . . . . . . . . . . 13 (𝜑 → (𝑆𝐽) ∈ ℂ)
303192, 302subcld 11504 . . . . . . . . . . . 12 (𝜑 → ((𝑆‘(𝐽 + 1)) − (𝑆𝐽)) ∈ ℂ)
30483recnd 11172 . . . . . . . . . . . 12 (𝜑 → (𝑍‘(𝐸‘(𝑆𝐽))) ∈ ℂ)
305191, 303, 304subsub23d 45649 . . . . . . . . . . 11 (𝜑 → (((𝐸‘(𝑆‘(𝐽 + 1))) − ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))) = (𝑍‘(𝐸‘(𝑆𝐽))) ↔ ((𝐸‘(𝑆‘(𝐽 + 1))) − (𝑍‘(𝐸‘(𝑆𝐽)))) = ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))))
306124, 305mpbird 257 . . . . . . . . . 10 (𝜑 → ((𝐸‘(𝑆‘(𝐽 + 1))) − ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))) = (𝑍‘(𝐸‘(𝑆𝐽))))
307306eqcomd 2743 . . . . . . . . 9 (𝜑 → (𝑍‘(𝐸‘(𝑆𝐽))) = ((𝐸‘(𝑆‘(𝐽 + 1))) − ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))))
308307oveq1d 7383 . . . . . . . 8 (𝜑 → ((𝑍‘(𝐸‘(𝑆𝐽))) + ((𝑆‘(𝐽 + 1)) − (𝐸‘(𝑆‘(𝐽 + 1))))) = (((𝐸‘(𝑆‘(𝐽 + 1))) − ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))) + ((𝑆‘(𝐽 + 1)) − (𝐸‘(𝑆‘(𝐽 + 1))))))
309191, 303subcld 11504 . . . . . . . . . 10 (𝜑 → ((𝐸‘(𝑆‘(𝐽 + 1))) − ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))) ∈ ℂ)
310309, 192, 191addsub12d 11527 . . . . . . . . 9 (𝜑 → (((𝐸‘(𝑆‘(𝐽 + 1))) − ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))) + ((𝑆‘(𝐽 + 1)) − (𝐸‘(𝑆‘(𝐽 + 1))))) = ((𝑆‘(𝐽 + 1)) + (((𝐸‘(𝑆‘(𝐽 + 1))) − ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))) − (𝐸‘(𝑆‘(𝐽 + 1))))))
311191, 303, 191sub32d 11536 . . . . . . . . . . 11 (𝜑 → (((𝐸‘(𝑆‘(𝐽 + 1))) − ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))) − (𝐸‘(𝑆‘(𝐽 + 1)))) = (((𝐸‘(𝑆‘(𝐽 + 1))) − (𝐸‘(𝑆‘(𝐽 + 1)))) − ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))))
312191subidd 11492 . . . . . . . . . . . 12 (𝜑 → ((𝐸‘(𝑆‘(𝐽 + 1))) − (𝐸‘(𝑆‘(𝐽 + 1)))) = 0)
313312oveq1d 7383 . . . . . . . . . . 11 (𝜑 → (((𝐸‘(𝑆‘(𝐽 + 1))) − (𝐸‘(𝑆‘(𝐽 + 1)))) − ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))) = (0 − ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))))
314 df-neg 11379 . . . . . . . . . . . 12 -((𝑆‘(𝐽 + 1)) − (𝑆𝐽)) = (0 − ((𝑆‘(𝐽 + 1)) − (𝑆𝐽)))
315192, 302negsubdi2d 11520 . . . . . . . . . . . 12 (𝜑 → -((𝑆‘(𝐽 + 1)) − (𝑆𝐽)) = ((𝑆𝐽) − (𝑆‘(𝐽 + 1))))
316314, 315eqtr3id 2786 . . . . . . . . . . 11 (𝜑 → (0 − ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))) = ((𝑆𝐽) − (𝑆‘(𝐽 + 1))))
317311, 313, 3163eqtrd 2776 . . . . . . . . . 10 (𝜑 → (((𝐸‘(𝑆‘(𝐽 + 1))) − ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))) − (𝐸‘(𝑆‘(𝐽 + 1)))) = ((𝑆𝐽) − (𝑆‘(𝐽 + 1))))
318317oveq2d 7384 . . . . . . . . 9 (𝜑 → ((𝑆‘(𝐽 + 1)) + (((𝐸‘(𝑆‘(𝐽 + 1))) − ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))) − (𝐸‘(𝑆‘(𝐽 + 1))))) = ((𝑆‘(𝐽 + 1)) + ((𝑆𝐽) − (𝑆‘(𝐽 + 1)))))
319192, 302pncan3d 11507 . . . . . . . . 9 (𝜑 → ((𝑆‘(𝐽 + 1)) + ((𝑆𝐽) − (𝑆‘(𝐽 + 1)))) = (𝑆𝐽))
320310, 318, 3193eqtrd 2776 . . . . . . . 8 (𝜑 → (((𝐸‘(𝑆‘(𝐽 + 1))) − ((𝑆‘(𝐽 + 1)) − (𝑆𝐽))) + ((𝑆‘(𝐽 + 1)) − (𝐸‘(𝑆‘(𝐽 + 1))))) = (𝑆𝐽))
321296, 308, 3203eqtrd 2776 . . . . . . 7 (𝜑 → ((𝑍‘(𝐸‘(𝑆𝐽))) + 𝑈) = (𝑆𝐽))
322321, 292oveq12d 7386 . . . . . 6 (𝜑 → (((𝑍‘(𝐸‘(𝑆𝐽))) + 𝑈)(,)((𝐸‘(𝑆‘(𝐽 + 1))) + 𝑈)) = ((𝑆𝐽)(,)(𝑆‘(𝐽 + 1))))
323172, 322eqtr3d 2774 . . . . 5 (𝜑 → {𝑥 ∈ ℂ ∣ ∃𝑦 ∈ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1))))𝑥 = (𝑦 + 𝑈)} = ((𝑆𝐽)(,)(𝑆‘(𝐽 + 1))))
324323reseq2d 5946 . . . 4 (𝜑 → (𝐹 ↾ {𝑥 ∈ ℂ ∣ ∃𝑦 ∈ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1))))𝑥 = (𝑦 + 𝑈)}) = (𝐹 ↾ ((𝑆𝐽)(,)(𝑆‘(𝐽 + 1)))))
325324oveq1d 7383 . . 3 (𝜑 → ((𝐹 ↾ {𝑥 ∈ ℂ ∣ ∃𝑦 ∈ ((𝑍‘(𝐸‘(𝑆𝐽)))(,)(𝐸‘(𝑆‘(𝐽 + 1))))𝑥 = (𝑦 + 𝑈)}) lim (𝑆‘(𝐽 + 1))) = ((𝐹 ↾ ((𝑆𝐽)(,)(𝑆‘(𝐽 + 1)))) lim (𝑆‘(𝐽 + 1))))
326294, 325eleqtrd 2839 . 2 (𝜑 → if((𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1)), (𝑊‘(𝐼‘(𝑆𝐽))), ((𝐹 ↾ ((𝑄‘(𝐼‘(𝑆𝐽)))(,)(𝑄‘((𝐼‘(𝑆𝐽)) + 1))))‘(𝐸‘(𝑆‘(𝐽 + 1))))) ∈ ((𝐹 ↾ ((𝑆𝐽)(,)(𝑆‘(𝐽 + 1)))) lim (𝑆‘(𝐽 + 1))))
327157, 326eqeltrd 2837 1 (𝜑 → if((𝐸‘(𝑆‘(𝐽 + 1))) = (𝑄‘((𝐼‘(𝑆𝐽)) + 1)), (𝑊‘(𝐼‘(𝑆𝐽))), (𝐹‘(𝐸‘(𝑆‘(𝐽 + 1))))) ∈ ((𝐹 ↾ ((𝑆𝐽)(,)(𝑆‘(𝐽 + 1)))) lim (𝑆‘(𝐽 + 1))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 206  wa 395  w3a 1087   = wceq 1542  wcel 2114  wne 2933  wral 3052  wrex 3062  {crab 3401  Vcvv 3442  cun 3901  wss 3903  ifcif 4481  {csn 4582  {cpr 4584   class class class wbr 5100  cmpt 5181  dom cdm 5632  ran crn 5633  cres 5634  cio 6454  wf 6496  cfv 6500   Isom wiso 6501  (class class class)co 7368  m cmap 8775  supcsup 9355  cc 11036  cr 11037  0cc0 11038  1c1 11039   + caddc 11041   · cmul 11043  +∞cpnf 11175  *cxr 11177   < clt 11178  cle 11179  cmin 11376  -cneg 11377   / cdiv 11806  cn 12157  2c2 12212  cz 12500  (,)cioo 13273  (,]cioc 13274  [,]cicc 13276  ...cfz 13435  ..^cfzo 13582  cfl 13722  chash 14265  t crest 17352  TopOpenctopn 17353  fldccnfld 21321  cnccncf 24837   lim climc 25831
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1912  ax-6 1969  ax-7 2010  ax-8 2116  ax-9 2124  ax-10 2147  ax-11 2163  ax-12 2185  ax-ext 2709  ax-rep 5226  ax-sep 5243  ax-nul 5253  ax-pow 5312  ax-pr 5379  ax-un 7690  ax-inf2 9562  ax-cnex 11094  ax-resscn 11095  ax-1cn 11096  ax-icn 11097  ax-addcl 11098  ax-addrcl 11099  ax-mulcl 11100  ax-mulrcl 11101  ax-mulcom 11102  ax-addass 11103  ax-mulass 11104  ax-distr 11105  ax-i2m1 11106  ax-1ne0 11107  ax-1rid 11108  ax-rnegex 11109  ax-rrecex 11110  ax-cnre 11111  ax-pre-lttri 11112  ax-pre-lttrn 11113  ax-pre-ltadd 11114  ax-pre-mulgt0 11115  ax-pre-sup 11116
This theorem depends on definitions:  df-bi 207  df-an 396  df-or 849  df-3or 1088  df-3an 1089  df-tru 1545  df-fal 1555  df-ex 1782  df-nf 1786  df-sb 2069  df-mo 2540  df-eu 2570  df-clab 2716  df-cleq 2729  df-clel 2812  df-nfc 2886  df-ne 2934  df-nel 3038  df-ral 3053  df-rex 3063  df-rmo 3352  df-reu 3353  df-rab 3402  df-v 3444  df-sbc 3743  df-csb 3852  df-dif 3906  df-un 3908  df-in 3910  df-ss 3920  df-pss 3923  df-nul 4288  df-if 4482  df-pw 4558  df-sn 4583  df-pr 4585  df-tp 4587  df-op 4589  df-uni 4866  df-int 4905  df-iun 4950  df-iin 4951  df-br 5101  df-opab 5163  df-mpt 5182  df-tr 5208  df-id 5527  df-eprel 5532  df-po 5540  df-so 5541  df-fr 5585  df-se 5586  df-we 5587  df-xp 5638  df-rel 5639  df-cnv 5640  df-co 5641  df-dm 5642  df-rn 5643  df-res 5644  df-ima 5645  df-pred 6267  df-ord 6328  df-on 6329  df-lim 6330  df-suc 6331  df-iota 6456  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 7325  df-ov 7371  df-oprab 7372  df-mpo 7373  df-om 7819  df-1st 7943  df-2nd 7944  df-frecs 8233  df-wrecs 8264  df-recs 8313  df-rdg 8351  df-1o 8407  df-2o 8408  df-oadd 8411  df-er 8645  df-map 8777  df-pm 8778  df-en 8896  df-dom 8897  df-sdom 8898  df-fin 8899  df-fi 9326  df-sup 9357  df-inf 9358  df-oi 9427  df-dju 9825  df-card 9863  df-pnf 11180  df-mnf 11181  df-xr 11182  df-ltxr 11183  df-le 11184  df-sub 11378  df-neg 11379  df-div 11807  df-nn 12158  df-2 12220  df-3 12221  df-4 12222  df-5 12223  df-6 12224  df-7 12225  df-8 12226  df-9 12227  df-n0 12414  df-xnn0 12487  df-z 12501  df-dec 12620  df-uz 12764  df-q 12874  df-rp 12918  df-xneg 13038  df-xadd 13039  df-xmul 13040  df-ioo 13277  df-ioc 13278  df-ico 13279  df-icc 13280  df-fz 13436  df-fzo 13583  df-fl 13724  df-seq 13937  df-exp 13997  df-hash 14266  df-cj 15034  df-re 15035  df-im 15036  df-sqrt 15170  df-abs 15171  df-struct 17086  df-slot 17121  df-ndx 17133  df-base 17149  df-plusg 17202  df-mulr 17203  df-starv 17204  df-tset 17208  df-ple 17209  df-ds 17211  df-unif 17212  df-rest 17354  df-topn 17355  df-topgen 17375  df-psmet 21313  df-xmet 21314  df-met 21315  df-bl 21316  df-mopn 21317  df-cnfld 21322  df-top 22850  df-topon 22867  df-topsp 22889  df-bases 22902  df-cld 22975  df-ntr 22976  df-cls 22977  df-nei 23054  df-lp 23092  df-cn 23183  df-cnp 23184  df-cmp 23343  df-xms 24276  df-ms 24277  df-cncf 24839  df-limc 25835
This theorem is referenced by:  fourierdlem99  46563  fourierdlem100  46564  fourierdlem107  46571  fourierdlem109  46573
  Copyright terms: Public domain W3C validator