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

Theorem fourierdlem111 39767
Description: The fourier partial sum for 𝐹 is the sum of two integrals, with the same integrand involving 𝐹 and the Dirichlet Kernel 𝐷, but on two opposite intervals. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
fourierdlem111.a 𝐴 = (𝑛 ∈ ℕ0 ↦ (∫(-π(,)π)((𝐹𝑡) · (cos‘(𝑛 · 𝑡))) d𝑡 / π))
fourierdlem111.b 𝐵 = (𝑛 ∈ ℕ ↦ (∫(-π(,)π)((𝐹𝑡) · (sin‘(𝑛 · 𝑡))) d𝑡 / π))
fourierdlem111.s 𝑆 = (𝑚 ∈ ℕ ↦ (((𝐴‘0) / 2) + Σ𝑛 ∈ (1...𝑚)(((𝐴𝑛) · (cos‘(𝑛 · 𝑋))) + ((𝐵𝑛) · (sin‘(𝑛 · 𝑋))))))
fourierdlem111.d 𝐷 = (𝑛 ∈ ℕ ↦ (𝑦 ∈ ℝ ↦ if((𝑦 mod (2 · π)) = 0, (((2 · 𝑛) + 1) / (2 · π)), ((sin‘((𝑛 + (1 / 2)) · 𝑦)) / ((2 · π) · (sin‘(𝑦 / 2)))))))
fourierdlem111.p 𝑃 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = -π ∧ (𝑝𝑚) = π) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))})
fourierdlem111.m (𝜑𝑀 ∈ ℕ)
fourierdlem111.q (𝜑𝑄 ∈ (𝑃𝑀))
fourierdlem111.x (𝜑𝑋 ∈ ℝ)
fourierdlem111.6 (𝜑𝐹:ℝ⟶ℝ)
fourierdlem111.fper ((𝜑𝑥 ∈ ℝ) → (𝐹‘(𝑥 + 𝑇)) = (𝐹𝑥))
fourierdlem111.g 𝐺 = (𝑥 ∈ ℝ ↦ ((𝐹‘(𝑋 + 𝑥)) · ((𝐷𝑛)‘𝑥)))
fourierdlem111.fcn ((𝜑𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∈ (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))–cn→ℂ))
fourierdlem111.r ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)))
fourierdlem111.l ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
fourierdlem111.t 𝑇 = (2 · π)
fourierdlem111.o 𝑂 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = (-π − 𝑋) ∧ (𝑝𝑚) = (π − 𝑋)) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))})
fourierdlem111.14 𝑊 = (𝑖 ∈ (0...𝑀) ↦ ((𝑄𝑖) − 𝑋))
Assertion
Ref Expression
fourierdlem111 ((𝜑𝑛 ∈ ℕ) → (𝑆𝑛) = (∫(-π(,)0)((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠 + ∫(0(,)π)((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠))
Distinct variable groups:   𝐴,𝑚,𝑛   𝐵,𝑚   𝐷,𝑖,𝑚,𝑦   𝐷,𝑠,𝑡,𝑖,𝑦   𝑥,𝐷,𝑖,𝑠,𝑦   𝑖,𝐹,𝑛,𝑠,𝑡,𝑦   𝑥,𝐹,𝑛   𝑖,𝐺,𝑠,𝑥   𝐿,𝑠,𝑡   𝑥,𝐿   𝑖,𝑀,𝑚,𝑝   𝑀,𝑠,𝑡,𝑦   𝑥,𝑀   𝑄,𝑖,𝑝   𝑄,𝑠,𝑡,𝑦   𝑥,𝑄   𝑅,𝑠,𝑡   𝑥,𝑅   𝑇,𝑠,𝑥   𝑖,𝑊,𝑚,𝑝   𝑊,𝑠,𝑥,𝑦   𝑖,𝑋,𝑚,𝑛,𝑦   𝑋,𝑝   𝑋,𝑠,𝑡   𝑥,𝑋   𝜑,𝑖,𝑚,𝑛,𝑦   𝜑,𝑠,𝑡   𝜑,𝑥
Allowed substitution hints:   𝜑(𝑝)   𝐴(𝑥,𝑦,𝑡,𝑖,𝑠,𝑝)   𝐵(𝑥,𝑦,𝑡,𝑖,𝑛,𝑠,𝑝)   𝐷(𝑛,𝑝)   𝑃(𝑥,𝑦,𝑡,𝑖,𝑚,𝑛,𝑠,𝑝)   𝑄(𝑚,𝑛)   𝑅(𝑦,𝑖,𝑚,𝑛,𝑝)   𝑆(𝑥,𝑦,𝑡,𝑖,𝑚,𝑛,𝑠,𝑝)   𝑇(𝑦,𝑡,𝑖,𝑚,𝑛,𝑝)   𝐹(𝑚,𝑝)   𝐺(𝑦,𝑡,𝑚,𝑛,𝑝)   𝐿(𝑦,𝑖,𝑚,𝑛,𝑝)   𝑀(𝑛)   𝑂(𝑥,𝑦,𝑡,𝑖,𝑚,𝑛,𝑠,𝑝)   𝑊(𝑡,𝑛)

Proof of Theorem fourierdlem111
Dummy variables 𝑘 𝑗 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eleq1 2686 . . . . . 6 (𝑘 = 𝑛 → (𝑘 ∈ ℕ ↔ 𝑛 ∈ ℕ))
21anbi2d 739 . . . . 5 (𝑘 = 𝑛 → ((𝜑𝑘 ∈ ℕ) ↔ (𝜑𝑛 ∈ ℕ)))
3 fveq2 6153 . . . . . 6 (𝑘 = 𝑛 → (𝑆𝑘) = (𝑆𝑛))
4 fveq2 6153 . . . . . . . . . 10 (𝑘 = 𝑛 → (𝐷𝑘) = (𝐷𝑛))
54fveq1d 6155 . . . . . . . . 9 (𝑘 = 𝑛 → ((𝐷𝑘)‘(𝑡𝑋)) = ((𝐷𝑛)‘(𝑡𝑋)))
65oveq2d 6626 . . . . . . . 8 (𝑘 = 𝑛 → ((𝐹𝑡) · ((𝐷𝑘)‘(𝑡𝑋))) = ((𝐹𝑡) · ((𝐷𝑛)‘(𝑡𝑋))))
76adantr 481 . . . . . . 7 ((𝑘 = 𝑛𝑡 ∈ (-π(,)π)) → ((𝐹𝑡) · ((𝐷𝑘)‘(𝑡𝑋))) = ((𝐹𝑡) · ((𝐷𝑛)‘(𝑡𝑋))))
87itgeq2dv 23471 . . . . . 6 (𝑘 = 𝑛 → ∫(-π(,)π)((𝐹𝑡) · ((𝐷𝑘)‘(𝑡𝑋))) d𝑡 = ∫(-π(,)π)((𝐹𝑡) · ((𝐷𝑛)‘(𝑡𝑋))) d𝑡)
93, 8eqeq12d 2636 . . . . 5 (𝑘 = 𝑛 → ((𝑆𝑘) = ∫(-π(,)π)((𝐹𝑡) · ((𝐷𝑘)‘(𝑡𝑋))) d𝑡 ↔ (𝑆𝑛) = ∫(-π(,)π)((𝐹𝑡) · ((𝐷𝑛)‘(𝑡𝑋))) d𝑡))
102, 9imbi12d 334 . . . 4 (𝑘 = 𝑛 → (((𝜑𝑘 ∈ ℕ) → (𝑆𝑘) = ∫(-π(,)π)((𝐹𝑡) · ((𝐷𝑘)‘(𝑡𝑋))) d𝑡) ↔ ((𝜑𝑛 ∈ ℕ) → (𝑆𝑛) = ∫(-π(,)π)((𝐹𝑡) · ((𝐷𝑛)‘(𝑡𝑋))) d𝑡)))
11 fourierdlem111.6 . . . . . 6 (𝜑𝐹:ℝ⟶ℝ)
1211adantr 481 . . . . 5 ((𝜑𝑘 ∈ ℕ) → 𝐹:ℝ⟶ℝ)
13 eqid 2621 . . . . 5 (-π(,)π) = (-π(,)π)
14 ioossre 12185 . . . . . . . . 9 (-π(,)π) ⊆ ℝ
1514a1i 11 . . . . . . . 8 (𝜑 → (-π(,)π) ⊆ ℝ)
1611, 15feqresmpt 6212 . . . . . . 7 (𝜑 → (𝐹 ↾ (-π(,)π)) = (𝑥 ∈ (-π(,)π) ↦ (𝐹𝑥)))
17 ioossicc 12209 . . . . . . . . 9 (-π(,)π) ⊆ (-π[,]π)
1817a1i 11 . . . . . . . 8 (𝜑 → (-π(,)π) ⊆ (-π[,]π))
19 ioombl 23256 . . . . . . . . 9 (-π(,)π) ∈ dom vol
2019a1i 11 . . . . . . . 8 (𝜑 → (-π(,)π) ∈ dom vol)
2111adantr 481 . . . . . . . . 9 ((𝜑𝑥 ∈ (-π[,]π)) → 𝐹:ℝ⟶ℝ)
22 pire 24131 . . . . . . . . . . . . . . 15 π ∈ ℝ
2322renegcli 10294 . . . . . . . . . . . . . 14 -π ∈ ℝ
2423, 22elicc2i 12189 . . . . . . . . . . . . 13 (𝑡 ∈ (-π[,]π) ↔ (𝑡 ∈ ℝ ∧ -π ≤ 𝑡𝑡 ≤ π))
2524simp1bi 1074 . . . . . . . . . . . 12 (𝑡 ∈ (-π[,]π) → 𝑡 ∈ ℝ)
2625ssriv 3591 . . . . . . . . . . 11 (-π[,]π) ⊆ ℝ
2726a1i 11 . . . . . . . . . 10 (𝜑 → (-π[,]π) ⊆ ℝ)
2827sselda 3587 . . . . . . . . 9 ((𝜑𝑥 ∈ (-π[,]π)) → 𝑥 ∈ ℝ)
2921, 28ffvelrnd 6321 . . . . . . . 8 ((𝜑𝑥 ∈ (-π[,]π)) → (𝐹𝑥) ∈ ℝ)
3011, 27feqresmpt 6212 . . . . . . . . 9 (𝜑 → (𝐹 ↾ (-π[,]π)) = (𝑥 ∈ (-π[,]π) ↦ (𝐹𝑥)))
31 fourierdlem111.p . . . . . . . . . 10 𝑃 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = -π ∧ (𝑝𝑚) = π) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))})
32 fourierdlem111.m . . . . . . . . . 10 (𝜑𝑀 ∈ ℕ)
33 fourierdlem111.q . . . . . . . . . 10 (𝜑𝑄 ∈ (𝑃𝑀))
34 ax-resscn 9945 . . . . . . . . . . . . 13 ℝ ⊆ ℂ
3534a1i 11 . . . . . . . . . . . 12 (𝜑 → ℝ ⊆ ℂ)
3611, 35fssd 6019 . . . . . . . . . . 11 (𝜑𝐹:ℝ⟶ℂ)
3736, 27fssresd 6033 . . . . . . . . . 10 (𝜑 → (𝐹 ↾ (-π[,]π)):(-π[,]π)⟶ℂ)
38 ioossicc 12209 . . . . . . . . . . . . 13 ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))) ⊆ ((𝑄𝑖)[,](𝑄‘(𝑖 + 1)))
3923rexri 10049 . . . . . . . . . . . . . . 15 -π ∈ ℝ*
4039a1i 11 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → -π ∈ ℝ*)
4122rexri 10049 . . . . . . . . . . . . . . 15 π ∈ ℝ*
4241a1i 11 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → π ∈ ℝ*)
4331, 32, 33fourierdlem15 39672 . . . . . . . . . . . . . . 15 (𝜑𝑄:(0...𝑀)⟶(-π[,]π))
4443adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑄:(0...𝑀)⟶(-π[,]π))
45 simpr 477 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑖 ∈ (0..^𝑀))
4640, 42, 44, 45fourierdlem8 39665 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑄𝑖)[,](𝑄‘(𝑖 + 1))) ⊆ (-π[,]π))
4738, 46syl5ss 3598 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))) ⊆ (-π[,]π))
4847resabs1d 5392 . . . . . . . . . . 11 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝐹 ↾ (-π[,]π)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) = (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))))
49 fourierdlem111.fcn . . . . . . . . . . 11 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∈ (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))–cn→ℂ))
5048, 49eqeltrd 2698 . . . . . . . . . 10 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝐹 ↾ (-π[,]π)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∈ (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))–cn→ℂ))
51 fourierdlem111.r . . . . . . . . . . 11 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)))
5248oveq1d 6625 . . . . . . . . . . 11 ((𝜑𝑖 ∈ (0..^𝑀)) → (((𝐹 ↾ (-π[,]π)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)) = ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)))
5351, 52eleqtrrd 2701 . . . . . . . . . 10 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ (((𝐹 ↾ (-π[,]π)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)))
54 fourierdlem111.l . . . . . . . . . . 11 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
5548oveq1d 6625 . . . . . . . . . . 11 ((𝜑𝑖 ∈ (0..^𝑀)) → (((𝐹 ↾ (-π[,]π)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))) = ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
5654, 55eleqtrrd 2701 . . . . . . . . . 10 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ (((𝐹 ↾ (-π[,]π)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
5731, 32, 33, 37, 50, 53, 56fourierdlem69 39725 . . . . . . . . 9 (𝜑 → (𝐹 ↾ (-π[,]π)) ∈ 𝐿1)
5830, 57eqeltrrd 2699 . . . . . . . 8 (𝜑 → (𝑥 ∈ (-π[,]π) ↦ (𝐹𝑥)) ∈ 𝐿1)
5918, 20, 29, 58iblss 23494 . . . . . . 7 (𝜑 → (𝑥 ∈ (-π(,)π) ↦ (𝐹𝑥)) ∈ 𝐿1)
6016, 59eqeltrd 2698 . . . . . 6 (𝜑 → (𝐹 ↾ (-π(,)π)) ∈ 𝐿1)
6160adantr 481 . . . . 5 ((𝜑𝑘 ∈ ℕ) → (𝐹 ↾ (-π(,)π)) ∈ 𝐿1)
62 fourierdlem111.a . . . . 5 𝐴 = (𝑛 ∈ ℕ0 ↦ (∫(-π(,)π)((𝐹𝑡) · (cos‘(𝑛 · 𝑡))) d𝑡 / π))
63 fourierdlem111.b . . . . 5 𝐵 = (𝑛 ∈ ℕ ↦ (∫(-π(,)π)((𝐹𝑡) · (sin‘(𝑛 · 𝑡))) d𝑡 / π))
64 fourierdlem111.x . . . . . 6 (𝜑𝑋 ∈ ℝ)
6564adantr 481 . . . . 5 ((𝜑𝑘 ∈ ℕ) → 𝑋 ∈ ℝ)
66 fourierdlem111.s . . . . 5 𝑆 = (𝑚 ∈ ℕ ↦ (((𝐴‘0) / 2) + Σ𝑛 ∈ (1...𝑚)(((𝐴𝑛) · (cos‘(𝑛 · 𝑋))) + ((𝐵𝑛) · (sin‘(𝑛 · 𝑋))))))
67 fourierdlem111.d . . . . 5 𝐷 = (𝑛 ∈ ℕ ↦ (𝑦 ∈ ℝ ↦ if((𝑦 mod (2 · π)) = 0, (((2 · 𝑛) + 1) / (2 · π)), ((sin‘((𝑛 + (1 / 2)) · 𝑦)) / ((2 · π) · (sin‘(𝑦 / 2)))))))
68 simpr 477 . . . . 5 ((𝜑𝑘 ∈ ℕ) → 𝑘 ∈ ℕ)
6912, 13, 61, 62, 63, 65, 66, 67, 68fourierdlem83 39739 . . . 4 ((𝜑𝑘 ∈ ℕ) → (𝑆𝑘) = ∫(-π(,)π)((𝐹𝑡) · ((𝐷𝑘)‘(𝑡𝑋))) d𝑡)
7010, 69chvarv 2262 . . 3 ((𝜑𝑛 ∈ ℕ) → (𝑆𝑛) = ∫(-π(,)π)((𝐹𝑡) · ((𝐷𝑛)‘(𝑡𝑋))) d𝑡)
7123a1i 11 . . . . 5 ((𝜑𝑛 ∈ ℕ) → -π ∈ ℝ)
7222a1i 11 . . . . 5 ((𝜑𝑛 ∈ ℕ) → π ∈ ℝ)
7336adantr 481 . . . . . . . 8 ((𝜑𝑡 ∈ (-π[,]π)) → 𝐹:ℝ⟶ℂ)
7425adantl 482 . . . . . . . 8 ((𝜑𝑡 ∈ (-π[,]π)) → 𝑡 ∈ ℝ)
7573, 74ffvelrnd 6321 . . . . . . 7 ((𝜑𝑡 ∈ (-π[,]π)) → (𝐹𝑡) ∈ ℂ)
7675adantlr 750 . . . . . 6 (((𝜑𝑛 ∈ ℕ) ∧ 𝑡 ∈ (-π[,]π)) → (𝐹𝑡) ∈ ℂ)
7767dirkerf 39647 . . . . . . . . 9 (𝑛 ∈ ℕ → (𝐷𝑛):ℝ⟶ℝ)
7877ad2antlr 762 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑡 ∈ (-π[,]π)) → (𝐷𝑛):ℝ⟶ℝ)
7964adantr 481 . . . . . . . . . 10 ((𝜑𝑡 ∈ (-π[,]π)) → 𝑋 ∈ ℝ)
8074, 79resubcld 10410 . . . . . . . . 9 ((𝜑𝑡 ∈ (-π[,]π)) → (𝑡𝑋) ∈ ℝ)
8180adantlr 750 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑡 ∈ (-π[,]π)) → (𝑡𝑋) ∈ ℝ)
8278, 81ffvelrnd 6321 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑡 ∈ (-π[,]π)) → ((𝐷𝑛)‘(𝑡𝑋)) ∈ ℝ)
8382recnd 10020 . . . . . 6 (((𝜑𝑛 ∈ ℕ) ∧ 𝑡 ∈ (-π[,]π)) → ((𝐷𝑛)‘(𝑡𝑋)) ∈ ℂ)
8476, 83mulcld 10012 . . . . 5 (((𝜑𝑛 ∈ ℕ) ∧ 𝑡 ∈ (-π[,]π)) → ((𝐹𝑡) · ((𝐷𝑛)‘(𝑡𝑋))) ∈ ℂ)
8571, 72, 84itgioo 23505 . . . 4 ((𝜑𝑛 ∈ ℕ) → ∫(-π(,)π)((𝐹𝑡) · ((𝐷𝑛)‘(𝑡𝑋))) d𝑡 = ∫(-π[,]π)((𝐹𝑡) · ((𝐷𝑛)‘(𝑡𝑋))) d𝑡)
86 fvres 6169 . . . . . . . 8 (𝑡 ∈ (-π[,]π) → ((𝐹 ↾ (-π[,]π))‘𝑡) = (𝐹𝑡))
8786eqcomd 2627 . . . . . . 7 (𝑡 ∈ (-π[,]π) → (𝐹𝑡) = ((𝐹 ↾ (-π[,]π))‘𝑡))
8887oveq1d 6625 . . . . . 6 (𝑡 ∈ (-π[,]π) → ((𝐹𝑡) · ((𝐷𝑛)‘(𝑡𝑋))) = (((𝐹 ↾ (-π[,]π))‘𝑡) · ((𝐷𝑛)‘(𝑡𝑋))))
8988adantl 482 . . . . 5 (((𝜑𝑛 ∈ ℕ) ∧ 𝑡 ∈ (-π[,]π)) → ((𝐹𝑡) · ((𝐷𝑛)‘(𝑡𝑋))) = (((𝐹 ↾ (-π[,]π))‘𝑡) · ((𝐷𝑛)‘(𝑡𝑋))))
9089itgeq2dv 23471 . . . 4 ((𝜑𝑛 ∈ ℕ) → ∫(-π[,]π)((𝐹𝑡) · ((𝐷𝑛)‘(𝑡𝑋))) d𝑡 = ∫(-π[,]π)(((𝐹 ↾ (-π[,]π))‘𝑡) · ((𝐷𝑛)‘(𝑡𝑋))) d𝑡)
91 simpl 473 . . . . . . . . . . . . 13 ((𝑛 = 𝑚𝑦 ∈ ℝ) → 𝑛 = 𝑚)
9291oveq2d 6626 . . . . . . . . . . . 12 ((𝑛 = 𝑚𝑦 ∈ ℝ) → (2 · 𝑛) = (2 · 𝑚))
9392oveq1d 6625 . . . . . . . . . . 11 ((𝑛 = 𝑚𝑦 ∈ ℝ) → ((2 · 𝑛) + 1) = ((2 · 𝑚) + 1))
9493oveq1d 6625 . . . . . . . . . 10 ((𝑛 = 𝑚𝑦 ∈ ℝ) → (((2 · 𝑛) + 1) / (2 · π)) = (((2 · 𝑚) + 1) / (2 · π)))
9591oveq1d 6625 . . . . . . . . . . . . 13 ((𝑛 = 𝑚𝑦 ∈ ℝ) → (𝑛 + (1 / 2)) = (𝑚 + (1 / 2)))
9695oveq1d 6625 . . . . . . . . . . . 12 ((𝑛 = 𝑚𝑦 ∈ ℝ) → ((𝑛 + (1 / 2)) · 𝑦) = ((𝑚 + (1 / 2)) · 𝑦))
9796fveq2d 6157 . . . . . . . . . . 11 ((𝑛 = 𝑚𝑦 ∈ ℝ) → (sin‘((𝑛 + (1 / 2)) · 𝑦)) = (sin‘((𝑚 + (1 / 2)) · 𝑦)))
9897oveq1d 6625 . . . . . . . . . 10 ((𝑛 = 𝑚𝑦 ∈ ℝ) → ((sin‘((𝑛 + (1 / 2)) · 𝑦)) / ((2 · π) · (sin‘(𝑦 / 2)))) = ((sin‘((𝑚 + (1 / 2)) · 𝑦)) / ((2 · π) · (sin‘(𝑦 / 2)))))
9994, 98ifeq12d 4083 . . . . . . . . 9 ((𝑛 = 𝑚𝑦 ∈ ℝ) → if((𝑦 mod (2 · π)) = 0, (((2 · 𝑛) + 1) / (2 · π)), ((sin‘((𝑛 + (1 / 2)) · 𝑦)) / ((2 · π) · (sin‘(𝑦 / 2))))) = if((𝑦 mod (2 · π)) = 0, (((2 · 𝑚) + 1) / (2 · π)), ((sin‘((𝑚 + (1 / 2)) · 𝑦)) / ((2 · π) · (sin‘(𝑦 / 2))))))
10099mpteq2dva 4709 . . . . . . . 8 (𝑛 = 𝑚 → (𝑦 ∈ ℝ ↦ if((𝑦 mod (2 · π)) = 0, (((2 · 𝑛) + 1) / (2 · π)), ((sin‘((𝑛 + (1 / 2)) · 𝑦)) / ((2 · π) · (sin‘(𝑦 / 2)))))) = (𝑦 ∈ ℝ ↦ if((𝑦 mod (2 · π)) = 0, (((2 · 𝑚) + 1) / (2 · π)), ((sin‘((𝑚 + (1 / 2)) · 𝑦)) / ((2 · π) · (sin‘(𝑦 / 2)))))))
101100cbvmptv 4715 . . . . . . 7 (𝑛 ∈ ℕ ↦ (𝑦 ∈ ℝ ↦ if((𝑦 mod (2 · π)) = 0, (((2 · 𝑛) + 1) / (2 · π)), ((sin‘((𝑛 + (1 / 2)) · 𝑦)) / ((2 · π) · (sin‘(𝑦 / 2))))))) = (𝑚 ∈ ℕ ↦ (𝑦 ∈ ℝ ↦ if((𝑦 mod (2 · π)) = 0, (((2 · 𝑚) + 1) / (2 · π)), ((sin‘((𝑚 + (1 / 2)) · 𝑦)) / ((2 · π) · (sin‘(𝑦 / 2)))))))
10267, 101eqtri 2643 . . . . . 6 𝐷 = (𝑚 ∈ ℕ ↦ (𝑦 ∈ ℝ ↦ if((𝑦 mod (2 · π)) = 0, (((2 · 𝑚) + 1) / (2 · π)), ((sin‘((𝑚 + (1 / 2)) · 𝑦)) / ((2 · π) · (sin‘(𝑦 / 2)))))))
103 fveq2 6153 . . . . . . . 8 (𝑠 = 𝑡 → ((𝐹 ↾ (-π[,]π))‘𝑠) = ((𝐹 ↾ (-π[,]π))‘𝑡))
104 oveq1 6617 . . . . . . . . 9 (𝑠 = 𝑡 → (𝑠𝑋) = (𝑡𝑋))
105104fveq2d 6157 . . . . . . . 8 (𝑠 = 𝑡 → ((𝐷𝑛)‘(𝑠𝑋)) = ((𝐷𝑛)‘(𝑡𝑋)))
106103, 105oveq12d 6628 . . . . . . 7 (𝑠 = 𝑡 → (((𝐹 ↾ (-π[,]π))‘𝑠) · ((𝐷𝑛)‘(𝑠𝑋))) = (((𝐹 ↾ (-π[,]π))‘𝑡) · ((𝐷𝑛)‘(𝑡𝑋))))
107106cbvmptv 4715 . . . . . 6 (𝑠 ∈ (-π[,]π) ↦ (((𝐹 ↾ (-π[,]π))‘𝑠) · ((𝐷𝑛)‘(𝑠𝑋)))) = (𝑡 ∈ (-π[,]π) ↦ (((𝐹 ↾ (-π[,]π))‘𝑡) · ((𝐷𝑛)‘(𝑡𝑋))))
10833adantr 481 . . . . . 6 ((𝜑𝑛 ∈ ℕ) → 𝑄 ∈ (𝑃𝑀))
10932adantr 481 . . . . . 6 ((𝜑𝑛 ∈ ℕ) → 𝑀 ∈ ℕ)
110 simpr 477 . . . . . 6 ((𝜑𝑛 ∈ ℕ) → 𝑛 ∈ ℕ)
11164adantr 481 . . . . . 6 ((𝜑𝑛 ∈ ℕ) → 𝑋 ∈ ℝ)
11237adantr 481 . . . . . 6 ((𝜑𝑛 ∈ ℕ) → (𝐹 ↾ (-π[,]π)):(-π[,]π)⟶ℂ)
11350adantlr 750 . . . . . 6 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → ((𝐹 ↾ (-π[,]π)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∈ (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))–cn→ℂ))
11453adantlr 750 . . . . . 6 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ (((𝐹 ↾ (-π[,]π)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄𝑖)))
11556adantlr 750 . . . . . 6 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ (((𝐹 ↾ (-π[,]π)) ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) lim (𝑄‘(𝑖 + 1))))
116102, 31, 107, 108, 109, 110, 111, 112, 113, 114, 115fourierdlem101 39757 . . . . 5 ((𝜑𝑛 ∈ ℕ) → ∫(-π[,]π)(((𝐹 ↾ (-π[,]π))‘𝑡) · ((𝐷𝑛)‘(𝑡𝑋))) d𝑡 = ∫((-π − 𝑋)[,](π − 𝑋))(((𝐹 ↾ (-π[,]π))‘(𝑋 + 𝑦)) · ((𝐷𝑛)‘𝑦)) d𝑦)
117 oveq2 6618 . . . . . . . . . 10 (𝑠 = 𝑦 → (𝑋 + 𝑠) = (𝑋 + 𝑦))
118117fveq2d 6157 . . . . . . . . 9 (𝑠 = 𝑦 → (𝐹‘(𝑋 + 𝑠)) = (𝐹‘(𝑋 + 𝑦)))
119 fveq2 6153 . . . . . . . . 9 (𝑠 = 𝑦 → ((𝐷𝑛)‘𝑠) = ((𝐷𝑛)‘𝑦))
120118, 119oveq12d 6628 . . . . . . . 8 (𝑠 = 𝑦 → ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) = ((𝐹‘(𝑋 + 𝑦)) · ((𝐷𝑛)‘𝑦)))
121120cbvitgv 23466 . . . . . . 7 ∫((-π − 𝑋)(,)(π − 𝑋))((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠 = ∫((-π − 𝑋)(,)(π − 𝑋))((𝐹‘(𝑋 + 𝑦)) · ((𝐷𝑛)‘𝑦)) d𝑦
122121a1i 11 . . . . . 6 ((𝜑𝑛 ∈ ℕ) → ∫((-π − 𝑋)(,)(π − 𝑋))((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠 = ∫((-π − 𝑋)(,)(π − 𝑋))((𝐹‘(𝑋 + 𝑦)) · ((𝐷𝑛)‘𝑦)) d𝑦)
12323a1i 11 . . . . . . . . 9 (𝜑 → -π ∈ ℝ)
124123, 64resubcld 10410 . . . . . . . 8 (𝜑 → (-π − 𝑋) ∈ ℝ)
125124adantr 481 . . . . . . 7 ((𝜑𝑛 ∈ ℕ) → (-π − 𝑋) ∈ ℝ)
12622a1i 11 . . . . . . . . 9 (𝜑 → π ∈ ℝ)
127126, 64resubcld 10410 . . . . . . . 8 (𝜑 → (π − 𝑋) ∈ ℝ)
128127adantr 481 . . . . . . 7 ((𝜑𝑛 ∈ ℕ) → (π − 𝑋) ∈ ℝ)
12936adantr 481 . . . . . . . . . 10 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → 𝐹:ℝ⟶ℂ)
13064adantr 481 . . . . . . . . . . 11 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → 𝑋 ∈ ℝ)
131 simpr 477 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → 𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋)))
132124adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (-π − 𝑋) ∈ ℝ)
133127adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (π − 𝑋) ∈ ℝ)
134 elicc2 12188 . . . . . . . . . . . . . 14 (((-π − 𝑋) ∈ ℝ ∧ (π − 𝑋) ∈ ℝ) → (𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋)) ↔ (𝑦 ∈ ℝ ∧ (-π − 𝑋) ≤ 𝑦𝑦 ≤ (π − 𝑋))))
135132, 133, 134syl2anc 692 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋)) ↔ (𝑦 ∈ ℝ ∧ (-π − 𝑋) ≤ 𝑦𝑦 ≤ (π − 𝑋))))
136131, 135mpbid 222 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (𝑦 ∈ ℝ ∧ (-π − 𝑋) ≤ 𝑦𝑦 ≤ (π − 𝑋)))
137136simp1d 1071 . . . . . . . . . . 11 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → 𝑦 ∈ ℝ)
138130, 137readdcld 10021 . . . . . . . . . 10 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (𝑋 + 𝑦) ∈ ℝ)
139129, 138ffvelrnd 6321 . . . . . . . . 9 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (𝐹‘(𝑋 + 𝑦)) ∈ ℂ)
140139adantlr 750 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (𝐹‘(𝑋 + 𝑦)) ∈ ℂ)
14177ad2antlr 762 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (𝐷𝑛):ℝ⟶ℝ)
142137adantlr 750 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → 𝑦 ∈ ℝ)
143141, 142ffvelrnd 6321 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → ((𝐷𝑛)‘𝑦) ∈ ℝ)
144143recnd 10020 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → ((𝐷𝑛)‘𝑦) ∈ ℂ)
145140, 144mulcld 10012 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → ((𝐹‘(𝑋 + 𝑦)) · ((𝐷𝑛)‘𝑦)) ∈ ℂ)
146125, 128, 145itgioo 23505 . . . . . 6 ((𝜑𝑛 ∈ ℕ) → ∫((-π − 𝑋)(,)(π − 𝑋))((𝐹‘(𝑋 + 𝑦)) · ((𝐷𝑛)‘𝑦)) d𝑦 = ∫((-π − 𝑋)[,](π − 𝑋))((𝐹‘(𝑋 + 𝑦)) · ((𝐷𝑛)‘𝑦)) d𝑦)
14723a1i 11 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → -π ∈ ℝ)
14822a1i 11 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → π ∈ ℝ)
14964recnd 10020 . . . . . . . . . . . . . . . 16 (𝜑𝑋 ∈ ℂ)
150126recnd 10020 . . . . . . . . . . . . . . . . 17 (𝜑 → π ∈ ℂ)
151150negcld 10331 . . . . . . . . . . . . . . . 16 (𝜑 → -π ∈ ℂ)
152149, 151pncan3d 10347 . . . . . . . . . . . . . . 15 (𝜑 → (𝑋 + (-π − 𝑋)) = -π)
153152eqcomd 2627 . . . . . . . . . . . . . 14 (𝜑 → -π = (𝑋 + (-π − 𝑋)))
154153adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → -π = (𝑋 + (-π − 𝑋)))
155136simp2d 1072 . . . . . . . . . . . . . 14 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (-π − 𝑋) ≤ 𝑦)
156132, 137, 130, 155leadd2dd 10594 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (𝑋 + (-π − 𝑋)) ≤ (𝑋 + 𝑦))
157154, 156eqbrtrd 4640 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → -π ≤ (𝑋 + 𝑦))
158136simp3d 1073 . . . . . . . . . . . . . 14 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → 𝑦 ≤ (π − 𝑋))
159137, 133, 130, 158leadd2dd 10594 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (𝑋 + 𝑦) ≤ (𝑋 + (π − 𝑋)))
160149adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → 𝑋 ∈ ℂ)
161150adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → π ∈ ℂ)
162160, 161pncan3d 10347 . . . . . . . . . . . . 13 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (𝑋 + (π − 𝑋)) = π)
163159, 162breqtrd 4644 . . . . . . . . . . . 12 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (𝑋 + 𝑦) ≤ π)
164147, 148, 138, 157, 163eliccd 39168 . . . . . . . . . . 11 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (𝑋 + 𝑦) ∈ (-π[,]π))
165 fvres 6169 . . . . . . . . . . 11 ((𝑋 + 𝑦) ∈ (-π[,]π) → ((𝐹 ↾ (-π[,]π))‘(𝑋 + 𝑦)) = (𝐹‘(𝑋 + 𝑦)))
166164, 165syl 17 . . . . . . . . . 10 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → ((𝐹 ↾ (-π[,]π))‘(𝑋 + 𝑦)) = (𝐹‘(𝑋 + 𝑦)))
167166eqcomd 2627 . . . . . . . . 9 ((𝜑𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (𝐹‘(𝑋 + 𝑦)) = ((𝐹 ↾ (-π[,]π))‘(𝑋 + 𝑦)))
168167adantlr 750 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (𝐹‘(𝑋 + 𝑦)) = ((𝐹 ↾ (-π[,]π))‘(𝑋 + 𝑦)))
169168oveq1d 6625 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑦 ∈ ((-π − 𝑋)[,](π − 𝑋))) → ((𝐹‘(𝑋 + 𝑦)) · ((𝐷𝑛)‘𝑦)) = (((𝐹 ↾ (-π[,]π))‘(𝑋 + 𝑦)) · ((𝐷𝑛)‘𝑦)))
170169itgeq2dv 23471 . . . . . 6 ((𝜑𝑛 ∈ ℕ) → ∫((-π − 𝑋)[,](π − 𝑋))((𝐹‘(𝑋 + 𝑦)) · ((𝐷𝑛)‘𝑦)) d𝑦 = ∫((-π − 𝑋)[,](π − 𝑋))(((𝐹 ↾ (-π[,]π))‘(𝑋 + 𝑦)) · ((𝐷𝑛)‘𝑦)) d𝑦)
171122, 146, 1703eqtrrd 2660 . . . . 5 ((𝜑𝑛 ∈ ℕ) → ∫((-π − 𝑋)[,](π − 𝑋))(((𝐹 ↾ (-π[,]π))‘(𝑋 + 𝑦)) · ((𝐷𝑛)‘𝑦)) d𝑦 = ∫((-π − 𝑋)(,)(π − 𝑋))((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠)
172116, 171eqtrd 2655 . . . 4 ((𝜑𝑛 ∈ ℕ) → ∫(-π[,]π)(((𝐹 ↾ (-π[,]π))‘𝑡) · ((𝐷𝑛)‘(𝑡𝑋))) d𝑡 = ∫((-π − 𝑋)(,)(π − 𝑋))((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠)
17385, 90, 1723eqtrd 2659 . . 3 ((𝜑𝑛 ∈ ℕ) → ∫(-π(,)π)((𝐹𝑡) · ((𝐷𝑛)‘(𝑡𝑋))) d𝑡 = ∫((-π − 𝑋)(,)(π − 𝑋))((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠)
174 elioore 12155 . . . . . . . . 9 (𝑠 ∈ ((-π − 𝑋)(,)(π − 𝑋)) → 𝑠 ∈ ℝ)
175174adantl 482 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ((-π − 𝑋)(,)(π − 𝑋))) → 𝑠 ∈ ℝ)
17636adantr 481 . . . . . . . . . . 11 ((𝜑𝑠 ∈ ((-π − 𝑋)(,)(π − 𝑋))) → 𝐹:ℝ⟶ℂ)
17764adantr 481 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ ((-π − 𝑋)(,)(π − 𝑋))) → 𝑋 ∈ ℝ)
178174adantl 482 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ ((-π − 𝑋)(,)(π − 𝑋))) → 𝑠 ∈ ℝ)
179177, 178readdcld 10021 . . . . . . . . . . 11 ((𝜑𝑠 ∈ ((-π − 𝑋)(,)(π − 𝑋))) → (𝑋 + 𝑠) ∈ ℝ)
180176, 179ffvelrnd 6321 . . . . . . . . . 10 ((𝜑𝑠 ∈ ((-π − 𝑋)(,)(π − 𝑋))) → (𝐹‘(𝑋 + 𝑠)) ∈ ℂ)
181180adantlr 750 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ((-π − 𝑋)(,)(π − 𝑋))) → (𝐹‘(𝑋 + 𝑠)) ∈ ℂ)
18277ad2antlr 762 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ((-π − 𝑋)(,)(π − 𝑋))) → (𝐷𝑛):ℝ⟶ℝ)
183182, 175ffvelrnd 6321 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ((-π − 𝑋)(,)(π − 𝑋))) → ((𝐷𝑛)‘𝑠) ∈ ℝ)
184183recnd 10020 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ((-π − 𝑋)(,)(π − 𝑋))) → ((𝐷𝑛)‘𝑠) ∈ ℂ)
185181, 184mulcld 10012 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ((-π − 𝑋)(,)(π − 𝑋))) → ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) ∈ ℂ)
186 fourierdlem111.g . . . . . . . . . 10 𝐺 = (𝑥 ∈ ℝ ↦ ((𝐹‘(𝑋 + 𝑥)) · ((𝐷𝑛)‘𝑥)))
187 oveq2 6618 . . . . . . . . . . . . 13 (𝑥 = 𝑠 → (𝑋 + 𝑥) = (𝑋 + 𝑠))
188187fveq2d 6157 . . . . . . . . . . . 12 (𝑥 = 𝑠 → (𝐹‘(𝑋 + 𝑥)) = (𝐹‘(𝑋 + 𝑠)))
189 fveq2 6153 . . . . . . . . . . . 12 (𝑥 = 𝑠 → ((𝐷𝑛)‘𝑥) = ((𝐷𝑛)‘𝑠))
190188, 189oveq12d 6628 . . . . . . . . . . 11 (𝑥 = 𝑠 → ((𝐹‘(𝑋 + 𝑥)) · ((𝐷𝑛)‘𝑥)) = ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)))
191190cbvmptv 4715 . . . . . . . . . 10 (𝑥 ∈ ℝ ↦ ((𝐹‘(𝑋 + 𝑥)) · ((𝐷𝑛)‘𝑥))) = (𝑠 ∈ ℝ ↦ ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)))
192186, 191eqtri 2643 . . . . . . . . 9 𝐺 = (𝑠 ∈ ℝ ↦ ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)))
193192fvmpt2 6253 . . . . . . . 8 ((𝑠 ∈ ℝ ∧ ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) ∈ ℂ) → (𝐺𝑠) = ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)))
194175, 185, 193syl2anc 692 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ((-π − 𝑋)(,)(π − 𝑋))) → (𝐺𝑠) = ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)))
195194eqcomd 2627 . . . . . 6 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ((-π − 𝑋)(,)(π − 𝑋))) → ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) = (𝐺𝑠))
196195itgeq2dv 23471 . . . . 5 ((𝜑𝑛 ∈ ℕ) → ∫((-π − 𝑋)(,)(π − 𝑋))((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠 = ∫((-π − 𝑋)(,)(π − 𝑋))(𝐺𝑠) d𝑠)
19736adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ ℝ) → 𝐹:ℝ⟶ℂ)
19864adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ ℝ) → 𝑋 ∈ ℝ)
199 simpr 477 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ ℝ) → 𝑥 ∈ ℝ)
200198, 199readdcld 10021 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ ℝ) → (𝑋 + 𝑥) ∈ ℝ)
201197, 200ffvelrnd 6321 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ ℝ) → (𝐹‘(𝑋 + 𝑥)) ∈ ℂ)
202201adantlr 750 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → (𝐹‘(𝑋 + 𝑥)) ∈ ℂ)
20377adantl 482 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ ℕ) → (𝐷𝑛):ℝ⟶ℝ)
204203ffvelrnda 6320 . . . . . . . . . . . 12 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → ((𝐷𝑛)‘𝑥) ∈ ℝ)
205204recnd 10020 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → ((𝐷𝑛)‘𝑥) ∈ ℂ)
206202, 205mulcld 10012 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → ((𝐹‘(𝑋 + 𝑥)) · ((𝐷𝑛)‘𝑥)) ∈ ℂ)
207206, 186fmptd 6346 . . . . . . . . 9 ((𝜑𝑛 ∈ ℕ) → 𝐺:ℝ⟶ℂ)
208207adantr 481 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ((-π − 𝑋)[,](π − 𝑋))) → 𝐺:ℝ⟶ℂ)
209124adantr 481 . . . . . . . . . 10 ((𝜑𝑠 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (-π − 𝑋) ∈ ℝ)
210127adantr 481 . . . . . . . . . 10 ((𝜑𝑠 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (π − 𝑋) ∈ ℝ)
211 simpr 477 . . . . . . . . . 10 ((𝜑𝑠 ∈ ((-π − 𝑋)[,](π − 𝑋))) → 𝑠 ∈ ((-π − 𝑋)[,](π − 𝑋)))
212 eliccre 39170 . . . . . . . . . 10 (((-π − 𝑋) ∈ ℝ ∧ (π − 𝑋) ∈ ℝ ∧ 𝑠 ∈ ((-π − 𝑋)[,](π − 𝑋))) → 𝑠 ∈ ℝ)
213209, 210, 211, 212syl3anc 1323 . . . . . . . . 9 ((𝜑𝑠 ∈ ((-π − 𝑋)[,](π − 𝑋))) → 𝑠 ∈ ℝ)
214213adantlr 750 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ((-π − 𝑋)[,](π − 𝑋))) → 𝑠 ∈ ℝ)
215208, 214ffvelrnd 6321 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ((-π − 𝑋)[,](π − 𝑋))) → (𝐺𝑠) ∈ ℂ)
216125, 128, 215itgioo 23505 . . . . . 6 ((𝜑𝑛 ∈ ℕ) → ∫((-π − 𝑋)(,)(π − 𝑋))(𝐺𝑠) d𝑠 = ∫((-π − 𝑋)[,](π − 𝑋))(𝐺𝑠) d𝑠)
217 fveq2 6153 . . . . . . 7 (𝑠 = 𝑥 → (𝐺𝑠) = (𝐺𝑥))
218217cbvitgv 23466 . . . . . 6 ∫((-π − 𝑋)[,](π − 𝑋))(𝐺𝑠) d𝑠 = ∫((-π − 𝑋)[,](π − 𝑋))(𝐺𝑥) d𝑥
219216, 218syl6eq 2671 . . . . 5 ((𝜑𝑛 ∈ ℕ) → ∫((-π − 𝑋)(,)(π − 𝑋))(𝐺𝑠) d𝑠 = ∫((-π − 𝑋)[,](π − 𝑋))(𝐺𝑥) d𝑥)
220196, 219eqtrd 2655 . . . 4 ((𝜑𝑛 ∈ ℕ) → ∫((-π − 𝑋)(,)(π − 𝑋))((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠 = ∫((-π − 𝑋)[,](π − 𝑋))(𝐺𝑥) d𝑥)
221 eqid 2621 . . . . . . 7 ((π − 𝑋) − (-π − 𝑋)) = ((π − 𝑋) − (-π − 𝑋))
222111renegcld 10409 . . . . . . 7 ((𝜑𝑛 ∈ ℕ) → -𝑋 ∈ ℝ)
223 fourierdlem111.o . . . . . . 7 𝑂 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑𝑚 (0...𝑚)) ∣ (((𝑝‘0) = (-π − 𝑋) ∧ (𝑝𝑚) = (π − 𝑋)) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝𝑖) < (𝑝‘(𝑖 + 1)))})
22431fourierdlem2 39659 . . . . . . . . . . . . . . . . . 18 (𝑀 ∈ ℕ → (𝑄 ∈ (𝑃𝑀) ↔ (𝑄 ∈ (ℝ ↑𝑚 (0...𝑀)) ∧ (((𝑄‘0) = -π ∧ (𝑄𝑀) = π) ∧ ∀𝑖 ∈ (0..^𝑀)(𝑄𝑖) < (𝑄‘(𝑖 + 1))))))
22532, 224syl 17 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝑄 ∈ (𝑃𝑀) ↔ (𝑄 ∈ (ℝ ↑𝑚 (0...𝑀)) ∧ (((𝑄‘0) = -π ∧ (𝑄𝑀) = π) ∧ ∀𝑖 ∈ (0..^𝑀)(𝑄𝑖) < (𝑄‘(𝑖 + 1))))))
22633, 225mpbid 222 . . . . . . . . . . . . . . . 16 (𝜑 → (𝑄 ∈ (ℝ ↑𝑚 (0...𝑀)) ∧ (((𝑄‘0) = -π ∧ (𝑄𝑀) = π) ∧ ∀𝑖 ∈ (0..^𝑀)(𝑄𝑖) < (𝑄‘(𝑖 + 1)))))
227226simpld 475 . . . . . . . . . . . . . . 15 (𝜑𝑄 ∈ (ℝ ↑𝑚 (0...𝑀)))
228 elmapi 7831 . . . . . . . . . . . . . . 15 (𝑄 ∈ (ℝ ↑𝑚 (0...𝑀)) → 𝑄:(0...𝑀)⟶ℝ)
229227, 228syl 17 . . . . . . . . . . . . . 14 (𝜑𝑄:(0...𝑀)⟶ℝ)
230229ffvelrnda 6320 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0...𝑀)) → (𝑄𝑖) ∈ ℝ)
23164adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0...𝑀)) → 𝑋 ∈ ℝ)
232230, 231resubcld 10410 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0...𝑀)) → ((𝑄𝑖) − 𝑋) ∈ ℝ)
233 fourierdlem111.14 . . . . . . . . . . . 12 𝑊 = (𝑖 ∈ (0...𝑀) ↦ ((𝑄𝑖) − 𝑋))
234232, 233fmptd 6346 . . . . . . . . . . 11 (𝜑𝑊:(0...𝑀)⟶ℝ)
235 reex 9979 . . . . . . . . . . . . 13 ℝ ∈ V
236 ovex 6638 . . . . . . . . . . . . 13 (0...𝑀) ∈ V
237235, 236pm3.2i 471 . . . . . . . . . . . 12 (ℝ ∈ V ∧ (0...𝑀) ∈ V)
238 elmapg 7822 . . . . . . . . . . . 12 ((ℝ ∈ V ∧ (0...𝑀) ∈ V) → (𝑊 ∈ (ℝ ↑𝑚 (0...𝑀)) ↔ 𝑊:(0...𝑀)⟶ℝ))
239237, 238mp1i 13 . . . . . . . . . . 11 (𝜑 → (𝑊 ∈ (ℝ ↑𝑚 (0...𝑀)) ↔ 𝑊:(0...𝑀)⟶ℝ))
240234, 239mpbird 247 . . . . . . . . . 10 (𝜑𝑊 ∈ (ℝ ↑𝑚 (0...𝑀)))
241233a1i 11 . . . . . . . . . . . 12 (𝜑𝑊 = (𝑖 ∈ (0...𝑀) ↦ ((𝑄𝑖) − 𝑋)))
242 fveq2 6153 . . . . . . . . . . . . . 14 (𝑖 = 0 → (𝑄𝑖) = (𝑄‘0))
243226simprd 479 . . . . . . . . . . . . . . . 16 (𝜑 → (((𝑄‘0) = -π ∧ (𝑄𝑀) = π) ∧ ∀𝑖 ∈ (0..^𝑀)(𝑄𝑖) < (𝑄‘(𝑖 + 1))))
244243simpld 475 . . . . . . . . . . . . . . 15 (𝜑 → ((𝑄‘0) = -π ∧ (𝑄𝑀) = π))
245244simpld 475 . . . . . . . . . . . . . 14 (𝜑 → (𝑄‘0) = -π)
246242, 245sylan9eqr 2677 . . . . . . . . . . . . 13 ((𝜑𝑖 = 0) → (𝑄𝑖) = -π)
247246oveq1d 6625 . . . . . . . . . . . 12 ((𝜑𝑖 = 0) → ((𝑄𝑖) − 𝑋) = (-π − 𝑋))
248 0zd 11341 . . . . . . . . . . . . . 14 (𝜑 → 0 ∈ ℤ)
24932nnzd 11433 . . . . . . . . . . . . . 14 (𝜑𝑀 ∈ ℤ)
250 0red 9993 . . . . . . . . . . . . . . . 16 (𝑀 ∈ ℕ → 0 ∈ ℝ)
251 nnre 10979 . . . . . . . . . . . . . . . 16 (𝑀 ∈ ℕ → 𝑀 ∈ ℝ)
252 nngt0 11001 . . . . . . . . . . . . . . . 16 (𝑀 ∈ ℕ → 0 < 𝑀)
253250, 251, 252ltled 10137 . . . . . . . . . . . . . . 15 (𝑀 ∈ ℕ → 0 ≤ 𝑀)
25432, 253syl 17 . . . . . . . . . . . . . 14 (𝜑 → 0 ≤ 𝑀)
255 eluz2 11645 . . . . . . . . . . . . . 14 (𝑀 ∈ (ℤ‘0) ↔ (0 ∈ ℤ ∧ 𝑀 ∈ ℤ ∧ 0 ≤ 𝑀))
256248, 249, 254, 255syl3anbrc 1244 . . . . . . . . . . . . 13 (𝜑𝑀 ∈ (ℤ‘0))
257 eluzfz1 12298 . . . . . . . . . . . . 13 (𝑀 ∈ (ℤ‘0) → 0 ∈ (0...𝑀))
258256, 257syl 17 . . . . . . . . . . . 12 (𝜑 → 0 ∈ (0...𝑀))
259241, 247, 258, 124fvmptd 6250 . . . . . . . . . . 11 (𝜑 → (𝑊‘0) = (-π − 𝑋))
260 fveq2 6153 . . . . . . . . . . . . . 14 (𝑖 = 𝑀 → (𝑄𝑖) = (𝑄𝑀))
261244simprd 479 . . . . . . . . . . . . . 14 (𝜑 → (𝑄𝑀) = π)
262260, 261sylan9eqr 2677 . . . . . . . . . . . . 13 ((𝜑𝑖 = 𝑀) → (𝑄𝑖) = π)
263262oveq1d 6625 . . . . . . . . . . . 12 ((𝜑𝑖 = 𝑀) → ((𝑄𝑖) − 𝑋) = (π − 𝑋))
264 eluzfz2 12299 . . . . . . . . . . . . 13 (𝑀 ∈ (ℤ‘0) → 𝑀 ∈ (0...𝑀))
265256, 264syl 17 . . . . . . . . . . . 12 (𝜑𝑀 ∈ (0...𝑀))
266241, 263, 265, 127fvmptd 6250 . . . . . . . . . . 11 (𝜑 → (𝑊𝑀) = (π − 𝑋))
267259, 266jca 554 . . . . . . . . . 10 (𝜑 → ((𝑊‘0) = (-π − 𝑋) ∧ (𝑊𝑀) = (π − 𝑋)))
268229adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑄:(0...𝑀)⟶ℝ)
269 elfzofz 12434 . . . . . . . . . . . . . . 15 (𝑖 ∈ (0..^𝑀) → 𝑖 ∈ (0...𝑀))
270269adantl 482 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑖 ∈ (0...𝑀))
271268, 270ffvelrnd 6321 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑄𝑖) ∈ ℝ)
272 fzofzp1 12514 . . . . . . . . . . . . . . 15 (𝑖 ∈ (0..^𝑀) → (𝑖 + 1) ∈ (0...𝑀))
273272adantl 482 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑖 + 1) ∈ (0...𝑀))
274268, 273ffvelrnd 6321 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑄‘(𝑖 + 1)) ∈ ℝ)
27564adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑋 ∈ ℝ)
276243simprd 479 . . . . . . . . . . . . . 14 (𝜑 → ∀𝑖 ∈ (0..^𝑀)(𝑄𝑖) < (𝑄‘(𝑖 + 1)))
277276r19.21bi 2927 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑄𝑖) < (𝑄‘(𝑖 + 1)))
278271, 274, 275, 277ltsub1dd 10591 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑄𝑖) − 𝑋) < ((𝑄‘(𝑖 + 1)) − 𝑋))
279270, 232syldan 487 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑄𝑖) − 𝑋) ∈ ℝ)
280233fvmpt2 6253 . . . . . . . . . . . . 13 ((𝑖 ∈ (0...𝑀) ∧ ((𝑄𝑖) − 𝑋) ∈ ℝ) → (𝑊𝑖) = ((𝑄𝑖) − 𝑋))
281270, 279, 280syl2anc 692 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑊𝑖) = ((𝑄𝑖) − 𝑋))
282 fveq2 6153 . . . . . . . . . . . . . . . . 17 (𝑖 = 𝑗 → (𝑄𝑖) = (𝑄𝑗))
283282oveq1d 6625 . . . . . . . . . . . . . . . 16 (𝑖 = 𝑗 → ((𝑄𝑖) − 𝑋) = ((𝑄𝑗) − 𝑋))
284283cbvmptv 4715 . . . . . . . . . . . . . . 15 (𝑖 ∈ (0...𝑀) ↦ ((𝑄𝑖) − 𝑋)) = (𝑗 ∈ (0...𝑀) ↦ ((𝑄𝑗) − 𝑋))
285233, 284eqtri 2643 . . . . . . . . . . . . . 14 𝑊 = (𝑗 ∈ (0...𝑀) ↦ ((𝑄𝑗) − 𝑋))
286285a1i 11 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑊 = (𝑗 ∈ (0...𝑀) ↦ ((𝑄𝑗) − 𝑋)))
287 fveq2 6153 . . . . . . . . . . . . . . 15 (𝑗 = (𝑖 + 1) → (𝑄𝑗) = (𝑄‘(𝑖 + 1)))
288287oveq1d 6625 . . . . . . . . . . . . . 14 (𝑗 = (𝑖 + 1) → ((𝑄𝑗) − 𝑋) = ((𝑄‘(𝑖 + 1)) − 𝑋))
289288adantl 482 . . . . . . . . . . . . 13 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑗 = (𝑖 + 1)) → ((𝑄𝑗) − 𝑋) = ((𝑄‘(𝑖 + 1)) − 𝑋))
290274, 275resubcld 10410 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑄‘(𝑖 + 1)) − 𝑋) ∈ ℝ)
291286, 289, 273, 290fvmptd 6250 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑊‘(𝑖 + 1)) = ((𝑄‘(𝑖 + 1)) − 𝑋))
292278, 281, 2913brtr4d 4650 . . . . . . . . . . 11 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑊𝑖) < (𝑊‘(𝑖 + 1)))
293292ralrimiva 2961 . . . . . . . . . 10 (𝜑 → ∀𝑖 ∈ (0..^𝑀)(𝑊𝑖) < (𝑊‘(𝑖 + 1)))
294240, 267, 293jca32 557 . . . . . . . . 9 (𝜑 → (𝑊 ∈ (ℝ ↑𝑚 (0...𝑀)) ∧ (((𝑊‘0) = (-π − 𝑋) ∧ (𝑊𝑀) = (π − 𝑋)) ∧ ∀𝑖 ∈ (0..^𝑀)(𝑊𝑖) < (𝑊‘(𝑖 + 1)))))
295223fourierdlem2 39659 . . . . . . . . . 10 (𝑀 ∈ ℕ → (𝑊 ∈ (𝑂𝑀) ↔ (𝑊 ∈ (ℝ ↑𝑚 (0...𝑀)) ∧ (((𝑊‘0) = (-π − 𝑋) ∧ (𝑊𝑀) = (π − 𝑋)) ∧ ∀𝑖 ∈ (0..^𝑀)(𝑊𝑖) < (𝑊‘(𝑖 + 1))))))
29632, 295syl 17 . . . . . . . . 9 (𝜑 → (𝑊 ∈ (𝑂𝑀) ↔ (𝑊 ∈ (ℝ ↑𝑚 (0...𝑀)) ∧ (((𝑊‘0) = (-π − 𝑋) ∧ (𝑊𝑀) = (π − 𝑋)) ∧ ∀𝑖 ∈ (0..^𝑀)(𝑊𝑖) < (𝑊‘(𝑖 + 1))))))
297294, 296mpbird 247 . . . . . . . 8 (𝜑𝑊 ∈ (𝑂𝑀))
298297adantr 481 . . . . . . 7 ((𝜑𝑛 ∈ ℕ) → 𝑊 ∈ (𝑂𝑀))
299150, 151, 149nnncan2d 10379 . . . . . . . . . . . 12 (𝜑 → ((π − 𝑋) − (-π − 𝑋)) = (π − -π))
300 picn 24132 . . . . . . . . . . . . . 14 π ∈ ℂ
3013002timesi 11099 . . . . . . . . . . . . 13 (2 · π) = (π + π)
302 fourierdlem111.t . . . . . . . . . . . . 13 𝑇 = (2 · π)
303300, 300subnegi 10312 . . . . . . . . . . . . 13 (π − -π) = (π + π)
304301, 302, 3033eqtr4i 2653 . . . . . . . . . . . 12 𝑇 = (π − -π)
305299, 304syl6eqr 2673 . . . . . . . . . . 11 (𝜑 → ((π − 𝑋) − (-π − 𝑋)) = 𝑇)
306305oveq2d 6626 . . . . . . . . . 10 (𝜑 → (𝑥 + ((π − 𝑋) − (-π − 𝑋))) = (𝑥 + 𝑇))
307306fveq2d 6157 . . . . . . . . 9 (𝜑 → (𝐺‘(𝑥 + ((π − 𝑋) − (-π − 𝑋)))) = (𝐺‘(𝑥 + 𝑇)))
308307ad2antrr 761 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → (𝐺‘(𝑥 + ((π − 𝑋) − (-π − 𝑋)))) = (𝐺‘(𝑥 + 𝑇)))
309 simpr 477 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → 𝑥 ∈ ℝ)
310186fvmpt2 6253 . . . . . . . . . 10 ((𝑥 ∈ ℝ ∧ ((𝐹‘(𝑋 + 𝑥)) · ((𝐷𝑛)‘𝑥)) ∈ ℂ) → (𝐺𝑥) = ((𝐹‘(𝑋 + 𝑥)) · ((𝐷𝑛)‘𝑥)))
311309, 206, 310syl2anc 692 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → (𝐺𝑥) = ((𝐹‘(𝑋 + 𝑥)) · ((𝐷𝑛)‘𝑥)))
312149adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ ℝ) → 𝑋 ∈ ℂ)
313199recnd 10020 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ ℝ) → 𝑥 ∈ ℂ)
314 2re 11042 . . . . . . . . . . . . . . . . . . . 20 2 ∈ ℝ
315314, 22remulcli 10006 . . . . . . . . . . . . . . . . . . 19 (2 · π) ∈ ℝ
316302, 315eqeltri 2694 . . . . . . . . . . . . . . . . . 18 𝑇 ∈ ℝ
317316a1i 11 . . . . . . . . . . . . . . . . 17 (𝜑𝑇 ∈ ℝ)
318317recnd 10020 . . . . . . . . . . . . . . . 16 (𝜑𝑇 ∈ ℂ)
319318adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ ℝ) → 𝑇 ∈ ℂ)
320312, 313, 319addassd 10014 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ ℝ) → ((𝑋 + 𝑥) + 𝑇) = (𝑋 + (𝑥 + 𝑇)))
321320eqcomd 2627 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ ℝ) → (𝑋 + (𝑥 + 𝑇)) = ((𝑋 + 𝑥) + 𝑇))
322321fveq2d 6157 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ ℝ) → (𝐹‘(𝑋 + (𝑥 + 𝑇))) = (𝐹‘((𝑋 + 𝑥) + 𝑇)))
323 simpl 473 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ ℝ) → 𝜑)
324323, 200jca 554 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ ℝ) → (𝜑 ∧ (𝑋 + 𝑥) ∈ ℝ))
325 eleq1 2686 . . . . . . . . . . . . . . . 16 (𝑠 = (𝑋 + 𝑥) → (𝑠 ∈ ℝ ↔ (𝑋 + 𝑥) ∈ ℝ))
326325anbi2d 739 . . . . . . . . . . . . . . 15 (𝑠 = (𝑋 + 𝑥) → ((𝜑𝑠 ∈ ℝ) ↔ (𝜑 ∧ (𝑋 + 𝑥) ∈ ℝ)))
327 oveq1 6617 . . . . . . . . . . . . . . . . 17 (𝑠 = (𝑋 + 𝑥) → (𝑠 + 𝑇) = ((𝑋 + 𝑥) + 𝑇))
328327fveq2d 6157 . . . . . . . . . . . . . . . 16 (𝑠 = (𝑋 + 𝑥) → (𝐹‘(𝑠 + 𝑇)) = (𝐹‘((𝑋 + 𝑥) + 𝑇)))
329 fveq2 6153 . . . . . . . . . . . . . . . 16 (𝑠 = (𝑋 + 𝑥) → (𝐹𝑠) = (𝐹‘(𝑋 + 𝑥)))
330328, 329eqeq12d 2636 . . . . . . . . . . . . . . 15 (𝑠 = (𝑋 + 𝑥) → ((𝐹‘(𝑠 + 𝑇)) = (𝐹𝑠) ↔ (𝐹‘((𝑋 + 𝑥) + 𝑇)) = (𝐹‘(𝑋 + 𝑥))))
331326, 330imbi12d 334 . . . . . . . . . . . . . 14 (𝑠 = (𝑋 + 𝑥) → (((𝜑𝑠 ∈ ℝ) → (𝐹‘(𝑠 + 𝑇)) = (𝐹𝑠)) ↔ ((𝜑 ∧ (𝑋 + 𝑥) ∈ ℝ) → (𝐹‘((𝑋 + 𝑥) + 𝑇)) = (𝐹‘(𝑋 + 𝑥)))))
332 eleq1 2686 . . . . . . . . . . . . . . . . 17 (𝑥 = 𝑠 → (𝑥 ∈ ℝ ↔ 𝑠 ∈ ℝ))
333332anbi2d 739 . . . . . . . . . . . . . . . 16 (𝑥 = 𝑠 → ((𝜑𝑥 ∈ ℝ) ↔ (𝜑𝑠 ∈ ℝ)))
334 oveq1 6617 . . . . . . . . . . . . . . . . . 18 (𝑥 = 𝑠 → (𝑥 + 𝑇) = (𝑠 + 𝑇))
335334fveq2d 6157 . . . . . . . . . . . . . . . . 17 (𝑥 = 𝑠 → (𝐹‘(𝑥 + 𝑇)) = (𝐹‘(𝑠 + 𝑇)))
336 fveq2 6153 . . . . . . . . . . . . . . . . 17 (𝑥 = 𝑠 → (𝐹𝑥) = (𝐹𝑠))
337335, 336eqeq12d 2636 . . . . . . . . . . . . . . . 16 (𝑥 = 𝑠 → ((𝐹‘(𝑥 + 𝑇)) = (𝐹𝑥) ↔ (𝐹‘(𝑠 + 𝑇)) = (𝐹𝑠)))
338333, 337imbi12d 334 . . . . . . . . . . . . . . 15 (𝑥 = 𝑠 → (((𝜑𝑥 ∈ ℝ) → (𝐹‘(𝑥 + 𝑇)) = (𝐹𝑥)) ↔ ((𝜑𝑠 ∈ ℝ) → (𝐹‘(𝑠 + 𝑇)) = (𝐹𝑠))))
339 fourierdlem111.fper . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ ℝ) → (𝐹‘(𝑥 + 𝑇)) = (𝐹𝑥))
340338, 339chvarv 2262 . . . . . . . . . . . . . 14 ((𝜑𝑠 ∈ ℝ) → (𝐹‘(𝑠 + 𝑇)) = (𝐹𝑠))
341331, 340vtoclg 3255 . . . . . . . . . . . . 13 ((𝑋 + 𝑥) ∈ ℝ → ((𝜑 ∧ (𝑋 + 𝑥) ∈ ℝ) → (𝐹‘((𝑋 + 𝑥) + 𝑇)) = (𝐹‘(𝑋 + 𝑥))))
342200, 324, 341sylc 65 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ ℝ) → (𝐹‘((𝑋 + 𝑥) + 𝑇)) = (𝐹‘(𝑋 + 𝑥)))
343322, 342eqtr2d 2656 . . . . . . . . . . 11 ((𝜑𝑥 ∈ ℝ) → (𝐹‘(𝑋 + 𝑥)) = (𝐹‘(𝑋 + (𝑥 + 𝑇))))
344343adantlr 750 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → (𝐹‘(𝑋 + 𝑥)) = (𝐹‘(𝑋 + (𝑥 + 𝑇))))
34567, 302dirkerper 39646 . . . . . . . . . . . 12 ((𝑛 ∈ ℕ ∧ 𝑥 ∈ ℝ) → ((𝐷𝑛)‘(𝑥 + 𝑇)) = ((𝐷𝑛)‘𝑥))
346345eqcomd 2627 . . . . . . . . . . 11 ((𝑛 ∈ ℕ ∧ 𝑥 ∈ ℝ) → ((𝐷𝑛)‘𝑥) = ((𝐷𝑛)‘(𝑥 + 𝑇)))
347346adantll 749 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → ((𝐷𝑛)‘𝑥) = ((𝐷𝑛)‘(𝑥 + 𝑇)))
348344, 347oveq12d 6628 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → ((𝐹‘(𝑋 + 𝑥)) · ((𝐷𝑛)‘𝑥)) = ((𝐹‘(𝑋 + (𝑥 + 𝑇))) · ((𝐷𝑛)‘(𝑥 + 𝑇))))
349192a1i 11 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → 𝐺 = (𝑠 ∈ ℝ ↦ ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠))))
350 oveq2 6618 . . . . . . . . . . . . . 14 (𝑠 = (𝑥 + 𝑇) → (𝑋 + 𝑠) = (𝑋 + (𝑥 + 𝑇)))
351350fveq2d 6157 . . . . . . . . . . . . 13 (𝑠 = (𝑥 + 𝑇) → (𝐹‘(𝑋 + 𝑠)) = (𝐹‘(𝑋 + (𝑥 + 𝑇))))
352 fveq2 6153 . . . . . . . . . . . . 13 (𝑠 = (𝑥 + 𝑇) → ((𝐷𝑛)‘𝑠) = ((𝐷𝑛)‘(𝑥 + 𝑇)))
353351, 352oveq12d 6628 . . . . . . . . . . . 12 (𝑠 = (𝑥 + 𝑇) → ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) = ((𝐹‘(𝑋 + (𝑥 + 𝑇))) · ((𝐷𝑛)‘(𝑥 + 𝑇))))
354353adantl 482 . . . . . . . . . . 11 ((((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) ∧ 𝑠 = (𝑥 + 𝑇)) → ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) = ((𝐹‘(𝑋 + (𝑥 + 𝑇))) · ((𝐷𝑛)‘(𝑥 + 𝑇))))
355316a1i 11 . . . . . . . . . . . 12 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → 𝑇 ∈ ℝ)
356309, 355readdcld 10021 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → (𝑥 + 𝑇) ∈ ℝ)
357316a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ ℝ) → 𝑇 ∈ ℝ)
358199, 357readdcld 10021 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ ℝ) → (𝑥 + 𝑇) ∈ ℝ)
359198, 358readdcld 10021 . . . . . . . . . . . . . 14 ((𝜑𝑥 ∈ ℝ) → (𝑋 + (𝑥 + 𝑇)) ∈ ℝ)
360197, 359ffvelrnd 6321 . . . . . . . . . . . . 13 ((𝜑𝑥 ∈ ℝ) → (𝐹‘(𝑋 + (𝑥 + 𝑇))) ∈ ℂ)
361360adantlr 750 . . . . . . . . . . . 12 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → (𝐹‘(𝑋 + (𝑥 + 𝑇))) ∈ ℂ)
36277ad2antlr 762 . . . . . . . . . . . . . 14 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → (𝐷𝑛):ℝ⟶ℝ)
363362, 356ffvelrnd 6321 . . . . . . . . . . . . 13 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → ((𝐷𝑛)‘(𝑥 + 𝑇)) ∈ ℝ)
364363recnd 10020 . . . . . . . . . . . 12 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → ((𝐷𝑛)‘(𝑥 + 𝑇)) ∈ ℂ)
365361, 364mulcld 10012 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → ((𝐹‘(𝑋 + (𝑥 + 𝑇))) · ((𝐷𝑛)‘(𝑥 + 𝑇))) ∈ ℂ)
366349, 354, 356, 365fvmptd 6250 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → (𝐺‘(𝑥 + 𝑇)) = ((𝐹‘(𝑋 + (𝑥 + 𝑇))) · ((𝐷𝑛)‘(𝑥 + 𝑇))))
367366eqcomd 2627 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → ((𝐹‘(𝑋 + (𝑥 + 𝑇))) · ((𝐷𝑛)‘(𝑥 + 𝑇))) = (𝐺‘(𝑥 + 𝑇)))
368311, 348, 3673eqtrrd 2660 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → (𝐺‘(𝑥 + 𝑇)) = (𝐺𝑥))
369308, 368eqtrd 2655 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ ℝ) → (𝐺‘(𝑥 + ((π − 𝑋) − (-π − 𝑋)))) = (𝐺𝑥))
370192reseq1i 5357 . . . . . . . . . 10 (𝐺 ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) = ((𝑠 ∈ ℝ ↦ ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠))) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))
371370a1i 11 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝐺 ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) = ((𝑠 ∈ ℝ ↦ ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠))) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))))
372 ioossre 12185 . . . . . . . . . 10 ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ⊆ ℝ
373 resmpt 5413 . . . . . . . . . 10 (((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ⊆ ℝ → ((𝑠 ∈ ℝ ↦ ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠))) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) = (𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠))))
374372, 373ax-mp 5 . . . . . . . . 9 ((𝑠 ∈ ℝ ↦ ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠))) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) = (𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)))
375371, 374syl6eq 2671 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝐺 ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) = (𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠))))
376271rexrd 10041 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑄𝑖) ∈ ℝ*)
377376adantr 481 . . . . . . . . . . . . 13 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑄𝑖) ∈ ℝ*)
378274rexrd 10041 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑄‘(𝑖 + 1)) ∈ ℝ*)
379378adantr 481 . . . . . . . . . . . . 13 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑄‘(𝑖 + 1)) ∈ ℝ*)
38064adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑋 ∈ ℝ)
381 elioore 12155 . . . . . . . . . . . . . . . 16 (𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) → 𝑠 ∈ ℝ)
382381adantl 482 . . . . . . . . . . . . . . 15 ((𝜑𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑠 ∈ ℝ)
383380, 382readdcld 10021 . . . . . . . . . . . . . 14 ((𝜑𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑠) ∈ ℝ)
384383adantlr 750 . . . . . . . . . . . . 13 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑠) ∈ ℝ)
385 eleq1 2686 . . . . . . . . . . . . . . . 16 (𝑥 = 𝑠 → (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↔ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))))
386385anbi2d 739 . . . . . . . . . . . . . . 15 (𝑥 = 𝑠 → (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) ↔ ((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))))
387187breq2d 4630 . . . . . . . . . . . . . . 15 (𝑥 = 𝑠 → ((𝑄𝑖) < (𝑋 + 𝑥) ↔ (𝑄𝑖) < (𝑋 + 𝑠)))
388386, 387imbi12d 334 . . . . . . . . . . . . . 14 (𝑥 = 𝑠 → ((((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑄𝑖) < (𝑋 + 𝑥)) ↔ (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑄𝑖) < (𝑋 + 𝑠))))
389149adantr 481 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑋 ∈ ℂ)
390281, 279eqeltrd 2698 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑊𝑖) ∈ ℝ)
391390recnd 10020 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑊𝑖) ∈ ℂ)
392389, 391addcomd 10190 . . . . . . . . . . . . . . . . 17 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑋 + (𝑊𝑖)) = ((𝑊𝑖) + 𝑋))
393281oveq1d 6625 . . . . . . . . . . . . . . . . 17 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑊𝑖) + 𝑋) = (((𝑄𝑖) − 𝑋) + 𝑋))
394271recnd 10020 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑄𝑖) ∈ ℂ)
395394, 389npcand 10348 . . . . . . . . . . . . . . . . 17 ((𝜑𝑖 ∈ (0..^𝑀)) → (((𝑄𝑖) − 𝑋) + 𝑋) = (𝑄𝑖))
396392, 393, 3953eqtrrd 2660 . . . . . . . . . . . . . . . 16 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑄𝑖) = (𝑋 + (𝑊𝑖)))
397396adantr 481 . . . . . . . . . . . . . . 15 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑄𝑖) = (𝑋 + (𝑊𝑖)))
398390adantr 481 . . . . . . . . . . . . . . . 16 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑊𝑖) ∈ ℝ)
399 elioore 12155 . . . . . . . . . . . . . . . . 17 (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) → 𝑥 ∈ ℝ)
400399adantl 482 . . . . . . . . . . . . . . . 16 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑥 ∈ ℝ)
40164ad2antrr 761 . . . . . . . . . . . . . . . 16 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑋 ∈ ℝ)
402390rexrd 10041 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑊𝑖) ∈ ℝ*)
403402adantr 481 . . . . . . . . . . . . . . . . 17 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑊𝑖) ∈ ℝ*)
404291, 290eqeltrd 2698 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑊‘(𝑖 + 1)) ∈ ℝ)
405404rexrd 10041 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑊‘(𝑖 + 1)) ∈ ℝ*)
406405adantr 481 . . . . . . . . . . . . . . . . 17 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑊‘(𝑖 + 1)) ∈ ℝ*)
407 simpr 477 . . . . . . . . . . . . . . . . 17 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))
408 ioogtlb 39159 . . . . . . . . . . . . . . . . 17 (((𝑊𝑖) ∈ ℝ* ∧ (𝑊‘(𝑖 + 1)) ∈ ℝ*𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑊𝑖) < 𝑥)
409403, 406, 407, 408syl3anc 1323 . . . . . . . . . . . . . . . 16 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑊𝑖) < 𝑥)
410398, 400, 401, 409ltadd2dd 10148 . . . . . . . . . . . . . . 15 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + (𝑊𝑖)) < (𝑋 + 𝑥))
411397, 410eqbrtrd 4640 . . . . . . . . . . . . . 14 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑄𝑖) < (𝑋 + 𝑥))
412388, 411chvarv 2262 . . . . . . . . . . . . 13 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑄𝑖) < (𝑋 + 𝑠))
413187breq1d 4628 . . . . . . . . . . . . . . 15 (𝑥 = 𝑠 → ((𝑋 + 𝑥) < (𝑄‘(𝑖 + 1)) ↔ (𝑋 + 𝑠) < (𝑄‘(𝑖 + 1))))
414386, 413imbi12d 334 . . . . . . . . . . . . . 14 (𝑥 = 𝑠 → ((((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑥) < (𝑄‘(𝑖 + 1))) ↔ (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑠) < (𝑄‘(𝑖 + 1)))))
415404adantr 481 . . . . . . . . . . . . . . . 16 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑊‘(𝑖 + 1)) ∈ ℝ)
416 iooltub 39177 . . . . . . . . . . . . . . . . 17 (((𝑊𝑖) ∈ ℝ* ∧ (𝑊‘(𝑖 + 1)) ∈ ℝ*𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑥 < (𝑊‘(𝑖 + 1)))
417403, 406, 407, 416syl3anc 1323 . . . . . . . . . . . . . . . 16 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑥 < (𝑊‘(𝑖 + 1)))
418400, 415, 401, 417ltadd2dd 10148 . . . . . . . . . . . . . . 15 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑥) < (𝑋 + (𝑊‘(𝑖 + 1))))
419404recnd 10020 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑊‘(𝑖 + 1)) ∈ ℂ)
420389, 419addcomd 10190 . . . . . . . . . . . . . . . . 17 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑋 + (𝑊‘(𝑖 + 1))) = ((𝑊‘(𝑖 + 1)) + 𝑋))
421291oveq1d 6625 . . . . . . . . . . . . . . . . 17 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑊‘(𝑖 + 1)) + 𝑋) = (((𝑄‘(𝑖 + 1)) − 𝑋) + 𝑋))
422274recnd 10020 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑄‘(𝑖 + 1)) ∈ ℂ)
423422, 389npcand 10348 . . . . . . . . . . . . . . . . 17 ((𝜑𝑖 ∈ (0..^𝑀)) → (((𝑄‘(𝑖 + 1)) − 𝑋) + 𝑋) = (𝑄‘(𝑖 + 1)))
424420, 421, 4233eqtrd 2659 . . . . . . . . . . . . . . . 16 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑋 + (𝑊‘(𝑖 + 1))) = (𝑄‘(𝑖 + 1)))
425424adantr 481 . . . . . . . . . . . . . . 15 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + (𝑊‘(𝑖 + 1))) = (𝑄‘(𝑖 + 1)))
426418, 425breqtrd 4644 . . . . . . . . . . . . . 14 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑥) < (𝑄‘(𝑖 + 1)))
427414, 426chvarv 2262 . . . . . . . . . . . . 13 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑠) < (𝑄‘(𝑖 + 1)))
428377, 379, 384, 412, 427eliood 39162 . . . . . . . . . . . 12 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑠) ∈ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))))
429187cbvmptv 4715 . . . . . . . . . . . . 13 (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) = (𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑠))
430429a1i 11 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) = (𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑠)))
431 ioossre 12185 . . . . . . . . . . . . . . 15 ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))) ⊆ ℝ
432431a1i 11 . . . . . . . . . . . . . 14 (𝜑 → ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))) ⊆ ℝ)
43311, 432feqresmpt 6212 . . . . . . . . . . . . 13 (𝜑 → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) = (𝑥 ∈ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))) ↦ (𝐹𝑥)))
434433adantr 481 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) = (𝑥 ∈ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))) ↦ (𝐹𝑥)))
435 fveq2 6153 . . . . . . . . . . . 12 (𝑥 = (𝑋 + 𝑠) → (𝐹𝑥) = (𝐹‘(𝑋 + 𝑠)))
436428, 430, 434, 435fmptco 6357 . . . . . . . . . . 11 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∘ (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))) = (𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑠))))
437 eqid 2621 . . . . . . . . . . . . 13 (𝑥 ∈ ℂ ↦ (𝑋 + 𝑥)) = (𝑥 ∈ ℂ ↦ (𝑋 + 𝑥))
438 ssid 3608 . . . . . . . . . . . . . . . . 17 ℂ ⊆ ℂ
439438a1i 11 . . . . . . . . . . . . . . . 16 (𝜑 → ℂ ⊆ ℂ)
440439, 149, 439constcncfg 39415 . . . . . . . . . . . . . . 15 (𝜑 → (𝑥 ∈ ℂ ↦ 𝑋) ∈ (ℂ–cn→ℂ))
441 cncfmptid 22638 . . . . . . . . . . . . . . . . 17 ((ℂ ⊆ ℂ ∧ ℂ ⊆ ℂ) → (𝑥 ∈ ℂ ↦ 𝑥) ∈ (ℂ–cn→ℂ))
442438, 438, 441mp2an 707 . . . . . . . . . . . . . . . 16 (𝑥 ∈ ℂ ↦ 𝑥) ∈ (ℂ–cn→ℂ)
443442a1i 11 . . . . . . . . . . . . . . 15 (𝜑 → (𝑥 ∈ ℂ ↦ 𝑥) ∈ (ℂ–cn→ℂ))
444440, 443addcncf 39417 . . . . . . . . . . . . . 14 (𝜑 → (𝑥 ∈ ℂ ↦ (𝑋 + 𝑥)) ∈ (ℂ–cn→ℂ))
445444adantr 481 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑥 ∈ ℂ ↦ (𝑋 + 𝑥)) ∈ (ℂ–cn→ℂ))
446 ioosscn 39158 . . . . . . . . . . . . . 14 ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ⊆ ℂ
447446a1i 11 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ⊆ ℂ)
448 ioosscn 39158 . . . . . . . . . . . . . 14 ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))) ⊆ ℂ
449448a1i 11 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))) ⊆ ℂ)
450376adantr 481 . . . . . . . . . . . . . 14 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑄𝑖) ∈ ℝ*)
451378adantr 481 . . . . . . . . . . . . . 14 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑄‘(𝑖 + 1)) ∈ ℝ*)
45264adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑋 ∈ ℝ)
453399adantl 482 . . . . . . . . . . . . . . . 16 ((𝜑𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑥 ∈ ℝ)
454452, 453readdcld 10021 . . . . . . . . . . . . . . 15 ((𝜑𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑥) ∈ ℝ)
455454adantlr 750 . . . . . . . . . . . . . 14 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑥) ∈ ℝ)
456450, 451, 455, 411, 426eliood 39162 . . . . . . . . . . . . 13 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑥) ∈ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))))
457437, 445, 447, 449, 456cncfmptssg 39414 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) ∈ (((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))–cn→((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))))
458457, 49cncfco 22633 . . . . . . . . . . 11 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∘ (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))) ∈ (((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))–cn→ℂ))
459436, 458eqeltrrd 2699 . . . . . . . . . 10 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑠))) ∈ (((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))–cn→ℂ))
460459adantlr 750 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑠))) ∈ (((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))–cn→ℂ))
461 eqid 2621 . . . . . . . . . . 11 (𝑠 ∈ ℝ ↦ ((𝐷𝑛)‘𝑠)) = (𝑠 ∈ ℝ ↦ ((𝐷𝑛)‘𝑠))
46277feqmptd 6211 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → (𝐷𝑛) = (𝑠 ∈ ℝ ↦ ((𝐷𝑛)‘𝑠)))
463 cncfss 22625 . . . . . . . . . . . . . 14 ((ℝ ⊆ ℂ ∧ ℂ ⊆ ℂ) → (ℝ–cn→ℝ) ⊆ (ℝ–cn→ℂ))
46434, 438, 463mp2an 707 . . . . . . . . . . . . 13 (ℝ–cn→ℝ) ⊆ (ℝ–cn→ℂ)
46567dirkercncf 39657 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → (𝐷𝑛) ∈ (ℝ–cn→ℝ))
466464, 465sseldi 3585 . . . . . . . . . . . 12 (𝑛 ∈ ℕ → (𝐷𝑛) ∈ (ℝ–cn→ℂ))
467462, 466eqeltrrd 2699 . . . . . . . . . . 11 (𝑛 ∈ ℕ → (𝑠 ∈ ℝ ↦ ((𝐷𝑛)‘𝑠)) ∈ (ℝ–cn→ℂ))
468372a1i 11 . . . . . . . . . . 11 (𝑛 ∈ ℕ → ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ⊆ ℝ)
469438a1i 11 . . . . . . . . . . 11 (𝑛 ∈ ℕ → ℂ ⊆ ℂ)
470 cncff 22619 . . . . . . . . . . . . . 14 ((𝐷𝑛) ∈ (ℝ–cn→ℂ) → (𝐷𝑛):ℝ⟶ℂ)
471466, 470syl 17 . . . . . . . . . . . . 13 (𝑛 ∈ ℕ → (𝐷𝑛):ℝ⟶ℂ)
472471adantr 481 . . . . . . . . . . . 12 ((𝑛 ∈ ℕ ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝐷𝑛):ℝ⟶ℂ)
473381adantl 482 . . . . . . . . . . . 12 ((𝑛 ∈ ℕ ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑠 ∈ ℝ)
474472, 473ffvelrnd 6321 . . . . . . . . . . 11 ((𝑛 ∈ ℕ ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → ((𝐷𝑛)‘𝑠) ∈ ℂ)
475461, 467, 468, 469, 474cncfmptssg 39414 . . . . . . . . . 10 (𝑛 ∈ ℕ → (𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ ((𝐷𝑛)‘𝑠)) ∈ (((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))–cn→ℂ))
476475ad2antlr 762 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ ((𝐷𝑛)‘𝑠)) ∈ (((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))–cn→ℂ))
477460, 476mulcncf 23138 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠))) ∈ (((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))–cn→ℂ))
478375, 477eqeltrd 2698 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝐺 ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) ∈ (((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))–cn→ℂ))
479453, 201syldan 487 . . . . . . . . . . . 12 ((𝜑𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝐹‘(𝑋 + 𝑥)) ∈ ℂ)
480479adantlr 750 . . . . . . . . . . 11 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝐹‘(𝑋 + 𝑥)) ∈ ℂ)
481 eqid 2621 . . . . . . . . . . 11 (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥))) = (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥)))
482480, 481fmptd 6346 . . . . . . . . . 10 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥))):((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))⟶ℂ)
483482adantlr 750 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥))):((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))⟶ℂ)
48477ad2antlr 762 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝐷𝑛):ℝ⟶ℝ)
485372a1i 11 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ⊆ ℝ)
486484, 485fssresd 6033 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → ((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))):((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))⟶ℝ)
48734a1i 11 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → ℝ ⊆ ℂ)
488486, 487fssd 6019 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → ((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))):((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))⟶ℂ)
489 eqid 2621 . . . . . . . . 9 (𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥)))‘𝑠) · (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))‘𝑠))) = (𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥)))‘𝑠) · (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))‘𝑠)))
490 fdm 6013 . . . . . . . . . . . . . . . . . . . . 21 (𝐹:ℝ⟶ℂ → dom 𝐹 = ℝ)
49136, 490syl 17 . . . . . . . . . . . . . . . . . . . 20 (𝜑 → dom 𝐹 = ℝ)
492431, 491syl5sseqr 3638 . . . . . . . . . . . . . . . . . . 19 (𝜑 → ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))) ⊆ dom 𝐹)
493 ssdmres 5384 . . . . . . . . . . . . . . . . . . 19 (((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))) ⊆ dom 𝐹 ↔ dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) = ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))))
494492, 493sylib 208 . . . . . . . . . . . . . . . . . 18 (𝜑 → dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) = ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))))
495494eqcomd 2627 . . . . . . . . . . . . . . . . 17 (𝜑 → ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))) = dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))))
496495ad2antrr 761 . . . . . . . . . . . . . . . 16 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))) = dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))))
497456, 496eleqtrd 2700 . . . . . . . . . . . . . . 15 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑥) ∈ dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))))
498271adantr 481 . . . . . . . . . . . . . . . 16 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑄𝑖) ∈ ℝ)
499498, 411gtned 10124 . . . . . . . . . . . . . . 15 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑥) ≠ (𝑄𝑖))
500 eldifsn 4292 . . . . . . . . . . . . . . 15 ((𝑋 + 𝑥) ∈ (dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∖ {(𝑄𝑖)}) ↔ ((𝑋 + 𝑥) ∈ dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∧ (𝑋 + 𝑥) ≠ (𝑄𝑖)))
501497, 499, 500sylanbrc 697 . . . . . . . . . . . . . 14 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑥) ∈ (dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∖ {(𝑄𝑖)}))
502501ralrimiva 2961 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ∀𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))(𝑋 + 𝑥) ∈ (dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∖ {(𝑄𝑖)}))
503 eqid 2621 . . . . . . . . . . . . . 14 (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) = (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))
504503rnmptss 6353 . . . . . . . . . . . . 13 (∀𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))(𝑋 + 𝑥) ∈ (dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∖ {(𝑄𝑖)}) → ran (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) ⊆ (dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∖ {(𝑄𝑖)}))
505502, 504syl 17 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → ran (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) ⊆ (dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∖ {(𝑄𝑖)}))
506 eqidd 2622 . . . . . . . . . . . . . . . 16 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) = (𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)))
507 oveq2 6618 . . . . . . . . . . . . . . . . 17 (𝑥 = (𝑊𝑖) → (𝑋 + 𝑥) = (𝑋 + (𝑊𝑖)))
508507adantl 482 . . . . . . . . . . . . . . . 16 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 = (𝑊𝑖)) → (𝑋 + 𝑥) = (𝑋 + (𝑊𝑖)))
509390leidd 10546 . . . . . . . . . . . . . . . . 17 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑊𝑖) ≤ (𝑊𝑖))
510390, 404, 292ltled 10137 . . . . . . . . . . . . . . . . 17 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑊𝑖) ≤ (𝑊‘(𝑖 + 1)))
511390, 404, 390, 509, 510eliccd 39168 . . . . . . . . . . . . . . . 16 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑊𝑖) ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))))
512396, 271eqeltrrd 2699 . . . . . . . . . . . . . . . 16 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑋 + (𝑊𝑖)) ∈ ℝ)
513506, 508, 511, 512fvmptd 6250 . . . . . . . . . . . . . . 15 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))‘(𝑊𝑖)) = (𝑋 + (𝑊𝑖)))
514396eqcomd 2627 . . . . . . . . . . . . . . 15 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑋 + (𝑊𝑖)) = (𝑄𝑖))
515513, 514eqtr2d 2656 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑄𝑖) = ((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))‘(𝑊𝑖)))
516390, 404iccssred 39169 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ⊆ ℝ)
517516, 34syl6ss 3599 . . . . . . . . . . . . . . . . 17 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ⊆ ℂ)
518517resmptd 5416 . . . . . . . . . . . . . . . 16 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑥 ∈ ℂ ↦ (𝑋 + 𝑥)) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) = (𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)))
519 rescncf 22623 . . . . . . . . . . . . . . . . 17 (((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ⊆ ℂ → ((𝑥 ∈ ℂ ↦ (𝑋 + 𝑥)) ∈ (ℂ–cn→ℂ) → ((𝑥 ∈ ℂ ↦ (𝑋 + 𝑥)) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) ∈ (((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))–cn→ℂ)))
520517, 445, 519sylc 65 . . . . . . . . . . . . . . . 16 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑥 ∈ ℂ ↦ (𝑋 + 𝑥)) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) ∈ (((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))–cn→ℂ))
521518, 520eqeltrrd 2699 . . . . . . . . . . . . . . 15 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) ∈ (((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))–cn→ℂ))
522521, 511cnlimci 23576 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))‘(𝑊𝑖)) ∈ ((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) lim (𝑊𝑖)))
523515, 522eqeltrd 2698 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑄𝑖) ∈ ((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) lim (𝑊𝑖)))
524 ioossicc 12209 . . . . . . . . . . . . . . . . . 18 ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ⊆ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))
525 resmpt 5413 . . . . . . . . . . . . . . . . . 18 (((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ⊆ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) → ((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) = (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)))
526524, 525ax-mp 5 . . . . . . . . . . . . . . . . 17 ((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) = (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))
527526eqcomi 2630 . . . . . . . . . . . . . . . 16 (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) = ((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))
528527a1i 11 . . . . . . . . . . . . . . 15 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) = ((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))))
529528oveq1d 6625 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) lim (𝑊𝑖)) = (((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊𝑖)))
530149ad2antrr 761 . . . . . . . . . . . . . . . . 17 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) → 𝑋 ∈ ℂ)
531390adantr 481 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) → (𝑊𝑖) ∈ ℝ)
532404adantr 481 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) → (𝑊‘(𝑖 + 1)) ∈ ℝ)
533 simpr 477 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) → 𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))))
534 eliccre 39170 . . . . . . . . . . . . . . . . . . 19 (((𝑊𝑖) ∈ ℝ ∧ (𝑊‘(𝑖 + 1)) ∈ ℝ ∧ 𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) → 𝑥 ∈ ℝ)
535531, 532, 533, 534syl3anc 1323 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) → 𝑥 ∈ ℝ)
536535recnd 10020 . . . . . . . . . . . . . . . . 17 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) → 𝑥 ∈ ℂ)
537530, 536addcld 10011 . . . . . . . . . . . . . . . 16 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑥) ∈ ℂ)
538 eqid 2621 . . . . . . . . . . . . . . . 16 (𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) = (𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))
539537, 538fmptd 6346 . . . . . . . . . . . . . . 15 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)):((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))⟶ℂ)
540390, 404, 292, 539limciccioolb 39285 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → (((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊𝑖)) = ((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) lim (𝑊𝑖)))
541529, 540eqtr2d 2656 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) lim (𝑊𝑖)) = ((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) lim (𝑊𝑖)))
542523, 541eleqtrd 2700 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑄𝑖) ∈ ((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) lim (𝑊𝑖)))
543505, 542, 51limccog 39284 . . . . . . . . . . 11 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ (((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∘ (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))) lim (𝑊𝑖)))
54436, 432fssresd 6033 . . . . . . . . . . . . . . 15 (𝜑 → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))):((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))⟶ℂ)
545544adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))):((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))⟶ℂ)
546456, 503fmptd 6346 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)):((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))⟶((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))))
547 fcompt 6360 . . . . . . . . . . . . . 14 (((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))):((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))⟶ℂ ∧ (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)):((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))⟶((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) → ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∘ (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))) = (𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))))‘((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))‘𝑦))))
548545, 546, 547syl2anc 692 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∘ (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))) = (𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))))‘((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))‘𝑦))))
549 eqidd 2622 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) = (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)))
550 oveq2 6618 . . . . . . . . . . . . . . . . . . . 20 (𝑥 = 𝑦 → (𝑋 + 𝑥) = (𝑋 + 𝑦))
551550adantl 482 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) ∧ 𝑥 = 𝑦) → (𝑋 + 𝑥) = (𝑋 + 𝑦))
552 simpr 477 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))
55364adantr 481 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑋 ∈ ℝ)
554372, 552sseldi 3585 . . . . . . . . . . . . . . . . . . . 20 ((𝜑𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑦 ∈ ℝ)
555553, 554readdcld 10021 . . . . . . . . . . . . . . . . . . 19 ((𝜑𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑦) ∈ ℝ)
556549, 551, 552, 555fvmptd 6250 . . . . . . . . . . . . . . . . . 18 ((𝜑𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → ((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))‘𝑦) = (𝑋 + 𝑦))
557556fveq2d 6157 . . . . . . . . . . . . . . . . 17 ((𝜑𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))))‘((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))‘𝑦)) = ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))))‘(𝑋 + 𝑦)))
558557adantlr 750 . . . . . . . . . . . . . . . 16 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))))‘((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))‘𝑦)) = ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))))‘(𝑋 + 𝑦)))
559376adantr 481 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑄𝑖) ∈ ℝ*)
560378adantr 481 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑄‘(𝑖 + 1)) ∈ ℝ*)
561555adantlr 750 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑦) ∈ ℝ)
562396adantr 481 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑄𝑖) = (𝑋 + (𝑊𝑖)))
563390adantr 481 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑊𝑖) ∈ ℝ)
564554adantlr 750 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑦 ∈ ℝ)
56564ad2antrr 761 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑋 ∈ ℝ)
566402adantr 481 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑊𝑖) ∈ ℝ*)
567405adantr 481 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑊‘(𝑖 + 1)) ∈ ℝ*)
568 simpr 477 . . . . . . . . . . . . . . . . . . . . 21 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))
569 ioogtlb 39159 . . . . . . . . . . . . . . . . . . . . 21 (((𝑊𝑖) ∈ ℝ* ∧ (𝑊‘(𝑖 + 1)) ∈ ℝ*𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑊𝑖) < 𝑦)
570566, 567, 568, 569syl3anc 1323 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑊𝑖) < 𝑦)
571563, 564, 565, 570ltadd2dd 10148 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + (𝑊𝑖)) < (𝑋 + 𝑦))
572562, 571eqbrtrd 4640 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑄𝑖) < (𝑋 + 𝑦))
573404adantr 481 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑊‘(𝑖 + 1)) ∈ ℝ)
574 iooltub 39177 . . . . . . . . . . . . . . . . . . . . 21 (((𝑊𝑖) ∈ ℝ* ∧ (𝑊‘(𝑖 + 1)) ∈ ℝ*𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑦 < (𝑊‘(𝑖 + 1)))
575566, 567, 568, 574syl3anc 1323 . . . . . . . . . . . . . . . . . . . 20 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑦 < (𝑊‘(𝑖 + 1)))
576564, 573, 565, 575ltadd2dd 10148 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑦) < (𝑋 + (𝑊‘(𝑖 + 1))))
577424adantr 481 . . . . . . . . . . . . . . . . . . 19 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + (𝑊‘(𝑖 + 1))) = (𝑄‘(𝑖 + 1)))
578576, 577breqtrd 4644 . . . . . . . . . . . . . . . . . 18 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑦) < (𝑄‘(𝑖 + 1)))
579559, 560, 561, 572, 578eliood 39162 . . . . . . . . . . . . . . . . 17 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑦) ∈ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))))
580 fvres 6169 . . . . . . . . . . . . . . . . 17 ((𝑋 + 𝑦) ∈ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))) → ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))))‘(𝑋 + 𝑦)) = (𝐹‘(𝑋 + 𝑦)))
581579, 580syl 17 . . . . . . . . . . . . . . . 16 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))))‘(𝑋 + 𝑦)) = (𝐹‘(𝑋 + 𝑦)))
582558, 581eqtrd 2655 . . . . . . . . . . . . . . 15 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))))‘((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))‘𝑦)) = (𝐹‘(𝑋 + 𝑦)))
583582mpteq2dva 4709 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))))‘((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))‘𝑦))) = (𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑦))))
584550fveq2d 6157 . . . . . . . . . . . . . . 15 (𝑥 = 𝑦 → (𝐹‘(𝑋 + 𝑥)) = (𝐹‘(𝑋 + 𝑦)))
585584cbvmptv 4715 . . . . . . . . . . . . . 14 (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥))) = (𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑦)))
586583, 585syl6eqr 2673 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑦 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1))))‘((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))‘𝑦))) = (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥))))
587548, 586eqtrd 2655 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∘ (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))) = (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥))))
588587oveq1d 6625 . . . . . . . . . . 11 ((𝜑𝑖 ∈ (0..^𝑀)) → (((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∘ (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))) lim (𝑊𝑖)) = ((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥))) lim (𝑊𝑖)))
589543, 588eleqtrd 2700 . . . . . . . . . 10 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ ((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥))) lim (𝑊𝑖)))
590589adantlr 750 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ ((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥))) lim (𝑊𝑖)))
591 fvres 6169 . . . . . . . . . . . . . 14 ((𝑊𝑖) ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) → (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))))‘(𝑊𝑖)) = ((𝐷𝑛)‘(𝑊𝑖)))
592511, 591syl 17 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))))‘(𝑊𝑖)) = ((𝐷𝑛)‘(𝑊𝑖)))
593592eqcomd 2627 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝐷𝑛)‘(𝑊𝑖)) = (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))))‘(𝑊𝑖)))
594593adantlr 750 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → ((𝐷𝑛)‘(𝑊𝑖)) = (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))))‘(𝑊𝑖)))
595516adantlr 750 . . . . . . . . . . . . 13 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ⊆ ℝ)
596465ad2antlr 762 . . . . . . . . . . . . 13 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝐷𝑛) ∈ (ℝ–cn→ℝ))
597 rescncf 22623 . . . . . . . . . . . . 13 (((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ⊆ ℝ → ((𝐷𝑛) ∈ (ℝ–cn→ℝ) → ((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) ∈ (((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))–cn→ℝ)))
598595, 596, 597sylc 65 . . . . . . . . . . . 12 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → ((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) ∈ (((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))–cn→ℝ))
599511adantlr 750 . . . . . . . . . . . 12 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝑊𝑖) ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))))
600598, 599cnlimci 23576 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))))‘(𝑊𝑖)) ∈ (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) lim (𝑊𝑖)))
601594, 600eqeltrd 2698 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → ((𝐷𝑛)‘(𝑊𝑖)) ∈ (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) lim (𝑊𝑖)))
602524a1i 11 . . . . . . . . . . . . . . 15 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ⊆ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))))
603602resabs1d 5392 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) = ((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))))
604603eqcomd 2627 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) = (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))))
605604oveq1d 6625 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊𝑖)) = ((((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊𝑖)))
606605adantlr 750 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊𝑖)) = ((((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊𝑖)))
607390adantlr 750 . . . . . . . . . . . 12 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝑊𝑖) ∈ ℝ)
608404adantlr 750 . . . . . . . . . . . 12 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝑊‘(𝑖 + 1)) ∈ ℝ)
609292adantlr 750 . . . . . . . . . . . 12 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝑊𝑖) < (𝑊‘(𝑖 + 1)))
610471ad2antlr 762 . . . . . . . . . . . . 13 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝐷𝑛):ℝ⟶ℂ)
611610, 595fssresd 6033 . . . . . . . . . . . 12 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → ((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))):((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))⟶ℂ)
612607, 608, 609, 611limciccioolb 39285 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → ((((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊𝑖)) = (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) lim (𝑊𝑖)))
613606, 612eqtr2d 2656 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) lim (𝑊𝑖)) = (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊𝑖)))
614601, 613eleqtrd 2700 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → ((𝐷𝑛)‘(𝑊𝑖)) ∈ (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊𝑖)))
615483, 488, 489, 590, 614mullimcf 39287 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝑅 · ((𝐷𝑛)‘(𝑊𝑖))) ∈ ((𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥)))‘𝑠) · (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))‘𝑠))) lim (𝑊𝑖)))
616 eqidd 2622 . . . . . . . . . . . . . . 15 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥))) = (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥))))
617188adantl 482 . . . . . . . . . . . . . . 15 ((((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) ∧ 𝑥 = 𝑠) → (𝐹‘(𝑋 + 𝑥)) = (𝐹‘(𝑋 + 𝑠)))
618 simpr 477 . . . . . . . . . . . . . . 15 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))
61936adantr 481 . . . . . . . . . . . . . . . . 17 ((𝜑𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → 𝐹:ℝ⟶ℂ)
620619, 383ffvelrnd 6321 . . . . . . . . . . . . . . . 16 ((𝜑𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝐹‘(𝑋 + 𝑠)) ∈ ℂ)
621620adantlr 750 . . . . . . . . . . . . . . 15 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝐹‘(𝑋 + 𝑠)) ∈ ℂ)
622616, 617, 618, 621fvmptd 6250 . . . . . . . . . . . . . 14 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → ((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥)))‘𝑠) = (𝐹‘(𝑋 + 𝑠)))
623622adantllr 754 . . . . . . . . . . . . 13 ((((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → ((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥)))‘𝑠) = (𝐹‘(𝑋 + 𝑠)))
624 fvres 6169 . . . . . . . . . . . . . 14 (𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) → (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))‘𝑠) = ((𝐷𝑛)‘𝑠))
625624adantl 482 . . . . . . . . . . . . 13 ((((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))‘𝑠) = ((𝐷𝑛)‘𝑠))
626623, 625oveq12d 6628 . . . . . . . . . . . 12 ((((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥)))‘𝑠) · (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))‘𝑠)) = ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)))
627626eqcomd 2627 . . . . . . . . . . 11 ((((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) ∧ 𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) = (((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥)))‘𝑠) · (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))‘𝑠)))
628627mpteq2dva 4709 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠))) = (𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥)))‘𝑠) · (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))‘𝑠))))
629375, 628eqtr2d 2656 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥)))‘𝑠) · (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))‘𝑠))) = (𝐺 ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))))
630629oveq1d 6625 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → ((𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥)))‘𝑠) · (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))‘𝑠))) lim (𝑊𝑖)) = ((𝐺 ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊𝑖)))
631615, 630eleqtrd 2700 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝑅 · ((𝐷𝑛)‘(𝑊𝑖))) ∈ ((𝐺 ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊𝑖)))
632455, 426ltned 10125 . . . . . . . . . . . . . . 15 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑥) ≠ (𝑄‘(𝑖 + 1)))
633 eldifsn 4292 . . . . . . . . . . . . . . 15 ((𝑋 + 𝑥) ∈ (dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∖ {(𝑄‘(𝑖 + 1))}) ↔ ((𝑋 + 𝑥) ∈ dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∧ (𝑋 + 𝑥) ≠ (𝑄‘(𝑖 + 1))))
634497, 632, 633sylanbrc 697 . . . . . . . . . . . . . 14 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) → (𝑋 + 𝑥) ∈ (dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∖ {(𝑄‘(𝑖 + 1))}))
635634ralrimiva 2961 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ∀𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))(𝑋 + 𝑥) ∈ (dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∖ {(𝑄‘(𝑖 + 1))}))
636503rnmptss 6353 . . . . . . . . . . . . 13 (∀𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))(𝑋 + 𝑥) ∈ (dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∖ {(𝑄‘(𝑖 + 1))}) → ran (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) ⊆ (dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∖ {(𝑄‘(𝑖 + 1))}))
637635, 636syl 17 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → ran (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) ⊆ (dom (𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∖ {(𝑄‘(𝑖 + 1))}))
638404leidd 10546 . . . . . . . . . . . . . . 15 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑊‘(𝑖 + 1)) ≤ (𝑊‘(𝑖 + 1)))
639390, 404, 404, 510, 638eliccd 39168 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑊‘(𝑖 + 1)) ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))))
640521, 639cnlimci 23576 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))‘(𝑊‘(𝑖 + 1))) ∈ ((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) lim (𝑊‘(𝑖 + 1))))
641 oveq2 6618 . . . . . . . . . . . . . . . 16 (𝑥 = (𝑊‘(𝑖 + 1)) → (𝑋 + 𝑥) = (𝑋 + (𝑊‘(𝑖 + 1))))
642641adantl 482 . . . . . . . . . . . . . . 15 (((𝜑𝑖 ∈ (0..^𝑀)) ∧ 𝑥 = (𝑊‘(𝑖 + 1))) → (𝑋 + 𝑥) = (𝑋 + (𝑊‘(𝑖 + 1))))
643275, 404readdcld 10021 . . . . . . . . . . . . . . 15 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑋 + (𝑊‘(𝑖 + 1))) ∈ ℝ)
644506, 642, 639, 643fvmptd 6250 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))‘(𝑊‘(𝑖 + 1))) = (𝑋 + (𝑊‘(𝑖 + 1))))
645644, 424eqtrd 2655 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))‘(𝑊‘(𝑖 + 1))) = (𝑄‘(𝑖 + 1)))
646528oveq1d 6625 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) lim (𝑊‘(𝑖 + 1))) = (((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊‘(𝑖 + 1))))
647390, 404, 292, 539limcicciooub 39301 . . . . . . . . . . . . . 14 ((𝜑𝑖 ∈ (0..^𝑀)) → (((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊‘(𝑖 + 1))) = ((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) lim (𝑊‘(𝑖 + 1))))
648646, 647eqtr2d 2656 . . . . . . . . . . . . 13 ((𝜑𝑖 ∈ (0..^𝑀)) → ((𝑥 ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) lim (𝑊‘(𝑖 + 1))) = ((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) lim (𝑊‘(𝑖 + 1))))
649640, 645, 6483eltr3d 2712 . . . . . . . . . . . 12 ((𝜑𝑖 ∈ (0..^𝑀)) → (𝑄‘(𝑖 + 1)) ∈ ((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥)) lim (𝑊‘(𝑖 + 1))))
650637, 649, 54limccog 39284 . . . . . . . . . . 11 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ (((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∘ (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))) lim (𝑊‘(𝑖 + 1))))
651587oveq1d 6625 . . . . . . . . . . 11 ((𝜑𝑖 ∈ (0..^𝑀)) → (((𝐹 ↾ ((𝑄𝑖)(,)(𝑄‘(𝑖 + 1)))) ∘ (𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝑋 + 𝑥))) lim (𝑊‘(𝑖 + 1))) = ((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥))) lim (𝑊‘(𝑖 + 1))))
652650, 651eleqtrd 2700 . . . . . . . . . 10 ((𝜑𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥))) lim (𝑊‘(𝑖 + 1))))
653652adantlr 750 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥))) lim (𝑊‘(𝑖 + 1))))
654639adantlr 750 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝑊‘(𝑖 + 1)) ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))))
655598, 654cnlimci 23576 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))))‘(𝑊‘(𝑖 + 1))) ∈ (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) lim (𝑊‘(𝑖 + 1))))
656 fvres 6169 . . . . . . . . . . 11 ((𝑊‘(𝑖 + 1)) ∈ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) → (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))))‘(𝑊‘(𝑖 + 1))) = ((𝐷𝑛)‘(𝑊‘(𝑖 + 1))))
657654, 656syl 17 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))))‘(𝑊‘(𝑖 + 1))) = ((𝐷𝑛)‘(𝑊‘(𝑖 + 1))))
658607, 608, 609, 611limcicciooub 39301 . . . . . . . . . . . 12 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → ((((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊‘(𝑖 + 1))) = (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) lim (𝑊‘(𝑖 + 1))))
659658eqcomd 2627 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) lim (𝑊‘(𝑖 + 1))) = ((((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊‘(𝑖 + 1))))
660 resabs1 5391 . . . . . . . . . . . . 13 (((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ⊆ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1))) → (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) = ((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))))
661524, 660mp1i 13 . . . . . . . . . . . 12 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) = ((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))))
662661oveq1d 6625 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → ((((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊‘(𝑖 + 1))) = (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊‘(𝑖 + 1))))
663659, 662eqtrd 2655 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (((𝐷𝑛) ↾ ((𝑊𝑖)[,](𝑊‘(𝑖 + 1)))) lim (𝑊‘(𝑖 + 1))) = (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊‘(𝑖 + 1))))
664655, 657, 6633eltr3d 2712 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → ((𝐷𝑛)‘(𝑊‘(𝑖 + 1))) ∈ (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊‘(𝑖 + 1))))
665483, 488, 489, 653, 664mullimcf 39287 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝐿 · ((𝐷𝑛)‘(𝑊‘(𝑖 + 1)))) ∈ ((𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥)))‘𝑠) · (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))‘𝑠))) lim (𝑊‘(𝑖 + 1))))
666629oveq1d 6625 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → ((𝑠 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (((𝑥 ∈ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))) ↦ (𝐹‘(𝑋 + 𝑥)))‘𝑠) · (((𝐷𝑛) ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1))))‘𝑠))) lim (𝑊‘(𝑖 + 1))) = ((𝐺 ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊‘(𝑖 + 1))))
667665, 666eleqtrd 2700 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝐿 · ((𝐷𝑛)‘(𝑊‘(𝑖 + 1)))) ∈ ((𝐺 ↾ ((𝑊𝑖)(,)(𝑊‘(𝑖 + 1)))) lim (𝑊‘(𝑖 + 1))))
668125, 128, 221, 222, 223, 109, 298, 207, 369, 478, 631, 667fourierdlem110 39766 . . . . . 6 ((𝜑𝑛 ∈ ℕ) → ∫(((-π − 𝑋) − -𝑋)[,]((π − 𝑋) − -𝑋))(𝐺𝑥) d𝑥 = ∫((-π − 𝑋)[,](π − 𝑋))(𝐺𝑥) d𝑥)
669668eqcomd 2627 . . . . 5 ((𝜑𝑛 ∈ ℕ) → ∫((-π − 𝑋)[,](π − 𝑋))(𝐺𝑥) d𝑥 = ∫(((-π − 𝑋) − -𝑋)[,]((π − 𝑋) − -𝑋))(𝐺𝑥) d𝑥)
670124recnd 10020 . . . . . . . . . 10 (𝜑 → (-π − 𝑋) ∈ ℂ)
671670, 149subnegd 10351 . . . . . . . . 9 (𝜑 → ((-π − 𝑋) − -𝑋) = ((-π − 𝑋) + 𝑋))
672151, 149npcand 10348 . . . . . . . . 9 (𝜑 → ((-π − 𝑋) + 𝑋) = -π)
673671, 672eqtrd 2655 . . . . . . . 8 (𝜑 → ((-π − 𝑋) − -𝑋) = -π)
674127recnd 10020 . . . . . . . . . 10 (𝜑 → (π − 𝑋) ∈ ℂ)
675674, 149subnegd 10351 . . . . . . . . 9 (𝜑 → ((π − 𝑋) − -𝑋) = ((π − 𝑋) + 𝑋))
676150, 149npcand 10348 . . . . . . . . 9 (𝜑 → ((π − 𝑋) + 𝑋) = π)
677675, 676eqtrd 2655 . . . . . . . 8 (𝜑 → ((π − 𝑋) − -𝑋) = π)
678673, 677oveq12d 6628 . . . . . . 7 (𝜑 → (((-π − 𝑋) − -𝑋)[,]((π − 𝑋) − -𝑋)) = (-π[,]π))
679678itgeq1d 39505 . . . . . 6 (𝜑 → ∫(((-π − 𝑋) − -𝑋)[,]((π − 𝑋) − -𝑋))(𝐺𝑥) d𝑥 = ∫(-π[,]π)(𝐺𝑥) d𝑥)
680679adantr 481 . . . . 5 ((𝜑𝑛 ∈ ℕ) → ∫(((-π − 𝑋) − -𝑋)[,]((π − 𝑋) − -𝑋))(𝐺𝑥) d𝑥 = ∫(-π[,]π)(𝐺𝑥) d𝑥)
681669, 680eqtrd 2655 . . . 4 ((𝜑𝑛 ∈ ℕ) → ∫((-π − 𝑋)[,](π − 𝑋))(𝐺𝑥) d𝑥 = ∫(-π[,]π)(𝐺𝑥) d𝑥)
682 fveq2 6153 . . . . . 6 (𝑥 = 𝑠 → (𝐺𝑥) = (𝐺𝑠))
683682cbvitgv 23466 . . . . 5 ∫(-π(,)π)(𝐺𝑥) d𝑥 = ∫(-π(,)π)(𝐺𝑠) d𝑠
684207adantr 481 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ (-π[,]π)) → 𝐺:ℝ⟶ℂ)
68528adantlr 750 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ (-π[,]π)) → 𝑥 ∈ ℝ)
686684, 685ffvelrnd 6321 . . . . . 6 (((𝜑𝑛 ∈ ℕ) ∧ 𝑥 ∈ (-π[,]π)) → (𝐺𝑥) ∈ ℂ)
68771, 72, 686itgioo 23505 . . . . 5 ((𝜑𝑛 ∈ ℕ) → ∫(-π(,)π)(𝐺𝑥) d𝑥 = ∫(-π[,]π)(𝐺𝑥) d𝑥)
688 elioore 12155 . . . . . . . 8 (𝑠 ∈ (-π(,)π) → 𝑠 ∈ ℝ)
689688adantl 482 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (-π(,)π)) → 𝑠 ∈ ℝ)
69036adantr 481 . . . . . . . . . 10 ((𝜑𝑠 ∈ (-π(,)π)) → 𝐹:ℝ⟶ℂ)
69164adantr 481 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (-π(,)π)) → 𝑋 ∈ ℝ)
692688adantl 482 . . . . . . . . . . 11 ((𝜑𝑠 ∈ (-π(,)π)) → 𝑠 ∈ ℝ)
693691, 692readdcld 10021 . . . . . . . . . 10 ((𝜑𝑠 ∈ (-π(,)π)) → (𝑋 + 𝑠) ∈ ℝ)
694690, 693ffvelrnd 6321 . . . . . . . . 9 ((𝜑𝑠 ∈ (-π(,)π)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℂ)
695694adantlr 750 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (-π(,)π)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℂ)
69677ad2antlr 762 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (-π(,)π)) → (𝐷𝑛):ℝ⟶ℝ)
697696, 689ffvelrnd 6321 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (-π(,)π)) → ((𝐷𝑛)‘𝑠) ∈ ℝ)
698697recnd 10020 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (-π(,)π)) → ((𝐷𝑛)‘𝑠) ∈ ℂ)
699695, 698mulcld 10012 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (-π(,)π)) → ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) ∈ ℂ)
700689, 699, 193syl2anc 692 . . . . . 6 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (-π(,)π)) → (𝐺𝑠) = ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)))
701700itgeq2dv 23471 . . . . 5 ((𝜑𝑛 ∈ ℕ) → ∫(-π(,)π)(𝐺𝑠) d𝑠 = ∫(-π(,)π)((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠)
702683, 687, 7013eqtr3a 2679 . . . 4 ((𝜑𝑛 ∈ ℕ) → ∫(-π[,]π)(𝐺𝑥) d𝑥 = ∫(-π(,)π)((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠)
703220, 681, 7023eqtrd 2659 . . 3 ((𝜑𝑛 ∈ ℕ) → ∫((-π − 𝑋)(,)(π − 𝑋))((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠 = ∫(-π(,)π)((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠)
70470, 173, 7033eqtrd 2659 . 2 ((𝜑𝑛 ∈ ℕ) → (𝑆𝑛) = ∫(-π(,)π)((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠)
70572renegcld 10409 . . 3 ((𝜑𝑛 ∈ ℕ) → -π ∈ ℝ)
706 0red 9993 . . . 4 ((𝜑𝑛 ∈ ℕ) → 0 ∈ ℝ)
707 0re 9992 . . . . . 6 0 ∈ ℝ
708 negpilt0 38987 . . . . . 6 -π < 0
70923, 707, 708ltleii 10112 . . . . 5 -π ≤ 0
710709a1i 11 . . . 4 ((𝜑𝑛 ∈ ℕ) → -π ≤ 0)
711 pipos 24133 . . . . . 6 0 < π
712707, 22, 711ltleii 10112 . . . . 5 0 ≤ π
713712a1i 11 . . . 4 ((𝜑𝑛 ∈ ℕ) → 0 ≤ π)
71471, 72, 706, 710, 713eliccd 39168 . . 3 ((𝜑𝑛 ∈ ℕ) → 0 ∈ (-π[,]π))
715 ioossicc 12209 . . . . 5 (-π(,)0) ⊆ (-π[,]0)
716715a1i 11 . . . 4 ((𝜑𝑛 ∈ ℕ) → (-π(,)0) ⊆ (-π[,]0))
717 ioombl 23256 . . . . 5 (-π(,)0) ∈ dom vol
718717a1i 11 . . . 4 ((𝜑𝑛 ∈ ℕ) → (-π(,)0) ∈ dom vol)
71936adantr 481 . . . . . . 7 ((𝜑𝑠 ∈ (-π[,]0)) → 𝐹:ℝ⟶ℂ)
72064adantr 481 . . . . . . . 8 ((𝜑𝑠 ∈ (-π[,]0)) → 𝑋 ∈ ℝ)
72123a1i 11 . . . . . . . . . 10 (𝑠 ∈ (-π[,]0) → -π ∈ ℝ)
722 0red 9993 . . . . . . . . . 10 (𝑠 ∈ (-π[,]0) → 0 ∈ ℝ)
723 id 22 . . . . . . . . . 10 (𝑠 ∈ (-π[,]0) → 𝑠 ∈ (-π[,]0))
724 eliccre 39170 . . . . . . . . . 10 ((-π ∈ ℝ ∧ 0 ∈ ℝ ∧ 𝑠 ∈ (-π[,]0)) → 𝑠 ∈ ℝ)
725721, 722, 723, 724syl3anc 1323 . . . . . . . . 9 (𝑠 ∈ (-π[,]0) → 𝑠 ∈ ℝ)
726725adantl 482 . . . . . . . 8 ((𝜑𝑠 ∈ (-π[,]0)) → 𝑠 ∈ ℝ)
727720, 726readdcld 10021 . . . . . . 7 ((𝜑𝑠 ∈ (-π[,]0)) → (𝑋 + 𝑠) ∈ ℝ)
728719, 727ffvelrnd 6321 . . . . . 6 ((𝜑𝑠 ∈ (-π[,]0)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℂ)
729728adantlr 750 . . . . 5 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (-π[,]0)) → (𝐹‘(𝑋 + 𝑠)) ∈ ℂ)
73077ad2antlr 762 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (-π[,]0)) → (𝐷𝑛):ℝ⟶ℝ)
731725adantl 482 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (-π[,]0)) → 𝑠 ∈ ℝ)
732730, 731ffvelrnd 6321 . . . . . 6 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (-π[,]0)) → ((𝐷𝑛)‘𝑠) ∈ ℝ)
733732recnd 10020 . . . . 5 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (-π[,]0)) → ((𝐷𝑛)‘𝑠) ∈ ℂ)
734729, 733mulcld 10012 . . . 4 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (-π[,]0)) → ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) ∈ ℂ)
735731, 734, 193syl2anc 692 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (-π[,]0)) → (𝐺𝑠) = ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)))
736735eqcomd 2627 . . . . . 6 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (-π[,]0)) → ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) = (𝐺𝑠))
737736mpteq2dva 4709 . . . . 5 ((𝜑𝑛 ∈ ℕ) → (𝑠 ∈ (-π[,]0) ↦ ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠))) = (𝑠 ∈ (-π[,]0) ↦ (𝐺𝑠)))
738305oveq2d 6626 . . . . . . . . 9 (𝜑 → (𝑠 + ((π − 𝑋) − (-π − 𝑋))) = (𝑠 + 𝑇))
739738ad2antrr 761 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → (𝑠 + ((π − 𝑋) − (-π − 𝑋))) = (𝑠 + 𝑇))
740739fveq2d 6157 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → (𝐺‘(𝑠 + ((π − 𝑋) − (-π − 𝑋)))) = (𝐺‘(𝑠 + 𝑇)))
741186a1i 11 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → 𝐺 = (𝑥 ∈ ℝ ↦ ((𝐹‘(𝑋 + 𝑥)) · ((𝐷𝑛)‘𝑥))))
742 oveq2 6618 . . . . . . . . . . 11 (𝑥 = (𝑠 + 𝑇) → (𝑋 + 𝑥) = (𝑋 + (𝑠 + 𝑇)))
743742fveq2d 6157 . . . . . . . . . 10 (𝑥 = (𝑠 + 𝑇) → (𝐹‘(𝑋 + 𝑥)) = (𝐹‘(𝑋 + (𝑠 + 𝑇))))
744 fveq2 6153 . . . . . . . . . 10 (𝑥 = (𝑠 + 𝑇) → ((𝐷𝑛)‘𝑥) = ((𝐷𝑛)‘(𝑠 + 𝑇)))
745743, 744oveq12d 6628 . . . . . . . . 9 (𝑥 = (𝑠 + 𝑇) → ((𝐹‘(𝑋 + 𝑥)) · ((𝐷𝑛)‘𝑥)) = ((𝐹‘(𝑋 + (𝑠 + 𝑇))) · ((𝐷𝑛)‘(𝑠 + 𝑇))))
746745adantl 482 . . . . . . . 8 ((((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) ∧ 𝑥 = (𝑠 + 𝑇)) → ((𝐹‘(𝑋 + 𝑥)) · ((𝐷𝑛)‘𝑥)) = ((𝐹‘(𝑋 + (𝑠 + 𝑇))) · ((𝐷𝑛)‘(𝑠 + 𝑇))))
747 simpr 477 . . . . . . . . . 10 ((𝜑𝑠 ∈ ℝ) → 𝑠 ∈ ℝ)
748316a1i 11 . . . . . . . . . 10 ((𝜑𝑠 ∈ ℝ) → 𝑇 ∈ ℝ)
749747, 748readdcld 10021 . . . . . . . . 9 ((𝜑𝑠 ∈ ℝ) → (𝑠 + 𝑇) ∈ ℝ)
750749adantlr 750 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → (𝑠 + 𝑇) ∈ ℝ)
75136adantr 481 . . . . . . . . . . 11 ((𝜑𝑠 ∈ ℝ) → 𝐹:ℝ⟶ℂ)
75264adantr 481 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ ℝ) → 𝑋 ∈ ℝ)
753752, 749readdcld 10021 . . . . . . . . . . 11 ((𝜑𝑠 ∈ ℝ) → (𝑋 + (𝑠 + 𝑇)) ∈ ℝ)
754751, 753ffvelrnd 6321 . . . . . . . . . 10 ((𝜑𝑠 ∈ ℝ) → (𝐹‘(𝑋 + (𝑠 + 𝑇))) ∈ ℂ)
755754adantlr 750 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → (𝐹‘(𝑋 + (𝑠 + 𝑇))) ∈ ℂ)
75677ad2antlr 762 . . . . . . . . . . 11 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → (𝐷𝑛):ℝ⟶ℝ)
757756, 750ffvelrnd 6321 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → ((𝐷𝑛)‘(𝑠 + 𝑇)) ∈ ℝ)
758757recnd 10020 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → ((𝐷𝑛)‘(𝑠 + 𝑇)) ∈ ℂ)
759755, 758mulcld 10012 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → ((𝐹‘(𝑋 + (𝑠 + 𝑇))) · ((𝐷𝑛)‘(𝑠 + 𝑇))) ∈ ℂ)
760741, 746, 750, 759fvmptd 6250 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → (𝐺‘(𝑠 + 𝑇)) = ((𝐹‘(𝑋 + (𝑠 + 𝑇))) · ((𝐷𝑛)‘(𝑠 + 𝑇))))
761149adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑠 ∈ ℝ) → 𝑋 ∈ ℂ)
762747recnd 10020 . . . . . . . . . . . . . 14 ((𝜑𝑠 ∈ ℝ) → 𝑠 ∈ ℂ)
763318adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑠 ∈ ℝ) → 𝑇 ∈ ℂ)
764761, 762, 763addassd 10014 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ ℝ) → ((𝑋 + 𝑠) + 𝑇) = (𝑋 + (𝑠 + 𝑇)))
765764eqcomd 2627 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ ℝ) → (𝑋 + (𝑠 + 𝑇)) = ((𝑋 + 𝑠) + 𝑇))
766765fveq2d 6157 . . . . . . . . . . 11 ((𝜑𝑠 ∈ ℝ) → (𝐹‘(𝑋 + (𝑠 + 𝑇))) = (𝐹‘((𝑋 + 𝑠) + 𝑇)))
767752, 747readdcld 10021 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ ℝ) → (𝑋 + 𝑠) ∈ ℝ)
768 simpl 473 . . . . . . . . . . . . 13 ((𝜑𝑠 ∈ ℝ) → 𝜑)
769768, 767jca 554 . . . . . . . . . . . 12 ((𝜑𝑠 ∈ ℝ) → (𝜑 ∧ (𝑋 + 𝑠) ∈ ℝ))
770 eleq1 2686 . . . . . . . . . . . . . . 15 (𝑥 = (𝑋 + 𝑠) → (𝑥 ∈ ℝ ↔ (𝑋 + 𝑠) ∈ ℝ))
771770anbi2d 739 . . . . . . . . . . . . . 14 (𝑥 = (𝑋 + 𝑠) → ((𝜑𝑥 ∈ ℝ) ↔ (𝜑 ∧ (𝑋 + 𝑠) ∈ ℝ)))
772 oveq1 6617 . . . . . . . . . . . . . . . 16 (𝑥 = (𝑋 + 𝑠) → (𝑥 + 𝑇) = ((𝑋 + 𝑠) + 𝑇))
773772fveq2d 6157 . . . . . . . . . . . . . . 15 (𝑥 = (𝑋 + 𝑠) → (𝐹‘(𝑥 + 𝑇)) = (𝐹‘((𝑋 + 𝑠) + 𝑇)))
774773, 435eqeq12d 2636 . . . . . . . . . . . . . 14 (𝑥 = (𝑋 + 𝑠) → ((𝐹‘(𝑥 + 𝑇)) = (𝐹𝑥) ↔ (𝐹‘((𝑋 + 𝑠) + 𝑇)) = (𝐹‘(𝑋 + 𝑠))))
775771, 774imbi12d 334 . . . . . . . . . . . . 13 (𝑥 = (𝑋 + 𝑠) → (((𝜑𝑥 ∈ ℝ) → (𝐹‘(𝑥 + 𝑇)) = (𝐹𝑥)) ↔ ((𝜑 ∧ (𝑋 + 𝑠) ∈ ℝ) → (𝐹‘((𝑋 + 𝑠) + 𝑇)) = (𝐹‘(𝑋 + 𝑠)))))
776775, 339vtoclg 3255 . . . . . . . . . . . 12 ((𝑋 + 𝑠) ∈ ℝ → ((𝜑 ∧ (𝑋 + 𝑠) ∈ ℝ) → (𝐹‘((𝑋 + 𝑠) + 𝑇)) = (𝐹‘(𝑋 + 𝑠))))
777767, 769, 776sylc 65 . . . . . . . . . . 11 ((𝜑𝑠 ∈ ℝ) → (𝐹‘((𝑋 + 𝑠) + 𝑇)) = (𝐹‘(𝑋 + 𝑠)))
778766, 777eqtrd 2655 . . . . . . . . . 10 ((𝜑𝑠 ∈ ℝ) → (𝐹‘(𝑋 + (𝑠 + 𝑇))) = (𝐹‘(𝑋 + 𝑠)))
779778adantlr 750 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → (𝐹‘(𝑋 + (𝑠 + 𝑇))) = (𝐹‘(𝑋 + 𝑠)))
78067, 302dirkerper 39646 . . . . . . . . . 10 ((𝑛 ∈ ℕ ∧ 𝑠 ∈ ℝ) → ((𝐷𝑛)‘(𝑠 + 𝑇)) = ((𝐷𝑛)‘𝑠))
781780adantll 749 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → ((𝐷𝑛)‘(𝑠 + 𝑇)) = ((𝐷𝑛)‘𝑠))
782779, 781oveq12d 6628 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → ((𝐹‘(𝑋 + (𝑠 + 𝑇))) · ((𝐷𝑛)‘(𝑠 + 𝑇))) = ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)))
783 simpr 477 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → 𝑠 ∈ ℝ)
784782, 759eqeltrrd 2699 . . . . . . . . . 10 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) ∈ ℂ)
785783, 784, 193syl2anc 692 . . . . . . . . 9 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → (𝐺𝑠) = ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)))
786785eqcomd 2627 . . . . . . . 8 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) = (𝐺𝑠))
787782, 786eqtrd 2655 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → ((𝐹‘(𝑋 + (𝑠 + 𝑇))) · ((𝐷𝑛)‘(𝑠 + 𝑇))) = (𝐺𝑠))
788740, 760, 7873eqtrd 2659 . . . . . 6 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ ℝ) → (𝐺‘(𝑠 + ((π − 𝑋) − (-π − 𝑋)))) = (𝐺𝑠))
789 0ltpnf 11908 . . . . . . . 8 0 < +∞
790 pnfxr 10044 . . . . . . . . 9 +∞ ∈ ℝ*
791 elioo2 12166 . . . . . . . . 9 ((-π ∈ ℝ* ∧ +∞ ∈ ℝ*) → (0 ∈ (-π(,)+∞) ↔ (0 ∈ ℝ ∧ -π < 0 ∧ 0 < +∞)))
79239, 790, 791mp2an 707 . . . . . . . 8 (0 ∈ (-π(,)+∞) ↔ (0 ∈ ℝ ∧ -π < 0 ∧ 0 < +∞))
793707, 708, 789, 792mpbir3an 1242 . . . . . . 7 0 ∈ (-π(,)+∞)
794793a1i 11 . . . . . 6 ((𝜑𝑛 ∈ ℕ) → 0 ∈ (-π(,)+∞))
795223, 221, 109, 298, 207, 788, 478, 631, 667, 71, 794fourierdlem105 39761 . . . . 5 ((𝜑𝑛 ∈ ℕ) → (𝑠 ∈ (-π[,]0) ↦ (𝐺𝑠)) ∈ 𝐿1)
796737, 795eqeltrd 2698 . . . 4 ((𝜑𝑛 ∈ ℕ) → (𝑠 ∈ (-π[,]0) ↦ ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠))) ∈ 𝐿1)
797716, 718, 734, 796iblss 23494 . . 3 ((𝜑𝑛 ∈ ℕ) → (𝑠 ∈ (-π(,)0) ↦ ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠))) ∈ 𝐿1)
798 elioore 12155 . . . . . . . 8 (𝑠 ∈ (0(,)π) → 𝑠 ∈ ℝ)
799798adantl 482 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (0(,)π)) → 𝑠 ∈ ℝ)
800799, 784syldan 487 . . . . . . 7 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (0(,)π)) → ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) ∈ ℂ)
801799, 800, 193syl2anc 692 . . . . . 6 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (0(,)π)) → (𝐺𝑠) = ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)))
802801eqcomd 2627 . . . . 5 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (0(,)π)) → ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) = (𝐺𝑠))
803802mpteq2dva 4709 . . . 4 ((𝜑𝑛 ∈ ℕ) → (𝑠 ∈ (0(,)π) ↦ ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠))) = (𝑠 ∈ (0(,)π) ↦ (𝐺𝑠)))
804 ioossicc 12209 . . . . . 6 (0(,)π) ⊆ (0[,]π)
805804a1i 11 . . . . 5 ((𝜑𝑛 ∈ ℕ) → (0(,)π) ⊆ (0[,]π))
806 ioombl 23256 . . . . . 6 (0(,)π) ∈ dom vol
807806a1i 11 . . . . 5 ((𝜑𝑛 ∈ ℕ) → (0(,)π) ∈ dom vol)
808207adantr 481 . . . . . 6 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (0[,]π)) → 𝐺:ℝ⟶ℂ)
809 0red 9993 . . . . . . . 8 ((𝜑𝑠 ∈ (0[,]π)) → 0 ∈ ℝ)
81022a1i 11 . . . . . . . 8 ((𝜑𝑠 ∈ (0[,]π)) → π ∈ ℝ)
811 simpr 477 . . . . . . . 8 ((𝜑𝑠 ∈ (0[,]π)) → 𝑠 ∈ (0[,]π))
812 eliccre 39170 . . . . . . . 8 ((0 ∈ ℝ ∧ π ∈ ℝ ∧ 𝑠 ∈ (0[,]π)) → 𝑠 ∈ ℝ)
813809, 810, 811, 812syl3anc 1323 . . . . . . 7 ((𝜑𝑠 ∈ (0[,]π)) → 𝑠 ∈ ℝ)
814813adantlr 750 . . . . . 6 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (0[,]π)) → 𝑠 ∈ ℝ)
815808, 814ffvelrnd 6321 . . . . 5 (((𝜑𝑛 ∈ ℕ) ∧ 𝑠 ∈ (0[,]π)) → (𝐺𝑠) ∈ ℂ)
816 0xr 10038 . . . . . . . 8 0 ∈ ℝ*
817816a1i 11 . . . . . . 7 ((𝜑𝑛 ∈ ℕ) → 0 ∈ ℝ*)
818790a1i 11 . . . . . . 7 ((𝜑𝑛 ∈ ℕ) → +∞ ∈ ℝ*)
819711a1i 11 . . . . . . 7 ((𝜑𝑛 ∈ ℕ) → 0 < π)
820 ltpnf 11906 . . . . . . . 8 (π ∈ ℝ → π < +∞)
82122, 820mp1i 13 . . . . . . 7 ((𝜑𝑛 ∈ ℕ) → π < +∞)
822817, 818, 72, 819, 821eliood 39162 . . . . . 6 ((𝜑𝑛 ∈ ℕ) → π ∈ (0(,)+∞))
823223, 221, 109, 298, 207, 788, 478, 631, 667, 706, 822fourierdlem105 39761 . . . . 5 ((𝜑𝑛 ∈ ℕ) → (𝑠 ∈ (0[,]π) ↦ (𝐺𝑠)) ∈ 𝐿1)
824805, 807, 815, 823iblss 23494 . . . 4 ((𝜑𝑛 ∈ ℕ) → (𝑠 ∈ (0(,)π) ↦ (𝐺𝑠)) ∈ 𝐿1)
825803, 824eqeltrd 2698 . . 3 ((𝜑𝑛 ∈ ℕ) → (𝑠 ∈ (0(,)π) ↦ ((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠))) ∈ 𝐿1)
826705, 72, 714, 699, 797, 825itgsplitioo 23527 . 2 ((𝜑𝑛 ∈ ℕ) → ∫(-π(,)π)((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠 = (∫(-π(,)0)((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠 + ∫(0(,)π)((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠))
827704, 826eqtrd 2655 1 ((𝜑𝑛 ∈ ℕ) → (𝑆𝑛) = (∫(-π(,)0)((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠 + ∫(0(,)π)((𝐹‘(𝑋 + 𝑠)) · ((𝐷𝑛)‘𝑠)) d𝑠))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 384  w3a 1036   = wceq 1480  wcel 1987  wne 2790  wral 2907  {crab 2911  Vcvv 3189  cdif 3556  wss 3559  ifcif 4063  {csn 4153   class class class wbr 4618  cmpt 4678  dom cdm 5079  ran crn 5080  cres 5081  ccom 5083  wf 5848  cfv 5852  (class class class)co 6610  𝑚 cmap 7809  cc 9886  cr 9887  0cc0 9888  1c1 9889   + caddc 9891   · cmul 9893  +∞cpnf 10023  *cxr 10025   < clt 10026  cle 10027  cmin 10218  -cneg 10219   / cdiv 10636  cn 10972  2c2 11022  0cn0 11244  cz 11329  cuz 11639  (,)cioo 12125  [,]cicc 12128  ...cfz 12276  ..^cfzo 12414   mod cmo 12616  Σcsu 14358  sincsin 14730  cosccos 14731  πcpi 14733  cnccncf 22602  volcvol 23155  𝐿1cibl 23309  citg 23310   lim climc 23549
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 1836  ax-6 1885  ax-7 1932  ax-8 1989  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-rep 4736  ax-sep 4746  ax-nul 4754  ax-pow 4808  ax-pr 4872  ax-un 6909  ax-inf2 8490  ax-cc 9209  ax-cnex 9944  ax-resscn 9945  ax-1cn 9946  ax-icn 9947  ax-addcl 9948  ax-addrcl 9949  ax-mulcl 9950  ax-mulrcl 9951  ax-mulcom 9952  ax-addass 9953  ax-mulass 9954  ax-distr 9955  ax-i2m1 9956  ax-1ne0 9957  ax-1rid 9958  ax-rnegex 9959  ax-rrecex 9960  ax-cnre 9961  ax-pre-lttri 9962  ax-pre-lttrn 9963  ax-pre-ltadd 9964  ax-pre-mulgt0 9965  ax-pre-sup 9966  ax-addf 9967  ax-mulf 9968
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 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ne 2791  df-nel 2894  df-ral 2912  df-rex 2913  df-reu 2914  df-rmo 2915  df-rab 2916  df-v 3191  df-sbc 3422  df-csb 3519  df-dif 3562  df-un 3564  df-in 3566  df-ss 3573  df-pss 3575  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 5644  df-ord 5690  df-on 5691  df-lim 5692  df-suc 5693  df-iota 5815  df-fun 5854  df-fn 5855  df-f 5856  df-f1 5857  df-fo 5858  df-f1o 5859  df-fv 5860  df-isom 5861  df-riota 6571  df-ov 6613  df-oprab 6614  df-mpt2 6615  df-of 6857  df-ofr 6858  df-om 7020  df-1st 7120  df-2nd 7121  df-supp 7248  df-wrecs 7359  df-recs 7420  df-rdg 7458  df-1o 7512  df-2o 7513  df-oadd 7516  df-omul 7517  df-er 7694  df-map 7811  df-pm 7812  df-ixp 7861  df-en 7908  df-dom 7909  df-sdom 7910  df-fin 7911  df-fsupp 8228  df-fi 8269  df-sup 8300  df-inf 8301  df-oi 8367  df-card 8717  df-acn 8720  df-cda 8942  df-pnf 10028  df-mnf 10029  df-xr 10030  df-ltxr 10031  df-le 10032  df-sub 10220  df-neg 10221  df-div 10637  df-nn 10973  df-2 11031  df-3 11032  df-4 11033  df-5 11034  df-6 11035  df-7 11036  df-8 11037  df-9 11038  df-n0 11245  df-xnn0 11316  df-z 11330  df-dec 11446  df-uz 11640  df-q 11741  df-rp 11785  df-xneg 11898  df-xadd 11899  df-xmul 11900  df-ioo 12129  df-ioc 12130  df-ico 12131  df-icc 12132  df-fz 12277  df-fzo 12415  df-fl 12541  df-mod 12617  df-seq 12750  df-exp 12809  df-fac 13009  df-bc 13038  df-hash 13066  df-shft 13749  df-cj 13781  df-re 13782  df-im 13783  df-sqrt 13917  df-abs 13918  df-limsup 14144  df-clim 14161  df-rlim 14162  df-sum 14359  df-ef 14734  df-sin 14736  df-cos 14737  df-pi 14739  df-struct 15794  df-ndx 15795  df-slot 15796  df-base 15797  df-sets 15798  df-ress 15799  df-plusg 15886  df-mulr 15887  df-starv 15888  df-sca 15889  df-vsca 15890  df-ip 15891  df-tset 15892  df-ple 15893  df-ds 15896  df-unif 15897  df-hom 15898  df-cco 15899  df-rest 16015  df-topn 16016  df-0g 16034  df-gsum 16035  df-topgen 16036  df-pt 16037  df-prds 16040  df-xrs 16094  df-qtop 16099  df-imas 16100  df-xps 16102  df-mre 16178  df-mrc 16179  df-acs 16181  df-mgm 17174  df-sgrp 17216  df-mnd 17227  df-submnd 17268  df-mulg 17473  df-cntz 17682  df-cmn 18127  df-psmet 19670  df-xmet 19671  df-met 19672  df-bl 19673  df-mopn 19674  df-fbas 19675  df-fg 19676  df-cnfld 19679  df-top 20631  df-topon 20648  df-topsp 20661  df-bases 20674  df-cld 20746  df-ntr 20747  df-cls 20748  df-nei 20825  df-lp 20863  df-perf 20864  df-cn 20954  df-cnp 20955  df-t1 21041  df-haus 21042  df-cmp 21113  df-tx 21288  df-hmeo 21481  df-fil 21573  df-fm 21665  df-flim 21666  df-flf 21667  df-xms 22048  df-ms 22049  df-tms 22050  df-cncf 22604  df-ovol 23156  df-vol 23157  df-mbf 23311  df-itg1 23312  df-itg2 23313  df-ibl 23314  df-itg 23315  df-0p 23360  df-ditg 23534  df-limc 23553  df-dv 23554
This theorem is referenced by:  fourierdlem112  39768
  Copyright terms: Public domain W3C validator