fourierdlem95 - Mathbox for Glauco Siliprandi

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

Theorem fourierdlem95 45002

Description: Algebraic manipulation of integrals, used by other lemmas. (Contributed by Glauco Siliprandi, 11-Dec-2019.)

**Hypotheses**
Ref	Expression
fourierdlem95.f	⊢ (𝜑 → 𝐹:ℝ⟶ℝ)
fourierdlem95.xre	⊢ (𝜑 → 𝑋 ∈ ℝ)
fourierdlem95.p	⊢ 𝑃 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑_m (0...𝑚)) ∣ (((𝑝‘0) = (-π + 𝑋) ∧ (𝑝‘𝑚) = (π + 𝑋)) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝‘𝑖) < (𝑝‘(𝑖 + 1)))})
fourierdlem95.m	⊢ (𝜑 → 𝑀 ∈ ℕ)
fourierdlem95.v	⊢ (𝜑 → 𝑉 ∈ (𝑃‘𝑀))
fourierdlem95.x	⊢ (𝜑 → 𝑋 ∈ ran 𝑉)
fourierdlem95.fcn	⊢ ((𝜑 ∧ 𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑉‘𝑖)(,)(𝑉‘(𝑖 + 1)))) ∈ (((𝑉‘𝑖)(,)(𝑉‘(𝑖 + 1)))–cn→ℂ))
fourierdlem95.r	⊢ ((𝜑 ∧ 𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ ((𝐹 ↾ ((𝑉‘𝑖)(,)(𝑉‘(𝑖 + 1)))) lim_ℂ (𝑉‘𝑖)))
fourierdlem95.l	⊢ ((𝜑 ∧ 𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑉‘𝑖)(,)(𝑉‘(𝑖 + 1)))) lim_ℂ (𝑉‘(𝑖 + 1))))
fourierdlem95.h	⊢ 𝐻 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)))
fourierdlem95.k	⊢ 𝐾 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2))))))
fourierdlem95.u	⊢ 𝑈 = (𝑠 ∈ (-π[,]π) ↦ ((𝐻‘𝑠) · (𝐾‘𝑠)))
fourierdlem95.s	⊢ 𝑆 = (𝑠 ∈ (-π[,]π) ↦ (sin‘((𝑛 + (1 / 2)) · 𝑠)))
fourierdlem95.g	⊢ 𝐺 = (𝑠 ∈ (-π[,]π) ↦ ((𝑈‘𝑠) · (𝑆‘𝑠)))
fourierdlem95.i	⊢ 𝐼 = (ℝ D 𝐹)
fourierdlem95.ifn	⊢ ((𝜑 ∧ 𝑖 ∈ (0..^𝑀)) → (𝐼 ↾ ((𝑉‘𝑖)(,)(𝑉‘(𝑖 + 1)))):((𝑉‘𝑖)(,)(𝑉‘(𝑖 + 1)))⟶ℝ)
fourierdlem95.b	⊢ (𝜑 → 𝐵 ∈ ((𝐼 ↾ (-∞(,)𝑋)) lim_ℂ 𝑋))
fourierdlem95.c	⊢ (𝜑 → 𝐶 ∈ ((𝐼 ↾ (𝑋(,)+∞)) lim_ℂ 𝑋))
fourierdlem95.y	⊢ (𝜑 → 𝑌 ∈ ((𝐹 ↾ (𝑋(,)+∞)) lim_ℂ 𝑋))
fourierdlem95.w	⊢ (𝜑 → 𝑊 ∈ ((𝐹 ↾ (-∞(,)𝑋)) lim_ℂ 𝑋))
fourierdlem95.admvol	⊢ (𝜑 → 𝐴 ∈ dom vol)
fourierdlem95.ass	⊢ (𝜑 → 𝐴 ⊆ ((-π[,]π) ∖ {0}))
fourierlemenplusacver2eqitgdirker.e	⊢ 𝐸 = (𝑛 ∈ ℕ ↦ (∫𝐴(𝐺‘𝑠) d𝑠 / π))
fourierdlem95.d	⊢ 𝐷 = (𝑛 ∈ ℕ ↦ (𝑠 ∈ ℝ ↦ if((𝑠 mod (2 · π)) = 0, (((2 · 𝑛) + 1) / (2 · π)), ((sin‘((𝑛 + (1 / 2)) · 𝑠)) / ((2 · π) · (sin‘(𝑠 / 2)))))))
fourierdlem95.o	⊢ (𝜑 → 𝑂 ∈ ℝ)
fourierdlem95.ifeqo	⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → if(0 < 𝑠, 𝑌, 𝑊) = 𝑂)
fourierdlem95.itgdirker	⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ∫𝐴((𝐷‘𝑛)‘𝑠) d𝑠 = (1 / 2))

**Assertion**
Ref	Expression
fourierdlem95	⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝐸‘𝑛) + (𝑂 / 2)) = ∫𝐴((𝐹‘(𝑋 + 𝑠)) · ((𝐷‘𝑛)‘𝑠)) d𝑠)

Distinct variable groups: 𝐴,𝑠 𝐵,𝑠 𝐶,𝑠 𝐷,𝑠 𝐹,𝑠 𝑖,𝐺,𝑠 𝐻,𝑠 𝐾,𝑠 𝐿,𝑠 𝑖,𝑀,𝑝,𝑚 𝑀,𝑠 𝑂,𝑠 𝑅,𝑠 𝑆,𝑠 𝑖,𝑉,𝑝 𝑉,𝑠 𝑊,𝑠 𝑖,𝑋,𝑝,𝑚 𝑋,𝑠 𝑌,𝑠 𝑖,𝑛,𝑠 𝜑,𝑖,𝑠 Allowed substitution hints: 𝜑(𝑚,𝑛,𝑝) 𝐴(𝑖,𝑚,𝑛,𝑝) 𝐵(𝑖,𝑚,𝑛,𝑝) 𝐶(𝑖,𝑚,𝑛,𝑝) 𝐷(𝑖,𝑚,𝑛,𝑝) 𝑃(𝑖,𝑚,𝑛,𝑠,𝑝) 𝑅(𝑖,𝑚,𝑛,𝑝) 𝑆(𝑖,𝑚,𝑛,𝑝) 𝑈(𝑖,𝑚,𝑛,𝑠,𝑝) 𝐸(𝑖,𝑚,𝑛,𝑠,𝑝) 𝐹(𝑖,𝑚,𝑛,𝑝) 𝐺(𝑚,𝑛,𝑝) 𝐻(𝑖,𝑚,𝑛,𝑝) 𝐼(𝑖,𝑚,𝑛,𝑠,𝑝) 𝐾(𝑖,𝑚,𝑛,𝑝) 𝐿(𝑖,𝑚,𝑛,𝑝) 𝑀(𝑛) 𝑂(𝑖,𝑚,𝑛,𝑝) 𝑉(𝑚,𝑛) 𝑊(𝑖,𝑚,𝑛,𝑝) 𝑋(𝑛) 𝑌(𝑖,𝑚,𝑛,𝑝)

Proof of Theorem fourierdlem95 Dummy variable 𝑗 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpr 485	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑛 ∈ ℕ)
2		fourierdlem95.ass	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 ⊆ ((-π[,]π) ∖ {0}))
3	2	difss2d 4134	. . . . . . . . 9 ⊢ (𝜑 → 𝐴 ⊆ (-π[,]π))
4	3	adantr 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐴 ⊆ (-π[,]π))
5	4	sselda 3982	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → 𝑠 ∈ (-π[,]π))
6		fourierdlem95.f	. . . . . . . . . 10 ⊢ (𝜑 → 𝐹:ℝ⟶ℝ)
7	6	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐹:ℝ⟶ℝ)
8		fourierdlem95.xre	. . . . . . . . . 10 ⊢ (𝜑 → 𝑋 ∈ ℝ)
9	8	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑋 ∈ ℝ)
10		ioossre 13387	. . . . . . . . . . . . 13 ⊢ (𝑋(,)+∞) ⊆ ℝ
11	10	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝑋(,)+∞) ⊆ ℝ)
12	6, 11	fssresd 6758	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹 ↾ (𝑋(,)+∞)):(𝑋(,)+∞)⟶ℝ)
13		ioosscn 13388	. . . . . . . . . . . 12 ⊢ (𝑋(,)+∞) ⊆ ℂ
14	13	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑋(,)+∞) ⊆ ℂ)
15		eqid 2732	. . . . . . . . . . . 12 ⊢ (TopOpen‘ℂ_fld) = (TopOpen‘ℂ_fld)
16		pnfxr 11270	. . . . . . . . . . . . 13 ⊢ +∞ ∈ ℝ^*
17	16	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → +∞ ∈ ℝ^*)
18	8	ltpnfd 13103	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑋 < +∞)
19	15, 17, 8, 18	lptioo1cn 44447	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑋 ∈ ((limPt‘(TopOpen‘ℂ_fld))‘(𝑋(,)+∞)))
20		fourierdlem95.y	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑌 ∈ ((𝐹 ↾ (𝑋(,)+∞)) lim_ℂ 𝑋))
21	12, 14, 19, 20	limcrecl 44430	. . . . . . . . . 10 ⊢ (𝜑 → 𝑌 ∈ ℝ)
22	21	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑌 ∈ ℝ)
23		ioossre 13387	. . . . . . . . . . . . 13 ⊢ (-∞(,)𝑋) ⊆ ℝ
24	23	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → (-∞(,)𝑋) ⊆ ℝ)
25	6, 24	fssresd 6758	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐹 ↾ (-∞(,)𝑋)):(-∞(,)𝑋)⟶ℝ)
26		ioosscn 13388	. . . . . . . . . . . 12 ⊢ (-∞(,)𝑋) ⊆ ℂ
27	26	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → (-∞(,)𝑋) ⊆ ℂ)
28		mnfxr 11273	. . . . . . . . . . . . 13 ⊢ -∞ ∈ ℝ^*
29	28	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → -∞ ∈ ℝ^*)
30	8	mnfltd 13106	. . . . . . . . . . . 12 ⊢ (𝜑 → -∞ < 𝑋)
31	15, 29, 8, 30	lptioo2cn 44446	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑋 ∈ ((limPt‘(TopOpen‘ℂ_fld))‘(-∞(,)𝑋)))
32		fourierdlem95.w	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑊 ∈ ((𝐹 ↾ (-∞(,)𝑋)) lim_ℂ 𝑋))
33	25, 27, 31, 32	limcrecl 44430	. . . . . . . . . 10 ⊢ (𝜑 → 𝑊 ∈ ℝ)
34	33	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑊 ∈ ℝ)
35		fourierdlem95.h	. . . . . . . . 9 ⊢ 𝐻 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 0, (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) / 𝑠)))
36		fourierdlem95.k	. . . . . . . . 9 ⊢ 𝐾 = (𝑠 ∈ (-π[,]π) ↦ if(𝑠 = 0, 1, (𝑠 / (2 · (sin‘(𝑠 / 2))))))
37		fourierdlem95.u	. . . . . . . . 9 ⊢ 𝑈 = (𝑠 ∈ (-π[,]π) ↦ ((𝐻‘𝑠) · (𝐾‘𝑠)))
38	1	nnred 12229	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑛 ∈ ℝ)
39		fourierdlem95.s	. . . . . . . . 9 ⊢ 𝑆 = (𝑠 ∈ (-π[,]π) ↦ (sin‘((𝑛 + (1 / 2)) · 𝑠)))
40		fourierdlem95.g	. . . . . . . . 9 ⊢ 𝐺 = (𝑠 ∈ (-π[,]π) ↦ ((𝑈‘𝑠) · (𝑆‘𝑠)))
41	7, 9, 22, 34, 35, 36, 37, 38, 39, 40	fourierdlem67 44974	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐺:(-π[,]π)⟶ℝ)
42	41	ffvelcdmda 7086	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ (-π[,]π)) → (𝐺‘𝑠) ∈ ℝ)
43	5, 42	syldan 591	. . . . . 6 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → (𝐺‘𝑠) ∈ ℝ)
44		fourierdlem95.admvol	. . . . . . . 8 ⊢ (𝜑 → 𝐴 ∈ dom vol)
45	44	adantr 481	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐴 ∈ dom vol)
46	41	feqmptd 6960	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐺 = (𝑠 ∈ (-π[,]π) ↦ (𝐺‘𝑠)))
47		fourierdlem95.p	. . . . . . . . 9 ⊢ 𝑃 = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑_m (0...𝑚)) ∣ (((𝑝‘0) = (-π + 𝑋) ∧ (𝑝‘𝑚) = (π + 𝑋)) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝‘𝑖) < (𝑝‘(𝑖 + 1)))})
48		fourierdlem95.x	. . . . . . . . . 10 ⊢ (𝜑 → 𝑋 ∈ ran 𝑉)
49	48	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑋 ∈ ran 𝑉)
50	20	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑌 ∈ ((𝐹 ↾ (𝑋(,)+∞)) lim_ℂ 𝑋))
51	32	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑊 ∈ ((𝐹 ↾ (-∞(,)𝑋)) lim_ℂ 𝑋))
52		fourierdlem95.m	. . . . . . . . . 10 ⊢ (𝜑 → 𝑀 ∈ ℕ)
53	52	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑀 ∈ ℕ)
54		fourierdlem95.v	. . . . . . . . . 10 ⊢ (𝜑 → 𝑉 ∈ (𝑃‘𝑀))
55	54	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑉 ∈ (𝑃‘𝑀))
56		fourierdlem95.fcn	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑉‘𝑖)(,)(𝑉‘(𝑖 + 1)))) ∈ (((𝑉‘𝑖)(,)(𝑉‘(𝑖 + 1)))–cn→ℂ))
57	56	adantlr 713	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝐹 ↾ ((𝑉‘𝑖)(,)(𝑉‘(𝑖 + 1)))) ∈ (((𝑉‘𝑖)(,)(𝑉‘(𝑖 + 1)))–cn→ℂ))
58		fourierdlem95.r	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ ((𝐹 ↾ ((𝑉‘𝑖)(,)(𝑉‘(𝑖 + 1)))) lim_ℂ (𝑉‘𝑖)))
59	58	adantlr 713	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → 𝑅 ∈ ((𝐹 ↾ ((𝑉‘𝑖)(,)(𝑉‘(𝑖 + 1)))) lim_ℂ (𝑉‘𝑖)))
60		fourierdlem95.l	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑉‘𝑖)(,)(𝑉‘(𝑖 + 1)))) lim_ℂ (𝑉‘(𝑖 + 1))))
61	60	adantlr 713	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → 𝐿 ∈ ((𝐹 ↾ ((𝑉‘𝑖)(,)(𝑉‘(𝑖 + 1)))) lim_ℂ (𝑉‘(𝑖 + 1))))
62		fveq2 6891	. . . . . . . . . . 11 ⊢ (𝑗 = 𝑖 → (𝑉‘𝑗) = (𝑉‘𝑖))
63	62	oveq1d 7426	. . . . . . . . . 10 ⊢ (𝑗 = 𝑖 → ((𝑉‘𝑗) − 𝑋) = ((𝑉‘𝑖) − 𝑋))
64	63	cbvmptv 5261	. . . . . . . . 9 ⊢ (𝑗 ∈ (0...𝑀) ↦ ((𝑉‘𝑗) − 𝑋)) = (𝑖 ∈ (0...𝑀) ↦ ((𝑉‘𝑖) − 𝑋))
65		eqid 2732	. . . . . . . . 9 ⊢ (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑_m (0...𝑚)) ∣ (((𝑝‘0) = -π ∧ (𝑝‘𝑚) = π) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝‘𝑖) < (𝑝‘(𝑖 + 1)))}) = (𝑚 ∈ ℕ ↦ {𝑝 ∈ (ℝ ↑_m (0...𝑚)) ∣ (((𝑝‘0) = -π ∧ (𝑝‘𝑚) = π) ∧ ∀𝑖 ∈ (0..^𝑚)(𝑝‘𝑖) < (𝑝‘(𝑖 + 1)))})
66		fourierdlem95.i	. . . . . . . . 9 ⊢ 𝐼 = (ℝ D 𝐹)
67		fourierdlem95.ifn	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑖 ∈ (0..^𝑀)) → (𝐼 ↾ ((𝑉‘𝑖)(,)(𝑉‘(𝑖 + 1)))):((𝑉‘𝑖)(,)(𝑉‘(𝑖 + 1)))⟶ℝ)
68	67	adantlr 713	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑖 ∈ (0..^𝑀)) → (𝐼 ↾ ((𝑉‘𝑖)(,)(𝑉‘(𝑖 + 1)))):((𝑉‘𝑖)(,)(𝑉‘(𝑖 + 1)))⟶ℝ)
69		fourierdlem95.b	. . . . . . . . . 10 ⊢ (𝜑 → 𝐵 ∈ ((𝐼 ↾ (-∞(,)𝑋)) lim_ℂ 𝑋))
70	69	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐵 ∈ ((𝐼 ↾ (-∞(,)𝑋)) lim_ℂ 𝑋))
71		fourierdlem95.c	. . . . . . . . . 10 ⊢ (𝜑 → 𝐶 ∈ ((𝐼 ↾ (𝑋(,)+∞)) lim_ℂ 𝑋))
72	71	adantr 481	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐶 ∈ ((𝐼 ↾ (𝑋(,)+∞)) lim_ℂ 𝑋))
73	47, 7, 49, 50, 51, 35, 36, 37, 38, 39, 40, 53, 55, 57, 59, 61, 64, 65, 66, 68, 70, 72	fourierdlem88 44995	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝐺 ∈ 𝐿¹)
74	46, 73	eqeltrrd 2834	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑠 ∈ (-π[,]π) ↦ (𝐺‘𝑠)) ∈ 𝐿¹)
75	4, 45, 42, 74	iblss 25329	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑠 ∈ 𝐴 ↦ (𝐺‘𝑠)) ∈ 𝐿¹)
76	43, 75	itgrecl 25322	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ∫𝐴(𝐺‘𝑠) d𝑠 ∈ ℝ)
77		pire 25975	. . . . . 6 ⊢ π ∈ ℝ
78	77	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → π ∈ ℝ)
79		pipos 25977	. . . . . . 7 ⊢ 0 < π
80	77, 79	gt0ne0ii 11752	. . . . . 6 ⊢ π ≠ 0
81	80	a1i 11	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → π ≠ 0)
82	76, 78, 81	redivcld 12044	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (∫𝐴(𝐺‘𝑠) d𝑠 / π) ∈ ℝ)
83		fourierlemenplusacver2eqitgdirker.e	. . . . 5 ⊢ 𝐸 = (𝑛 ∈ ℕ ↦ (∫𝐴(𝐺‘𝑠) d𝑠 / π))
84	83	fvmpt2 7009	. . . 4 ⊢ ((𝑛 ∈ ℕ ∧ (∫𝐴(𝐺‘𝑠) d𝑠 / π) ∈ ℝ) → (𝐸‘𝑛) = (∫𝐴(𝐺‘𝑠) d𝑠 / π))
85	1, 82, 84	syl2anc 584	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝐸‘𝑛) = (∫𝐴(𝐺‘𝑠) d𝑠 / π))
86		fourierdlem95.o	. . . . . . 7 ⊢ (𝜑 → 𝑂 ∈ ℝ)
87	86	recnd 11244	. . . . . 6 ⊢ (𝜑 → 𝑂 ∈ ℂ)
88		2cnd 12292	. . . . . 6 ⊢ (𝜑 → 2 ∈ ℂ)
89		2ne0 12318	. . . . . . 7 ⊢ 2 ≠ 0
90	89	a1i 11	. . . . . 6 ⊢ (𝜑 → 2 ≠ 0)
91	87, 88, 90	divrecd 11995	. . . . 5 ⊢ (𝜑 → (𝑂 / 2) = (𝑂 · (1 / 2)))
92	91	adantr 481	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑂 / 2) = (𝑂 · (1 / 2)))
93		fourierdlem95.itgdirker	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ∫𝐴((𝐷‘𝑛)‘𝑠) d𝑠 = (1 / 2))
94	93	eqcomd 2738	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (1 / 2) = ∫𝐴((𝐷‘𝑛)‘𝑠) d𝑠)
95	94	oveq2d 7427	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑂 · (1 / 2)) = (𝑂 · ∫𝐴((𝐷‘𝑛)‘𝑠) d𝑠))
96	92, 95	eqtrd 2772	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑂 / 2) = (𝑂 · ∫𝐴((𝐷‘𝑛)‘𝑠) d𝑠))
97	85, 96	oveq12d 7429	. 2 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝐸‘𝑛) + (𝑂 / 2)) = ((∫𝐴(𝐺‘𝑠) d𝑠 / π) + (𝑂 · ∫𝐴((𝐷‘𝑛)‘𝑠) d𝑠)))
98	2	sselda 3982	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → 𝑠 ∈ ((-π[,]π) ∖ {0}))
99	98	adantlr 713	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → 𝑠 ∈ ((-π[,]π) ∖ {0}))
100		fourierdlem95.d	. . . . . . . 8 ⊢ 𝐷 = (𝑛 ∈ ℕ ↦ (𝑠 ∈ ℝ ↦ if((𝑠 mod (2 · π)) = 0, (((2 · 𝑛) + 1) / (2 · π)), ((sin‘((𝑛 + (1 / 2)) · 𝑠)) / ((2 · π) · (sin‘(𝑠 / 2)))))))
101		eqid 2732	. . . . . . . 8 ⊢ ((-π[,]π) ∖ {0}) = ((-π[,]π) ∖ {0})
102	6, 8, 21, 33, 100, 35, 36, 37, 39, 40, 101	fourierdlem66 44973	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ ((-π[,]π) ∖ {0})) → (𝐺‘𝑠) = (π · (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠))))
103	99, 102	syldan 591	. . . . . 6 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → (𝐺‘𝑠) = (π · (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠))))
104	103	itgeq2dv 25306	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ∫𝐴(𝐺‘𝑠) d𝑠 = ∫𝐴(π · (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠))) d𝑠)
105	104	oveq1d 7426	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (∫𝐴(𝐺‘𝑠) d𝑠 / π) = (∫𝐴(π · (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠))) d𝑠 / π))
106	78	recnd 11244	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → π ∈ ℂ)
107	6	adantr 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → 𝐹:ℝ⟶ℝ)
108	8	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → 𝑋 ∈ ℝ)
109		difss 4131	. . . . . . . . . . . . . 14 ⊢ ((-π[,]π) ∖ {0}) ⊆ (-π[,]π)
110	77	renegcli 11523	. . . . . . . . . . . . . . 15 ⊢ -π ∈ ℝ
111		iccssre 13408	. . . . . . . . . . . . . . 15 ⊢ ((-π ∈ ℝ ∧ π ∈ ℝ) → (-π[,]π) ⊆ ℝ)
112	110, 77, 111	mp2an 690	. . . . . . . . . . . . . 14 ⊢ (-π[,]π) ⊆ ℝ
113	109, 112	sstri 3991	. . . . . . . . . . . . 13 ⊢ ((-π[,]π) ∖ {0}) ⊆ ℝ
114	113, 98	sselid 3980	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → 𝑠 ∈ ℝ)
115	108, 114	readdcld 11245	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → (𝑋 + 𝑠) ∈ ℝ)
116	107, 115	ffvelcdmd 7087	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → (𝐹‘(𝑋 + 𝑠)) ∈ ℝ)
117	21, 33	ifcld 4574	. . . . . . . . . . 11 ⊢ (𝜑 → if(0 < 𝑠, 𝑌, 𝑊) ∈ ℝ)
118	117	adantr 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → if(0 < 𝑠, 𝑌, 𝑊) ∈ ℝ)
119	116, 118	resubcld 11644	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) ∈ ℝ)
120	119	adantlr 713	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → ((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) ∈ ℝ)
121	1	adantr 481	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → 𝑛 ∈ ℕ)
122	114	adantlr 713	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → 𝑠 ∈ ℝ)
123	100	dirkerre 44896	. . . . . . . . 9 ⊢ ((𝑛 ∈ ℕ ∧ 𝑠 ∈ ℝ) → ((𝐷‘𝑛)‘𝑠) ∈ ℝ)
124	121, 122, 123	syl2anc 584	. . . . . . . 8 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → ((𝐷‘𝑛)‘𝑠) ∈ ℝ)
125	120, 124	remulcld 11246	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) ∈ ℝ)
126	103	eqcomd 2738	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → (π · (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠))) = (𝐺‘𝑠))
127	126	oveq1d 7426	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → ((π · (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠))) / π) = ((𝐺‘𝑠) / π))
128		picn 25976	. . . . . . . . . . . . 13 ⊢ π ∈ ℂ
129	128	a1i 11	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → π ∈ ℂ)
130	125	recnd 11244	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) ∈ ℂ)
131	80	a1i 11	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → π ≠ 0)
132	129, 130, 129, 131	div23d 12029	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → ((π · (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠))) / π) = ((π / π) · (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠))))
133	43	recnd 11244	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → (𝐺‘𝑠) ∈ ℂ)
134	133, 129, 131	divrec2d 11996	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → ((𝐺‘𝑠) / π) = ((1 / π) · (𝐺‘𝑠)))
135	127, 132, 134	3eqtr3rd 2781	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → ((1 / π) · (𝐺‘𝑠)) = ((π / π) · (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠))))
136	128, 80	dividi 11949	. . . . . . . . . . . 12 ⊢ (π / π) = 1
137	136	a1i 11	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → (π / π) = 1)
138	137	oveq1d 7426	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → ((π / π) · (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠))) = (1 · (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠))))
139	130	mullidd 11234	. . . . . . . . . 10 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → (1 · (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠))) = (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)))
140	135, 138, 139	3eqtrrd 2777	. . . . . . . . 9 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) = ((1 / π) · (𝐺‘𝑠)))
141	140	mpteq2dva 5248	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑠 ∈ 𝐴 ↦ (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠))) = (𝑠 ∈ 𝐴 ↦ ((1 / π) · (𝐺‘𝑠))))
142	106, 81	reccld 11985	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (1 / π) ∈ ℂ)
143	142, 43, 75	iblmulc2 25355	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑠 ∈ 𝐴 ↦ ((1 / π) · (𝐺‘𝑠))) ∈ 𝐿¹)
144	141, 143	eqeltrd 2833	. . . . . . 7 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑠 ∈ 𝐴 ↦ (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠))) ∈ 𝐿¹)
145	106, 125, 144	itgmulc2 25358	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (π · ∫𝐴(((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) d𝑠) = ∫𝐴(π · (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠))) d𝑠)
146	145	eqcomd 2738	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ∫𝐴(π · (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠))) d𝑠 = (π · ∫𝐴(((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) d𝑠))
147	146	oveq1d 7426	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (∫𝐴(π · (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠))) d𝑠 / π) = ((π · ∫𝐴(((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) d𝑠) / π))
148	125, 144	itgcl 25308	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ∫𝐴(((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) d𝑠 ∈ ℂ)
149	148, 106, 81	divcan3d 11997	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((π · ∫𝐴(((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) d𝑠) / π) = ∫𝐴(((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) d𝑠)
150	105, 147, 149	3eqtrd 2776	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (∫𝐴(𝐺‘𝑠) d𝑠 / π) = ∫𝐴(((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) d𝑠)
151	87	adantr 481	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → 𝑂 ∈ ℂ)
152	112	sseli 3978	. . . . . . 7 ⊢ (𝑠 ∈ (-π[,]π) → 𝑠 ∈ ℝ)
153	152, 123	sylan2 593	. . . . . 6 ⊢ ((𝑛 ∈ ℕ ∧ 𝑠 ∈ (-π[,]π)) → ((𝐷‘𝑛)‘𝑠) ∈ ℝ)
154	153	adantll 712	. . . . 5 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ (-π[,]π)) → ((𝐷‘𝑛)‘𝑠) ∈ ℝ)
155	110	a1i 11	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → -π ∈ ℝ)
156		ax-resscn 11169	. . . . . . . . . 10 ⊢ ℝ ⊆ ℂ
157	156	a1i 11	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ℝ ⊆ ℂ)
158		ssid 4004	. . . . . . . . 9 ⊢ ℂ ⊆ ℂ
159		cncfss 24422	. . . . . . . . 9 ⊢ ((ℝ ⊆ ℂ ∧ ℂ ⊆ ℂ) → ((-π[,]π)–cn→ℝ) ⊆ ((-π[,]π)–cn→ℂ))
160	157, 158, 159	sylancl 586	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → ((-π[,]π)–cn→ℝ) ⊆ ((-π[,]π)–cn→ℂ))
161		eqid 2732	. . . . . . . . 9 ⊢ (𝑠 ∈ ℝ ↦ ((𝐷‘𝑛)‘𝑠)) = (𝑠 ∈ ℝ ↦ ((𝐷‘𝑛)‘𝑠))
162	100	dirkerf 44898	. . . . . . . . . . 11 ⊢ (𝑛 ∈ ℕ → (𝐷‘𝑛):ℝ⟶ℝ)
163	162	feqmptd 6960	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (𝐷‘𝑛) = (𝑠 ∈ ℝ ↦ ((𝐷‘𝑛)‘𝑠)))
164	100	dirkercncf 44908	. . . . . . . . . 10 ⊢ (𝑛 ∈ ℕ → (𝐷‘𝑛) ∈ (ℝ–cn→ℝ))
165	163, 164	eqeltrrd 2834	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (𝑠 ∈ ℝ ↦ ((𝐷‘𝑛)‘𝑠)) ∈ (ℝ–cn→ℝ))
166	112	a1i 11	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → (-π[,]π) ⊆ ℝ)
167		ssid 4004	. . . . . . . . . 10 ⊢ ℝ ⊆ ℝ
168	167	a1i 11	. . . . . . . . 9 ⊢ (𝑛 ∈ ℕ → ℝ ⊆ ℝ)
169	161, 165, 166, 168, 153	cncfmptssg 44672	. . . . . . . 8 ⊢ (𝑛 ∈ ℕ → (𝑠 ∈ (-π[,]π) ↦ ((𝐷‘𝑛)‘𝑠)) ∈ ((-π[,]π)–cn→ℝ))
170	160, 169	sseldd 3983	. . . . . . 7 ⊢ (𝑛 ∈ ℕ → (𝑠 ∈ (-π[,]π) ↦ ((𝐷‘𝑛)‘𝑠)) ∈ ((-π[,]π)–cn→ℂ))
171	170	adantl 482	. . . . . 6 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑠 ∈ (-π[,]π) ↦ ((𝐷‘𝑛)‘𝑠)) ∈ ((-π[,]π)–cn→ℂ))
172		cniccibl 25365	. . . . . 6 ⊢ ((-π ∈ ℝ ∧ π ∈ ℝ ∧ (𝑠 ∈ (-π[,]π) ↦ ((𝐷‘𝑛)‘𝑠)) ∈ ((-π[,]π)–cn→ℂ)) → (𝑠 ∈ (-π[,]π) ↦ ((𝐷‘𝑛)‘𝑠)) ∈ 𝐿¹)
173	155, 78, 171, 172	syl3anc 1371	. . . . 5 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑠 ∈ (-π[,]π) ↦ ((𝐷‘𝑛)‘𝑠)) ∈ 𝐿¹)
174	4, 45, 154, 173	iblss 25329	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑠 ∈ 𝐴 ↦ ((𝐷‘𝑛)‘𝑠)) ∈ 𝐿¹)
175	151, 124, 174	itgmulc2 25358	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑂 · ∫𝐴((𝐷‘𝑛)‘𝑠) d𝑠) = ∫𝐴(𝑂 · ((𝐷‘𝑛)‘𝑠)) d𝑠)
176	150, 175	oveq12d 7429	. 2 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((∫𝐴(𝐺‘𝑠) d𝑠 / π) + (𝑂 · ∫𝐴((𝐷‘𝑛)‘𝑠) d𝑠)) = (∫𝐴(((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) d𝑠 + ∫𝐴(𝑂 · ((𝐷‘𝑛)‘𝑠)) d𝑠))
177	86	ad2antrr 724	. . . . 5 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → 𝑂 ∈ ℝ)
178	177, 124	remulcld 11246	. . . 4 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → (𝑂 · ((𝐷‘𝑛)‘𝑠)) ∈ ℝ)
179	151, 124, 174	iblmulc2 25355	. . . 4 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (𝑠 ∈ 𝐴 ↦ (𝑂 · ((𝐷‘𝑛)‘𝑠))) ∈ 𝐿¹)
180	125, 144, 178, 179	itgadd 25349	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ∫𝐴((((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) + (𝑂 · ((𝐷‘𝑛)‘𝑠))) d𝑠 = (∫𝐴(((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) d𝑠 + ∫𝐴(𝑂 · ((𝐷‘𝑛)‘𝑠)) d𝑠))
181		fourierdlem95.ifeqo	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → if(0 < 𝑠, 𝑌, 𝑊) = 𝑂)
182	181	eqcomd 2738	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → 𝑂 = if(0 < 𝑠, 𝑌, 𝑊))
183	182	adantlr 713	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → 𝑂 = if(0 < 𝑠, 𝑌, 𝑊))
184	183	oveq1d 7426	. . . . . 6 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → (𝑂 · ((𝐷‘𝑛)‘𝑠)) = (if(0 < 𝑠, 𝑌, 𝑊) · ((𝐷‘𝑛)‘𝑠)))
185	184	oveq2d 7427	. . . . 5 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → ((((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) + (𝑂 · ((𝐷‘𝑛)‘𝑠))) = ((((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) + (if(0 < 𝑠, 𝑌, 𝑊) · ((𝐷‘𝑛)‘𝑠))))
186	116	recnd 11244	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → (𝐹‘(𝑋 + 𝑠)) ∈ ℂ)
187	186	adantlr 713	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → (𝐹‘(𝑋 + 𝑠)) ∈ ℂ)
188	118	recnd 11244	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑠 ∈ 𝐴) → if(0 < 𝑠, 𝑌, 𝑊) ∈ ℂ)
189	188	adantlr 713	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → if(0 < 𝑠, 𝑌, 𝑊) ∈ ℂ)
190	124	recnd 11244	. . . . . . 7 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → ((𝐷‘𝑛)‘𝑠) ∈ ℂ)
191	187, 189, 190	subdird 11673	. . . . . 6 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → (((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) = (((𝐹‘(𝑋 + 𝑠)) · ((𝐷‘𝑛)‘𝑠)) − (if(0 < 𝑠, 𝑌, 𝑊) · ((𝐷‘𝑛)‘𝑠))))
192	191	oveq1d 7426	. . . . 5 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → ((((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) + (if(0 < 𝑠, 𝑌, 𝑊) · ((𝐷‘𝑛)‘𝑠))) = ((((𝐹‘(𝑋 + 𝑠)) · ((𝐷‘𝑛)‘𝑠)) − (if(0 < 𝑠, 𝑌, 𝑊) · ((𝐷‘𝑛)‘𝑠))) + (if(0 < 𝑠, 𝑌, 𝑊) · ((𝐷‘𝑛)‘𝑠))))
193	187, 190	mulcld 11236	. . . . . 6 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → ((𝐹‘(𝑋 + 𝑠)) · ((𝐷‘𝑛)‘𝑠)) ∈ ℂ)
194	189, 190	mulcld 11236	. . . . . 6 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → (if(0 < 𝑠, 𝑌, 𝑊) · ((𝐷‘𝑛)‘𝑠)) ∈ ℂ)
195	193, 194	npcand 11577	. . . . 5 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → ((((𝐹‘(𝑋 + 𝑠)) · ((𝐷‘𝑛)‘𝑠)) − (if(0 < 𝑠, 𝑌, 𝑊) · ((𝐷‘𝑛)‘𝑠))) + (if(0 < 𝑠, 𝑌, 𝑊) · ((𝐷‘𝑛)‘𝑠))) = ((𝐹‘(𝑋 + 𝑠)) · ((𝐷‘𝑛)‘𝑠)))
196	185, 192, 195	3eqtrd 2776	. . . 4 ⊢ (((𝜑 ∧ 𝑛 ∈ ℕ) ∧ 𝑠 ∈ 𝐴) → ((((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) + (𝑂 · ((𝐷‘𝑛)‘𝑠))) = ((𝐹‘(𝑋 + 𝑠)) · ((𝐷‘𝑛)‘𝑠)))
197	196	itgeq2dv 25306	. . 3 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ∫𝐴((((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) + (𝑂 · ((𝐷‘𝑛)‘𝑠))) d𝑠 = ∫𝐴((𝐹‘(𝑋 + 𝑠)) · ((𝐷‘𝑛)‘𝑠)) d𝑠)
198	180, 197	eqtr3d 2774	. 2 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → (∫𝐴(((𝐹‘(𝑋 + 𝑠)) − if(0 < 𝑠, 𝑌, 𝑊)) · ((𝐷‘𝑛)‘𝑠)) d𝑠 + ∫𝐴(𝑂 · ((𝐷‘𝑛)‘𝑠)) d𝑠) = ∫𝐴((𝐹‘(𝑋 + 𝑠)) · ((𝐷‘𝑛)‘𝑠)) d𝑠)
199	97, 176, 198	3eqtrd 2776	1 ⊢ ((𝜑 ∧ 𝑛 ∈ ℕ) → ((𝐸‘𝑛) + (𝑂 / 2)) = ∫𝐴((𝐹‘(𝑋 + 𝑠)) · ((𝐷‘𝑛)‘𝑠)) d𝑠)

Colors of variables: wff setvar class

Syntax hints: → wi 4 ∧ wa 396 = wceq 1541 ∈ wcel 2106 ≠ wne 2940 ∀wral 3061 {crab 3432 ∖ cdif 3945 ⊆ wss 3948 ifcif 4528 {csn 4628 class class class wbr 5148 ↦ cmpt 5231 dom cdm 5676 ran crn 5677 ↾ cres 5678 ⟶wf 6539 ‘cfv 6543 (class class class)co 7411 ↑_m cmap 8822 ℂcc 11110 ℝcr 11111 0cc0 11112 1c1 11113 + caddc 11115 · cmul 11117 +∞cpnf 11247 -∞cmnf 11248 ℝ^*cxr 11249 < clt 11250 − cmin 11446 -cneg 11447 / cdiv 11873 ℕcn 12214 2c2 12269 (,)cioo 13326 [,]cicc 13329 ...cfz 13486 ..^cfzo 13629 mod cmo 13836 sincsin 16009 πcpi 16012 TopOpenctopn 17369 ℂ_fldccnfld 20950 –cn→ccncf 24399 volcvol 24987 𝐿¹cibl 25141 ∫citg 25142 lim_ℂ climc 25386 D cdv 25387

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1797 ax-4 1811 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2703 ax-rep 5285 ax-sep 5299 ax-nul 5306 ax-pow 5363 ax-pr 5427 ax-un 7727 ax-inf2 9638 ax-cc 10432 ax-cnex 11168 ax-resscn 11169 ax-1cn 11170 ax-icn 11171 ax-addcl 11172 ax-addrcl 11173 ax-mulcl 11174 ax-mulrcl 11175 ax-mulcom 11176 ax-addass 11177 ax-mulass 11178 ax-distr 11179 ax-i2m1 11180 ax-1ne0 11181 ax-1rid 11182 ax-rnegex 11183 ax-rrecex 11184 ax-cnre 11185 ax-pre-lttri 11186 ax-pre-lttrn 11187 ax-pre-ltadd 11188 ax-pre-mulgt0 11189 ax-pre-sup 11190 ax-addf 11191 ax-mulf 11192

This theorem depends on definitions: df-bi 206 df-an 397 df-or 846 df-3or 1088 df-3an 1089 df-tru 1544 df-fal 1554 df-ex 1782 df-nf 1786 df-sb 2068 df-mo 2534 df-eu 2563 df-clab 2710 df-cleq 2724 df-clel 2810 df-nfc 2885 df-ne 2941 df-nel 3047 df-ral 3062 df-rex 3071 df-rmo 3376 df-reu 3377 df-rab 3433 df-v 3476 df-sbc 3778 df-csb 3894 df-dif 3951 df-un 3953 df-in 3955 df-ss 3965 df-pss 3967 df-symdif 4242 df-nul 4323 df-if 4529 df-pw 4604 df-sn 4629 df-pr 4631 df-tp 4633 df-op 4635 df-uni 4909 df-int 4951 df-iun 4999 df-iin 5000 df-disj 5114 df-br 5149 df-opab 5211 df-mpt 5232 df-tr 5266 df-id 5574 df-eprel 5580 df-po 5588 df-so 5589 df-fr 5631 df-se 5632 df-we 5633 df-xp 5682 df-rel 5683 df-cnv 5684 df-co 5685 df-dm 5686 df-rn 5687 df-res 5688 df-ima 5689 df-pred 6300 df-ord 6367 df-on 6368 df-lim 6369 df-suc 6370 df-iota 6495 df-fun 6545 df-fn 6546 df-f 6547 df-f1 6548 df-fo 6549 df-f1o 6550 df-fv 6551 df-isom 6552 df-riota 7367 df-ov 7414 df-oprab 7415 df-mpo 7416 df-of 7672 df-ofr 7673 df-om 7858 df-1st 7977 df-2nd 7978 df-supp 8149 df-frecs 8268 df-wrecs 8299 df-recs 8373 df-rdg 8412 df-1o 8468 df-2o 8469 df-oadd 8472 df-omul 8473 df-er 8705 df-map 8824 df-pm 8825 df-ixp 8894 df-en 8942 df-dom 8943 df-sdom 8944 df-fin 8945 df-fsupp 9364 df-fi 9408 df-sup 9439 df-inf 9440 df-oi 9507 df-dju 9898 df-card 9936 df-acn 9939 df-pnf 11252 df-mnf 11253 df-xr 11254 df-ltxr 11255 df-le 11256 df-sub 11448 df-neg 11449 df-div 11874 df-nn 12215 df-2 12277 df-3 12278 df-4 12279 df-5 12280 df-6 12281 df-7 12282 df-8 12283 df-9 12284 df-n0 12475 df-z 12561 df-dec 12680 df-uz 12825 df-q 12935 df-rp 12977 df-xneg 13094 df-xadd 13095 df-xmul 13096 df-ioo 13330 df-ioc 13331 df-ico 13332 df-icc 13333 df-fz 13487 df-fzo 13630 df-fl 13759 df-mod 13837 df-seq 13969 df-exp 14030 df-fac 14236 df-bc 14265 df-hash 14293 df-shft 15016 df-cj 15048 df-re 15049 df-im 15050 df-sqrt 15184 df-abs 15185 df-limsup 15417 df-clim 15434 df-rlim 15435 df-sum 15635 df-ef 16013 df-sin 16015 df-cos 16016 df-pi 16018 df-struct 17082 df-sets 17099 df-slot 17117 df-ndx 17129 df-base 17147 df-ress 17176 df-plusg 17212 df-mulr 17213 df-starv 17214 df-sca 17215 df-vsca 17216 df-ip 17217 df-tset 17218 df-ple 17219 df-ds 17221 df-unif 17222 df-hom 17223 df-cco 17224 df-rest 17370 df-topn 17371 df-0g 17389 df-gsum 17390 df-topgen 17391 df-pt 17392 df-prds 17395 df-xrs 17450 df-qtop 17455 df-imas 17456 df-xps 17458 df-mre 17532 df-mrc 17533 df-acs 17535 df-mgm 18563 df-sgrp 18612 df-mnd 18628 df-submnd 18674 df-mulg 18953 df-cntz 19183 df-cmn 19652 df-psmet 20942 df-xmet 20943 df-met 20944 df-bl 20945 df-mopn 20946 df-fbas 20947 df-fg 20948 df-cnfld 20951 df-top 22403 df-topon 22420 df-topsp 22442 df-bases 22456 df-cld 22530 df-ntr 22531 df-cls 22532 df-nei 22609 df-lp 22647 df-perf 22648 df-cn 22738 df-cnp 22739 df-t1 22825 df-haus 22826 df-cmp 22898 df-tx 23073 df-hmeo 23266 df-fil 23357 df-fm 23449 df-flim 23450 df-flf 23451 df-xms 23833 df-ms 23834 df-tms 23835 df-cncf 24401 df-ovol 24988 df-vol 24989 df-mbf 25143 df-itg1 25144 df-itg2 25145 df-ibl 25146 df-itg 25147 df-0p 25194 df-limc 25390 df-dv 25391

This theorem is referenced by: fourierdlem103 45010 fourierdlem104 45011

W3C validator