dirkertrigeqlem3 - Mathbox for Glauco Siliprandi

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

Theorem dirkertrigeqlem3 46452

Description: Trigonometric equality lemma for the Dirichlet kernel trigonometric equality. Here we handle the case for an angle that's an odd multiple of π. (Contributed by Glauco Siliprandi, 11-Dec-2019.)

**Hypotheses**
Ref	Expression
dirkertrigeqlem3.n	⊢ (𝜑 → 𝑁 ∈ ℕ)
dirkertrigeqlem3.k	⊢ (𝜑 → 𝐾 ∈ ℤ)
dirkertrigeqlem3.a	⊢ 𝐴 = (((2 · 𝐾) + 1) · π)

**Assertion**
Ref	Expression
dirkertrigeqlem3	⊢ (𝜑 → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))

Distinct variable groups: 𝑛,𝑁 𝜑,𝑛 Allowed substitution hints: 𝐴(𝑛) 𝐾(𝑛)

**Proof of Theorem dirkertrigeqlem3**
Step	Hyp	Ref	Expression
1		dirkertrigeqlem3.a	. . . . . . . . . . . . 13 ⊢ 𝐴 = (((2 · 𝐾) + 1) · π)
2	1	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → 𝐴 = (((2 · 𝐾) + 1) · π))
3	2	oveq2d 7384	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (𝑛 · 𝐴) = (𝑛 · (((2 · 𝐾) + 1) · π)))
4		elfzelz 13452	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℤ)
5	4	zcnd 12609	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℂ)
6	5	adantl 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → 𝑛 ∈ ℂ)
7		2cnd 12235	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → 2 ∈ ℂ)
8		dirkertrigeqlem3.k	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐾 ∈ ℤ)
9	8	zcnd 12609	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐾 ∈ ℂ)
10	9	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → 𝐾 ∈ ℂ)
11	7, 10	mulcld 11164	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (2 · 𝐾) ∈ ℂ)
12		1cnd 11139	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → 1 ∈ ℂ)
13	11, 12	addcld 11163	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) + 1) ∈ ℂ)
14		picn 26435	. . . . . . . . . . . . . 14 ⊢ π ∈ ℂ
15	14	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → π ∈ ℂ)
16	13, 15	mulcld 11164	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) + 1) · π) ∈ ℂ)
17	6, 16	mulcomd 11165	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (𝑛 · (((2 · 𝐾) + 1) · π)) = ((((2 · 𝐾) + 1) · π) · 𝑛))
18	13, 15, 6	mulassd 11167	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → ((((2 · 𝐾) + 1) · π) · 𝑛) = (((2 · 𝐾) + 1) · (π · 𝑛)))
19	15, 6	mulcld 11164	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (π · 𝑛) ∈ ℂ)
20	11, 12, 19	adddird 11169	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) + 1) · (π · 𝑛)) = (((2 · 𝐾) · (π · 𝑛)) + (1 · (π · 𝑛))))
21	11, 19	mulcld 11164	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) · (π · 𝑛)) ∈ ℂ)
22	12, 19	mulcld 11164	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (1 · (π · 𝑛)) ∈ ℂ)
23	21, 22	addcomd 11347	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) · (π · 𝑛)) + (1 · (π · 𝑛))) = ((1 · (π · 𝑛)) + ((2 · 𝐾) · (π · 𝑛))))
24	14	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ (1...𝑁) → π ∈ ℂ)
25	24, 5	mulcld 11164	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ (1...𝑁) → (π · 𝑛) ∈ ℂ)
26	25	mullidd 11162	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ (1...𝑁) → (1 · (π · 𝑛)) = (π · 𝑛))
27	26	adantl 481	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (1 · (π · 𝑛)) = (π · 𝑛))
28	7, 10, 15, 6	mul4d 11357	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) · (π · 𝑛)) = ((2 · π) · (𝐾 · 𝑛)))
29	7, 15	mulcld 11164	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (2 · π) ∈ ℂ)
30	10, 6	mulcld 11164	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (𝐾 · 𝑛) ∈ ℂ)
31	29, 30	mulcomd 11165	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → ((2 · π) · (𝐾 · 𝑛)) = ((𝐾 · 𝑛) · (2 · π)))
32	28, 31	eqtrd 2772	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) · (π · 𝑛)) = ((𝐾 · 𝑛) · (2 · π)))
33	27, 32	oveq12d 7386	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → ((1 · (π · 𝑛)) + ((2 · 𝐾) · (π · 𝑛))) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
34	23, 33	eqtrd 2772	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) · (π · 𝑛)) + (1 · (π · 𝑛))) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
35	18, 20, 34	3eqtrd 2776	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → ((((2 · 𝐾) + 1) · π) · 𝑛) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
36	3, 17, 35	3eqtrd 2776	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (𝑛 · 𝐴) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
37	36	fveq2d 6846	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (cos‘(𝑛 · 𝐴)) = (cos‘((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π)))))
38	8	adantr 480	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → 𝐾 ∈ ℤ)
39	4	adantl 481	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → 𝑛 ∈ ℤ)
40	38, 39	zmulcld 12614	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (𝐾 · 𝑛) ∈ ℤ)
41		cosper 26459	. . . . . . . . . 10 ⊢ (((π · 𝑛) ∈ ℂ ∧ (𝐾 · 𝑛) ∈ ℤ) → (cos‘((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π)))) = (cos‘(π · 𝑛)))
42	19, 40, 41	syl2anc 585	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (cos‘((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π)))) = (cos‘(π · 𝑛)))
43	37, 42	eqtrd 2772	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (cos‘(𝑛 · 𝐴)) = (cos‘(π · 𝑛)))
44	43	sumeq2dv 15637	. . . . . . 7 ⊢ (𝜑 → Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴)) = Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)))
45	44	oveq2d 7384	. . . . . 6 ⊢ (𝜑 → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) = ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))))
46	45	oveq1d 7383	. . . . 5 ⊢ (𝜑 → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π))
47	46	adantr 480	. . . 4 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π))
48		dirkertrigeqlem3.n	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑁 ∈ ℕ)
49	48	nncnd 12173	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑁 ∈ ℂ)
50		2cnd 12235	. . . . . . . . . . . . 13 ⊢ (𝜑 → 2 ∈ ℂ)
51		2ne0 12261	. . . . . . . . . . . . . 14 ⊢ 2 ≠ 0
52	51	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 2 ≠ 0)
53	49, 50, 52	divcan2d 11931	. . . . . . . . . . . 12 ⊢ (𝜑 → (2 · (𝑁 / 2)) = 𝑁)
54	53	eqcomd 2743	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 = (2 · (𝑁 / 2)))
55	54	oveq2d 7384	. . . . . . . . . 10 ⊢ (𝜑 → (1...𝑁) = (1...(2 · (𝑁 / 2))))
56	55	sumeq1d 15635	. . . . . . . . 9 ⊢ (𝜑 → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)))
57	56	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)))
58	14	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ (1...(2 · (𝑁 / 2))) → π ∈ ℂ)
59		elfzelz 13452	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ (1...(2 · (𝑁 / 2))) → 𝑛 ∈ ℤ)
60	59	zcnd 12609	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ (1...(2 · (𝑁 / 2))) → 𝑛 ∈ ℂ)
61	58, 60	mulcomd 11165	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ (1...(2 · (𝑁 / 2))) → (π · 𝑛) = (𝑛 · π))
62	61	fveq2d 6846	. . . . . . . . . . 11 ⊢ (𝑛 ∈ (1...(2 · (𝑁 / 2))) → (cos‘(π · 𝑛)) = (cos‘(𝑛 · π)))
63	62	rgen 3054	. . . . . . . . . 10 ⊢ ∀𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)) = (cos‘(𝑛 · π))
64	63	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ∀𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)) = (cos‘(𝑛 · π)))
65	64	sumeq2d 15636	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(𝑛 · π)))
66		simpr 484	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝑁 mod 2) = 0)
67	48	nnred 12172	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑁 ∈ ℝ)
68	67	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → 𝑁 ∈ ℝ)
69		2rp 12922	. . . . . . . . . . . 12 ⊢ 2 ∈ ℝ⁺
70		mod0 13808	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℝ ∧ 2 ∈ ℝ⁺) → ((𝑁 mod 2) = 0 ↔ (𝑁 / 2) ∈ ℤ))
71	68, 69, 70	sylancl 587	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((𝑁 mod 2) = 0 ↔ (𝑁 / 2) ∈ ℤ))
72	66, 71	mpbid 232	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝑁 / 2) ∈ ℤ)
73		2re 12231	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℝ
74	73	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 2 ∈ ℝ)
75	48	nngt0d 12206	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 < 𝑁)
76		2pos 12260	. . . . . . . . . . . . 13 ⊢ 0 < 2
77	76	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 < 2)
78	67, 74, 75, 77	divgt0d 12089	. . . . . . . . . . 11 ⊢ (𝜑 → 0 < (𝑁 / 2))
79	78	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → 0 < (𝑁 / 2))
80		elnnz 12510	. . . . . . . . . 10 ⊢ ((𝑁 / 2) ∈ ℕ ↔ ((𝑁 / 2) ∈ ℤ ∧ 0 < (𝑁 / 2)))
81	72, 79, 80	sylanbrc 584	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝑁 / 2) ∈ ℕ)
82		dirkertrigeqlem1 46450	. . . . . . . . 9 ⊢ ((𝑁 / 2) ∈ ℕ → Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(𝑛 · π)) = 0)
83	81, 82	syl 17	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(𝑛 · π)) = 0)
84	57, 65, 83	3eqtrd 2776	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = 0)
85	84	oveq2d 7384	. . . . . 6 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) = ((1 / 2) + 0))
86		halfcn 12367	. . . . . . 7 ⊢ (1 / 2) ∈ ℂ
87	86	addridi 11332	. . . . . 6 ⊢ ((1 / 2) + 0) = (1 / 2)
88	85, 87	eqtrdi 2788	. . . . 5 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) = (1 / 2))
89	88	oveq1d 7383	. . . 4 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π) = ((1 / 2) / π))
90		ax-1cn 11096	. . . . . 6 ⊢ 1 ∈ ℂ
91		2cnne0 12362	. . . . . 6 ⊢ (2 ∈ ℂ ∧ 2 ≠ 0)
92		pire 26434	. . . . . . . 8 ⊢ π ∈ ℝ
93		pipos 26436	. . . . . . . 8 ⊢ 0 < π
94	92, 93	gt0ne0ii 11685	. . . . . . 7 ⊢ π ≠ 0
95	14, 94	pm3.2i 470	. . . . . 6 ⊢ (π ∈ ℂ ∧ π ≠ 0)
96		divdiv1 11864	. . . . . 6 ⊢ ((1 ∈ ℂ ∧ (2 ∈ ℂ ∧ 2 ≠ 0) ∧ (π ∈ ℂ ∧ π ≠ 0)) → ((1 / 2) / π) = (1 / (2 · π)))
97	90, 91, 95, 96	mp3an 1464	. . . . 5 ⊢ ((1 / 2) / π) = (1 / (2 · π))
98	97	a1i 11	. . . 4 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((1 / 2) / π) = (1 / (2 · π)))
99	47, 89, 98	3eqtrd 2776	. . 3 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = (1 / (2 · π)))
100	1	oveq2i 7379	. . . . . . . . . 10 ⊢ ((𝑁 + (1 / 2)) · 𝐴) = ((𝑁 + (1 / 2)) · (((2 · 𝐾) + 1) · π))
101	100	a1i 11	. . . . . . . . 9 ⊢ (𝜑 → ((𝑁 + (1 / 2)) · 𝐴) = ((𝑁 + (1 / 2)) · (((2 · 𝐾) + 1) · π)))
102	86	a1i 11	. . . . . . . . . . 11 ⊢ (𝜑 → (1 / 2) ∈ ℂ)
103	49, 102	addcld 11163	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁 + (1 / 2)) ∈ ℂ)
104	50, 9	mulcld 11164	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · 𝐾) ∈ ℂ)
105		peano2cn 11317	. . . . . . . . . . 11 ⊢ ((2 · 𝐾) ∈ ℂ → ((2 · 𝐾) + 1) ∈ ℂ)
106	104, 105	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → ((2 · 𝐾) + 1) ∈ ℂ)
107	14	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → π ∈ ℂ)
108	103, 106, 107	mulassd 11167	. . . . . . . . 9 ⊢ (𝜑 → (((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) · π) = ((𝑁 + (1 / 2)) · (((2 · 𝐾) + 1) · π)))
109		1cnd 11139	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 1 ∈ ℂ)
110	49, 102, 104, 109	muladdd 11607	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) = (((𝑁 · (2 · 𝐾)) + (1 · (1 / 2))) + ((𝑁 · 1) + ((2 · 𝐾) · (1 / 2)))))
111	49, 50, 9	mul12d 11354	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑁 · (2 · 𝐾)) = (2 · (𝑁 · 𝐾)))
112	102	mullidd 11162	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (1 · (1 / 2)) = (1 / 2))
113	111, 112	oveq12d 7386	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑁 · (2 · 𝐾)) + (1 · (1 / 2))) = ((2 · (𝑁 · 𝐾)) + (1 / 2)))
114	49	mulridd 11161	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑁 · 1) = 𝑁)
115	50, 9	mulcomd 11165	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (2 · 𝐾) = (𝐾 · 2))
116	115	oveq1d 7383	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2 · 𝐾) · (1 / 2)) = ((𝐾 · 2) · (1 / 2)))
117	9, 50, 102	mulassd 11167	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐾 · 2) · (1 / 2)) = (𝐾 · (2 · (1 / 2))))
118		2cn 12232	. . . . . . . . . . . . . . . . . . 19 ⊢ 2 ∈ ℂ
119	118, 51	recidi 11884	. . . . . . . . . . . . . . . . . 18 ⊢ (2 · (1 / 2)) = 1
120	119	oveq2i 7379	. . . . . . . . . . . . . . . . 17 ⊢ (𝐾 · (2 · (1 / 2))) = (𝐾 · 1)
121	9	mulridd 11161	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐾 · 1) = 𝐾)
122	120, 121	eqtrid 2784	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐾 · (2 · (1 / 2))) = 𝐾)
123	116, 117, 122	3eqtrd 2776	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2 · 𝐾) · (1 / 2)) = 𝐾)
124	114, 123	oveq12d 7386	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑁 · 1) + ((2 · 𝐾) · (1 / 2))) = (𝑁 + 𝐾))
125	113, 124	oveq12d 7386	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((𝑁 · (2 · 𝐾)) + (1 · (1 / 2))) + ((𝑁 · 1) + ((2 · 𝐾) · (1 / 2)))) = (((2 · (𝑁 · 𝐾)) + (1 / 2)) + (𝑁 + 𝐾)))
126	49, 9	mulcld 11164	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑁 · 𝐾) ∈ ℂ)
127	50, 126	mulcld 11164	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (2 · (𝑁 · 𝐾)) ∈ ℂ)
128	49, 9	addcld 11163	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑁 + 𝐾) ∈ ℂ)
129	127, 102, 128	addassd 11166	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((2 · (𝑁 · 𝐾)) + (1 / 2)) + (𝑁 + 𝐾)) = ((2 · (𝑁 · 𝐾)) + ((1 / 2) + (𝑁 + 𝐾))))
130	110, 125, 129	3eqtrd 2776	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) = ((2 · (𝑁 · 𝐾)) + ((1 / 2) + (𝑁 + 𝐾))))
131	102, 128	addcld 11163	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((1 / 2) + (𝑁 + 𝐾)) ∈ ℂ)
132	127, 131	addcomd 11347	. . . . . . . . . . . 12 ⊢ (𝜑 → ((2 · (𝑁 · 𝐾)) + ((1 / 2) + (𝑁 + 𝐾))) = (((1 / 2) + (𝑁 + 𝐾)) + (2 · (𝑁 · 𝐾))))
133	50, 126	mulcomd 11165	. . . . . . . . . . . . 13 ⊢ (𝜑 → (2 · (𝑁 · 𝐾)) = ((𝑁 · 𝐾) · 2))
134	133	oveq2d 7384	. . . . . . . . . . . 12 ⊢ (𝜑 → (((1 / 2) + (𝑁 + 𝐾)) + (2 · (𝑁 · 𝐾))) = (((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)))
135	130, 132, 134	3eqtrd 2776	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) = (((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)))
136	135	oveq1d 7383	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) · π) = ((((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)) · π))
137	126, 50	mulcld 11164	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁 · 𝐾) · 2) ∈ ℂ)
138	131, 137, 107	adddird 11169	. . . . . . . . . 10 ⊢ (𝜑 → ((((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)) · π) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + (((𝑁 · 𝐾) · 2) · π)))
139	126, 50, 107	mulassd 11167	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝑁 · 𝐾) · 2) · π) = ((𝑁 · 𝐾) · (2 · π)))
140	139	oveq2d 7384	. . . . . . . . . 10 ⊢ (𝜑 → ((((1 / 2) + (𝑁 + 𝐾)) · π) + (((𝑁 · 𝐾) · 2) · π)) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π))))
141	136, 138, 140	3eqtrd 2776	. . . . . . . . 9 ⊢ (𝜑 → (((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) · π) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π))))
142	101, 108, 141	3eqtr2d 2778	. . . . . . . 8 ⊢ (𝜑 → ((𝑁 + (1 / 2)) · 𝐴) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π))))
143	142	fveq2d 6846	. . . . . . 7 ⊢ (𝜑 → (sin‘((𝑁 + (1 / 2)) · 𝐴)) = (sin‘((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π)))))
144	131, 107	mulcld 11164	. . . . . . . 8 ⊢ (𝜑 → (((1 / 2) + (𝑁 + 𝐾)) · π) ∈ ℂ)
145	48	nnzd 12526	. . . . . . . . 9 ⊢ (𝜑 → 𝑁 ∈ ℤ)
146	145, 8	zmulcld 12614	. . . . . . . 8 ⊢ (𝜑 → (𝑁 · 𝐾) ∈ ℤ)
147		sinper 26458	. . . . . . . 8 ⊢ (((((1 / 2) + (𝑁 + 𝐾)) · π) ∈ ℂ ∧ (𝑁 · 𝐾) ∈ ℤ) → (sin‘((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π)))) = (sin‘(((1 / 2) + (𝑁 + 𝐾)) · π)))
148	144, 146, 147	syl2anc 585	. . . . . . 7 ⊢ (𝜑 → (sin‘((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π)))) = (sin‘(((1 / 2) + (𝑁 + 𝐾)) · π)))
149	102, 128	addcomd 11347	. . . . . . . . . 10 ⊢ (𝜑 → ((1 / 2) + (𝑁 + 𝐾)) = ((𝑁 + 𝐾) + (1 / 2)))
150	49, 9, 102	addassd 11166	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑁 + 𝐾) + (1 / 2)) = (𝑁 + (𝐾 + (1 / 2))))
151	9, 102	addcld 11163	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐾 + (1 / 2)) ∈ ℂ)
152	49, 151	addcomd 11347	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁 + (𝐾 + (1 / 2))) = ((𝐾 + (1 / 2)) + 𝑁))
153	149, 150, 152	3eqtrd 2776	. . . . . . . . 9 ⊢ (𝜑 → ((1 / 2) + (𝑁 + 𝐾)) = ((𝐾 + (1 / 2)) + 𝑁))
154	153	oveq1d 7383	. . . . . . . 8 ⊢ (𝜑 → (((1 / 2) + (𝑁 + 𝐾)) · π) = (((𝐾 + (1 / 2)) + 𝑁) · π))
155	154	fveq2d 6846	. . . . . . 7 ⊢ (𝜑 → (sin‘(((1 / 2) + (𝑁 + 𝐾)) · π)) = (sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)))
156	143, 148, 155	3eqtrd 2776	. . . . . 6 ⊢ (𝜑 → (sin‘((𝑁 + (1 / 2)) · 𝐴)) = (sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)))
157	1	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 = (((2 · 𝐾) + 1) · π))
158	157	oveq1d 7383	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 / 2) = ((((2 · 𝐾) + 1) · π) / 2))
159	106, 107, 50, 52	div23d 11966	. . . . . . . . 9 ⊢ (𝜑 → ((((2 · 𝐾) + 1) · π) / 2) = ((((2 · 𝐾) + 1) / 2) · π))
160	104, 109, 50, 52	divdird 11967	. . . . . . . . . . 11 ⊢ (𝜑 → (((2 · 𝐾) + 1) / 2) = (((2 · 𝐾) / 2) + (1 / 2)))
161	9, 50, 52	divcan3d 11934	. . . . . . . . . . . 12 ⊢ (𝜑 → ((2 · 𝐾) / 2) = 𝐾)
162	161	oveq1d 7383	. . . . . . . . . . 11 ⊢ (𝜑 → (((2 · 𝐾) / 2) + (1 / 2)) = (𝐾 + (1 / 2)))
163	160, 162	eqtrd 2772	. . . . . . . . . 10 ⊢ (𝜑 → (((2 · 𝐾) + 1) / 2) = (𝐾 + (1 / 2)))
164	163	oveq1d 7383	. . . . . . . . 9 ⊢ (𝜑 → ((((2 · 𝐾) + 1) / 2) · π) = ((𝐾 + (1 / 2)) · π))
165	158, 159, 164	3eqtrd 2776	. . . . . . . 8 ⊢ (𝜑 → (𝐴 / 2) = ((𝐾 + (1 / 2)) · π))
166	165	fveq2d 6846	. . . . . . 7 ⊢ (𝜑 → (sin‘(𝐴 / 2)) = (sin‘((𝐾 + (1 / 2)) · π)))
167	166	oveq2d 7384	. . . . . 6 ⊢ (𝜑 → ((2 · π) · (sin‘(𝐴 / 2))) = ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π))))
168	156, 167	oveq12d 7386	. . . . 5 ⊢ (𝜑 → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))) = ((sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
169	168	adantr 480	. . . 4 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))) = ((sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
170	151, 49, 107	adddird 11169	. . . . . . 7 ⊢ (𝜑 → (((𝐾 + (1 / 2)) + 𝑁) · π) = (((𝐾 + (1 / 2)) · π) + (𝑁 · π)))
171	170	fveq2d 6846	. . . . . 6 ⊢ (𝜑 → (sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) = (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))))
172	171	oveq1d 7383	. . . . 5 ⊢ (𝜑 → ((sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
173	172	adantr 480	. . . 4 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
174	49	halfcld 12398	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑁 / 2) ∈ ℂ)
175	50, 174	mulcomd 11165	. . . . . . . . . . . . 13 ⊢ (𝜑 → (2 · (𝑁 / 2)) = ((𝑁 / 2) · 2))
176	53, 175	eqtr3d 2774	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑁 = ((𝑁 / 2) · 2))
177	176	oveq1d 7383	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑁 · π) = (((𝑁 / 2) · 2) · π))
178	174, 50, 107	mulassd 11167	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝑁 / 2) · 2) · π) = ((𝑁 / 2) · (2 · π)))
179	177, 178	eqtrd 2772	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁 · π) = ((𝑁 / 2) · (2 · π)))
180	179	oveq2d 7384	. . . . . . . . 9 ⊢ (𝜑 → (((𝐾 + (1 / 2)) · π) + (𝑁 · π)) = (((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π))))
181	180	fveq2d 6846	. . . . . . . 8 ⊢ (𝜑 → (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) = (sin‘(((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π)))))
182	181	adantr 480	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) = (sin‘(((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π)))))
183	9	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → 𝐾 ∈ ℂ)
184		1cnd 11139	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → 1 ∈ ℂ)
185	184	halfcld 12398	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (1 / 2) ∈ ℂ)
186	183, 185	addcld 11163	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝐾 + (1 / 2)) ∈ ℂ)
187	14	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → π ∈ ℂ)
188	186, 187	mulcld 11164	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((𝐾 + (1 / 2)) · π) ∈ ℂ)
189		sinper 26458	. . . . . . . 8 ⊢ ((((𝐾 + (1 / 2)) · π) ∈ ℂ ∧ (𝑁 / 2) ∈ ℤ) → (sin‘(((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π)))) = (sin‘((𝐾 + (1 / 2)) · π)))
190	188, 72, 189	syl2anc 585	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π)))) = (sin‘((𝐾 + (1 / 2)) · π)))
191	182, 190	eqtrd 2772	. . . . . 6 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) = (sin‘((𝐾 + (1 / 2)) · π)))
192	50, 107	mulcld 11164	. . . . . . . 8 ⊢ (𝜑 → (2 · π) ∈ ℂ)
193	151, 107	mulcld 11164	. . . . . . . . 9 ⊢ (𝜑 → ((𝐾 + (1 / 2)) · π) ∈ ℂ)
194	193	sincld 16067	. . . . . . . 8 ⊢ (𝜑 → (sin‘((𝐾 + (1 / 2)) · π)) ∈ ℂ)
195	192, 194	mulcomd 11165	. . . . . . 7 ⊢ (𝜑 → ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π))) = ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π)))
196	195	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π))) = ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π)))
197	191, 196	oveq12d 7386	. . . . 5 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = ((sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))))
198	94	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → π ≠ 0)
199	151, 107, 198	divcan4d 11935	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐾 + (1 / 2)) · π) / π) = (𝐾 + (1 / 2)))
200	8	zred 12608	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐾 ∈ ℝ)
201	69	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 2 ∈ ℝ⁺)
202	201	rpreccld 12971	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1 / 2) ∈ ℝ⁺)
203	200, 202	ltaddrpd 12994	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 < (𝐾 + (1 / 2)))
204		1red 11145	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 1 ∈ ℝ)
205	204	rehalfcld 12400	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1 / 2) ∈ ℝ)
206		halflt1 12370	. . . . . . . . . . . . . 14 ⊢ (1 / 2) < 1
207	206	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1 / 2) < 1)
208	205, 204, 200, 207	ltadd2dd 11304	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐾 + (1 / 2)) < (𝐾 + 1))
209		btwnnz 12580	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ ℤ ∧ 𝐾 < (𝐾 + (1 / 2)) ∧ (𝐾 + (1 / 2)) < (𝐾 + 1)) → ¬ (𝐾 + (1 / 2)) ∈ ℤ)
210	8, 203, 208, 209	syl3anc 1374	. . . . . . . . . . 11 ⊢ (𝜑 → ¬ (𝐾 + (1 / 2)) ∈ ℤ)
211	199, 210	eqneltrd 2857	. . . . . . . . . 10 ⊢ (𝜑 → ¬ (((𝐾 + (1 / 2)) · π) / π) ∈ ℤ)
212		sineq0 26501	. . . . . . . . . . 11 ⊢ (((𝐾 + (1 / 2)) · π) ∈ ℂ → ((sin‘((𝐾 + (1 / 2)) · π)) = 0 ↔ (((𝐾 + (1 / 2)) · π) / π) ∈ ℤ))
213	193, 212	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → ((sin‘((𝐾 + (1 / 2)) · π)) = 0 ↔ (((𝐾 + (1 / 2)) · π) / π) ∈ ℤ))
214	211, 213	mtbird 325	. . . . . . . . 9 ⊢ (𝜑 → ¬ (sin‘((𝐾 + (1 / 2)) · π)) = 0)
215	214	neqned 2940	. . . . . . . 8 ⊢ (𝜑 → (sin‘((𝐾 + (1 / 2)) · π)) ≠ 0)
216	50, 107, 52, 198	mulne0d 11801	. . . . . . . 8 ⊢ (𝜑 → (2 · π) ≠ 0)
217	194, 194, 192, 215, 216	divdiv1d 11960	. . . . . . 7 ⊢ (𝜑 → (((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = ((sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))))
218	194, 215	dividd 11927	. . . . . . . 8 ⊢ (𝜑 → ((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = 1)
219	218	oveq1d 7383	. . . . . . 7 ⊢ (𝜑 → (((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = (1 / (2 · π)))
220	217, 219	eqtr3d 2774	. . . . . 6 ⊢ (𝜑 → ((sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))) = (1 / (2 · π)))
221	220	adantr 480	. . . . 5 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))) = (1 / (2 · π)))
222	197, 221	eqtrd 2772	. . . 4 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (1 / (2 · π)))
223	169, 173, 222	3eqtrrd 2777	. . 3 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (1 / (2 · π)) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
224	99, 223	eqtrd 2772	. 2 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
225	46	adantr 480	. . 3 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π))
226	145	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → 𝑁 ∈ ℤ)
227		simpr 484	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ¬ (𝑁 mod 2) = 0)
228	227	neqned 2940	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (𝑁 mod 2) ≠ 0)
229		oddfl 45634	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℤ ∧ (𝑁 mod 2) ≠ 0) → 𝑁 = ((2 · (⌊‘(𝑁 / 2))) + 1))
230	226, 228, 229	syl2anc 585	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → 𝑁 = ((2 · (⌊‘(𝑁 / 2))) + 1))
231	230	oveq2d 7384	. . . . . . 7 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (1...𝑁) = (1...((2 · (⌊‘(𝑁 / 2))) + 1)))
232	231	sumeq1d 15635	. . . . . 6 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)))
233		fvoveq1 7391	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 = 1 → (⌊‘(𝑁 / 2)) = (⌊‘(1 / 2)))
234		halffl 45652	. . . . . . . . . . . . . . . . 17 ⊢ (⌊‘(1 / 2)) = 0
235	233, 234	eqtrdi 2788	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 = 1 → (⌊‘(𝑁 / 2)) = 0)
236	235	oveq2d 7384	. . . . . . . . . . . . . . 15 ⊢ (𝑁 = 1 → (2 · (⌊‘(𝑁 / 2))) = (2 · 0))
237		2t0e0 12321	. . . . . . . . . . . . . . 15 ⊢ (2 · 0) = 0
238	236, 237	eqtrdi 2788	. . . . . . . . . . . . . 14 ⊢ (𝑁 = 1 → (2 · (⌊‘(𝑁 / 2))) = 0)
239	238	oveq1d 7383	. . . . . . . . . . . . 13 ⊢ (𝑁 = 1 → ((2 · (⌊‘(𝑁 / 2))) + 1) = (0 + 1))
240	90	addlidi 11333	. . . . . . . . . . . . 13 ⊢ (0 + 1) = 1
241	239, 240	eqtrdi 2788	. . . . . . . . . . . 12 ⊢ (𝑁 = 1 → ((2 · (⌊‘(𝑁 / 2))) + 1) = 1)
242	241	oveq2d 7384	. . . . . . . . . . 11 ⊢ (𝑁 = 1 → (1...((2 · (⌊‘(𝑁 / 2))) + 1)) = (1...1))
243	242	sumeq1d 15635	. . . . . . . . . 10 ⊢ (𝑁 = 1 → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)))
244		1z 12533	. . . . . . . . . . . 12 ⊢ 1 ∈ ℤ
245		coscl 16064	. . . . . . . . . . . . 13 ⊢ (π ∈ ℂ → (cos‘π) ∈ ℂ)
246	14, 245	ax-mp 5	. . . . . . . . . . . 12 ⊢ (cos‘π) ∈ ℂ
247		oveq2 7376	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = 1 → (π · 𝑛) = (π · 1))
248	14	mulridi 11148	. . . . . . . . . . . . . . 15 ⊢ (π · 1) = π
249	247, 248	eqtrdi 2788	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 1 → (π · 𝑛) = π)
250	249	fveq2d 6846	. . . . . . . . . . . . 13 ⊢ (𝑛 = 1 → (cos‘(π · 𝑛)) = (cos‘π))
251	250	fsum1 15682	. . . . . . . . . . . 12 ⊢ ((1 ∈ ℤ ∧ (cos‘π) ∈ ℂ) → Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)) = (cos‘π))
252	244, 246, 251	mp2an 693	. . . . . . . . . . 11 ⊢ Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)) = (cos‘π)
253	252	a1i 11	. . . . . . . . . 10 ⊢ (𝑁 = 1 → Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)) = (cos‘π))
254		cospi 26449	. . . . . . . . . . 11 ⊢ (cos‘π) = -1
255	254	a1i 11	. . . . . . . . . 10 ⊢ (𝑁 = 1 → (cos‘π) = -1)
256	243, 253, 255	3eqtrd 2776	. . . . . . . . 9 ⊢ (𝑁 = 1 → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
257	256	adantl 481	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑁 = 1) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
258		2nn 12230	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℕ
259	258	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ∈ ℕ)
260	67	rehalfcld 12400	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑁 / 2) ∈ ℝ)
261	260	flcld 13730	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (⌊‘(𝑁 / 2)) ∈ ℤ)
262	261	adantr 480	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (⌊‘(𝑁 / 2)) ∈ ℤ)
263		2div2e1 12293	. . . . . . . . . . . . . . 15 ⊢ (2 / 2) = 1
264	73	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ∈ ℝ)
265	67	adantr 480	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → 𝑁 ∈ ℝ)
266	69	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ∈ ℝ⁺)
267		neqne 2941	. . . . . . . . . . . . . . . . 17 ⊢ (¬ 𝑁 = 1 → 𝑁 ≠ 1)
268		nnne1ge2 45647	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑁 ∈ ℕ ∧ 𝑁 ≠ 1) → 2 ≤ 𝑁)
269	48, 267, 268	syl2an 597	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ≤ 𝑁)
270	264, 265, 266, 269	lediv1dd 13019	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (2 / 2) ≤ (𝑁 / 2))
271	263, 270	eqbrtrrid 5136	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → 1 ≤ (𝑁 / 2))
272	260	adantr 480	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (𝑁 / 2) ∈ ℝ)
273		flge 13737	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 / 2) ∈ ℝ ∧ 1 ∈ ℤ) → (1 ≤ (𝑁 / 2) ↔ 1 ≤ (⌊‘(𝑁 / 2))))
274	272, 244, 273	sylancl 587	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (1 ≤ (𝑁 / 2) ↔ 1 ≤ (⌊‘(𝑁 / 2))))
275	271, 274	mpbid 232	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → 1 ≤ (⌊‘(𝑁 / 2)))
276		elnnz1 12529	. . . . . . . . . . . . 13 ⊢ ((⌊‘(𝑁 / 2)) ∈ ℕ ↔ ((⌊‘(𝑁 / 2)) ∈ ℤ ∧ 1 ≤ (⌊‘(𝑁 / 2))))
277	262, 275, 276	sylanbrc 584	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (⌊‘(𝑁 / 2)) ∈ ℕ)
278	259, 277	nnmulcld 12210	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (2 · (⌊‘(𝑁 / 2))) ∈ ℕ)
279		nnuz 12802	. . . . . . . . . . 11 ⊢ ℕ = (ℤ_≥‘1)
280	278, 279	eleqtrdi 2847	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (2 · (⌊‘(𝑁 / 2))) ∈ (ℤ_≥‘1))
281	14	a1i 11	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → π ∈ ℂ)
282		elfzelz 13452	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1)) → 𝑛 ∈ ℤ)
283	282	zcnd 12609	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1)) → 𝑛 ∈ ℂ)
284	283	adantl 481	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → 𝑛 ∈ ℂ)
285	281, 284	mulcld 11164	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → (π · 𝑛) ∈ ℂ)
286	285	coscld 16068	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → (cos‘(π · 𝑛)) ∈ ℂ)
287		oveq2 7376	. . . . . . . . . . 11 ⊢ (𝑛 = ((2 · (⌊‘(𝑁 / 2))) + 1) → (π · 𝑛) = (π · ((2 · (⌊‘(𝑁 / 2))) + 1)))
288	287	fveq2d 6846	. . . . . . . . . 10 ⊢ (𝑛 = ((2 · (⌊‘(𝑁 / 2))) + 1) → (cos‘(π · 𝑛)) = (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))))
289	280, 286, 288	fsump1 15691	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = (Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) + (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1)))))
290	14	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → π ∈ ℂ)
291		elfzelz 13452	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → 𝑛 ∈ ℤ)
292	291	zcnd 12609	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → 𝑛 ∈ ℂ)
293	290, 292	mulcomd 11165	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → (π · 𝑛) = (𝑛 · π))
294	293	fveq2d 6846	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → (cos‘(π · 𝑛)) = (cos‘(𝑛 · π)))
295	294	sumeq2i 15633	. . . . . . . . . . 11 ⊢ Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(𝑛 · π))
296		dirkertrigeqlem1 46450	. . . . . . . . . . . 12 ⊢ ((⌊‘(𝑁 / 2)) ∈ ℕ → Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(𝑛 · π)) = 0)
297	277, 296	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(𝑛 · π)) = 0)
298	295, 297	eqtrid 2784	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) = 0)
299	261	zcnd 12609	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (⌊‘(𝑁 / 2)) ∈ ℂ)
300	50, 299	mulcld 11164	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (2 · (⌊‘(𝑁 / 2))) ∈ ℂ)
301	107, 300, 109	adddid 11168	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (π · ((2 · (⌊‘(𝑁 / 2))) + 1)) = ((π · (2 · (⌊‘(𝑁 / 2)))) + (π · 1)))
302	107, 50, 299	mul13d 45636	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (π · (2 · (⌊‘(𝑁 / 2)))) = ((⌊‘(𝑁 / 2)) · (2 · π)))
303	248	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (π · 1) = π)
304	302, 303	oveq12d 7386	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((π · (2 · (⌊‘(𝑁 / 2)))) + (π · 1)) = (((⌊‘(𝑁 / 2)) · (2 · π)) + π))
305	299, 192	mulcld 11164	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((⌊‘(𝑁 / 2)) · (2 · π)) ∈ ℂ)
306	305, 107	addcomd 11347	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((⌊‘(𝑁 / 2)) · (2 · π)) + π) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
307	301, 304, 306	3eqtrd 2776	. . . . . . . . . . . . 13 ⊢ (𝜑 → (π · ((2 · (⌊‘(𝑁 / 2))) + 1)) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
308	307	fveq2d 6846	. . . . . . . . . . . 12 ⊢ (𝜑 → (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))) = (cos‘(π + ((⌊‘(𝑁 / 2)) · (2 · π)))))
309		cosper 26459	. . . . . . . . . . . . 13 ⊢ ((π ∈ ℂ ∧ (⌊‘(𝑁 / 2)) ∈ ℤ) → (cos‘(π + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (cos‘π))
310	107, 261, 309	syl2anc 585	. . . . . . . . . . . 12 ⊢ (𝜑 → (cos‘(π + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (cos‘π))
311	254	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → (cos‘π) = -1)
312	308, 310, 311	3eqtrd 2776	. . . . . . . . . . 11 ⊢ (𝜑 → (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))) = -1)
313	312	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))) = -1)
314	298, 313	oveq12d 7386	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) + (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1)))) = (0 + -1))
315		neg1cn 12142	. . . . . . . . . . 11 ⊢ -1 ∈ ℂ
316	315	addlidi 11333	. . . . . . . . . 10 ⊢ (0 + -1) = -1
317	316	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (0 + -1) = -1)
318	289, 314, 317	3eqtrd 2776	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
319	257, 318	pm2.61dan 813	. . . . . . 7 ⊢ (𝜑 → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
320	319	adantr 480	. . . . . 6 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
321	232, 320	eqtrd 2772	. . . . 5 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = -1)
322	321	oveq2d 7384	. . . 4 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) = ((1 / 2) + -1))
323	322	oveq1d 7383	. . 3 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π) = (((1 / 2) + -1) / π))
324	168, 172	eqtrd 2772	. . . . 5 ⊢ (𝜑 → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))) = ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
325	324	adantr 480	. . . 4 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))) = ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
326	230	oveq1d 7383	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (𝑁 · π) = (((2 · (⌊‘(𝑁 / 2))) + 1) · π))
327	300, 109, 107	adddird 11169	. . . . . . . . . . 11 ⊢ (𝜑 → (((2 · (⌊‘(𝑁 / 2))) + 1) · π) = (((2 · (⌊‘(𝑁 / 2))) · π) + (1 · π)))
328	107	mullidd 11162	. . . . . . . . . . . 12 ⊢ (𝜑 → (1 · π) = π)
329	328	oveq2d 7384	. . . . . . . . . . 11 ⊢ (𝜑 → (((2 · (⌊‘(𝑁 / 2))) · π) + (1 · π)) = (((2 · (⌊‘(𝑁 / 2))) · π) + π))
330	300, 107	mulcld 11164	. . . . . . . . . . . 12 ⊢ (𝜑 → ((2 · (⌊‘(𝑁 / 2))) · π) ∈ ℂ)
331	330, 107	addcomd 11347	. . . . . . . . . . 11 ⊢ (𝜑 → (((2 · (⌊‘(𝑁 / 2))) · π) + π) = (π + ((2 · (⌊‘(𝑁 / 2))) · π)))
332	327, 329, 331	3eqtrd 2776	. . . . . . . . . 10 ⊢ (𝜑 → (((2 · (⌊‘(𝑁 / 2))) + 1) · π) = (π + ((2 · (⌊‘(𝑁 / 2))) · π)))
333	332	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((2 · (⌊‘(𝑁 / 2))) + 1) · π) = (π + ((2 · (⌊‘(𝑁 / 2))) · π)))
334	50, 299	mulcomd 11165	. . . . . . . . . . . . 13 ⊢ (𝜑 → (2 · (⌊‘(𝑁 / 2))) = ((⌊‘(𝑁 / 2)) · 2))
335	334	oveq1d 7383	. . . . . . . . . . . 12 ⊢ (𝜑 → ((2 · (⌊‘(𝑁 / 2))) · π) = (((⌊‘(𝑁 / 2)) · 2) · π))
336	299, 50, 107	mulassd 11167	. . . . . . . . . . . 12 ⊢ (𝜑 → (((⌊‘(𝑁 / 2)) · 2) · π) = ((⌊‘(𝑁 / 2)) · (2 · π)))
337	335, 336	eqtrd 2772	. . . . . . . . . . 11 ⊢ (𝜑 → ((2 · (⌊‘(𝑁 / 2))) · π) = ((⌊‘(𝑁 / 2)) · (2 · π)))
338	337	oveq2d 7384	. . . . . . . . . 10 ⊢ (𝜑 → (π + ((2 · (⌊‘(𝑁 / 2))) · π)) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
339	338	adantr 480	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (π + ((2 · (⌊‘(𝑁 / 2))) · π)) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
340	326, 333, 339	3eqtrd 2776	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (𝑁 · π) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
341	340	oveq2d 7384	. . . . . . 7 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((𝐾 + (1 / 2)) · π) + (𝑁 · π)) = (((𝐾 + (1 / 2)) · π) + (π + ((⌊‘(𝑁 / 2)) · (2 · π)))))
342	193	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((𝐾 + (1 / 2)) · π) ∈ ℂ)
343	14	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → π ∈ ℂ)
344	305	adantr 480	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((⌊‘(𝑁 / 2)) · (2 · π)) ∈ ℂ)
345	342, 343, 344	addassd 11166	. . . . . . 7 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π))) = (((𝐾 + (1 / 2)) · π) + (π + ((⌊‘(𝑁 / 2)) · (2 · π)))))
346	341, 345	eqtr4d 2775	. . . . . 6 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((𝐾 + (1 / 2)) · π) + (𝑁 · π)) = ((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π))))
347	346	fveq2d 6846	. . . . 5 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) = (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))))
348	347	oveq1d 7383	. . . 4 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
349	193, 107	addcld 11163	. . . . . . . . 9 ⊢ (𝜑 → (((𝐾 + (1 / 2)) · π) + π) ∈ ℂ)
350		sinper 26458	. . . . . . . . 9 ⊢ (((((𝐾 + (1 / 2)) · π) + π) ∈ ℂ ∧ (⌊‘(𝑁 / 2)) ∈ ℤ) → (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (sin‘(((𝐾 + (1 / 2)) · π) + π)))
351	349, 261, 350	syl2anc 585	. . . . . . . 8 ⊢ (𝜑 → (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (sin‘(((𝐾 + (1 / 2)) · π) + π)))
352		sinppi 26466	. . . . . . . . 9 ⊢ (((𝐾 + (1 / 2)) · π) ∈ ℂ → (sin‘(((𝐾 + (1 / 2)) · π) + π)) = -(sin‘((𝐾 + (1 / 2)) · π)))
353	193, 352	syl 17	. . . . . . . 8 ⊢ (𝜑 → (sin‘(((𝐾 + (1 / 2)) · π) + π)) = -(sin‘((𝐾 + (1 / 2)) · π)))
354	351, 353	eqtrd 2772	. . . . . . 7 ⊢ (𝜑 → (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) = -(sin‘((𝐾 + (1 / 2)) · π)))
355	354	oveq1d 7383	. . . . . 6 ⊢ (𝜑 → ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (-(sin‘((𝐾 + (1 / 2)) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
356	195	oveq2d 7384	. . . . . 6 ⊢ (𝜑 → (-(sin‘((𝐾 + (1 / 2)) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (-(sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))))
357	194, 194, 215	divnegd 11942	. . . . . . . . 9 ⊢ (𝜑 → -((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = (-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))))
358	218	negeqd 11386	. . . . . . . . 9 ⊢ (𝜑 → -((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = -1)
359	357, 358	eqtr3d 2774	. . . . . . . 8 ⊢ (𝜑 → (-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = -1)
360	359	oveq1d 7383	. . . . . . 7 ⊢ (𝜑 → ((-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = (-1 / (2 · π)))
361	194	negcld 11491	. . . . . . . 8 ⊢ (𝜑 → -(sin‘((𝐾 + (1 / 2)) · π)) ∈ ℂ)
362	361, 194, 192, 215, 216	divdiv1d 11960	. . . . . . 7 ⊢ (𝜑 → ((-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = (-(sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))))
363	86, 90	negsubi 11471	. . . . . . . . . . 11 ⊢ ((1 / 2) + -1) = ((1 / 2) − 1)
364	90, 86	negsubdi2i 11479	. . . . . . . . . . 11 ⊢ -(1 − (1 / 2)) = ((1 / 2) − 1)
365		1mhlfehlf 12372	. . . . . . . . . . . . 13 ⊢ (1 − (1 / 2)) = (1 / 2)
366	365	negeqi 11385	. . . . . . . . . . . 12 ⊢ -(1 − (1 / 2)) = -(1 / 2)
367		divneg 11845	. . . . . . . . . . . . 13 ⊢ ((1 ∈ ℂ ∧ 2 ∈ ℂ ∧ 2 ≠ 0) → -(1 / 2) = (-1 / 2))
368	90, 118, 51, 367	mp3an 1464	. . . . . . . . . . . 12 ⊢ -(1 / 2) = (-1 / 2)
369	366, 368	eqtri 2760	. . . . . . . . . . 11 ⊢ -(1 − (1 / 2)) = (-1 / 2)
370	363, 364, 369	3eqtr2i 2766	. . . . . . . . . 10 ⊢ ((1 / 2) + -1) = (-1 / 2)
371	370	oveq1i 7378	. . . . . . . . 9 ⊢ (((1 / 2) + -1) / π) = ((-1 / 2) / π)
372		divdiv1 11864	. . . . . . . . . 10 ⊢ ((-1 ∈ ℂ ∧ (2 ∈ ℂ ∧ 2 ≠ 0) ∧ (π ∈ ℂ ∧ π ≠ 0)) → ((-1 / 2) / π) = (-1 / (2 · π)))
373	315, 91, 95, 372	mp3an 1464	. . . . . . . . 9 ⊢ ((-1 / 2) / π) = (-1 / (2 · π))
374	371, 373	eqtr2i 2761	. . . . . . . 8 ⊢ (-1 / (2 · π)) = (((1 / 2) + -1) / π)
375	374	a1i 11	. . . . . . 7 ⊢ (𝜑 → (-1 / (2 · π)) = (((1 / 2) + -1) / π))
376	360, 362, 375	3eqtr3d 2780	. . . . . 6 ⊢ (𝜑 → (-(sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))) = (((1 / 2) + -1) / π))
377	355, 356, 376	3eqtrd 2776	. . . . 5 ⊢ (𝜑 → ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (((1 / 2) + -1) / π))
378	377	adantr 480	. . . 4 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (((1 / 2) + -1) / π))
379	325, 348, 378	3eqtrrd 2777	. . 3 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + -1) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
380	225, 323, 379	3eqtrd 2776	. 2 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
381	224, 380	pm2.61dan 813	1 ⊢ (𝜑 → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))

Colors of variables: wff setvar class

Syntax hints: ¬ wn 3 → wi 4 ↔ wb 206 ∧ wa 395 = wceq 1542 ∈ wcel 2114 ≠ wne 2933 ∀wral 3052 class class class wbr 5100 ‘cfv 6500 (class class class)co 7368 ℂcc 11036 ℝcr 11037 0cc0 11038 1c1 11039 + caddc 11041 · cmul 11043 < clt 11178 ≤ cle 11179 − cmin 11376 -cneg 11377 / cdiv 11806 ℕcn 12157 2c2 12212 ℤcz 12500 ℤ_≥cuz 12763 ℝ⁺crp 12917 ...cfz 13435 ⌊cfl 13722 mod cmo 13801 Σcsu 15621 sincsin 15998 cosccos 15999 πcpi 16001

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 1912 ax-6 1969 ax-7 2010 ax-8 2116 ax-9 2124 ax-10 2147 ax-11 2163 ax-12 2185 ax-ext 2709 ax-rep 5226 ax-sep 5243 ax-nul 5253 ax-pow 5312 ax-pr 5379 ax-un 7690 ax-inf2 9562 ax-cnex 11094 ax-resscn 11095 ax-1cn 11096 ax-icn 11097 ax-addcl 11098 ax-addrcl 11099 ax-mulcl 11100 ax-mulrcl 11101 ax-mulcom 11102 ax-addass 11103 ax-mulass 11104 ax-distr 11105 ax-i2m1 11106 ax-1ne0 11107 ax-1rid 11108 ax-rnegex 11109 ax-rrecex 11110 ax-cnre 11111 ax-pre-lttri 11112 ax-pre-lttrn 11113 ax-pre-ltadd 11114 ax-pre-mulgt0 11115 ax-pre-sup 11116 ax-addf 11117

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3or 1088 df-3an 1089 df-tru 1545 df-fal 1555 df-ex 1782 df-nf 1786 df-sb 2069 df-mo 2540 df-eu 2570 df-clab 2716 df-cleq 2729 df-clel 2812 df-nfc 2886 df-ne 2934 df-nel 3038 df-ral 3053 df-rex 3063 df-rmo 3352 df-reu 3353 df-rab 3402 df-v 3444 df-sbc 3743 df-csb 3852 df-dif 3906 df-un 3908 df-in 3910 df-ss 3920 df-pss 3923 df-nul 4288 df-if 4482 df-pw 4558 df-sn 4583 df-pr 4585 df-tp 4587 df-op 4589 df-uni 4866 df-int 4905 df-iun 4950 df-iin 4951 df-br 5101 df-opab 5163 df-mpt 5182 df-tr 5208 df-id 5527 df-eprel 5532 df-po 5540 df-so 5541 df-fr 5585 df-se 5586 df-we 5587 df-xp 5638 df-rel 5639 df-cnv 5640 df-co 5641 df-dm 5642 df-rn 5643 df-res 5644 df-ima 5645 df-pred 6267 df-ord 6328 df-on 6329 df-lim 6330 df-suc 6331 df-iota 6456 df-fun 6502 df-fn 6503 df-f 6504 df-f1 6505 df-fo 6506 df-f1o 6507 df-fv 6508 df-isom 6509 df-riota 7325 df-ov 7371 df-oprab 7372 df-mpo 7373 df-of 7632 df-om 7819 df-1st 7943 df-2nd 7944 df-supp 8113 df-frecs 8233 df-wrecs 8264 df-recs 8313 df-rdg 8351 df-1o 8407 df-2o 8408 df-er 8645 df-map 8777 df-pm 8778 df-ixp 8848 df-en 8896 df-dom 8897 df-sdom 8898 df-fin 8899 df-fsupp 9277 df-fi 9326 df-sup 9357 df-inf 9358 df-oi 9427 df-card 9863 df-pnf 11180 df-mnf 11181 df-xr 11182 df-ltxr 11183 df-le 11184 df-sub 11378 df-neg 11379 df-div 11807 df-nn 12158 df-2 12220 df-3 12221 df-4 12222 df-5 12223 df-6 12224 df-7 12225 df-8 12226 df-9 12227 df-n0 12414 df-z 12501 df-dec 12620 df-uz 12764 df-q 12874 df-rp 12918 df-xneg 13038 df-xadd 13039 df-xmul 13040 df-ioo 13277 df-ioc 13278 df-ico 13279 df-icc 13280 df-fz 13436 df-fzo 13583 df-fl 13724 df-mod 13802 df-seq 13937 df-exp 13997 df-fac 14209 df-bc 14238 df-hash 14266 df-shft 15002 df-cj 15034 df-re 15035 df-im 15036 df-sqrt 15170 df-abs 15171 df-limsup 15406 df-clim 15423 df-rlim 15424 df-sum 15622 df-ef 16002 df-sin 16004 df-cos 16005 df-pi 16007 df-struct 17086 df-sets 17103 df-slot 17121 df-ndx 17133 df-base 17149 df-ress 17170 df-plusg 17202 df-mulr 17203 df-starv 17204 df-sca 17205 df-vsca 17206 df-ip 17207 df-tset 17208 df-ple 17209 df-ds 17211 df-unif 17212 df-hom 17213 df-cco 17214 df-rest 17354 df-topn 17355 df-0g 17373 df-gsum 17374 df-topgen 17375 df-pt 17376 df-prds 17379 df-xrs 17435 df-qtop 17440 df-imas 17441 df-xps 17443 df-mre 17517 df-mrc 17518 df-acs 17520 df-mgm 18577 df-sgrp 18656 df-mnd 18672 df-submnd 18721 df-mulg 19010 df-cntz 19258 df-cmn 19723 df-psmet 21313 df-xmet 21314 df-met 21315 df-bl 21316 df-mopn 21317 df-fbas 21318 df-fg 21319 df-cnfld 21322 df-top 22850 df-topon 22867 df-topsp 22889 df-bases 22902 df-cld 22975 df-ntr 22976 df-cls 22977 df-nei 23054 df-lp 23092 df-perf 23093 df-cn 23183 df-cnp 23184 df-haus 23271 df-tx 23518 df-hmeo 23711 df-fil 23802 df-fm 23894 df-flim 23895 df-flf 23896 df-xms 24276 df-ms 24277 df-tms 24278 df-cncf 24839 df-limc 25835 df-dv 25836

This theorem is referenced by: dirkertrigeq 46453

W3C validator