Theorem dirkerval 46068

Description: The N_th Dirichlet Kernel. (Contributed by Glauco Siliprandi, 11-Dec-2019.)

Hypothesis

Ref	Expression
dirkerval.1	⊢ 𝐷 = (𝑛 ∈ ℕ ↦ (𝑠 ∈ ℝ ↦ if((𝑠 mod (2 · π)) = 0, (((2 · 𝑛) + 1) / (2 · π)), ((sin‘((𝑛 + (1 / 2)) · 𝑠)) / ((2 · π) · (sin‘(𝑠 / 2)))))))

Assertion

Ref	Expression
dirkerval	⊢ (𝑁 ∈ ℕ → (𝐷‘𝑁) = (𝑠 ∈ ℝ ↦ if((𝑠 mod (2 · π)) = 0, (((2 · 𝑁) + 1) / (2 · π)), ((sin‘((𝑁 + (1 / 2)) · 𝑠)) / ((2 · π) · (sin‘(𝑠 / 2)))))))

Distinct variable groups:   𝑁,𝑠   𝑛,𝑠

Allowed substitution hints:   𝐷(𝑛,𝑠)   𝑁(𝑛)

Proof of Theorem dirkerval

Dummy variable 𝑚 is distinct from all other variables.

Step	Hyp	Ref	Expression
1		simpl 482	. . . . . . 7 ⊢ ((𝑚 = 𝑁 ∧ 𝑠 ∈ ℝ) → 𝑚 = 𝑁)
2	1	oveq2d 7419	. . . . . 6 ⊢ ((𝑚 = 𝑁 ∧ 𝑠 ∈ ℝ) → (2 · 𝑚) = (2 · 𝑁))
3	2	oveq1d 7418	. . . . 5 ⊢ ((𝑚 = 𝑁 ∧ 𝑠 ∈ ℝ) → ((2 · 𝑚) + 1) = ((2 · 𝑁) + 1))
4	3	oveq1d 7418	. . . 4 ⊢ ((𝑚 = 𝑁 ∧ 𝑠 ∈ ℝ) → (((2 · 𝑚) + 1) / (2 · π)) = (((2 · 𝑁) + 1) / (2 · π)))
5	1	oveq1d 7418	. . . . . 6 ⊢ ((𝑚 = 𝑁 ∧ 𝑠 ∈ ℝ) → (𝑚 + (1 / 2)) = (𝑁 + (1 / 2)))
6	5	fvoveq1d 7425	. . . . 5 ⊢ ((𝑚 = 𝑁 ∧ 𝑠 ∈ ℝ) → (sin‘((𝑚 + (1 / 2)) · 𝑠)) = (sin‘((𝑁 + (1 / 2)) · 𝑠)))
7	6	oveq1d 7418	. . . 4 ⊢ ((𝑚 = 𝑁 ∧ 𝑠 ∈ ℝ) → ((sin‘((𝑚 + (1 / 2)) · 𝑠)) / ((2 · π) · (sin‘(𝑠 / 2)))) = ((sin‘((𝑁 + (1 / 2)) · 𝑠)) / ((2 · π) · (sin‘(𝑠 / 2)))))
8	4, 7	ifeq12d 4522	. . 3 ⊢ ((𝑚 = 𝑁 ∧ 𝑠 ∈ ℝ) → 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))))))
9	8	mpteq2dva 5214	. 2 ⊢ (𝑚 = 𝑁 → (𝑠 ∈ ℝ ↦ 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)))))))
10		dirkerval.1	. . 3 ⊢ 𝐷 = (𝑛 ∈ ℕ ↦ (𝑠 ∈ ℝ ↦ if((𝑠 mod (2 · π)) = 0, (((2 · 𝑛) + 1) / (2 · π)), ((sin‘((𝑛 + (1 / 2)) · 𝑠)) / ((2 · π) · (sin‘(𝑠 / 2)))))))
11		simpl 482	. . . . . . . . 9 ⊢ ((𝑛 = 𝑚 ∧ 𝑠 ∈ ℝ) → 𝑛 = 𝑚)
12	11	oveq2d 7419	. . . . . . . 8 ⊢ ((𝑛 = 𝑚 ∧ 𝑠 ∈ ℝ) → (2 · 𝑛) = (2 · 𝑚))
13	12	oveq1d 7418	. . . . . . 7 ⊢ ((𝑛 = 𝑚 ∧ 𝑠 ∈ ℝ) → ((2 · 𝑛) + 1) = ((2 · 𝑚) + 1))
14	13	oveq1d 7418	. . . . . 6 ⊢ ((𝑛 = 𝑚 ∧ 𝑠 ∈ ℝ) → (((2 · 𝑛) + 1) / (2 · π)) = (((2 · 𝑚) + 1) / (2 · π)))
15	11	oveq1d 7418	. . . . . . . 8 ⊢ ((𝑛 = 𝑚 ∧ 𝑠 ∈ ℝ) → (𝑛 + (1 / 2)) = (𝑚 + (1 / 2)))
16	15	fvoveq1d 7425	. . . . . . 7 ⊢ ((𝑛 = 𝑚 ∧ 𝑠 ∈ ℝ) → (sin‘((𝑛 + (1 / 2)) · 𝑠)) = (sin‘((𝑚 + (1 / 2)) · 𝑠)))
17	16	oveq1d 7418	. . . . . 6 ⊢ ((𝑛 = 𝑚 ∧ 𝑠 ∈ ℝ) → ((sin‘((𝑛 + (1 / 2)) · 𝑠)) / ((2 · π) · (sin‘(𝑠 / 2)))) = ((sin‘((𝑚 + (1 / 2)) · 𝑠)) / ((2 · π) · (sin‘(𝑠 / 2)))))
18	14, 17	ifeq12d 4522	. . . . 5 ⊢ ((𝑛 = 𝑚 ∧ 𝑠 ∈ ℝ) → 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))))))
19	18	mpteq2dva 5214	. . . 4 ⊢ (𝑛 = 𝑚 → (𝑠 ∈ ℝ ↦ 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)))))))
20	19	cbvmptv 5225	. . 3 ⊢ (𝑛 ∈ ℕ ↦ (𝑠 ∈ ℝ ↦ 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)))))))
21	10, 20	eqtri 2758	. 2 ⊢ 𝐷 = (𝑚 ∈ ℕ ↦ (𝑠 ∈ ℝ ↦ if((𝑠 mod (2 · π)) = 0, (((2 · 𝑚) + 1) / (2 · π)), ((sin‘((𝑚 + (1 / 2)) · 𝑠)) / ((2 · π) · (sin‘(𝑠 / 2)))))))
22		reex 11218	. . 3 ⊢ ℝ ∈ V
23	22	mptex 7214	. 2 ⊢ (𝑠 ∈ ℝ ↦ if((𝑠 mod (2 · π)) = 0, (((2 · 𝑁) + 1) / (2 · π)), ((sin‘((𝑁 + (1 / 2)) · 𝑠)) / ((2 · π) · (sin‘(𝑠 / 2)))))) ∈ V
24	9, 21, 23	fvmpt 6985	1 ⊢ (𝑁 ∈ ℕ → (𝐷‘𝑁) = (𝑠 ∈ ℝ ↦ if((𝑠 mod (2 · π)) = 0, (((2 · 𝑁) + 1) / (2 · π)), ((sin‘((𝑁 + (1 / 2)) · 𝑠)) / ((2 · π) · (sin‘(𝑠 / 2)))))))

Syntax hints:   → wi 4   ∧ wa 395   = wceq 1540   ∈ wcel 2108  ifcif 4500   ↦ cmpt 5201  ‘cfv 6530  (class class class)co 7403  ℝcr 11126  0cc0 11127  1c1 11128   + caddc 11130   · cmul 11132   / cdiv 11892  ℕcn 12238  2c2 12293   mod cmo 13884  sincsin 16077  πcpi 16080

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1795  ax-4 1809  ax-5 1910  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2157  ax-12 2177  ax-ext 2707  ax-rep 5249  ax-sep 5266  ax-nul 5276  ax-pr 5402  ax-cnex 11183  ax-resscn 11184

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1780  df-nf 1784  df-sb 2065  df-mo 2539  df-eu 2568  df-clab 2714  df-cleq 2727  df-clel 2809  df-nfc 2885  df-ne 2933  df-ral 3052  df-rex 3061  df-reu 3360  df-rab 3416  df-v 3461  df-sbc 3766  df-csb 3875  df-dif 3929  df-un 3931  df-in 3933  df-ss 3943  df-nul 4309  df-if 4501  df-sn 4602  df-pr 4604  df-op 4608  df-uni 4884  df-iun 4969  df-br 5120  df-opab 5182  df-mpt 5202  df-id 5548  df-xp 5660  df-rel 5661  df-cnv 5662  df-co 5663  df-dm 5664  df-rn 5665  df-res 5666  df-ima 5667  df-iota 6483  df-fun 6532  df-fn 6533  df-f 6534  df-f1 6535  df-fo 6536  df-f1o 6537  df-fv 6538  df-ov 7406

This theorem is referenced by:  dirkerval2  46071  dirkerf  46074  dirkertrigeq  46078  dirkercncflem2  46081  dirkercncflem4  46083