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

Theorem fourierdlem107 40925
Description: The integral of a piecewise continuous periodic function 𝐹 is unchanged if the domain is shifted by any positive value 𝑋. This lemma generalizes fourierdlem92 40910 where the integral was shifted by the exact period. This lemma uses local definitions, so that the proof is more readable. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem107.a (𝜑𝐴 ∈ ℝ)
fourierdlem107.b (𝜑𝐵 ∈ ℝ)
fourierdlem107.t 𝑇 = (𝐵𝐴)
fourierdlem107.x (𝜑𝑋 ∈ ℝ+)
fourierdlem107.p 𝑃 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = 𝐴 ∧ (𝑝𝑚) = 𝐵) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))})
fourierdlem107.m (𝜑𝑀 ∈ ℕ)
fourierdlem107.q (𝜑𝑄 ∈ (𝑃𝑀))
fourierdlem107.f (𝜑𝐹:ℝ⟶ℂ)
fourierdlem107.fper ((𝜑𝑥 ∈ ℝ) → (𝐹‘(𝑥 + 𝑇)) = (𝐹𝑥))
fourierdlem107.fcn ((𝜑𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∈ (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))–cn→ℂ))
fourierdlem107.r ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)))
fourierdlem107.l ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
fourierdlem107.o 𝑂 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = (𝐴𝑋) ∧ (𝑝𝑚) = 𝐴) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))})
fourierdlem107.h 𝐻 = ({(𝐴𝑋), 𝐴} ∪ {𝑦 ∈ ((𝐴𝑋)[,]𝐴) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄})
fourierdlem107.n 𝑁 = ((♯‘𝐻) − 1)
fourierdlem107.s 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝐻))
fourierdlem107.e 𝐸 = (𝑥 ∈ ℝ ↦ (𝑥 + ((⌊‘((𝐵𝑥) / 𝑇)) · 𝑇)))
fourierdlem107.z 𝑍 = (𝑦 ∈ (𝐴(,]𝐵) ↦ if(𝑦 = 𝐵, 𝐴, 𝑦))
fourierdlem107.i 𝐼 = (𝑥 ∈ ℝ ↦ sup({𝑖 ∈ (0..^𝑀) ∣ (𝑄𝑖) ≤ (𝑍‘(𝐸𝑥))}, ℝ, < ))
Assertion
Ref Expression
fourierdlem107 (𝜑 → ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
Distinct variable groups:   𝐴,𝑓,𝑘,𝑦   𝐴,𝑖,𝑥,𝑘,𝑦   𝐴,𝑚,𝑝,𝑖   𝐵,𝑓,𝑘,𝑦   𝐵,𝑖,𝑥   𝐵,𝑚,𝑝   𝑓,𝐸,𝑘,𝑦   𝑖,𝐸,𝑥   𝑖,𝐹,𝑥,𝑦   𝑓,𝐻,𝑦   𝑥,𝐻   𝑓,𝐼,𝑘,𝑦   𝑖,𝐼,𝑥   𝑥,𝐿,𝑦   𝑖,𝑀,𝑥,𝑦   𝑚,𝑀,𝑝   𝑓,𝑁,𝑘,𝑦   𝑖,𝑁,𝑥   𝑚,𝑁,𝑝   𝑄,𝑓,𝑘,𝑦   𝑄,𝑖,𝑥   𝑄,𝑚,𝑝   𝑥,𝑅,𝑦   𝑆,𝑓,𝑘,𝑦   𝑆,𝑖,𝑥   𝑆,𝑝   𝑇,𝑓,𝑘,𝑦   𝑇,𝑖,𝑥   𝑇,𝑚,𝑝   𝑓,𝑋,𝑦   𝑖,𝑋,𝑚,𝑝   𝑥,𝑋   𝑖,𝑍,𝑥,𝑦   𝜑,𝑓,𝑘,𝑦   𝜑,𝑖,𝑥
Allowed substitution hints:   𝜑(𝑚,𝑝)   𝑃(𝑥,𝑦,𝑓,𝑖,𝑘,𝑚,𝑝)   𝑅(𝑓,𝑖,𝑘,𝑚,𝑝)   𝑆(𝑚)   𝐸(𝑚,𝑝)   𝐹(𝑓,𝑘,𝑚,𝑝)   𝐻(𝑖,𝑘,𝑚,𝑝)   𝐼(𝑚,𝑝)   𝐿(𝑓,𝑖,𝑘,𝑚,𝑝)   𝑀(𝑓,𝑘)   𝑂(𝑥,𝑦,𝑓,𝑖,𝑘,𝑚,𝑝)   𝑋(𝑘)   𝑍(𝑓,𝑘,𝑚,𝑝)

Proof of Theorem fourierdlem107
Dummy variable 𝑗 is distinct from all other variables.
StepHypRef Expression
1 fourierdlem107.t . . . . . . . . . . . . . . . . 17 𝑇 = (𝐵𝐴)
21oveq2i 6816 . . . . . . . . . . . . . . . 16 ((𝐴𝑋) + 𝑇) = ((𝐴𝑋) + (𝐵𝐴))
3 fourierdlem107.a . . . . . . . . . . . . . . . . . 18 (𝜑𝐴 ∈ ℝ)
43recnd 10252 . . . . . . . . . . . . . . . . 17 (𝜑𝐴 ∈ ℂ)
5 fourierdlem107.x . . . . . . . . . . . . . . . . . . 19 (𝜑𝑋 ∈ ℝ+)
65rpred 12057 . . . . . . . . . . . . . . . . . 18 (𝜑𝑋 ∈ ℝ)
76recnd 10252 . . . . . . . . . . . . . . . . 17 (𝜑𝑋 ∈ ℂ)
8 fourierdlem107.b . . . . . . . . . . . . . . . . . 18 (𝜑𝐵 ∈ ℝ)
98recnd 10252 . . . . . . . . . . . . . . . . 17 (𝜑𝐵 ∈ ℂ)
104, 7, 9, 4subadd4b 39985 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝐴𝑋) + (𝐵𝐴)) = ((𝐴𝐴) + (𝐵𝑋)))
112, 10syl5eq 2798 . . . . . . . . . . . . . . 15 (𝜑 → ((𝐴𝑋) + 𝑇) = ((𝐴𝐴) + (𝐵𝑋)))
124subidd 10564 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐴𝐴) = 0)
1312oveq1d 6820 . . . . . . . . . . . . . . 15 (𝜑 → ((𝐴𝐴) + (𝐵𝑋)) = (0 + (𝐵𝑋)))
148, 6resubcld 10642 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐵𝑋) ∈ ℝ)
1514recnd 10252 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐵𝑋) ∈ ℂ)
1615addid2d 10421 . . . . . . . . . . . . . . 15 (𝜑 → (0 + (𝐵𝑋)) = (𝐵𝑋))
1711, 13, 163eqtrd 2790 . . . . . . . . . . . . . 14 (𝜑 → ((𝐴𝑋) + 𝑇) = (𝐵𝑋))
181oveq2i 6816 . . . . . . . . . . . . . . 15 (𝐴 + 𝑇) = (𝐴 + (𝐵𝐴))
194, 9pncan3d 10579 . . . . . . . . . . . . . . 15 (𝜑 → (𝐴 + (𝐵𝐴)) = 𝐵)
2018, 19syl5eq 2798 . . . . . . . . . . . . . 14 (𝜑 → (𝐴 + 𝑇) = 𝐵)
2117, 20oveq12d 6823 . . . . . . . . . . . . 13 (𝜑 → (((𝐴𝑋) + 𝑇)[,](𝐴 + 𝑇)) = ((𝐵𝑋)[,]𝐵))
2221eqcomd 2758 . . . . . . . . . . . 12 (𝜑 → ((𝐵𝑋)[,]𝐵) = (((𝐴𝑋) + 𝑇)[,](𝐴 + 𝑇)))
2322itgeq1d 40667 . . . . . . . . . . 11 (𝜑 → ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 = ∫(((𝐴𝑋) + 𝑇)[,](𝐴 + 𝑇))(𝐹𝑥) d𝑥)
243, 6resubcld 10642 . . . . . . . . . . . 12 (𝜑 → (𝐴𝑋) ∈ ℝ)
25 fourierdlem107.o . . . . . . . . . . . . 13 𝑂 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = (𝐴𝑋) ∧ (𝑝𝑚) = 𝐴) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))})
26 fveq2 6344 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 𝑗 → (𝑝𝑖) = (𝑝𝑗))
27 oveq1 6812 . . . . . . . . . . . . . . . . . . . 20 (𝑖 = 𝑗 → (𝑖 + 1) = (𝑗 + 1))
2827fveq2d 6348 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 𝑗 → (𝑝‘(𝑖 + 1)) = (𝑝‘(𝑗 + 1)))
2926, 28breq12d 4809 . . . . . . . . . . . . . . . . . 18 (𝑖 = 𝑗 → ((𝑝𝑖) < (𝑝‘(𝑖 + 1)) ↔ (𝑝𝑗) < (𝑝‘(𝑗 + 1))))
3029cbvralv 3302 . . . . . . . . . . . . . . . . 17 (∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)) ↔ ∀𝑗 ∈ (0..^𝑚)(𝑝𝑗) < (𝑝‘(𝑗 + 1)))
3130a1i 11 . . . . . . . . . . . . . . . 16 (𝑚 ∈ ℕ → (∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)) ↔ ∀𝑗 ∈ (0..^𝑚)(𝑝𝑗) < (𝑝‘(𝑗 + 1))))
3231anbi2d 742 . . . . . . . . . . . . . . 15 (𝑚 ∈ ℕ → ((((𝑝‘0) = (𝐴𝑋) ∧ (𝑝𝑚) = 𝐴) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1))) ↔ (((𝑝‘0) = (𝐴𝑋) ∧ (𝑝𝑚) = 𝐴) ∧ ∀𝑗 ∈ (0..^𝑚)(𝑝𝑗) < (𝑝‘(𝑗 + 1)))))
3332rabbidv 3321 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ → {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = (𝐴𝑋) ∧ (𝑝𝑚) = 𝐴) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))} = {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = (𝐴𝑋) ∧ (𝑝𝑚) = 𝐴) ∧ ∀𝑗 ∈ (0..^𝑚)(𝑝𝑗) < (𝑝‘(𝑗 + 1)))})
3433mpteq2ia 4884 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = (𝐴𝑋) ∧ (𝑝𝑚) = 𝐴) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))}) = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = (𝐴𝑋) ∧ (𝑝𝑚) = 𝐴) ∧ ∀𝑗 ∈ (0..^𝑚)(𝑝𝑗) < (𝑝‘(𝑗 + 1)))})
3525, 34eqtri 2774 . . . . . . . . . . . 12 𝑂 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = (𝐴𝑋) ∧ (𝑝𝑚) = 𝐴) ∧ ∀𝑗 ∈ (0..^𝑚)(𝑝𝑗) < (𝑝‘(𝑗 + 1)))})
36 fourierdlem107.p . . . . . . . . . . . . . . 15 𝑃 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = 𝐴 ∧ (𝑝𝑚) = 𝐵) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))})
37 fourierdlem107.m . . . . . . . . . . . . . . 15 (𝜑𝑀 ∈ ℕ)
38 fourierdlem107.q . . . . . . . . . . . . . . 15 (𝜑𝑄 ∈ (𝑃𝑀))
393, 5ltsubrpd 12089 . . . . . . . . . . . . . . 15 (𝜑 → (𝐴𝑋) < 𝐴)
40 fourierdlem107.h . . . . . . . . . . . . . . 15 𝐻 = ({(𝐴𝑋), 𝐴} ∪ {𝑦 ∈ ((𝐴𝑋)[,]𝐴) ∣ ∃𝑘 ∈ ℤ (𝑦 + (𝑘 · 𝑇)) ∈ ran 𝑄})
41 fourierdlem107.n . . . . . . . . . . . . . . 15 𝑁 = ((♯‘𝐻) − 1)
42 fourierdlem107.s . . . . . . . . . . . . . . 15 𝑆 = (℩𝑓𝑓 Isom < , < ((0...𝑁), 𝐻))
431, 36, 37, 38, 24, 3, 39, 25, 40, 41, 42fourierdlem54 40872 . . . . . . . . . . . . . 14 (𝜑 → ((𝑁 ∈ ℕ ∧ 𝑆 ∈ (𝑂𝑁)) ∧ 𝑆 Isom < , < ((0...𝑁), 𝐻)))
4443simpld 477 . . . . . . . . . . . . 13 (𝜑 → (𝑁 ∈ ℕ ∧ 𝑆 ∈ (𝑂𝑁)))
4544simpld 477 . . . . . . . . . . . 12 (𝜑𝑁 ∈ ℕ)
468, 3resubcld 10642 . . . . . . . . . . . . 13 (𝜑 → (𝐵𝐴) ∈ ℝ)
471, 46syl5eqel 2835 . . . . . . . . . . . 12 (𝜑𝑇 ∈ ℝ)
4844simprd 482 . . . . . . . . . . . 12 (𝜑𝑆 ∈ (𝑂𝑁))
4924adantr 472 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ ((𝐴𝑋)[,]𝐴)) → (𝐴𝑋) ∈ ℝ)
503adantr 472 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ ((𝐴𝑋)[,]𝐴)) → 𝐴 ∈ ℝ)
51 simpr 479 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ ((𝐴𝑋)[,]𝐴)) → 𝑥 ∈ ((𝐴𝑋)[,]𝐴))
52 eliccre 40223 . . . . . . . . . . . . . 14 (((𝐴𝑋) ∈ ℝ ∧ 𝐴 ∈ ℝ ∧ 𝑥 ∈ ((𝐴𝑋)[,]𝐴)) → 𝑥 ∈ ℝ)
5349, 50, 51, 52syl3anc 1473 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ ((𝐴𝑋)[,]𝐴)) → 𝑥 ∈ ℝ)
54 fourierdlem107.fper . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ ℝ) → (𝐹‘(𝑥 + 𝑇)) = (𝐹𝑥))
5553, 54syldan 488 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ ((𝐴𝑋)[,]𝐴)) → (𝐹‘(𝑥 + 𝑇)) = (𝐹𝑥))
56 fveq2 6344 . . . . . . . . . . . . . 14 (𝑖 = 𝑗 → (𝑆𝑖) = (𝑆𝑗))
5756oveq1d 6820 . . . . . . . . . . . . 13 (𝑖 = 𝑗 → ((𝑆𝑖) + 𝑇) = ((𝑆𝑗) + 𝑇))
5857cbvmptv 4894 . . . . . . . . . . . 12 (𝑖 ∈ (0...𝑁) ↦ ((𝑆𝑖) + 𝑇)) = (𝑗 ∈ (0...𝑁) ↦ ((𝑆𝑗) + 𝑇))
59 eqid 2752 . . . . . . . . . . . 12 (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = ((𝐴𝑋) + 𝑇) ∧ (𝑝𝑚) = (𝐴 + 𝑇)) ∧ ∀𝑗 ∈ (0..^𝑚)(𝑝𝑗) < (𝑝‘(𝑗 + 1)))}) = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = ((𝐴𝑋) + 𝑇) ∧ (𝑝𝑚) = (𝐴 + 𝑇)) ∧ ∀𝑗 ∈ (0..^𝑚)(𝑝𝑗) < (𝑝‘(𝑗 + 1)))})
60 fourierdlem107.f . . . . . . . . . . . 12 (𝜑𝐹:ℝ⟶ℂ)
6137adantr 472 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (0..^𝑁)) → 𝑀 ∈ ℕ)
6238adantr 472 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (0..^𝑁)) → 𝑄 ∈ (𝑃𝑀))
6360adantr 472 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (0..^𝑁)) → 𝐹:ℝ⟶ℂ)
6454adantlr 753 . . . . . . . . . . . . 13 (((𝜑𝑗 ∈ (0..^𝑁)) ∧ 𝑥 ∈ ℝ) → (𝐹‘(𝑥 + 𝑇)) = (𝐹𝑥))
65 fourierdlem107.fcn . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∈ (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))–cn→ℂ))
6665adantlr 753 . . . . . . . . . . . . 13 (((𝜑𝑗 ∈ (0..^𝑁)) ∧ 𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∈ (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))–cn→ℂ))
6724adantr 472 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (0..^𝑁)) → (𝐴𝑋) ∈ ℝ)
6867rexrd 10273 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (0..^𝑁)) → (𝐴𝑋) ∈ ℝ*)
69 pnfxr 10276 . . . . . . . . . . . . . . 15 +∞ ∈ ℝ*
7069a1i 11 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (0..^𝑁)) → +∞ ∈ ℝ*)
713adantr 472 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (0..^𝑁)) → 𝐴 ∈ ℝ)
7239adantr 472 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (0..^𝑁)) → (𝐴𝑋) < 𝐴)
733ltpnfd 12140 . . . . . . . . . . . . . . 15 (𝜑𝐴 < +∞)
7473adantr 472 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (0..^𝑁)) → 𝐴 < +∞)
7568, 70, 71, 72, 74eliood 40215 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (0..^𝑁)) → 𝐴 ∈ ((𝐴𝑋)(,)+∞))
76 fourierdlem107.e . . . . . . . . . . . . 13 𝐸 = (𝑥 ∈ ℝ ↦ (𝑥 + ((⌊‘((𝐵𝑥) / 𝑇)) · 𝑇)))
77 fourierdlem107.z . . . . . . . . . . . . 13 𝑍 = (𝑦 ∈ (𝐴(,]𝐵) ↦ if(𝑦 = 𝐵, 𝐴, 𝑦))
78 simpr 479 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (0..^𝑁)) → 𝑗 ∈ (0..^𝑁))
79 eqid 2752 . . . . . . . . . . . . 13 ((𝑆‘(𝑗 + 1)) − (𝐸‘(𝑆‘(𝑗 + 1)))) = ((𝑆‘(𝑗 + 1)) − (𝐸‘(𝑆‘(𝑗 + 1))))
80 eqid 2752 . . . . . . . . . . . . 13 (𝐹 ↾ ((𝑍‘(𝐸‘(𝑆𝑗)))(,)(𝐸‘(𝑆‘(𝑗 + 1))))) = (𝐹 ↾ ((𝑍‘(𝐸‘(𝑆𝑗)))(,)(𝐸‘(𝑆‘(𝑗 + 1)))))
81 eqid 2752 . . . . . . . . . . . . 13 (𝑦 ∈ (((𝑍‘(𝐸‘(𝑆𝑗))) + ((𝑆‘(𝑗 + 1)) − (𝐸‘(𝑆‘(𝑗 + 1)))))(,)((𝐸‘(𝑆‘(𝑗 + 1))) + ((𝑆‘(𝑗 + 1)) − (𝐸‘(𝑆‘(𝑗 + 1)))))) ↦ ((𝐹 ↾ ((𝑍‘(𝐸‘(𝑆𝑗)))(,)(𝐸‘(𝑆‘(𝑗 + 1)))))‘(𝑦 − ((𝑆‘(𝑗 + 1)) − (𝐸‘(𝑆‘(𝑗 + 1))))))) = (𝑦 ∈ (((𝑍‘(𝐸‘(𝑆𝑗))) + ((𝑆‘(𝑗 + 1)) − (𝐸‘(𝑆‘(𝑗 + 1)))))(,)((𝐸‘(𝑆‘(𝑗 + 1))) + ((𝑆‘(𝑗 + 1)) − (𝐸‘(𝑆‘(𝑗 + 1)))))) ↦ ((𝐹 ↾ ((𝑍‘(𝐸‘(𝑆𝑗)))(,)(𝐸‘(𝑆‘(𝑗 + 1)))))‘(𝑦 − ((𝑆‘(𝑗 + 1)) − (𝐸‘(𝑆‘(𝑗 + 1)))))))
82 fourierdlem107.i . . . . . . . . . . . . 13 𝐼 = (𝑥 ∈ ℝ ↦ sup({𝑖 ∈ (0..^𝑀) ∣ (𝑄𝑖) ≤ (𝑍‘(𝐸𝑥))}, ℝ, < ))
8336, 1, 61, 62, 63, 64, 66, 67, 75, 25, 40, 41, 42, 76, 77, 78, 79, 80, 81, 82fourierdlem90 40908 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (0..^𝑁)) → (𝐹 ↾ ((𝑆𝑗)(,)(𝑆‘(𝑗 + 1)))) ∈ (((𝑆𝑗)(,)(𝑆‘(𝑗 + 1)))–cn→ℂ))
84 fourierdlem107.r . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)))
8584adantlr 753 . . . . . . . . . . . . 13 (((𝜑𝑗 ∈ (0..^𝑁)) ∧ 𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)))
86 eqid 2752 . . . . . . . . . . . . 13 (𝑖 ∈ (0..^𝑀) ↦ 𝑅) = (𝑖 ∈ (0..^𝑀) ↦ 𝑅)
8736, 1, 61, 62, 63, 64, 66, 85, 67, 75, 25, 40, 41, 42, 76, 77, 78, 79, 82, 86fourierdlem89 40907 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (0..^𝑁)) → if((𝑍‘(𝐸‘(𝑆𝑗))) = (𝑄‘(𝐼‘(𝑆𝑗))), ((𝑖 ∈ (0..^𝑀) ↦ 𝑅)‘(𝐼‘(𝑆𝑗))), (𝐹‘(𝑍‘(𝐸‘(𝑆𝑗))))) ∈ ((𝐹 ↾ ((𝑆𝑗)(,)(𝑆‘(𝑗 + 1)))) lim (𝑆𝑗)))
88 fourierdlem107.l . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
8988adantlr 753 . . . . . . . . . . . . 13 (((𝜑𝑗 ∈ (0..^𝑁)) ∧ 𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
90 eqid 2752 . . . . . . . . . . . . 13 (𝑖 ∈ (0..^𝑀) ↦ 𝐿) = (𝑖 ∈ (0..^𝑀) ↦ 𝐿)
9136, 1, 61, 62, 63, 64, 66, 89, 67, 75, 25, 40, 41, 42, 76, 77, 78, 79, 82, 90fourierdlem91 40909 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (0..^𝑁)) → if((𝐸‘(𝑆‘(𝑗 + 1))) = (𝑄‘((𝐼‘(𝑆𝑗)) + 1)), ((𝑖 ∈ (0..^𝑀) ↦ 𝐿)‘(𝐼‘(𝑆𝑗))), (𝐹‘(𝐸‘(𝑆‘(𝑗 + 1))))) ∈ ((𝐹 ↾ ((𝑆𝑗)(,)(𝑆‘(𝑗 + 1)))) lim (𝑆‘(𝑗 + 1))))
9224, 3, 35, 45, 47, 48, 55, 58, 59, 60, 83, 87, 91fourierdlem92 40910 . . . . . . . . . . 11 (𝜑 → ∫(((𝐴𝑋) + 𝑇)[,](𝐴 + 𝑇))(𝐹𝑥) d𝑥 = ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)
9323, 92eqtrd 2786 . . . . . . . . . 10 (𝜑 → ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 = ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)
9460adantr 472 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐵)) → 𝐹:ℝ⟶ℂ)
9514adantr 472 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐵)) → (𝐵𝑋) ∈ ℝ)
968adantr 472 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐵)) → 𝐵 ∈ ℝ)
97 simpr 479 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐵)) → 𝑥 ∈ ((𝐵𝑋)[,]𝐵))
98 eliccre 40223 . . . . . . . . . . . . 13 (((𝐵𝑋) ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝑥 ∈ ((𝐵𝑋)[,]𝐵)) → 𝑥 ∈ ℝ)
9995, 96, 97, 98syl3anc 1473 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐵)) → 𝑥 ∈ ℝ)
10094, 99ffvelrnd 6515 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐵)) → (𝐹𝑥) ∈ ℂ)
10114rexrd 10273 . . . . . . . . . . . . 13 (𝜑 → (𝐵𝑋) ∈ ℝ*)
10269a1i 11 . . . . . . . . . . . . 13 (𝜑 → +∞ ∈ ℝ*)
1038, 5ltsubrpd 12089 . . . . . . . . . . . . 13 (𝜑 → (𝐵𝑋) < 𝐵)
1048ltpnfd 12140 . . . . . . . . . . . . 13 (𝜑𝐵 < +∞)
105101, 102, 8, 103, 104eliood 40215 . . . . . . . . . . . 12 (𝜑𝐵 ∈ ((𝐵𝑋)(,)+∞))
10636, 1, 37, 38, 60, 54, 65, 84, 88, 14, 105fourierdlem105 40923 . . . . . . . . . . 11 (𝜑 → (𝑥 ∈ ((𝐵𝑋)[,]𝐵) ↦ (𝐹𝑥)) ∈ 𝐿1)
107100, 106itgcl 23741 . . . . . . . . . 10 (𝜑 → ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 ∈ ℂ)
10893, 107eqeltrrd 2832 . . . . . . . . 9 (𝜑 → ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 ∈ ℂ)
109108subidd 10564 . . . . . . . 8 (𝜑 → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) = 0)
110109eqcomd 2758 . . . . . . 7 (𝜑 → 0 = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
111110adantr 472 . . . . . 6 ((𝜑𝑇 < 𝑋) → 0 = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
11224adantr 472 . . . . . . . 8 ((𝜑𝑇 < 𝑋) → (𝐴𝑋) ∈ ℝ)
1133adantr 472 . . . . . . . 8 ((𝜑𝑇 < 𝑋) → 𝐴 ∈ ℝ)
11414adantr 472 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → (𝐵𝑋) ∈ ℝ)
11536, 37, 38fourierdlem11 40830 . . . . . . . . . . . . 13 (𝜑 → (𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵))
116115simp3d 1138 . . . . . . . . . . . 12 (𝜑𝐴 < 𝐵)
1173, 8, 116ltled 10369 . . . . . . . . . . 11 (𝜑𝐴𝐵)
118117adantr 472 . . . . . . . . . 10 ((𝜑𝑇 < 𝑋) → 𝐴𝐵)
1193, 8, 6lesub1d 10818 . . . . . . . . . . 11 (𝜑 → (𝐴𝐵 ↔ (𝐴𝑋) ≤ (𝐵𝑋)))
120119adantr 472 . . . . . . . . . 10 ((𝜑𝑇 < 𝑋) → (𝐴𝐵 ↔ (𝐴𝑋) ≤ (𝐵𝑋)))
121118, 120mpbid 222 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → (𝐴𝑋) ≤ (𝐵𝑋))
1228adantr 472 . . . . . . . . . . 11 ((𝜑𝑇 < 𝑋) → 𝐵 ∈ ℝ)
1236adantr 472 . . . . . . . . . . 11 ((𝜑𝑇 < 𝑋) → 𝑋 ∈ ℝ)
124 simpr 479 . . . . . . . . . . . 12 ((𝜑𝑇 < 𝑋) → 𝑇 < 𝑋)
1251, 124syl5eqbrr 4832 . . . . . . . . . . 11 ((𝜑𝑇 < 𝑋) → (𝐵𝐴) < 𝑋)
126122, 113, 123, 125ltsub23d 10816 . . . . . . . . . 10 ((𝜑𝑇 < 𝑋) → (𝐵𝑋) < 𝐴)
127114, 113, 126ltled 10369 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → (𝐵𝑋) ≤ 𝐴)
128112, 113, 114, 121, 127eliccd 40221 . . . . . . . 8 ((𝜑𝑇 < 𝑋) → (𝐵𝑋) ∈ ((𝐴𝑋)[,]𝐴))
12960adantr 472 . . . . . . . . . 10 ((𝜑𝑥 ∈ ((𝐴𝑋)[,]𝐴)) → 𝐹:ℝ⟶ℂ)
130129, 53ffvelrnd 6515 . . . . . . . . 9 ((𝜑𝑥 ∈ ((𝐴𝑋)[,]𝐴)) → (𝐹𝑥) ∈ ℂ)
131130adantlr 753 . . . . . . . 8 (((𝜑𝑇 < 𝑋) ∧ 𝑥 ∈ ((𝐴𝑋)[,]𝐴)) → (𝐹𝑥) ∈ ℂ)
13224rexrd 10273 . . . . . . . . . . 11 (𝜑 → (𝐴𝑋) ∈ ℝ*)
1333, 8, 6, 116ltsub1dd 10823 . . . . . . . . . . 11 (𝜑 → (𝐴𝑋) < (𝐵𝑋))
13414ltpnfd 12140 . . . . . . . . . . 11 (𝜑 → (𝐵𝑋) < +∞)
135132, 102, 14, 133, 134eliood 40215 . . . . . . . . . 10 (𝜑 → (𝐵𝑋) ∈ ((𝐴𝑋)(,)+∞))
13636, 1, 37, 38, 60, 54, 65, 84, 88, 24, 135fourierdlem105 40923 . . . . . . . . 9 (𝜑 → (𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋)) ↦ (𝐹𝑥)) ∈ 𝐿1)
137136adantr 472 . . . . . . . 8 ((𝜑𝑇 < 𝑋) → (𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋)) ↦ (𝐹𝑥)) ∈ 𝐿1)
13837adantr 472 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → 𝑀 ∈ ℕ)
13938adantr 472 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → 𝑄 ∈ (𝑃𝑀))
14060adantr 472 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → 𝐹:ℝ⟶ℂ)
14154adantlr 753 . . . . . . . . 9 (((𝜑𝑇 < 𝑋) ∧ 𝑥 ∈ ℝ) → (𝐹‘(𝑥 + 𝑇)) = (𝐹𝑥))
14265adantlr 753 . . . . . . . . 9 (((𝜑𝑇 < 𝑋) ∧ 𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∈ (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))–cn→ℂ))
14384adantlr 753 . . . . . . . . 9 (((𝜑𝑇 < 𝑋) ∧ 𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)))
14488adantlr 753 . . . . . . . . 9 (((𝜑𝑇 < 𝑋) ∧ 𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
145101adantr 472 . . . . . . . . . 10 ((𝜑𝑇 < 𝑋) → (𝐵𝑋) ∈ ℝ*)
14669a1i 11 . . . . . . . . . 10 ((𝜑𝑇 < 𝑋) → +∞ ∈ ℝ*)
147113ltpnfd 12140 . . . . . . . . . 10 ((𝜑𝑇 < 𝑋) → 𝐴 < +∞)
148145, 146, 113, 126, 147eliood 40215 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → 𝐴 ∈ ((𝐵𝑋)(,)+∞))
14936, 1, 138, 139, 140, 141, 142, 143, 144, 114, 148fourierdlem105 40923 . . . . . . . 8 ((𝜑𝑇 < 𝑋) → (𝑥 ∈ ((𝐵𝑋)[,]𝐴) ↦ (𝐹𝑥)) ∈ 𝐿1)
150112, 113, 128, 131, 137, 149itgspliticc 23794 . . . . . . 7 ((𝜑𝑇 < 𝑋) → ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 = (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 + ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
151150oveq1d 6820 . . . . . 6 ((𝜑𝑇 < 𝑋) → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) = ((∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 + ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
15260adantr 472 . . . . . . . . . 10 ((𝜑𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋))) → 𝐹:ℝ⟶ℂ)
15324adantr 472 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋))) → (𝐴𝑋) ∈ ℝ)
15414adantr 472 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋))) → (𝐵𝑋) ∈ ℝ)
155 simpr 479 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋))) → 𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋)))
156 eliccre 40223 . . . . . . . . . . 11 (((𝐴𝑋) ∈ ℝ ∧ (𝐵𝑋) ∈ ℝ ∧ 𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋))) → 𝑥 ∈ ℝ)
157153, 154, 155, 156syl3anc 1473 . . . . . . . . . 10 ((𝜑𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋))) → 𝑥 ∈ ℝ)
158152, 157ffvelrnd 6515 . . . . . . . . 9 ((𝜑𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋))) → (𝐹𝑥) ∈ ℂ)
159158, 136itgcl 23741 . . . . . . . 8 (𝜑 → ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 ∈ ℂ)
160159adantr 472 . . . . . . 7 ((𝜑𝑇 < 𝑋) → ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 ∈ ℂ)
16160adantr 472 . . . . . . . . . 10 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐴)) → 𝐹:ℝ⟶ℂ)
16214adantr 472 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐴)) → (𝐵𝑋) ∈ ℝ)
1633adantr 472 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐴)) → 𝐴 ∈ ℝ)
164 simpr 479 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐴)) → 𝑥 ∈ ((𝐵𝑋)[,]𝐴))
165 eliccre 40223 . . . . . . . . . . 11 (((𝐵𝑋) ∈ ℝ ∧ 𝐴 ∈ ℝ ∧ 𝑥 ∈ ((𝐵𝑋)[,]𝐴)) → 𝑥 ∈ ℝ)
166162, 163, 164, 165syl3anc 1473 . . . . . . . . . 10 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐴)) → 𝑥 ∈ ℝ)
167161, 166ffvelrnd 6515 . . . . . . . . 9 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐴)) → (𝐹𝑥) ∈ ℂ)
168167adantlr 753 . . . . . . . 8 (((𝜑𝑇 < 𝑋) ∧ 𝑥 ∈ ((𝐵𝑋)[,]𝐴)) → (𝐹𝑥) ∈ ℂ)
169168, 149itgcl 23741 . . . . . . 7 ((𝜑𝑇 < 𝑋) → ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 ∈ ℂ)
170108adantr 472 . . . . . . 7 ((𝜑𝑇 < 𝑋) → ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 ∈ ℂ)
171160, 169, 170addsubassd 10596 . . . . . 6 ((𝜑𝑇 < 𝑋) → ((∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 + ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) = (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)))
172111, 151, 1713eqtrd 2790 . . . . 5 ((𝜑𝑇 < 𝑋) → 0 = (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)))
173172oveq2d 6821 . . . 4 ((𝜑𝑇 < 𝑋) → (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 − 0) = (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 − (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥))))
174160subid1d 10565 . . . 4 ((𝜑𝑇 < 𝑋) → (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 − 0) = ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥)
175159subidd 10564 . . . . . . 7 (𝜑 → (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥) = 0)
176175oveq1d 6820 . . . . . 6 (𝜑 → ((∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥) − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)) = (0 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)))
177176adantr 472 . . . . 5 ((𝜑𝑇 < 𝑋) → ((∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥) − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)) = (0 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)))
178169, 170subcld 10576 . . . . . 6 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) ∈ ℂ)
179160, 160, 178subsub4d 10607 . . . . 5 ((𝜑𝑇 < 𝑋) → ((∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥) − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)) = (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 − (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥))))
180 df-neg 10453 . . . . . 6 -(∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) = (0 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
181169, 170negsubdi2d 10592 . . . . . 6 ((𝜑𝑇 < 𝑋) → -(∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
182180, 181syl5eqr 2800 . . . . 5 ((𝜑𝑇 < 𝑋) → (0 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)) = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
183177, 179, 1823eqtr3d 2794 . . . 4 ((𝜑𝑇 < 𝑋) → (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 − (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥))) = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
184173, 174, 1833eqtr3d 2794 . . 3 ((𝜑𝑇 < 𝑋) → ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
185107subidd 10564 . . . . . . . 8 (𝜑 → (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) = 0)
186185eqcomd 2758 . . . . . . 7 (𝜑 → 0 = (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥))
187186oveq2d 6821 . . . . . 6 (𝜑 → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + 0) = (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)))
188187adantr 472 . . . . 5 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + 0) = (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)))
189169addid1d 10420 . . . . 5 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + 0) = ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥)
190114, 122, 113, 127, 118eliccd 40221 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → 𝐴 ∈ ((𝐵𝑋)[,]𝐵))
191100adantlr 753 . . . . . . . . 9 (((𝜑𝑇 < 𝑋) ∧ 𝑥 ∈ ((𝐵𝑋)[,]𝐵)) → (𝐹𝑥) ∈ ℂ)
1923, 8iccssred 40222 . . . . . . . . . . . 12 (𝜑 → (𝐴[,]𝐵) ⊆ ℝ)
19360, 192feqresmpt 6404 . . . . . . . . . . 11 (𝜑 → (𝐹 ↾ (𝐴[,]𝐵)) = (𝑥 ∈ (𝐴[,]𝐵) ↦ (𝐹𝑥)))
19460, 192fssresd 6224 . . . . . . . . . . . 12 (𝜑 → (𝐹 ↾ (𝐴[,]𝐵)):(𝐴[,]𝐵)⟶ℂ)
195 ioossicc 12444 . . . . . . . . . . . . . . 15 ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))) ⊆ ((𝑄𝑖)[,](𝑄‘(𝑖 + 1)))
1963rexrd 10273 . . . . . . . . . . . . . . . . 17 (𝜑𝐴 ∈ ℝ*)
197196adantr 472 . . . . . . . . . . . . . . . 16 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐴 ∈ ℝ*)
1988rexrd 10273 . . . . . . . . . . . . . . . . 17 (𝜑𝐵 ∈ ℝ*)
199198adantr 472 . . . . . . . . . . . . . . . 16 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐵 ∈ ℝ*)
20036, 37, 38fourierdlem15 40834 . . . . . . . . . . . . . . . . 17 (𝜑𝑄:(0...𝑀)⟶(𝐴[,]𝐵))
201200adantr 472 . . . . . . . . . . . . . . . 16 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑄:(0...𝑀)⟶(𝐴[,]𝐵))
202 simpr 479 . . . . . . . . . . . . . . . 16 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑖 ∈ (0..^𝑀))
203197, 199, 201, 202fourierdlem8 40827 . . . . . . . . . . . . . . 15 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑄𝑖)[,](𝑄‘(𝑖 + 1))) ⊆ (𝐴[,]𝐵))
204195, 203syl5ss 3747 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))) ⊆ (𝐴[,]𝐵))
205204resabs1d 5578 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝐹 ↾ (𝐴[,]𝐵)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) = (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))))
206205, 65eqeltrd 2831 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝐹 ↾ (𝐴[,]𝐵)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∈ (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))–cn→ℂ))
207205eqcomd 2758 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) = ((𝐹 ↾ (𝐴[,]𝐵)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))))
208207oveq1d 6820 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)) = (((𝐹 ↾ (𝐴[,]𝐵)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)))
20984, 208eleqtrd 2833 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ (((𝐹 ↾ (𝐴[,]𝐵)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)))
210207oveq1d 6820 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))) = (((𝐹 ↾ (𝐴[,]𝐵)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
21188, 210eleqtrd 2833 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ (((𝐹 ↾ (𝐴[,]𝐵)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
21236, 37, 38, 194, 206, 209, 211fourierdlem69 40887 . . . . . . . . . . 11 (𝜑 → (𝐹 ↾ (𝐴[,]𝐵)) ∈ 𝐿1)
213193, 212eqeltrrd 2832 . . . . . . . . . 10 (𝜑 → (𝑥 ∈ (𝐴[,]𝐵) ↦ (𝐹𝑥)) ∈ 𝐿1)
214213adantr 472 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → (𝑥 ∈ (𝐴[,]𝐵) ↦ (𝐹𝑥)) ∈ 𝐿1)
215114, 122, 190, 191, 149, 214itgspliticc 23794 . . . . . . . 8 ((𝜑𝑇 < 𝑋) → ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 = (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
216215oveq2d 6821 . . . . . . 7 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) = (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)))
217216oveq2d 6821 . . . . . 6 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)) = (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))))
218107adantr 472 . . . . . . 7 ((𝜑𝑇 < 𝑋) → ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 ∈ ℂ)
219215, 218eqeltrrd 2832 . . . . . . 7 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥) ∈ ℂ)
220169, 218, 219addsub12d 10599 . . . . . 6 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))) = (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))))
22160adantr 472 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝐹:ℝ⟶ℂ)
2223adantr 472 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝐴 ∈ ℝ)
2238adantr 472 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝐵 ∈ ℝ)
224 simpr 479 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝑥 ∈ (𝐴[,]𝐵))
225 eliccre 40223 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝑥 ∈ (𝐴[,]𝐵)) → 𝑥 ∈ ℝ)
226222, 223, 224, 225syl3anc 1473 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝑥 ∈ ℝ)
227221, 226ffvelrnd 6515 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → (𝐹𝑥) ∈ ℂ)
228227, 213itgcl 23741 . . . . . . . . . . 11 (𝜑 → ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 ∈ ℂ)
229228adantr 472 . . . . . . . . . 10 ((𝜑𝑇 < 𝑋) → ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 ∈ ℂ)
230169, 169, 229subsub4d 10607 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → ((∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥) = (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)))
231230eqcomd 2758 . . . . . . . 8 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)) = ((∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
232231oveq2d 6821 . . . . . . 7 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))) = (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 + ((∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)))
233169subidd 10564 . . . . . . . . . 10 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) = 0)
234233oveq1d 6820 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → ((∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥) = (0 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
235 df-neg 10453 . . . . . . . . 9 -∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 = (0 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
236234, 235syl6eqr 2804 . . . . . . . 8 ((𝜑𝑇 < 𝑋) → ((∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥) = -∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
237236oveq2d 6821 . . . . . . 7 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 + ((∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)) = (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 + -∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
238218, 229negsubd 10582 . . . . . . 7 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 + -∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥) = (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
239232, 237, 2383eqtrd 2790 . . . . . 6 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))) = (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
240217, 220, 2393eqtrd 2790 . . . . 5 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)) = (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
241188, 189, 2403eqtr3d 2794 . . . 4 ((𝜑𝑇 < 𝑋) → ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 = (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
242241oveq2d 6821 . . 3 ((𝜑𝑇 < 𝑋) → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)))
243108, 107, 228subsubd 10604 . . . . 5 (𝜑 → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)) = ((∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
24493oveq2d 6821 . . . . . . 7 (𝜑 → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
245244, 109eqtrd 2786 . . . . . 6 (𝜑 → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) = 0)
246245oveq1d 6820 . . . . 5 (𝜑 → ((∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥) = (0 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
247228addid2d 10421 . . . . 5 (𝜑 → (0 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥) = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
248243, 246, 2473eqtrd 2790 . . . 4 (𝜑 → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)) = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
249248adantr 472 . . 3 ((𝜑𝑇 < 𝑋) → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)) = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
250184, 242, 2493eqtrd 2790 . 2 ((𝜑𝑇 < 𝑋) → ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
25124adantr 472 . . . . 5 ((𝜑𝑋𝑇) → (𝐴𝑋) ∈ ℝ)
25214adantr 472 . . . . 5 ((𝜑𝑋𝑇) → (𝐵𝑋) ∈ ℝ)
2533adantr 472 . . . . . 6 ((𝜑𝑋𝑇) → 𝐴 ∈ ℝ)
25424, 3, 39ltled 10369 . . . . . . 7 (𝜑 → (𝐴𝑋) ≤ 𝐴)
255254adantr 472 . . . . . 6 ((𝜑𝑋𝑇) → (𝐴𝑋) ≤ 𝐴)
2566adantr 472 . . . . . . 7 ((𝜑𝑋𝑇) → 𝑋 ∈ ℝ)
2578adantr 472 . . . . . . 7 ((𝜑𝑋𝑇) → 𝐵 ∈ ℝ)
258 id 22 . . . . . . . . 9 (𝑋𝑇𝑋𝑇)
259258, 1syl6breq 4837 . . . . . . . 8 (𝑋𝑇𝑋 ≤ (𝐵𝐴))
260259adantl 473 . . . . . . 7 ((𝜑𝑋𝑇) → 𝑋 ≤ (𝐵𝐴))
261256, 257, 253, 260lesubd 10815 . . . . . 6 ((𝜑𝑋𝑇) → 𝐴 ≤ (𝐵𝑋))
262251, 252, 253, 255, 261eliccd 40221 . . . . 5 ((𝜑𝑋𝑇) → 𝐴 ∈ ((𝐴𝑋)[,](𝐵𝑋)))
263158adantlr 753 . . . . 5 (((𝜑𝑋𝑇) ∧ 𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋))) → (𝐹𝑥) ∈ ℂ)
264132, 102, 3, 39, 73eliood 40215 . . . . . . 7 (𝜑𝐴 ∈ ((𝐴𝑋)(,)+∞))
26536, 1, 37, 38, 60, 54, 65, 84, 88, 24, 264fourierdlem105 40923 . . . . . 6 (𝜑 → (𝑥 ∈ ((𝐴𝑋)[,]𝐴) ↦ (𝐹𝑥)) ∈ 𝐿1)
266265adantr 472 . . . . 5 ((𝜑𝑋𝑇) → (𝑥 ∈ ((𝐴𝑋)[,]𝐴) ↦ (𝐹𝑥)) ∈ 𝐿1)
2673leidd 10778 . . . . . . . 8 (𝜑𝐴𝐴)
2685rpge0d 12061 . . . . . . . . 9 (𝜑 → 0 ≤ 𝑋)
2698, 6subge02d 10803 . . . . . . . . 9 (𝜑 → (0 ≤ 𝑋 ↔ (𝐵𝑋) ≤ 𝐵))
270268, 269mpbid 222 . . . . . . . 8 (𝜑 → (𝐵𝑋) ≤ 𝐵)
271 iccss 12426 . . . . . . . 8 (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴𝐴 ∧ (𝐵𝑋) ≤ 𝐵)) → (𝐴[,](𝐵𝑋)) ⊆ (𝐴[,]𝐵))
2723, 8, 267, 270, 271syl22anc 1474 . . . . . . 7 (𝜑 → (𝐴[,](𝐵𝑋)) ⊆ (𝐴[,]𝐵))
273 iccmbl 23526 . . . . . . . 8 ((𝐴 ∈ ℝ ∧ (𝐵𝑋) ∈ ℝ) → (𝐴[,](𝐵𝑋)) ∈ dom vol)
2743, 14, 273syl2anc 696 . . . . . . 7 (𝜑 → (𝐴[,](𝐵𝑋)) ∈ dom vol)
275272, 274, 227, 213iblss 23762 . . . . . 6 (𝜑 → (𝑥 ∈ (𝐴[,](𝐵𝑋)) ↦ (𝐹𝑥)) ∈ 𝐿1)
276275adantr 472 . . . . 5 ((𝜑𝑋𝑇) → (𝑥 ∈ (𝐴[,](𝐵𝑋)) ↦ (𝐹𝑥)) ∈ 𝐿1)
277251, 252, 262, 263, 266, 276itgspliticc 23794 . . . 4 ((𝜑𝑋𝑇) → ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥))
278268adantr 472 . . . . . . . . . 10 ((𝜑𝑋𝑇) → 0 ≤ 𝑋)
279269adantr 472 . . . . . . . . . 10 ((𝜑𝑋𝑇) → (0 ≤ 𝑋 ↔ (𝐵𝑋) ≤ 𝐵))
280278, 279mpbid 222 . . . . . . . . 9 ((𝜑𝑋𝑇) → (𝐵𝑋) ≤ 𝐵)
281253, 257, 252, 261, 280eliccd 40221 . . . . . . . 8 ((𝜑𝑋𝑇) → (𝐵𝑋) ∈ (𝐴[,]𝐵))
282227adantlr 753 . . . . . . . 8 (((𝜑𝑋𝑇) ∧ 𝑥 ∈ (𝐴[,]𝐵)) → (𝐹𝑥) ∈ ℂ)
2838leidd 10778 . . . . . . . . . . 11 (𝜑𝐵𝐵)
284283adantr 472 . . . . . . . . . 10 ((𝜑𝑋𝑇) → 𝐵𝐵)
285 iccss 12426 . . . . . . . . . 10 (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 ≤ (𝐵𝑋) ∧ 𝐵𝐵)) → ((𝐵𝑋)[,]𝐵) ⊆ (𝐴[,]𝐵))
286253, 257, 261, 284, 285syl22anc 1474 . . . . . . . . 9 ((𝜑𝑋𝑇) → ((𝐵𝑋)[,]𝐵) ⊆ (𝐴[,]𝐵))
287 iccmbl 23526 . . . . . . . . . . 11 (((𝐵𝑋) ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((𝐵𝑋)[,]𝐵) ∈ dom vol)
28814, 8, 287syl2anc 696 . . . . . . . . . 10 (𝜑 → ((𝐵𝑋)[,]𝐵) ∈ dom vol)
289288adantr 472 . . . . . . . . 9 ((𝜑𝑋𝑇) → ((𝐵𝑋)[,]𝐵) ∈ dom vol)
290213adantr 472 . . . . . . . . 9 ((𝜑𝑋𝑇) → (𝑥 ∈ (𝐴[,]𝐵) ↦ (𝐹𝑥)) ∈ 𝐿1)
291286, 289, 282, 290iblss 23762 . . . . . . . 8 ((𝜑𝑋𝑇) → (𝑥 ∈ ((𝐵𝑋)[,]𝐵) ↦ (𝐹𝑥)) ∈ 𝐿1)
292253, 257, 281, 282, 276, 291itgspliticc 23794 . . . . . . 7 ((𝜑𝑋𝑇) → ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 = (∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥))
293292oveq1d 6820 . . . . . 6 ((𝜑𝑋𝑇) → (∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) = ((∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥))
29460adantr 472 . . . . . . . . . 10 ((𝜑𝑥 ∈ (𝐴[,](𝐵𝑋))) → 𝐹:ℝ⟶ℂ)
2953adantr 472 . . . . . . . . . . 11 ((𝜑𝑥 ∈ (𝐴[,](𝐵𝑋))) → 𝐴 ∈ ℝ)
29614adantr 472 . . . . . . . . . . 11 ((𝜑𝑥 ∈ (𝐴[,](𝐵𝑋))) → (𝐵𝑋) ∈ ℝ)
297 simpr 479 . . . . . . . . . . 11 ((𝜑𝑥 ∈ (𝐴[,](𝐵𝑋))) → 𝑥 ∈ (𝐴[,](𝐵𝑋)))
298 eliccre 40223 . . . . . . . . . . 11 ((𝐴 ∈ ℝ ∧ (𝐵𝑋) ∈ ℝ ∧ 𝑥 ∈ (𝐴[,](𝐵𝑋))) → 𝑥 ∈ ℝ)
299295, 296, 297, 298syl3anc 1473 . . . . . . . . . 10 ((𝜑𝑥 ∈ (𝐴[,](𝐵𝑋))) → 𝑥 ∈ ℝ)
300294, 299ffvelrnd 6515 . . . . . . . . 9 ((𝜑𝑥 ∈ (𝐴[,](𝐵𝑋))) → (𝐹𝑥) ∈ ℂ)
301300, 275itgcl 23741 . . . . . . . 8 (𝜑 → ∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 ∈ ℂ)
302301, 107, 107addsubassd 10596 . . . . . . 7 (𝜑 → ((∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) = (∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)))
303302adantr 472 . . . . . 6 ((𝜑𝑋𝑇) → ((∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) = (∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)))
304185oveq2d 6821 . . . . . . . 8 (𝜑 → (∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)) = (∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + 0))
305301addid1d 10420 . . . . . . . 8 (𝜑 → (∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + 0) = ∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥)
306304, 305eqtrd 2786 . . . . . . 7 (𝜑 → (∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)) = ∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥)
307306adantr 472 . . . . . 6 ((𝜑𝑋𝑇) → (∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)) = ∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥)
308293, 303, 3073eqtrrd 2791 . . . . 5 ((𝜑𝑋𝑇) → ∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 = (∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥))
309308oveq2d 6821 . . . 4 ((𝜑𝑋𝑇) → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥) = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + (∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)))
31093adantr 472 . . . . . . 7 ((𝜑𝑋𝑇) → ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 = ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)
311107adantr 472 . . . . . . 7 ((𝜑𝑋𝑇) → ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 ∈ ℂ)
312310, 311eqeltrrd 2832 . . . . . 6 ((𝜑𝑋𝑇) → ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 ∈ ℂ)
313282, 290itgcl 23741 . . . . . 6 ((𝜑𝑋𝑇) → ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 ∈ ℂ)
314312, 313, 311addsub12d 10599 . . . . 5 ((𝜑𝑋𝑇) → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + (∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)) = (∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 + (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)))
315313, 312, 311addsubassd 10596 . . . . 5 ((𝜑𝑋𝑇) → ((∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 + ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) = (∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 + (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)))
316314, 315eqtr4d 2789 . . . 4 ((𝜑𝑋𝑇) → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + (∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)) = ((∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 + ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥))
317277, 309, 3163eqtrd 2790 . . 3 ((𝜑𝑋𝑇) → ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 = ((∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 + ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥))
318310oveq2d 6821 . . 3 ((𝜑𝑋𝑇) → ((∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 + ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) = ((∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 + ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
319313, 312pncand 10577 . . 3 ((𝜑𝑋𝑇) → ((∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 + ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
320317, 318, 3193eqtrd 2790 . 2 ((𝜑𝑋𝑇) → ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
321250, 320, 47, 6ltlecasei 10329 1 (𝜑 → ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 383   = wceq 1624  wcel 2131  wral 3042  wrex 3043  {crab 3046  cun 3705  wss 3707  ifcif 4222  {cpr 4315   class class class wbr 4796  cmpt 4873  dom cdm 5258  ran crn 5259  cres 5260  cio 6002  wf 6037  cfv 6041   Isom wiso 6042  (class class class)co 6805  𝑚 cmap 8015  supcsup 8503  cc 10118  cr 10119  0cc0 10120  1c1 10121   + caddc 10123   · cmul 10125  +∞cpnf 10255  *cxr 10257   < clt 10258  cle 10259  cmin 10450  -cneg 10451   / cdiv 10868  cn 11204  cz 11561  +crp 12017  (,)cioo 12360  (,]cioc 12361  [,]cicc 12363  ...cfz 12511  ..^cfzo 12651  cfl 12777  chash 13303  cnccncf 22872  volcvol 23424  𝐿1cibl 23577  citg 23578   lim climc 23817
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1863  ax-4 1878  ax-5 1980  ax-6 2046  ax-7 2082  ax-8 2133  ax-9 2140  ax-10 2160  ax-11 2175  ax-12 2188  ax-13 2383  ax-ext 2732  ax-rep 4915  ax-sep 4925  ax-nul 4933  ax-pow 4984  ax-pr 5047  ax-un 7106  ax-inf2 8703  ax-cc 9441  ax-cnex 10176  ax-resscn 10177  ax-1cn 10178  ax-icn 10179  ax-addcl 10180  ax-addrcl 10181  ax-mulcl 10182  ax-mulrcl 10183  ax-mulcom 10184  ax-addass 10185  ax-mulass 10186  ax-distr 10187  ax-i2m1 10188  ax-1ne0 10189  ax-1rid 10190  ax-rnegex 10191  ax-rrecex 10192  ax-cnre 10193  ax-pre-lttri 10194  ax-pre-lttrn 10195  ax-pre-ltadd 10196  ax-pre-mulgt0 10197  ax-pre-sup 10198  ax-addf 10199  ax-mulf 10200
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1627  df-fal 1630  df-ex 1846  df-nf 1851  df-sb 2039  df-eu 2603  df-mo 2604  df-clab 2739  df-cleq 2745  df-clel 2748  df-nfc 2883  df-ne 2925  df-nel 3028  df-ral 3047  df-rex 3048  df-reu 3049  df-rmo 3050  df-rab 3051  df-v 3334  df-sbc 3569  df-csb 3667  df-dif 3710  df-un 3712  df-in 3714  df-ss 3721  df-pss 3723  df-nul 4051  df-if 4223  df-pw 4296  df-sn 4314  df-pr 4316  df-tp 4318  df-op 4320  df-uni 4581  df-int 4620  df-iun 4666  df-iin 4667  df-disj 4765  df-br 4797  df-opab 4857  df-mpt 4874  df-tr 4897  df-id 5166  df-eprel 5171  df-po 5179  df-so 5180  df-fr 5217  df-se 5218  df-we 5219  df-xp 5264  df-rel 5265  df-cnv 5266  df-co 5267  df-dm 5268  df-rn 5269  df-res 5270  df-ima 5271  df-pred 5833  df-ord 5879  df-on 5880  df-lim 5881  df-suc 5882  df-iota 6004  df-fun 6043  df-fn 6044  df-f 6045  df-f1 6046  df-fo 6047  df-f1o 6048  df-fv 6049  df-isom 6050  df-riota 6766  df-ov 6808  df-oprab 6809  df-mpt2 6810  df-of 7054  df-ofr 7055  df-om 7223  df-1st 7325  df-2nd 7326  df-supp 7456  df-wrecs 7568  df-recs 7629  df-rdg 7667  df-1o 7721  df-2o 7722  df-oadd 7725  df-omul 7726  df-er 7903  df-map 8017  df-pm 8018  df-ixp 8067  df-en 8114  df-dom 8115  df-sdom 8116  df-fin 8117  df-fsupp 8433  df-fi 8474  df-sup 8505  df-inf 8506  df-oi 8572  df-card 8947  df-acn 8950  df-cda 9174  df-pnf 10260  df-mnf 10261  df-xr 10262  df-ltxr 10263  df-le 10264  df-sub 10452  df-neg 10453  df-div 10869  df-nn 11205  df-2 11263  df-3 11264  df-4 11265  df-5 11266  df-6 11267  df-7 11268  df-8 11269  df-9 11270  df-n0 11477  df-xnn0 11548  df-z 11562  df-dec 11678  df-uz 11872  df-q 11974  df-rp 12018  df-xneg 12131  df-xadd 12132  df-xmul 12133  df-ioo 12364  df-ioc 12365  df-ico 12366  df-icc 12367  df-fz 12512  df-fzo 12652  df-fl 12779  df-mod 12855  df-seq 12988  df-exp 13047  df-hash 13304  df-cj 14030  df-re 14031  df-im 14032  df-sqrt 14166  df-abs 14167  df-limsup 14393  df-clim 14410  df-rlim 14411  df-sum 14608  df-struct 16053  df-ndx 16054  df-slot 16055  df-base 16057  df-sets 16058  df-ress 16059  df-plusg 16148  df-mulr 16149  df-starv 16150  df-sca 16151  df-vsca 16152  df-ip 16153  df-tset 16154  df-ple 16155  df-ds 16158  df-unif 16159  df-hom 16160  df-cco 16161  df-rest 16277  df-topn 16278  df-0g 16296  df-gsum 16297  df-topgen 16298  df-pt 16299  df-prds 16302  df-xrs 16356  df-qtop 16361  df-imas 16362  df-xps 16364  df-mre 16440  df-mrc 16441  df-acs 16443  df-mgm 17435  df-sgrp 17477  df-mnd 17488  df-submnd 17529  df-mulg 17734  df-cntz 17942  df-cmn 18387  df-psmet 19932  df-xmet 19933  df-met 19934  df-bl 19935  df-mopn 19936  df-fbas 19937  df-fg 19938  df-cnfld 19941  df-top 20893  df-topon 20910  df-topsp 20931  df-bases 20944  df-cld 21017  df-ntr 21018  df-cls 21019  df-nei 21096  df-lp 21134  df-perf 21135  df-cn 21225  df-cnp 21226  df-haus 21313  df-cmp 21384  df-tx 21559  df-hmeo 21752  df-fil 21843  df-fm 21935  df-flim 21936  df-flf 21937  df-xms 22318  df-ms 22319  df-tms 22320  df-cncf 22874  df-ovol 23425  df-vol 23426  df-mbf 23579  df-itg1 23580  df-itg2 23581  df-ibl 23582  df-itg 23583  df-0p 23628  df-ditg 23802  df-limc 23821  df-dv 23822
This theorem is referenced by:  fourierdlem108  40926
  Copyright terms: Public domain W3C validator