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 39724
Description: The integral of a piecewise continuous periodic function 𝐹 is unchanged if the domain is shifted by any positive value 𝑋. This lemma generalizes fourierdlem92 39709 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 6616 . . . . . . . . . . . . . . . 16 ((𝐴𝑋) + 𝑇) = ((𝐴𝑋) + (𝐵𝐴))
3 fourierdlem107.a . . . . . . . . . . . . . . . . . 18 (𝜑𝐴 ∈ ℝ)
43recnd 10013 . . . . . . . . . . . . . . . . 17 (𝜑𝐴 ∈ ℂ)
5 fourierdlem107.x . . . . . . . . . . . . . . . . . . 19 (𝜑𝑋 ∈ ℝ+)
65rpred 11816 . . . . . . . . . . . . . . . . . 18 (𝜑𝑋 ∈ ℝ)
76recnd 10013 . . . . . . . . . . . . . . . . 17 (𝜑𝑋 ∈ ℂ)
8 fourierdlem107.b . . . . . . . . . . . . . . . . . 18 (𝜑𝐵 ∈ ℝ)
98recnd 10013 . . . . . . . . . . . . . . . . 17 (𝜑𝐵 ∈ ℂ)
104, 7, 9, 4subadd4b 38945 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝐴𝑋) + (𝐵𝐴)) = ((𝐴𝐴) + (𝐵𝑋)))
112, 10syl5eq 2672 . . . . . . . . . . . . . . 15 (𝜑 → ((𝐴𝑋) + 𝑇) = ((𝐴𝐴) + (𝐵𝑋)))
124subidd 10325 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐴𝐴) = 0)
1312oveq1d 6620 . . . . . . . . . . . . . . 15 (𝜑 → ((𝐴𝐴) + (𝐵𝑋)) = (0 + (𝐵𝑋)))
148, 6resubcld 10403 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐵𝑋) ∈ ℝ)
1514recnd 10013 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐵𝑋) ∈ ℂ)
1615addid2d 10182 . . . . . . . . . . . . . . 15 (𝜑 → (0 + (𝐵𝑋)) = (𝐵𝑋))
1711, 13, 163eqtrd 2664 . . . . . . . . . . . . . 14 (𝜑 → ((𝐴𝑋) + 𝑇) = (𝐵𝑋))
181oveq2i 6616 . . . . . . . . . . . . . . 15 (𝐴 + 𝑇) = (𝐴 + (𝐵𝐴))
194, 9pncan3d 10340 . . . . . . . . . . . . . . 15 (𝜑 → (𝐴 + (𝐵𝐴)) = 𝐵)
2018, 19syl5eq 2672 . . . . . . . . . . . . . 14 (𝜑 → (𝐴 + 𝑇) = 𝐵)
2117, 20oveq12d 6623 . . . . . . . . . . . . 13 (𝜑 → (((𝐴𝑋) + 𝑇)[,](𝐴 + 𝑇)) = ((𝐵𝑋)[,]𝐵))
2221eqcomd 2632 . . . . . . . . . . . 12 (𝜑 → ((𝐵𝑋)[,]𝐵) = (((𝐴𝑋) + 𝑇)[,](𝐴 + 𝑇)))
2322itgeq1d 39466 . . . . . . . . . . 11 (𝜑 → ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 = ∫(((𝐴𝑋) + 𝑇)[,](𝐴 + 𝑇))(𝐹𝑥) d𝑥)
243, 6resubcld 10403 . . . . . . . . . . . 12 (𝜑 → (𝐴𝑋) ∈ ℝ)
25 fourierdlem107.o . . . . . . . . . . . . 13 𝑂 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = (𝐴𝑋) ∧ (𝑝𝑚) = 𝐴) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))})
26 fveq2 6150 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 𝑗 → (𝑝𝑖) = (𝑝𝑗))
27 oveq1 6612 . . . . . . . . . . . . . . . . . . . 20 (𝑖 = 𝑗 → (𝑖 + 1) = (𝑗 + 1))
2827fveq2d 6154 . . . . . . . . . . . . . . . . . . 19 (𝑖 = 𝑗 → (𝑝‘(𝑖 + 1)) = (𝑝‘(𝑗 + 1)))
2926, 28breq12d 4631 . . . . . . . . . . . . . . . . . 18 (𝑖 = 𝑗 → ((𝑝𝑖) < (𝑝‘(𝑖 + 1)) ↔ (𝑝𝑗) < (𝑝‘(𝑗 + 1))))
3029cbvralv 3164 . . . . . . . . . . . . . . . . 17 (∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)) ↔ ∀𝑗 ∈ (0..^𝑚)(𝑝𝑗) < (𝑝‘(𝑗 + 1)))
3130a1i 11 . . . . . . . . . . . . . . . 16 (𝑚 ∈ ℕ → (∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)) ↔ ∀𝑗 ∈ (0..^𝑚)(𝑝𝑗) < (𝑝‘(𝑗 + 1))))
3231anbi2d 739 . . . . . . . . . . . . . . 15 (𝑚 ∈ ℕ → ((((𝑝‘0) = (𝐴𝑋) ∧ (𝑝𝑚) = 𝐴) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1))) ↔ (((𝑝‘0) = (𝐴𝑋) ∧ (𝑝𝑚) = 𝐴) ∧ ∀𝑗 ∈ (0..^𝑚)(𝑝𝑗) < (𝑝‘(𝑗 + 1)))))
3332rabbidv 3182 . . . . . . . . . . . . . 14 (𝑚 ∈ ℕ → {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = (𝐴𝑋) ∧ (𝑝𝑚) = 𝐴) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))} = {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = (𝐴𝑋) ∧ (𝑝𝑚) = 𝐴) ∧ ∀𝑗 ∈ (0..^𝑚)(𝑝𝑗) < (𝑝‘(𝑗 + 1)))})
3433mpteq2ia 4705 . . . . . . . . . . . . 13 (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = (𝐴𝑋) ∧ (𝑝𝑚) = 𝐴) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))}) = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = (𝐴𝑋) ∧ (𝑝𝑚) = 𝐴) ∧ ∀𝑗 ∈ (0..^𝑚)(𝑝𝑗) < (𝑝‘(𝑗 + 1)))})
3525, 34eqtri 2648 . . . . . . . . . . . 12 𝑂 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = (𝐴𝑋) ∧ (𝑝𝑚) = 𝐴) ∧ ∀𝑗 ∈ (0..^𝑚)(𝑝𝑗) < (𝑝‘(𝑗 + 1)))})
36 fourierdlem107.p . . . . . . . . . . . . . . 15 𝑃 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = 𝐴 ∧ (𝑝𝑚) = 𝐵) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))})
37 fourierdlem107.m . . . . . . . . . . . . . . 15 (𝜑𝑀 ∈ ℕ)
38 fourierdlem107.q . . . . . . . . . . . . . . 15 (𝜑𝑄 ∈ (𝑃𝑀))
393, 5ltsubrpd 11848 . . . . . . . . . . . . . . 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 39671 . . . . . . . . . . . . . 14 (𝜑 → ((𝑁 ∈ ℕ ∧ 𝑆 ∈ (𝑂𝑁)) ∧ 𝑆 Isom < , < ((0...𝑁), 𝐻)))
4443simpld 475 . . . . . . . . . . . . 13 (𝜑 → (𝑁 ∈ ℕ ∧ 𝑆 ∈ (𝑂𝑁)))
4544simpld 475 . . . . . . . . . . . 12 (𝜑𝑁 ∈ ℕ)
468, 3resubcld 10403 . . . . . . . . . . . . 13 (𝜑 → (𝐵𝐴) ∈ ℝ)
471, 46syl5eqel 2708 . . . . . . . . . . . 12 (𝜑𝑇 ∈ ℝ)
4844simprd 479 . . . . . . . . . . . 12 (𝜑𝑆 ∈ (𝑂𝑁))
4924adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ ((𝐴𝑋)[,]𝐴)) → (𝐴𝑋) ∈ ℝ)
503adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ ((𝐴𝑋)[,]𝐴)) → 𝐴 ∈ ℝ)
51 simpr 477 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ ((𝐴𝑋)[,]𝐴)) → 𝑥 ∈ ((𝐴𝑋)[,]𝐴))
52 eliccre 39126 . . . . . . . . . . . . . 14 (((𝐴𝑋) ∈ ℝ ∧ 𝐴 ∈ ℝ ∧ 𝑥 ∈ ((𝐴𝑋)[,]𝐴)) → 𝑥 ∈ ℝ)
5349, 50, 51, 52syl3anc 1323 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ ((𝐴𝑋)[,]𝐴)) → 𝑥 ∈ ℝ)
54 fourierdlem107.fper . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ ℝ) → (𝐹‘(𝑥 + 𝑇)) = (𝐹𝑥))
5553, 54syldan 487 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ ((𝐴𝑋)[,]𝐴)) → (𝐹‘(𝑥 + 𝑇)) = (𝐹𝑥))
56 fveq2 6150 . . . . . . . . . . . . . 14 (𝑖 = 𝑗 → (𝑆𝑖) = (𝑆𝑗))
5756oveq1d 6620 . . . . . . . . . . . . 13 (𝑖 = 𝑗 → ((𝑆𝑖) + 𝑇) = ((𝑆𝑗) + 𝑇))
5857cbvmptv 4715 . . . . . . . . . . . 12 (𝑖 ∈ (0...𝑁) ↦ ((𝑆𝑖) + 𝑇)) = (𝑗 ∈ (0...𝑁) ↦ ((𝑆𝑗) + 𝑇))
59 eqid 2626 . . . . . . . . . . . 12 (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = ((𝐴𝑋) + 𝑇) ∧ (𝑝𝑚) = (𝐴 + 𝑇)) ∧ ∀𝑗 ∈ (0..^𝑚)(𝑝𝑗) < (𝑝‘(𝑗 + 1)))}) = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = ((𝐴𝑋) + 𝑇) ∧ (𝑝𝑚) = (𝐴 + 𝑇)) ∧ ∀𝑗 ∈ (0..^𝑚)(𝑝𝑗) < (𝑝‘(𝑗 + 1)))})
60 fourierdlem107.f . . . . . . . . . . . 12 (𝜑𝐹:ℝ⟶ℂ)
6137adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (0..^𝑁)) → 𝑀 ∈ ℕ)
6238adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (0..^𝑁)) → 𝑄 ∈ (𝑃𝑀))
6360adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (0..^𝑁)) → 𝐹:ℝ⟶ℂ)
6454adantlr 750 . . . . . . . . . . . . 13 (((𝜑𝑗 ∈ (0..^𝑁)) ∧ 𝑥 ∈ ℝ) → (𝐹‘(𝑥 + 𝑇)) = (𝐹𝑥))
65 fourierdlem107.fcn . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∈ (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))–cn→ℂ))
6665adantlr 750 . . . . . . . . . . . . 13 (((𝜑𝑗 ∈ (0..^𝑁)) ∧ 𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∈ (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))–cn→ℂ))
6724adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (0..^𝑁)) → (𝐴𝑋) ∈ ℝ)
6867rexrd 10034 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (0..^𝑁)) → (𝐴𝑋) ∈ ℝ*)
69 pnfxr 10037 . . . . . . . . . . . . . . 15 +∞ ∈ ℝ*
7069a1i 11 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (0..^𝑁)) → +∞ ∈ ℝ*)
713adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (0..^𝑁)) → 𝐴 ∈ ℝ)
7239adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (0..^𝑁)) → (𝐴𝑋) < 𝐴)
733ltpnfd 11899 . . . . . . . . . . . . . . 15 (𝜑𝐴 < +∞)
7473adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (0..^𝑁)) → 𝐴 < +∞)
7568, 70, 71, 72, 74eliood 39118 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (0..^𝑁)) → 𝐴 ∈ ((𝐴𝑋)(,)+∞))
76 fourierdlem107.e . . . . . . . . . . . . 13 𝐸 = (𝑥 ∈ ℝ ↦ (𝑥 + ((⌊‘((𝐵𝑥) / 𝑇)) · 𝑇)))
77 fourierdlem107.z . . . . . . . . . . . . 13 𝑍 = (𝑦 ∈ (𝐴(,]𝐵) ↦ if(𝑦 = 𝐵, 𝐴, 𝑦))
78 simpr 477 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (0..^𝑁)) → 𝑗 ∈ (0..^𝑁))
79 eqid 2626 . . . . . . . . . . . . 13 ((𝑆‘(𝑗 + 1)) − (𝐸‘(𝑆‘(𝑗 + 1)))) = ((𝑆‘(𝑗 + 1)) − (𝐸‘(𝑆‘(𝑗 + 1))))
80 eqid 2626 . . . . . . . . . . . . 13 (𝐹 ↾ ((𝑍‘(𝐸‘(𝑆𝑗)))(,)(𝐸‘(𝑆‘(𝑗 + 1))))) = (𝐹 ↾ ((𝑍‘(𝐸‘(𝑆𝑗)))(,)(𝐸‘(𝑆‘(𝑗 + 1)))))
81 eqid 2626 . . . . . . . . . . . . 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 39707 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (0..^𝑁)) → (𝐹 ↾ ((𝑆𝑗)(,)(𝑆‘(𝑗 + 1)))) ∈ (((𝑆𝑗)(,)(𝑆‘(𝑗 + 1)))–cn→ℂ))
84 fourierdlem107.r . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)))
8584adantlr 750 . . . . . . . . . . . . 13 (((𝜑𝑗 ∈ (0..^𝑁)) ∧ 𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)))
86 eqid 2626 . . . . . . . . . . . . 13 (𝑖 ∈ (0..^𝑀) ↦ 𝑅) = (𝑖 ∈ (0..^𝑀) ↦ 𝑅)
8736, 1, 61, 62, 63, 64, 66, 85, 67, 75, 25, 40, 41, 42, 76, 77, 78, 79, 82, 86fourierdlem89 39706 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (0..^𝑁)) → if((𝑍‘(𝐸‘(𝑆𝑗))) = (𝑄‘(𝐼‘(𝑆𝑗))), ((𝑖 ∈ (0..^𝑀) ↦ 𝑅)‘(𝐼‘(𝑆𝑗))), (𝐹‘(𝑍‘(𝐸‘(𝑆𝑗))))) ∈ ((𝐹 ↾ ((𝑆𝑗)(,)(𝑆‘(𝑗 + 1)))) lim (𝑆𝑗)))
88 fourierdlem107.l . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
8988adantlr 750 . . . . . . . . . . . . 13 (((𝜑𝑗 ∈ (0..^𝑁)) ∧ 𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
90 eqid 2626 . . . . . . . . . . . . 13 (𝑖 ∈ (0..^𝑀) ↦ 𝐿) = (𝑖 ∈ (0..^𝑀) ↦ 𝐿)
9136, 1, 61, 62, 63, 64, 66, 89, 67, 75, 25, 40, 41, 42, 76, 77, 78, 79, 82, 90fourierdlem91 39708 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (0..^𝑁)) → if((𝐸‘(𝑆‘(𝑗 + 1))) = (𝑄‘((𝐼‘(𝑆𝑗)) + 1)), ((𝑖 ∈ (0..^𝑀) ↦ 𝐿)‘(𝐼‘(𝑆𝑗))), (𝐹‘(𝐸‘(𝑆‘(𝑗 + 1))))) ∈ ((𝐹 ↾ ((𝑆𝑗)(,)(𝑆‘(𝑗 + 1)))) lim (𝑆‘(𝑗 + 1))))
9224, 3, 35, 45, 47, 48, 55, 58, 59, 60, 83, 87, 91fourierdlem92 39709 . . . . . . . . . . 11 (𝜑 → ∫(((𝐴𝑋) + 𝑇)[,](𝐴 + 𝑇))(𝐹𝑥) d𝑥 = ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)
9323, 92eqtrd 2660 . . . . . . . . . 10 (𝜑 → ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 = ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)
9460adantr 481 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐵)) → 𝐹:ℝ⟶ℂ)
9514adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐵)) → (𝐵𝑋) ∈ ℝ)
968adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐵)) → 𝐵 ∈ ℝ)
97 simpr 477 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐵)) → 𝑥 ∈ ((𝐵𝑋)[,]𝐵))
98 eliccre 39126 . . . . . . . . . . . . 13 (((𝐵𝑋) ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝑥 ∈ ((𝐵𝑋)[,]𝐵)) → 𝑥 ∈ ℝ)
9995, 96, 97, 98syl3anc 1323 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐵)) → 𝑥 ∈ ℝ)
10094, 99ffvelrnd 6317 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐵)) → (𝐹𝑥) ∈ ℂ)
10114rexrd 10034 . . . . . . . . . . . . 13 (𝜑 → (𝐵𝑋) ∈ ℝ*)
10269a1i 11 . . . . . . . . . . . . 13 (𝜑 → +∞ ∈ ℝ*)
1038, 5ltsubrpd 11848 . . . . . . . . . . . . 13 (𝜑 → (𝐵𝑋) < 𝐵)
1048ltpnfd 11899 . . . . . . . . . . . . 13 (𝜑𝐵 < +∞)
105101, 102, 8, 103, 104eliood 39118 . . . . . . . . . . . 12 (𝜑𝐵 ∈ ((𝐵𝑋)(,)+∞))
10636, 1, 37, 38, 60, 54, 65, 84, 88, 14, 105fourierdlem105 39722 . . . . . . . . . . 11 (𝜑 → (𝑥 ∈ ((𝐵𝑋)[,]𝐵) ↦ (𝐹𝑥)) ∈ 𝐿1)
107100, 106itgcl 23451 . . . . . . . . . 10 (𝜑 → ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 ∈ ℂ)
10893, 107eqeltrrd 2705 . . . . . . . . 9 (𝜑 → ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 ∈ ℂ)
109108subidd 10325 . . . . . . . 8 (𝜑 → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) = 0)
110109eqcomd 2632 . . . . . . 7 (𝜑 → 0 = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
111110adantr 481 . . . . . 6 ((𝜑𝑇 < 𝑋) → 0 = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
11224adantr 481 . . . . . . . 8 ((𝜑𝑇 < 𝑋) → (𝐴𝑋) ∈ ℝ)
1133adantr 481 . . . . . . . 8 ((𝜑𝑇 < 𝑋) → 𝐴 ∈ ℝ)
11414adantr 481 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → (𝐵𝑋) ∈ ℝ)
11536, 37, 38fourierdlem11 39629 . . . . . . . . . . . . 13 (𝜑 → (𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝐴 < 𝐵))
116115simp3d 1073 . . . . . . . . . . . 12 (𝜑𝐴 < 𝐵)
1173, 8, 116ltled 10130 . . . . . . . . . . 11 (𝜑𝐴𝐵)
118117adantr 481 . . . . . . . . . 10 ((𝜑𝑇 < 𝑋) → 𝐴𝐵)
1193, 8, 6lesub1d 10579 . . . . . . . . . . 11 (𝜑 → (𝐴𝐵 ↔ (𝐴𝑋) ≤ (𝐵𝑋)))
120119adantr 481 . . . . . . . . . 10 ((𝜑𝑇 < 𝑋) → (𝐴𝐵 ↔ (𝐴𝑋) ≤ (𝐵𝑋)))
121118, 120mpbid 222 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → (𝐴𝑋) ≤ (𝐵𝑋))
1228adantr 481 . . . . . . . . . . 11 ((𝜑𝑇 < 𝑋) → 𝐵 ∈ ℝ)
1236adantr 481 . . . . . . . . . . 11 ((𝜑𝑇 < 𝑋) → 𝑋 ∈ ℝ)
124 simpr 477 . . . . . . . . . . . 12 ((𝜑𝑇 < 𝑋) → 𝑇 < 𝑋)
1251, 124syl5eqbrr 4654 . . . . . . . . . . 11 ((𝜑𝑇 < 𝑋) → (𝐵𝐴) < 𝑋)
126122, 113, 123, 125ltsub23d 10577 . . . . . . . . . 10 ((𝜑𝑇 < 𝑋) → (𝐵𝑋) < 𝐴)
127114, 113, 126ltled 10130 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → (𝐵𝑋) ≤ 𝐴)
128112, 113, 114, 121, 127eliccd 39124 . . . . . . . 8 ((𝜑𝑇 < 𝑋) → (𝐵𝑋) ∈ ((𝐴𝑋)[,]𝐴))
12960adantr 481 . . . . . . . . . 10 ((𝜑𝑥 ∈ ((𝐴𝑋)[,]𝐴)) → 𝐹:ℝ⟶ℂ)
130129, 53ffvelrnd 6317 . . . . . . . . 9 ((𝜑𝑥 ∈ ((𝐴𝑋)[,]𝐴)) → (𝐹𝑥) ∈ ℂ)
131130adantlr 750 . . . . . . . 8 (((𝜑𝑇 < 𝑋) ∧ 𝑥 ∈ ((𝐴𝑋)[,]𝐴)) → (𝐹𝑥) ∈ ℂ)
13224rexrd 10034 . . . . . . . . . . 11 (𝜑 → (𝐴𝑋) ∈ ℝ*)
1333, 8, 6, 116ltsub1dd 10584 . . . . . . . . . . 11 (𝜑 → (𝐴𝑋) < (𝐵𝑋))
13414ltpnfd 11899 . . . . . . . . . . 11 (𝜑 → (𝐵𝑋) < +∞)
135132, 102, 14, 133, 134eliood 39118 . . . . . . . . . 10 (𝜑 → (𝐵𝑋) ∈ ((𝐴𝑋)(,)+∞))
13636, 1, 37, 38, 60, 54, 65, 84, 88, 24, 135fourierdlem105 39722 . . . . . . . . 9 (𝜑 → (𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋)) ↦ (𝐹𝑥)) ∈ 𝐿1)
137136adantr 481 . . . . . . . 8 ((𝜑𝑇 < 𝑋) → (𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋)) ↦ (𝐹𝑥)) ∈ 𝐿1)
13837adantr 481 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → 𝑀 ∈ ℕ)
13938adantr 481 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → 𝑄 ∈ (𝑃𝑀))
14060adantr 481 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → 𝐹:ℝ⟶ℂ)
14154adantlr 750 . . . . . . . . 9 (((𝜑𝑇 < 𝑋) ∧ 𝑥 ∈ ℝ) → (𝐹‘(𝑥 + 𝑇)) = (𝐹𝑥))
14265adantlr 750 . . . . . . . . 9 (((𝜑𝑇 < 𝑋) ∧ 𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∈ (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))–cn→ℂ))
14384adantlr 750 . . . . . . . . 9 (((𝜑𝑇 < 𝑋) ∧ 𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)))
14488adantlr 750 . . . . . . . . 9 (((𝜑𝑇 < 𝑋) ∧ 𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
145101adantr 481 . . . . . . . . . 10 ((𝜑𝑇 < 𝑋) → (𝐵𝑋) ∈ ℝ*)
14669a1i 11 . . . . . . . . . 10 ((𝜑𝑇 < 𝑋) → +∞ ∈ ℝ*)
147113ltpnfd 11899 . . . . . . . . . 10 ((𝜑𝑇 < 𝑋) → 𝐴 < +∞)
148145, 146, 113, 126, 147eliood 39118 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → 𝐴 ∈ ((𝐵𝑋)(,)+∞))
14936, 1, 138, 139, 140, 141, 142, 143, 144, 114, 148fourierdlem105 39722 . . . . . . . 8 ((𝜑𝑇 < 𝑋) → (𝑥 ∈ ((𝐵𝑋)[,]𝐴) ↦ (𝐹𝑥)) ∈ 𝐿1)
150112, 113, 128, 131, 137, 149itgspliticc 23504 . . . . . . 7 ((𝜑𝑇 < 𝑋) → ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 = (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 + ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
151150oveq1d 6620 . . . . . 6 ((𝜑𝑇 < 𝑋) → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) = ((∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 + ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
15260adantr 481 . . . . . . . . . 10 ((𝜑𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋))) → 𝐹:ℝ⟶ℂ)
15324adantr 481 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋))) → (𝐴𝑋) ∈ ℝ)
15414adantr 481 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋))) → (𝐵𝑋) ∈ ℝ)
155 simpr 477 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋))) → 𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋)))
156 eliccre 39126 . . . . . . . . . . 11 (((𝐴𝑋) ∈ ℝ ∧ (𝐵𝑋) ∈ ℝ ∧ 𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋))) → 𝑥 ∈ ℝ)
157153, 154, 155, 156syl3anc 1323 . . . . . . . . . 10 ((𝜑𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋))) → 𝑥 ∈ ℝ)
158152, 157ffvelrnd 6317 . . . . . . . . 9 ((𝜑𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋))) → (𝐹𝑥) ∈ ℂ)
159158, 136itgcl 23451 . . . . . . . 8 (𝜑 → ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 ∈ ℂ)
160159adantr 481 . . . . . . 7 ((𝜑𝑇 < 𝑋) → ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 ∈ ℂ)
16160adantr 481 . . . . . . . . . 10 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐴)) → 𝐹:ℝ⟶ℂ)
16214adantr 481 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐴)) → (𝐵𝑋) ∈ ℝ)
1633adantr 481 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐴)) → 𝐴 ∈ ℝ)
164 simpr 477 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐴)) → 𝑥 ∈ ((𝐵𝑋)[,]𝐴))
165 eliccre 39126 . . . . . . . . . . 11 (((𝐵𝑋) ∈ ℝ ∧ 𝐴 ∈ ℝ ∧ 𝑥 ∈ ((𝐵𝑋)[,]𝐴)) → 𝑥 ∈ ℝ)
166162, 163, 164, 165syl3anc 1323 . . . . . . . . . 10 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐴)) → 𝑥 ∈ ℝ)
167161, 166ffvelrnd 6317 . . . . . . . . 9 ((𝜑𝑥 ∈ ((𝐵𝑋)[,]𝐴)) → (𝐹𝑥) ∈ ℂ)
168167adantlr 750 . . . . . . . 8 (((𝜑𝑇 < 𝑋) ∧ 𝑥 ∈ ((𝐵𝑋)[,]𝐴)) → (𝐹𝑥) ∈ ℂ)
169168, 149itgcl 23451 . . . . . . 7 ((𝜑𝑇 < 𝑋) → ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 ∈ ℂ)
170108adantr 481 . . . . . . 7 ((𝜑𝑇 < 𝑋) → ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 ∈ ℂ)
171160, 169, 170addsubassd 10357 . . . . . 6 ((𝜑𝑇 < 𝑋) → ((∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 + ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) = (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)))
172111, 151, 1713eqtrd 2664 . . . . 5 ((𝜑𝑇 < 𝑋) → 0 = (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)))
173172oveq2d 6621 . . . 4 ((𝜑𝑇 < 𝑋) → (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 − 0) = (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 − (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥))))
174160subid1d 10326 . . . 4 ((𝜑𝑇 < 𝑋) → (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 − 0) = ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥)
175159subidd 10325 . . . . . . 7 (𝜑 → (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥) = 0)
176175oveq1d 6620 . . . . . 6 (𝜑 → ((∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥) − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)) = (0 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)))
177176adantr 481 . . . . 5 ((𝜑𝑇 < 𝑋) → ((∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥) − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)) = (0 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)))
178169, 170subcld 10337 . . . . . 6 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) ∈ ℂ)
179160, 160, 178subsub4d 10368 . . . . 5 ((𝜑𝑇 < 𝑋) → ((∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥) − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)) = (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 − (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥))))
180 df-neg 10214 . . . . . 6 -(∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) = (0 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
181169, 170negsubdi2d 10353 . . . . . 6 ((𝜑𝑇 < 𝑋) → -(∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
182180, 181syl5eqr 2674 . . . . 5 ((𝜑𝑇 < 𝑋) → (0 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)) = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
183177, 179, 1823eqtr3d 2668 . . . 4 ((𝜑𝑇 < 𝑋) → (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 − (∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥))) = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
184173, 174, 1833eqtr3d 2668 . . 3 ((𝜑𝑇 < 𝑋) → ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
185107subidd 10325 . . . . . . . 8 (𝜑 → (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) = 0)
186185eqcomd 2632 . . . . . . 7 (𝜑 → 0 = (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥))
187186oveq2d 6621 . . . . . 6 (𝜑 → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + 0) = (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)))
188187adantr 481 . . . . 5 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + 0) = (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)))
189169addid1d 10181 . . . . 5 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + 0) = ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥)
190114, 122, 113, 127, 118eliccd 39124 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → 𝐴 ∈ ((𝐵𝑋)[,]𝐵))
191100adantlr 750 . . . . . . . . 9 (((𝜑𝑇 < 𝑋) ∧ 𝑥 ∈ ((𝐵𝑋)[,]𝐵)) → (𝐹𝑥) ∈ ℂ)
1923, 8iccssred 39125 . . . . . . . . . . . 12 (𝜑 → (𝐴[,]𝐵) ⊆ ℝ)
19360, 192feqresmpt 6208 . . . . . . . . . . 11 (𝜑 → (𝐹 ↾ (𝐴[,]𝐵)) = (𝑥 ∈ (𝐴[,]𝐵) ↦ (𝐹𝑥)))
19460, 192fssresd 6030 . . . . . . . . . . . 12 (𝜑 → (𝐹 ↾ (𝐴[,]𝐵)):(𝐴[,]𝐵)⟶ℂ)
195 ioossicc 12198 . . . . . . . . . . . . . . 15 ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))) ⊆ ((𝑄𝑖)[,](𝑄‘(𝑖 + 1)))
1963rexrd 10034 . . . . . . . . . . . . . . . . 17 (𝜑𝐴 ∈ ℝ*)
197196adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐴 ∈ ℝ*)
1988rexrd 10034 . . . . . . . . . . . . . . . . 17 (𝜑𝐵 ∈ ℝ*)
199198adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐵 ∈ ℝ*)
20036, 37, 38fourierdlem15 39633 . . . . . . . . . . . . . . . . 17 (𝜑𝑄:(0...𝑀)⟶(𝐴[,]𝐵))
201200adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑄:(0...𝑀)⟶(𝐴[,]𝐵))
202 simpr 477 . . . . . . . . . . . . . . . 16 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑖 ∈ (0..^𝑀))
203197, 199, 201, 202fourierdlem8 39626 . . . . . . . . . . . . . . 15 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑄𝑖)[,](𝑄‘(𝑖 + 1))) ⊆ (𝐴[,]𝐵))
204195, 203syl5ss 3599 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))) ⊆ (𝐴[,]𝐵))
205204resabs1d 5391 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝐹 ↾ (𝐴[,]𝐵)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) = (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))))
206205, 65eqeltrd 2704 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝐹 ↾ (𝐴[,]𝐵)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∈ (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))–cn→ℂ))
207205eqcomd 2632 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) = ((𝐹 ↾ (𝐴[,]𝐵)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))))
208207oveq1d 6620 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)) = (((𝐹 ↾ (𝐴[,]𝐵)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)))
20984, 208eleqtrd 2706 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ (((𝐹 ↾ (𝐴[,]𝐵)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)))
210207oveq1d 6620 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))) = (((𝐹 ↾ (𝐴[,]𝐵)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
21188, 210eleqtrd 2706 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ (((𝐹 ↾ (𝐴[,]𝐵)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
21236, 37, 38, 194, 206, 209, 211fourierdlem69 39686 . . . . . . . . . . 11 (𝜑 → (𝐹 ↾ (𝐴[,]𝐵)) ∈ 𝐿1)
213193, 212eqeltrrd 2705 . . . . . . . . . 10 (𝜑 → (𝑥 ∈ (𝐴[,]𝐵) ↦ (𝐹𝑥)) ∈ 𝐿1)
214213adantr 481 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → (𝑥 ∈ (𝐴[,]𝐵) ↦ (𝐹𝑥)) ∈ 𝐿1)
215114, 122, 190, 191, 149, 214itgspliticc 23504 . . . . . . . 8 ((𝜑𝑇 < 𝑋) → ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 = (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
216215oveq2d 6621 . . . . . . 7 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) = (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)))
217216oveq2d 6621 . . . . . 6 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)) = (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))))
218107adantr 481 . . . . . . 7 ((𝜑𝑇 < 𝑋) → ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 ∈ ℂ)
219215, 218eqeltrrd 2705 . . . . . . 7 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥) ∈ ℂ)
220169, 218, 219addsub12d 10360 . . . . . 6 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))) = (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))))
22160adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝐹:ℝ⟶ℂ)
2223adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝐴 ∈ ℝ)
2238adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝐵 ∈ ℝ)
224 simpr 477 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝑥 ∈ (𝐴[,]𝐵))
225 eliccre 39126 . . . . . . . . . . . . . 14 ((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ ∧ 𝑥 ∈ (𝐴[,]𝐵)) → 𝑥 ∈ ℝ)
226222, 223, 224, 225syl3anc 1323 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → 𝑥 ∈ ℝ)
227221, 226ffvelrnd 6317 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ (𝐴[,]𝐵)) → (𝐹𝑥) ∈ ℂ)
228227, 213itgcl 23451 . . . . . . . . . . 11 (𝜑 → ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 ∈ ℂ)
229228adantr 481 . . . . . . . . . 10 ((𝜑𝑇 < 𝑋) → ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 ∈ ℂ)
230169, 169, 229subsub4d 10368 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → ((∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥) = (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)))
231230eqcomd 2632 . . . . . . . 8 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)) = ((∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
232231oveq2d 6621 . . . . . . 7 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))) = (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 + ((∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)))
233169subidd 10325 . . . . . . . . . 10 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) = 0)
234233oveq1d 6620 . . . . . . . . 9 ((𝜑𝑇 < 𝑋) → ((∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥) = (0 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
235 df-neg 10214 . . . . . . . . 9 -∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 = (0 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
236234, 235syl6eqr 2678 . . . . . . . 8 ((𝜑𝑇 < 𝑋) → ((∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥) = -∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
237236oveq2d 6621 . . . . . . 7 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 + ((∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)) = (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 + -∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
238218, 229negsubd 10343 . . . . . . 7 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 + -∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥) = (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
239232, 237, 2383eqtrd 2664 . . . . . 6 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))) = (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
240217, 220, 2393eqtrd 2664 . . . . 5 ((𝜑𝑇 < 𝑋) → (∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)) = (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
241188, 189, 2403eqtr3d 2668 . . . 4 ((𝜑𝑇 < 𝑋) → ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥 = (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
242241oveq2d 6621 . . 3 ((𝜑𝑇 < 𝑋) → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐴)(𝐹𝑥) d𝑥) = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)))
243108, 107, 228subsubd 10365 . . . . 5 (𝜑 → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)) = ((∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
24493oveq2d 6621 . . . . . . 7 (𝜑 → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
245244, 109eqtrd 2660 . . . . . 6 (𝜑 → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) = 0)
246245oveq1d 6620 . . . . 5 (𝜑 → ((∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥) = (0 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥))
247228addid2d 10182 . . . . 5 (𝜑 → (0 + ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥) = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
248243, 246, 2473eqtrd 2664 . . . 4 (𝜑 → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)) = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
249248adantr 481 . . 3 ((𝜑𝑇 < 𝑋) → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)) = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
250184, 242, 2493eqtrd 2664 . 2 ((𝜑𝑇 < 𝑋) → ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
25124adantr 481 . . . . 5 ((𝜑𝑋𝑇) → (𝐴𝑋) ∈ ℝ)
25214adantr 481 . . . . 5 ((𝜑𝑋𝑇) → (𝐵𝑋) ∈ ℝ)
2533adantr 481 . . . . . 6 ((𝜑𝑋𝑇) → 𝐴 ∈ ℝ)
25424, 3, 39ltled 10130 . . . . . . 7 (𝜑 → (𝐴𝑋) ≤ 𝐴)
255254adantr 481 . . . . . 6 ((𝜑𝑋𝑇) → (𝐴𝑋) ≤ 𝐴)
2566adantr 481 . . . . . . 7 ((𝜑𝑋𝑇) → 𝑋 ∈ ℝ)
2578adantr 481 . . . . . . 7 ((𝜑𝑋𝑇) → 𝐵 ∈ ℝ)
258 id 22 . . . . . . . . 9 (𝑋𝑇𝑋𝑇)
259258, 1syl6breq 4659 . . . . . . . 8 (𝑋𝑇𝑋 ≤ (𝐵𝐴))
260259adantl 482 . . . . . . 7 ((𝜑𝑋𝑇) → 𝑋 ≤ (𝐵𝐴))
261256, 257, 253, 260lesubd 10576 . . . . . 6 ((𝜑𝑋𝑇) → 𝐴 ≤ (𝐵𝑋))
262251, 252, 253, 255, 261eliccd 39124 . . . . 5 ((𝜑𝑋𝑇) → 𝐴 ∈ ((𝐴𝑋)[,](𝐵𝑋)))
263158adantlr 750 . . . . 5 (((𝜑𝑋𝑇) ∧ 𝑥 ∈ ((𝐴𝑋)[,](𝐵𝑋))) → (𝐹𝑥) ∈ ℂ)
264132, 102, 3, 39, 73eliood 39118 . . . . . . 7 (𝜑𝐴 ∈ ((𝐴𝑋)(,)+∞))
26536, 1, 37, 38, 60, 54, 65, 84, 88, 24, 264fourierdlem105 39722 . . . . . 6 (𝜑 → (𝑥 ∈ ((𝐴𝑋)[,]𝐴) ↦ (𝐹𝑥)) ∈ 𝐿1)
266265adantr 481 . . . . 5 ((𝜑𝑋𝑇) → (𝑥 ∈ ((𝐴𝑋)[,]𝐴) ↦ (𝐹𝑥)) ∈ 𝐿1)
2673leidd 10539 . . . . . . . 8 (𝜑𝐴𝐴)
2685rpge0d 11820 . . . . . . . . 9 (𝜑 → 0 ≤ 𝑋)
2698, 6subge02d 10564 . . . . . . . . 9 (𝜑 → (0 ≤ 𝑋 ↔ (𝐵𝑋) ≤ 𝐵))
270268, 269mpbid 222 . . . . . . . 8 (𝜑 → (𝐵𝑋) ≤ 𝐵)
271 iccss 12180 . . . . . . . 8 (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴𝐴 ∧ (𝐵𝑋) ≤ 𝐵)) → (𝐴[,](𝐵𝑋)) ⊆ (𝐴[,]𝐵))
2723, 8, 267, 270, 271syl22anc 1324 . . . . . . 7 (𝜑 → (𝐴[,](𝐵𝑋)) ⊆ (𝐴[,]𝐵))
273 iccmbl 23236 . . . . . . . 8 ((𝐴 ∈ ℝ ∧ (𝐵𝑋) ∈ ℝ) → (𝐴[,](𝐵𝑋)) ∈ dom vol)
2743, 14, 273syl2anc 692 . . . . . . 7 (𝜑 → (𝐴[,](𝐵𝑋)) ∈ dom vol)
275272, 274, 227, 213iblss 23472 . . . . . 6 (𝜑 → (𝑥 ∈ (𝐴[,](𝐵𝑋)) ↦ (𝐹𝑥)) ∈ 𝐿1)
276275adantr 481 . . . . 5 ((𝜑𝑋𝑇) → (𝑥 ∈ (𝐴[,](𝐵𝑋)) ↦ (𝐹𝑥)) ∈ 𝐿1)
277251, 252, 262, 263, 266, 276itgspliticc 23504 . . . 4 ((𝜑𝑋𝑇) → ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥))
278268adantr 481 . . . . . . . . . 10 ((𝜑𝑋𝑇) → 0 ≤ 𝑋)
279269adantr 481 . . . . . . . . . 10 ((𝜑𝑋𝑇) → (0 ≤ 𝑋 ↔ (𝐵𝑋) ≤ 𝐵))
280278, 279mpbid 222 . . . . . . . . 9 ((𝜑𝑋𝑇) → (𝐵𝑋) ≤ 𝐵)
281253, 257, 252, 261, 280eliccd 39124 . . . . . . . 8 ((𝜑𝑋𝑇) → (𝐵𝑋) ∈ (𝐴[,]𝐵))
282227adantlr 750 . . . . . . . 8 (((𝜑𝑋𝑇) ∧ 𝑥 ∈ (𝐴[,]𝐵)) → (𝐹𝑥) ∈ ℂ)
2838leidd 10539 . . . . . . . . . . 11 (𝜑𝐵𝐵)
284283adantr 481 . . . . . . . . . 10 ((𝜑𝑋𝑇) → 𝐵𝐵)
285 iccss 12180 . . . . . . . . . 10 (((𝐴 ∈ ℝ ∧ 𝐵 ∈ ℝ) ∧ (𝐴 ≤ (𝐵𝑋) ∧ 𝐵𝐵)) → ((𝐵𝑋)[,]𝐵) ⊆ (𝐴[,]𝐵))
286253, 257, 261, 284, 285syl22anc 1324 . . . . . . . . 9 ((𝜑𝑋𝑇) → ((𝐵𝑋)[,]𝐵) ⊆ (𝐴[,]𝐵))
287 iccmbl 23236 . . . . . . . . . . 11 (((𝐵𝑋) ∈ ℝ ∧ 𝐵 ∈ ℝ) → ((𝐵𝑋)[,]𝐵) ∈ dom vol)
28814, 8, 287syl2anc 692 . . . . . . . . . 10 (𝜑 → ((𝐵𝑋)[,]𝐵) ∈ dom vol)
289288adantr 481 . . . . . . . . 9 ((𝜑𝑋𝑇) → ((𝐵𝑋)[,]𝐵) ∈ dom vol)
290213adantr 481 . . . . . . . . 9 ((𝜑𝑋𝑇) → (𝑥 ∈ (𝐴[,]𝐵) ↦ (𝐹𝑥)) ∈ 𝐿1)
291286, 289, 282, 290iblss 23472 . . . . . . . 8 ((𝜑𝑋𝑇) → (𝑥 ∈ ((𝐵𝑋)[,]𝐵) ↦ (𝐹𝑥)) ∈ 𝐿1)
292253, 257, 281, 282, 276, 291itgspliticc 23504 . . . . . . 7 ((𝜑𝑋𝑇) → ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 = (∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥))
293292oveq1d 6620 . . . . . 6 ((𝜑𝑋𝑇) → (∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) = ((∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥))
29460adantr 481 . . . . . . . . . 10 ((𝜑𝑥 ∈ (𝐴[,](𝐵𝑋))) → 𝐹:ℝ⟶ℂ)
2953adantr 481 . . . . . . . . . . 11 ((𝜑𝑥 ∈ (𝐴[,](𝐵𝑋))) → 𝐴 ∈ ℝ)
29614adantr 481 . . . . . . . . . . 11 ((𝜑𝑥 ∈ (𝐴[,](𝐵𝑋))) → (𝐵𝑋) ∈ ℝ)
297 simpr 477 . . . . . . . . . . 11 ((𝜑𝑥 ∈ (𝐴[,](𝐵𝑋))) → 𝑥 ∈ (𝐴[,](𝐵𝑋)))
298 eliccre 39126 . . . . . . . . . . 11 ((𝐴 ∈ ℝ ∧ (𝐵𝑋) ∈ ℝ ∧ 𝑥 ∈ (𝐴[,](𝐵𝑋))) → 𝑥 ∈ ℝ)
299295, 296, 297, 298syl3anc 1323 . . . . . . . . . 10 ((𝜑𝑥 ∈ (𝐴[,](𝐵𝑋))) → 𝑥 ∈ ℝ)
300294, 299ffvelrnd 6317 . . . . . . . . 9 ((𝜑𝑥 ∈ (𝐴[,](𝐵𝑋))) → (𝐹𝑥) ∈ ℂ)
301300, 275itgcl 23451 . . . . . . . 8 (𝜑 → ∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 ∈ ℂ)
302301, 107, 107addsubassd 10357 . . . . . . 7 (𝜑 → ((∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) = (∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)))
303302adantr 481 . . . . . 6 ((𝜑𝑋𝑇) → ((∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) = (∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)))
304185oveq2d 6621 . . . . . . . 8 (𝜑 → (∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)) = (∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + 0))
305301addid1d 10181 . . . . . . . 8 (𝜑 → (∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + 0) = ∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥)
306304, 305eqtrd 2660 . . . . . . 7 (𝜑 → (∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)) = ∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥)
307306adantr 481 . . . . . 6 ((𝜑𝑋𝑇) → (∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 + (∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)) = ∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥)
308293, 303, 3073eqtrrd 2665 . . . . 5 ((𝜑𝑋𝑇) → ∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥 = (∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥))
309308oveq2d 6621 . . . 4 ((𝜑𝑋𝑇) → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + ∫(𝐴[,](𝐵𝑋))(𝐹𝑥) d𝑥) = (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + (∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)))
31093adantr 481 . . . . . . 7 ((𝜑𝑋𝑇) → ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 = ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥)
311107adantr 481 . . . . . . 7 ((𝜑𝑋𝑇) → ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥 ∈ ℂ)
312310, 311eqeltrrd 2705 . . . . . 6 ((𝜑𝑋𝑇) → ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 ∈ ℂ)
313282, 290itgcl 23451 . . . . . 6 ((𝜑𝑋𝑇) → ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 ∈ ℂ)
314312, 313, 311addsub12d 10360 . . . . 5 ((𝜑𝑋𝑇) → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + (∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)) = (∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 + (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)))
315313, 312, 311addsubassd 10357 . . . . 5 ((𝜑𝑋𝑇) → ((∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 + ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) = (∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 + (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)))
316314, 315eqtr4d 2663 . . . 4 ((𝜑𝑋𝑇) → (∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥 + (∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥)) = ((∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 + ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥))
317277, 309, 3163eqtrd 2664 . . 3 ((𝜑𝑋𝑇) → ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 = ((∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 + ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥))
318310oveq2d 6621 . . 3 ((𝜑𝑋𝑇) → ((∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 + ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫((𝐵𝑋)[,]𝐵)(𝐹𝑥) d𝑥) = ((∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 + ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥))
319313, 312pncand 10338 . . 3 ((𝜑𝑋𝑇) → ((∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥 + ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) − ∫((𝐴𝑋)[,]𝐴)(𝐹𝑥) d𝑥) = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
320317, 318, 3193eqtrd 2664 . 2 ((𝜑𝑋𝑇) → ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
321250, 320, 47, 6ltlecasei 10090 1 (𝜑 → ∫((𝐴𝑋)[,](𝐵𝑋))(𝐹𝑥) d𝑥 = ∫(𝐴[,]𝐵)(𝐹𝑥) d𝑥)
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 384   = wceq 1480  wcel 1992  wral 2912  wrex 2913  {crab 2916  cun 3558  wss 3560  ifcif 4063  {cpr 4155   class class class wbr 4618  cmpt 4678  dom cdm 5079  ran crn 5080  cres 5081  cio 5811  wf 5846  cfv 5850   Isom wiso 5851  (class class class)co 6605  𝑚 cmap 7803  supcsup 8291  cc 9879  cr 9880  0cc0 9881  1c1 9882   + caddc 9884   · cmul 9886  +∞cpnf 10016  *cxr 10018   < clt 10019  cle 10020  cmin 10211  -cneg 10212   / cdiv 10629  cn 10965  cz 11322  +crp 11776  (,)cioo 12114  (,]cioc 12115  [,]cicc 12117  ...cfz 12265  ..^cfzo 12403  cfl 12528  #chash 13054  cnccncf 22582  volcvol 23134  𝐿1cibl 23287  citg 23288   lim climc 23527
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1841  ax-6 1890  ax-7 1937  ax-8 1994  ax-9 2001  ax-10 2021  ax-11 2036  ax-12 2049  ax-13 2250  ax-ext 2606  ax-rep 4736  ax-sep 4746  ax-nul 4754  ax-pow 4808  ax-pr 4872  ax-un 6903  ax-inf2 8483  ax-cc 9202  ax-cnex 9937  ax-resscn 9938  ax-1cn 9939  ax-icn 9940  ax-addcl 9941  ax-addrcl 9942  ax-mulcl 9943  ax-mulrcl 9944  ax-mulcom 9945  ax-addass 9946  ax-mulass 9947  ax-distr 9948  ax-i2m1 9949  ax-1ne0 9950  ax-1rid 9951  ax-rnegex 9952  ax-rrecex 9953  ax-cnre 9954  ax-pre-lttri 9955  ax-pre-lttrn 9956  ax-pre-ltadd 9957  ax-pre-mulgt0 9958  ax-pre-sup 9959  ax-addf 9960  ax-mulf 9961
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1483  df-fal 1486  df-ex 1702  df-nf 1707  df-sb 1883  df-eu 2478  df-mo 2479  df-clab 2613  df-cleq 2619  df-clel 2622  df-nfc 2756  df-ne 2797  df-nel 2900  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3193  df-sbc 3423  df-csb 3520  df-dif 3563  df-un 3565  df-in 3567  df-ss 3574  df-pss 3576  df-nul 3897  df-if 4064  df-pw 4137  df-sn 4154  df-pr 4156  df-tp 4158  df-op 4160  df-uni 4408  df-int 4446  df-iun 4492  df-iin 4493  df-disj 4589  df-br 4619  df-opab 4679  df-mpt 4680  df-tr 4718  df-eprel 4990  df-id 4994  df-po 5000  df-so 5001  df-fr 5038  df-se 5039  df-we 5040  df-xp 5085  df-rel 5086  df-cnv 5087  df-co 5088  df-dm 5089  df-rn 5090  df-res 5091  df-ima 5092  df-pred 5642  df-ord 5688  df-on 5689  df-lim 5690  df-suc 5691  df-iota 5813  df-fun 5852  df-fn 5853  df-f 5854  df-f1 5855  df-fo 5856  df-f1o 5857  df-fv 5858  df-isom 5859  df-riota 6566  df-ov 6608  df-oprab 6609  df-mpt2 6610  df-of 6851  df-ofr 6852  df-om 7014  df-1st 7116  df-2nd 7117  df-supp 7242  df-wrecs 7353  df-recs 7414  df-rdg 7452  df-1o 7506  df-2o 7507  df-oadd 7510  df-omul 7511  df-er 7688  df-map 7805  df-pm 7806  df-ixp 7854  df-en 7901  df-dom 7902  df-sdom 7903  df-fin 7904  df-fsupp 8221  df-fi 8262  df-sup 8293  df-inf 8294  df-oi 8360  df-card 8710  df-acn 8713  df-cda 8935  df-pnf 10021  df-mnf 10022  df-xr 10023  df-ltxr 10024  df-le 10025  df-sub 10213  df-neg 10214  df-div 10630  df-nn 10966  df-2 11024  df-3 11025  df-4 11026  df-5 11027  df-6 11028  df-7 11029  df-8 11030  df-9 11031  df-n0 11238  df-xnn0 11309  df-z 11323  df-dec 11438  df-uz 11632  df-q 11733  df-rp 11777  df-xneg 11890  df-xadd 11891  df-xmul 11892  df-ioo 12118  df-ioc 12119  df-ico 12120  df-icc 12121  df-fz 12266  df-fzo 12404  df-fl 12530  df-mod 12606  df-seq 12739  df-exp 12798  df-hash 13055  df-cj 13768  df-re 13769  df-im 13770  df-sqrt 13904  df-abs 13905  df-limsup 14131  df-clim 14148  df-rlim 14149  df-sum 14346  df-struct 15778  df-ndx 15779  df-slot 15780  df-base 15781  df-sets 15782  df-ress 15783  df-plusg 15870  df-mulr 15871  df-starv 15872  df-sca 15873  df-vsca 15874  df-ip 15875  df-tset 15876  df-ple 15877  df-ds 15880  df-unif 15881  df-hom 15882  df-cco 15883  df-rest 15999  df-topn 16000  df-0g 16018  df-gsum 16019  df-topgen 16020  df-pt 16021  df-prds 16024  df-xrs 16078  df-qtop 16083  df-imas 16084  df-xps 16086  df-mre 16162  df-mrc 16163  df-acs 16165  df-mgm 17158  df-sgrp 17200  df-mnd 17211  df-submnd 17252  df-mulg 17457  df-cntz 17666  df-cmn 18111  df-psmet 19652  df-xmet 19653  df-met 19654  df-bl 19655  df-mopn 19656  df-fbas 19657  df-fg 19658  df-cnfld 19661  df-top 20616  df-bases 20617  df-topon 20618  df-topsp 20619  df-cld 20728  df-ntr 20729  df-cls 20730  df-nei 20807  df-lp 20845  df-perf 20846  df-cn 20936  df-cnp 20937  df-haus 21024  df-cmp 21095  df-tx 21270  df-hmeo 21463  df-fil 21555  df-fm 21647  df-flim 21648  df-flf 21649  df-xms 22030  df-ms 22031  df-tms 22032  df-cncf 22584  df-ovol 23135  df-vol 23136  df-mbf 23289  df-itg1 23290  df-itg2 23291  df-ibl 23292  df-itg 23293  df-0p 23338  df-ditg 23512  df-limc 23531  df-dv 23532
This theorem is referenced by:  fourierdlem108  39725
  Copyright terms: Public domain W3C validator