Theorem dirkertrigeqlem3 41851

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 6998	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (𝑛 · 𝐴) = (𝑛 · (((2 · 𝐾) + 1) · π)))
4		elfzelz 12730	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℤ)
5	4	zcnd 11907	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℂ)
6	5	adantl 474	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → 𝑛 ∈ ℂ)
7		2cnd 11524	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → 2 ∈ ℂ)
8		dirkertrigeqlem3.k	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → 𝐾 ∈ ℤ)
9	8	zcnd 11907	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → 𝐾 ∈ ℂ)
10	9	adantr 473	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → 𝐾 ∈ ℂ)
11	7, 10	mulcld 10466	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (2 · 𝐾) ∈ ℂ)
12		1cnd 10440	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → 1 ∈ ℂ)
13	11, 12	addcld 10465	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) + 1) ∈ ℂ)
14		picn 24763	. . . . . . . . . . . . . 14 ⊢ π ∈ ℂ
15	14	a1i 11	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → π ∈ ℂ)
16	13, 15	mulcld 10466	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) + 1) · π) ∈ ℂ)
17	6, 16	mulcomd 10467	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (𝑛 · (((2 · 𝐾) + 1) · π)) = ((((2 · 𝐾) + 1) · π) · 𝑛))
18	13, 15, 6	mulassd 10469	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → ((((2 · 𝐾) + 1) · π) · 𝑛) = (((2 · 𝐾) + 1) · (π · 𝑛)))
19	15, 6	mulcld 10466	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (π · 𝑛) ∈ ℂ)
20	11, 12, 19	adddird 10471	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) + 1) · (π · 𝑛)) = (((2 · 𝐾) · (π · 𝑛)) + (1 · (π · 𝑛))))
21	11, 19	mulcld 10466	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) · (π · 𝑛)) ∈ ℂ)
22	12, 19	mulcld 10466	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (1 · (π · 𝑛)) ∈ ℂ)
23	21, 22	addcomd 10648	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) · (π · 𝑛)) + (1 · (π · 𝑛))) = ((1 · (π · 𝑛)) + ((2 · 𝐾) · (π · 𝑛))))
24	14	a1i 11	. . . . . . . . . . . . . . . . 17 ⊢ (𝑛 ∈ (1...𝑁) → π ∈ ℂ)
25	24, 5	mulcld 10466	. . . . . . . . . . . . . . . 16 ⊢ (𝑛 ∈ (1...𝑁) → (π · 𝑛) ∈ ℂ)
26	25	mulid2d 10464	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ (1...𝑁) → (1 · (π · 𝑛)) = (π · 𝑛))
27	26	adantl 474	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (1 · (π · 𝑛)) = (π · 𝑛))
28	7, 10, 15, 6	mul4d 10658	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) · (π · 𝑛)) = ((2 · π) · (𝐾 · 𝑛)))
29	7, 15	mulcld 10466	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (2 · π) ∈ ℂ)
30	10, 6	mulcld 10466	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (𝐾 · 𝑛) ∈ ℂ)
31	29, 30	mulcomd 10467	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → ((2 · π) · (𝐾 · 𝑛)) = ((𝐾 · 𝑛) · (2 · π)))
32	28, 31	eqtrd 2816	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) · (π · 𝑛)) = ((𝐾 · 𝑛) · (2 · π)))
33	27, 32	oveq12d 7000	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → ((1 · (π · 𝑛)) + ((2 · 𝐾) · (π · 𝑛))) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
34	23, 33	eqtrd 2816	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) · (π · 𝑛)) + (1 · (π · 𝑛))) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
35	18, 20, 34	3eqtrd 2820	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → ((((2 · 𝐾) + 1) · π) · 𝑛) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
36	3, 17, 35	3eqtrd 2820	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (𝑛 · 𝐴) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
37	36	fveq2d 6508	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (cos‘(𝑛 · 𝐴)) = (cos‘((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π)))))
38	8	adantr 473	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → 𝐾 ∈ ℤ)
39	4	adantl 474	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → 𝑛 ∈ ℤ)
40	38, 39	zmulcld 11912	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (𝐾 · 𝑛) ∈ ℤ)
41		cosper 24786	. . . . . . . . . 10 ⊢ (((π · 𝑛) ∈ ℂ ∧ (𝐾 · 𝑛) ∈ ℤ) → (cos‘((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π)))) = (cos‘(π · 𝑛)))
42	19, 40, 41	syl2anc 576	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (cos‘((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π)))) = (cos‘(π · 𝑛)))
43	37, 42	eqtrd 2816	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑛 ∈ (1...𝑁)) → (cos‘(𝑛 · 𝐴)) = (cos‘(π · 𝑛)))
44	43	sumeq2dv 14926	. . . . . . 7 ⊢ (𝜑 → Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴)) = Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)))
45	44	oveq2d 6998	. . . . . 6 ⊢ (𝜑 → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) = ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))))
46	45	oveq1d 6997	. . . . 5 ⊢ (𝜑 → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π))
47	46	adantr 473	. . . 4 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π))
48		dirkertrigeqlem3.n	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 𝑁 ∈ ℕ)
49	48	nncnd 11463	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑁 ∈ ℂ)
50		2cnd 11524	. . . . . . . . . . . . 13 ⊢ (𝜑 → 2 ∈ ℂ)
51		2ne0 11557	. . . . . . . . . . . . . 14 ⊢ 2 ≠ 0
52	51	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → 2 ≠ 0)
53	49, 50, 52	divcan2d 11225	. . . . . . . . . . . 12 ⊢ (𝜑 → (2 · (𝑁 / 2)) = 𝑁)
54	53	eqcomd 2786	. . . . . . . . . . 11 ⊢ (𝜑 → 𝑁 = (2 · (𝑁 / 2)))
55	54	oveq2d 6998	. . . . . . . . . 10 ⊢ (𝜑 → (1...𝑁) = (1...(2 · (𝑁 / 2))))
56	55	sumeq1d 14924	. . . . . . . . 9 ⊢ (𝜑 → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)))
57	56	adantr 473	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)))
58	14	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ (1...(2 · (𝑁 / 2))) → π ∈ ℂ)
59		elfzelz 12730	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ (1...(2 · (𝑁 / 2))) → 𝑛 ∈ ℤ)
60	59	zcnd 11907	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ (1...(2 · (𝑁 / 2))) → 𝑛 ∈ ℂ)
61	58, 60	mulcomd 10467	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ (1...(2 · (𝑁 / 2))) → (π · 𝑛) = (𝑛 · π))
62	61	fveq2d 6508	. . . . . . . . . . 11 ⊢ (𝑛 ∈ (1...(2 · (𝑁 / 2))) → (cos‘(π · 𝑛)) = (cos‘(𝑛 · π)))
63	62	rgen 3100	. . . . . . . . . 10 ⊢ ∀𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)) = (cos‘(𝑛 · π))
64	63	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ∀𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)) = (cos‘(𝑛 · π)))
65	64	sumeq2d 14925	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(𝑛 · π)))
66		simpr 477	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝑁 mod 2) = 0)
67	48	nnred 11462	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝑁 ∈ ℝ)
68	67	adantr 473	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → 𝑁 ∈ ℝ)
69		2rp 12215	. . . . . . . . . . . 12 ⊢ 2 ∈ ℝ+
70		mod0 13065	. . . . . . . . . . . 12 ⊢ ((𝑁 ∈ ℝ ∧ 2 ∈ ℝ+) → ((𝑁 mod 2) = 0 ↔ (𝑁 / 2) ∈ ℤ))
71	68, 69, 70	sylancl 578	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((𝑁 mod 2) = 0 ↔ (𝑁 / 2) ∈ ℤ))
72	66, 71	mpbid 224	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝑁 / 2) ∈ ℤ)
73		2re 11520	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℝ
74	73	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 2 ∈ ℝ)
75	48	nngt0d 11495	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 < 𝑁)
76		2pos 11556	. . . . . . . . . . . . 13 ⊢ 0 < 2
77	76	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → 0 < 2)
78	67, 74, 75, 77	divgt0d 11382	. . . . . . . . . . 11 ⊢ (𝜑 → 0 < (𝑁 / 2))
79	78	adantr 473	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → 0 < (𝑁 / 2))
80		elnnz 11809	. . . . . . . . . 10 ⊢ ((𝑁 / 2) ∈ ℕ ↔ ((𝑁 / 2) ∈ ℤ ∧ 0 < (𝑁 / 2)))
81	72, 79, 80	sylanbrc 575	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝑁 / 2) ∈ ℕ)
82		dirkertrigeqlem1 41849	. . . . . . . . 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 2820	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = 0)
85	84	oveq2d 6998	. . . . . 6 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) = ((1 / 2) + 0))
86		halfcn 11668	. . . . . . 7 ⊢ (1 / 2) ∈ ℂ
87	86	addid1i 10633	. . . . . 6 ⊢ ((1 / 2) + 0) = (1 / 2)
88	85, 87	syl6eq 2832	. . . . 5 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) = (1 / 2))
89	88	oveq1d 6997	. . . 4 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π) = ((1 / 2) / π))
90		ax-1cn 10399	. . . . . 6 ⊢ 1 ∈ ℂ
91		2cnne0 11663	. . . . . 6 ⊢ (2 ∈ ℂ ∧ 2 ≠ 0)
92		pire 24762	. . . . . . . 8 ⊢ π ∈ ℝ
93		pipos 24764	. . . . . . . 8 ⊢ 0 < π
94	92, 93	gt0ne0ii 10983	. . . . . . 7 ⊢ π ≠ 0
95	14, 94	pm3.2i 463	. . . . . 6 ⊢ (π ∈ ℂ ∧ π ≠ 0)
96		divdiv1 11158	. . . . . 6 ⊢ ((1 ∈ ℂ ∧ (2 ∈ ℂ ∧ 2 ≠ 0) ∧ (π ∈ ℂ ∧ π ≠ 0)) → ((1 / 2) / π) = (1 / (2 · π)))
97	90, 91, 95, 96	mp3an 1441	. . . . 5 ⊢ ((1 / 2) / π) = (1 / (2 · π))
98	97	a1i 11	. . . 4 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((1 / 2) / π) = (1 / (2 · π)))
99	47, 89, 98	3eqtrd 2820	. . 3 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = (1 / (2 · π)))
100	1	oveq2i 6993	. . . . . . . . . 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 10465	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁 + (1 / 2)) ∈ ℂ)
104	50, 9	mulcld 10466	. . . . . . . . . . 11 ⊢ (𝜑 → (2 · 𝐾) ∈ ℂ)
105		peano2cn 10618	. . . . . . . . . . 11 ⊢ ((2 · 𝐾) ∈ ℂ → ((2 · 𝐾) + 1) ∈ ℂ)
106	104, 105	syl 17	. . . . . . . . . 10 ⊢ (𝜑 → ((2 · 𝐾) + 1) ∈ ℂ)
107	14	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → π ∈ ℂ)
108	103, 106, 107	mulassd 10469	. . . . . . . . 9 ⊢ (𝜑 → (((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) · π) = ((𝑁 + (1 / 2)) · (((2 · 𝐾) + 1) · π)))
109		1cnd 10440	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 1 ∈ ℂ)
110	49, 102, 104, 109	muladdd 10905	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) = (((𝑁 · (2 · 𝐾)) + (1 · (1 / 2))) + ((𝑁 · 1) + ((2 · 𝐾) · (1 / 2)))))
111	49, 50, 9	mul12d 10655	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑁 · (2 · 𝐾)) = (2 · (𝑁 · 𝐾)))
112	102	mulid2d 10464	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (1 · (1 / 2)) = (1 / 2))
113	111, 112	oveq12d 7000	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑁 · (2 · 𝐾)) + (1 · (1 / 2))) = ((2 · (𝑁 · 𝐾)) + (1 / 2)))
114	49	mulid1d 10463	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑁 · 1) = 𝑁)
115	50, 9	mulcomd 10467	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (2 · 𝐾) = (𝐾 · 2))
116	115	oveq1d 6997	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((2 · 𝐾) · (1 / 2)) = ((𝐾 · 2) · (1 / 2)))
117	9, 50, 102	mulassd 10469	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → ((𝐾 · 2) · (1 / 2)) = (𝐾 · (2 · (1 / 2))))
118		2cn 11521	. . . . . . . . . . . . . . . . . . 19 ⊢ 2 ∈ ℂ
119	118, 51	recidi 11178	. . . . . . . . . . . . . . . . . 18 ⊢ (2 · (1 / 2)) = 1
120	119	oveq2i 6993	. . . . . . . . . . . . . . . . 17 ⊢ (𝐾 · (2 · (1 / 2))) = (𝐾 · 1)
121	9	mulid1d 10463	. . . . . . . . . . . . . . . . 17 ⊢ (𝜑 → (𝐾 · 1) = 𝐾)
122	120, 121	syl5eq 2828	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (𝐾 · (2 · (1 / 2))) = 𝐾)
123	116, 117, 122	3eqtrd 2820	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((2 · 𝐾) · (1 / 2)) = 𝐾)
124	114, 123	oveq12d 7000	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((𝑁 · 1) + ((2 · 𝐾) · (1 / 2))) = (𝑁 + 𝐾))
125	113, 124	oveq12d 7000	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((𝑁 · (2 · 𝐾)) + (1 · (1 / 2))) + ((𝑁 · 1) + ((2 · 𝐾) · (1 / 2)))) = (((2 · (𝑁 · 𝐾)) + (1 / 2)) + (𝑁 + 𝐾)))
126	49, 9	mulcld 10466	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑁 · 𝐾) ∈ ℂ)
127	50, 126	mulcld 10466	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (2 · (𝑁 · 𝐾)) ∈ ℂ)
128	49, 9	addcld 10465	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑁 + 𝐾) ∈ ℂ)
129	127, 102, 128	addassd 10468	. . . . . . . . . . . . 13 ⊢ (𝜑 → (((2 · (𝑁 · 𝐾)) + (1 / 2)) + (𝑁 + 𝐾)) = ((2 · (𝑁 · 𝐾)) + ((1 / 2) + (𝑁 + 𝐾))))
130	110, 125, 129	3eqtrd 2820	. . . . . . . . . . . 12 ⊢ (𝜑 → ((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) = ((2 · (𝑁 · 𝐾)) + ((1 / 2) + (𝑁 + 𝐾))))
131	102, 128	addcld 10465	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((1 / 2) + (𝑁 + 𝐾)) ∈ ℂ)
132	127, 131	addcomd 10648	. . . . . . . . . . . 12 ⊢ (𝜑 → ((2 · (𝑁 · 𝐾)) + ((1 / 2) + (𝑁 + 𝐾))) = (((1 / 2) + (𝑁 + 𝐾)) + (2 · (𝑁 · 𝐾))))
133	50, 126	mulcomd 10467	. . . . . . . . . . . . 13 ⊢ (𝜑 → (2 · (𝑁 · 𝐾)) = ((𝑁 · 𝐾) · 2))
134	133	oveq2d 6998	. . . . . . . . . . . 12 ⊢ (𝜑 → (((1 / 2) + (𝑁 + 𝐾)) + (2 · (𝑁 · 𝐾))) = (((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)))
135	130, 132, 134	3eqtrd 2820	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) = (((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)))
136	135	oveq1d 6997	. . . . . . . . . 10 ⊢ (𝜑 → (((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) · π) = ((((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)) · π))
137	126, 50	mulcld 10466	. . . . . . . . . . 11 ⊢ (𝜑 → ((𝑁 · 𝐾) · 2) ∈ ℂ)
138	131, 137, 107	adddird 10471	. . . . . . . . . 10 ⊢ (𝜑 → ((((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)) · π) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + (((𝑁 · 𝐾) · 2) · π)))
139	126, 50, 107	mulassd 10469	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝑁 · 𝐾) · 2) · π) = ((𝑁 · 𝐾) · (2 · π)))
140	139	oveq2d 6998	. . . . . . . . . 10 ⊢ (𝜑 → ((((1 / 2) + (𝑁 + 𝐾)) · π) + (((𝑁 · 𝐾) · 2) · π)) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π))))
141	136, 138, 140	3eqtrd 2820	. . . . . . . . 9 ⊢ (𝜑 → (((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) · π) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π))))
142	101, 108, 141	3eqtr2d 2822	. . . . . . . 8 ⊢ (𝜑 → ((𝑁 + (1 / 2)) · 𝐴) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π))))
143	142	fveq2d 6508	. . . . . . 7 ⊢ (𝜑 → (sin‘((𝑁 + (1 / 2)) · 𝐴)) = (sin‘((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π)))))
144	131, 107	mulcld 10466	. . . . . . . 8 ⊢ (𝜑 → (((1 / 2) + (𝑁 + 𝐾)) · π) ∈ ℂ)
145	48	nnzd 11905	. . . . . . . . 9 ⊢ (𝜑 → 𝑁 ∈ ℤ)
146	145, 8	zmulcld 11912	. . . . . . . 8 ⊢ (𝜑 → (𝑁 · 𝐾) ∈ ℤ)
147		sinper 24785	. . . . . . . 8 ⊢ (((((1 / 2) + (𝑁 + 𝐾)) · π) ∈ ℂ ∧ (𝑁 · 𝐾) ∈ ℤ) → (sin‘((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π)))) = (sin‘(((1 / 2) + (𝑁 + 𝐾)) · π)))
148	144, 146, 147	syl2anc 576	. . . . . . 7 ⊢ (𝜑 → (sin‘((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π)))) = (sin‘(((1 / 2) + (𝑁 + 𝐾)) · π)))
149	102, 128	addcomd 10648	. . . . . . . . . 10 ⊢ (𝜑 → ((1 / 2) + (𝑁 + 𝐾)) = ((𝑁 + 𝐾) + (1 / 2)))
150	49, 9, 102	addassd 10468	. . . . . . . . . 10 ⊢ (𝜑 → ((𝑁 + 𝐾) + (1 / 2)) = (𝑁 + (𝐾 + (1 / 2))))
151	9, 102	addcld 10465	. . . . . . . . . . 11 ⊢ (𝜑 → (𝐾 + (1 / 2)) ∈ ℂ)
152	49, 151	addcomd 10648	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁 + (𝐾 + (1 / 2))) = ((𝐾 + (1 / 2)) + 𝑁))
153	149, 150, 152	3eqtrd 2820	. . . . . . . . 9 ⊢ (𝜑 → ((1 / 2) + (𝑁 + 𝐾)) = ((𝐾 + (1 / 2)) + 𝑁))
154	153	oveq1d 6997	. . . . . . . 8 ⊢ (𝜑 → (((1 / 2) + (𝑁 + 𝐾)) · π) = (((𝐾 + (1 / 2)) + 𝑁) · π))
155	154	fveq2d 6508	. . . . . . 7 ⊢ (𝜑 → (sin‘(((1 / 2) + (𝑁 + 𝐾)) · π)) = (sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)))
156	143, 148, 155	3eqtrd 2820	. . . . . 6 ⊢ (𝜑 → (sin‘((𝑁 + (1 / 2)) · 𝐴)) = (sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)))
157	1	a1i 11	. . . . . . . . . 10 ⊢ (𝜑 → 𝐴 = (((2 · 𝐾) + 1) · π))
158	157	oveq1d 6997	. . . . . . . . 9 ⊢ (𝜑 → (𝐴 / 2) = ((((2 · 𝐾) + 1) · π) / 2))
159	106, 107, 50, 52	div23d 11260	. . . . . . . . 9 ⊢ (𝜑 → ((((2 · 𝐾) + 1) · π) / 2) = ((((2 · 𝐾) + 1) / 2) · π))
160	104, 109, 50, 52	divdird 11261	. . . . . . . . . . 11 ⊢ (𝜑 → (((2 · 𝐾) + 1) / 2) = (((2 · 𝐾) / 2) + (1 / 2)))
161	9, 50, 52	divcan3d 11228	. . . . . . . . . . . 12 ⊢ (𝜑 → ((2 · 𝐾) / 2) = 𝐾)
162	161	oveq1d 6997	. . . . . . . . . . 11 ⊢ (𝜑 → (((2 · 𝐾) / 2) + (1 / 2)) = (𝐾 + (1 / 2)))
163	160, 162	eqtrd 2816	. . . . . . . . . 10 ⊢ (𝜑 → (((2 · 𝐾) + 1) / 2) = (𝐾 + (1 / 2)))
164	163	oveq1d 6997	. . . . . . . . 9 ⊢ (𝜑 → ((((2 · 𝐾) + 1) / 2) · π) = ((𝐾 + (1 / 2)) · π))
165	158, 159, 164	3eqtrd 2820	. . . . . . . 8 ⊢ (𝜑 → (𝐴 / 2) = ((𝐾 + (1 / 2)) · π))
166	165	fveq2d 6508	. . . . . . 7 ⊢ (𝜑 → (sin‘(𝐴 / 2)) = (sin‘((𝐾 + (1 / 2)) · π)))
167	166	oveq2d 6998	. . . . . 6 ⊢ (𝜑 → ((2 · π) · (sin‘(𝐴 / 2))) = ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π))))
168	156, 167	oveq12d 7000	. . . . 5 ⊢ (𝜑 → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))) = ((sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
169	168	adantr 473	. . . 4 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))) = ((sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
170	151, 49, 107	adddird 10471	. . . . . . 7 ⊢ (𝜑 → (((𝐾 + (1 / 2)) + 𝑁) · π) = (((𝐾 + (1 / 2)) · π) + (𝑁 · π)))
171	170	fveq2d 6508	. . . . . 6 ⊢ (𝜑 → (sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) = (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))))
172	171	oveq1d 6997	. . . . 5 ⊢ (𝜑 → ((sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
173	172	adantr 473	. . . 4 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
174	49	halfcld 11698	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (𝑁 / 2) ∈ ℂ)
175	50, 174	mulcomd 10467	. . . . . . . . . . . . 13 ⊢ (𝜑 → (2 · (𝑁 / 2)) = ((𝑁 / 2) · 2))
176	53, 175	eqtr3d 2818	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝑁 = ((𝑁 / 2) · 2))
177	176	oveq1d 6997	. . . . . . . . . . 11 ⊢ (𝜑 → (𝑁 · π) = (((𝑁 / 2) · 2) · π))
178	174, 50, 107	mulassd 10469	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝑁 / 2) · 2) · π) = ((𝑁 / 2) · (2 · π)))
179	177, 178	eqtrd 2816	. . . . . . . . . 10 ⊢ (𝜑 → (𝑁 · π) = ((𝑁 / 2) · (2 · π)))
180	179	oveq2d 6998	. . . . . . . . 9 ⊢ (𝜑 → (((𝐾 + (1 / 2)) · π) + (𝑁 · π)) = (((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π))))
181	180	fveq2d 6508	. . . . . . . 8 ⊢ (𝜑 → (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) = (sin‘(((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π)))))
182	181	adantr 473	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) = (sin‘(((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π)))))
183	9	adantr 473	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → 𝐾 ∈ ℂ)
184		1cnd 10440	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → 1 ∈ ℂ)
185	184	halfcld 11698	. . . . . . . . . 10 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (1 / 2) ∈ ℂ)
186	183, 185	addcld 10465	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝐾 + (1 / 2)) ∈ ℂ)
187	14	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → π ∈ ℂ)
188	186, 187	mulcld 10466	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((𝐾 + (1 / 2)) · π) ∈ ℂ)
189		sinper 24785	. . . . . . . 8 ⊢ ((((𝐾 + (1 / 2)) · π) ∈ ℂ ∧ (𝑁 / 2) ∈ ℤ) → (sin‘(((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π)))) = (sin‘((𝐾 + (1 / 2)) · π)))
190	188, 72, 189	syl2anc 576	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π)))) = (sin‘((𝐾 + (1 / 2)) · π)))
191	182, 190	eqtrd 2816	. . . . . 6 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) = (sin‘((𝐾 + (1 / 2)) · π)))
192	50, 107	mulcld 10466	. . . . . . . 8 ⊢ (𝜑 → (2 · π) ∈ ℂ)
193	151, 107	mulcld 10466	. . . . . . . . 9 ⊢ (𝜑 → ((𝐾 + (1 / 2)) · π) ∈ ℂ)
194	193	sincld 15349	. . . . . . . 8 ⊢ (𝜑 → (sin‘((𝐾 + (1 / 2)) · π)) ∈ ℂ)
195	192, 194	mulcomd 10467	. . . . . . 7 ⊢ (𝜑 → ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π))) = ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π)))
196	195	adantr 473	. . . . . 6 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π))) = ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π)))
197	191, 196	oveq12d 7000	. . . . 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 11229	. . . . . . . . . . 11 ⊢ (𝜑 → (((𝐾 + (1 / 2)) · π) / π) = (𝐾 + (1 / 2)))
200	8	zred 11906	. . . . . . . . . . . . 13 ⊢ (𝜑 → 𝐾 ∈ ℝ)
201	69	a1i 11	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 2 ∈ ℝ+)
202	201	rpreccld 12264	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1 / 2) ∈ ℝ+)
203	200, 202	ltaddrpd 12287	. . . . . . . . . . . 12 ⊢ (𝜑 → 𝐾 < (𝐾 + (1 / 2)))
204		1red 10446	. . . . . . . . . . . . . 14 ⊢ (𝜑 → 1 ∈ ℝ)
205	204	rehalfcld 11700	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1 / 2) ∈ ℝ)
206		halflt1 11671	. . . . . . . . . . . . . 14 ⊢ (1 / 2) < 1
207	206	a1i 11	. . . . . . . . . . . . 13 ⊢ (𝜑 → (1 / 2) < 1)
208	205, 204, 200, 207	ltadd2dd 10605	. . . . . . . . . . . 12 ⊢ (𝜑 → (𝐾 + (1 / 2)) < (𝐾 + 1))
209		btwnnz 11877	. . . . . . . . . . . 12 ⊢ ((𝐾 ∈ ℤ ∧ 𝐾 < (𝐾 + (1 / 2)) ∧ (𝐾 + (1 / 2)) < (𝐾 + 1)) → ¬ (𝐾 + (1 / 2)) ∈ ℤ)
210	8, 203, 208, 209	syl3anc 1352	. . . . . . . . . . 11 ⊢ (𝜑 → ¬ (𝐾 + (1 / 2)) ∈ ℤ)
211	199, 210	eqneltrd 2887	. . . . . . . . . 10 ⊢ (𝜑 → ¬ (((𝐾 + (1 / 2)) · π) / π) ∈ ℤ)
212		sineq0 24827	. . . . . . . . . . 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 317	. . . . . . . . 9 ⊢ (𝜑 → ¬ (sin‘((𝐾 + (1 / 2)) · π)) = 0)
215	214	neqned 2976	. . . . . . . 8 ⊢ (𝜑 → (sin‘((𝐾 + (1 / 2)) · π)) ≠ 0)
216	50, 107, 52, 198	mulne0d 11099	. . . . . . . 8 ⊢ (𝜑 → (2 · π) ≠ 0)
217	194, 194, 192, 215, 216	divdiv1d 11254	. . . . . . 7 ⊢ (𝜑 → (((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = ((sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))))
218	194, 215	dividd 11221	. . . . . . . 8 ⊢ (𝜑 → ((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = 1)
219	218	oveq1d 6997	. . . . . . 7 ⊢ (𝜑 → (((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = (1 / (2 · π)))
220	217, 219	eqtr3d 2818	. . . . . 6 ⊢ (𝜑 → ((sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))) = (1 / (2 · π)))
221	220	adantr 473	. . . . 5 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))) = (1 / (2 · π)))
222	197, 221	eqtrd 2816	. . . 4 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (1 / (2 · π)))
223	169, 173, 222	3eqtrrd 2821	. . 3 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (1 / (2 · π)) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
224	99, 223	eqtrd 2816	. 2 ⊢ ((𝜑 ∧ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
225	46	adantr 473	. . 3 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π))
226	145	adantr 473	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → 𝑁 ∈ ℤ)
227		simpr 477	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ¬ (𝑁 mod 2) = 0)
228	227	neqned 2976	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (𝑁 mod 2) ≠ 0)
229		oddfl 41007	. . . . . . . . 9 ⊢ ((𝑁 ∈ ℤ ∧ (𝑁 mod 2) ≠ 0) → 𝑁 = ((2 · (⌊‘(𝑁 / 2))) + 1))
230	226, 228, 229	syl2anc 576	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → 𝑁 = ((2 · (⌊‘(𝑁 / 2))) + 1))
231	230	oveq2d 6998	. . . . . . 7 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (1...𝑁) = (1...((2 · (⌊‘(𝑁 / 2))) + 1)))
232	231	sumeq1d 14924	. . . . . 6 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)))
233		fvoveq1 7005	. . . . . . . . . . . . . . . . 17 ⊢ (𝑁 = 1 → (⌊‘(𝑁 / 2)) = (⌊‘(1 / 2)))
234		halffl 41027	. . . . . . . . . . . . . . . . 17 ⊢ (⌊‘(1 / 2)) = 0
235	233, 234	syl6eq 2832	. . . . . . . . . . . . . . . 16 ⊢ (𝑁 = 1 → (⌊‘(𝑁 / 2)) = 0)
236	235	oveq2d 6998	. . . . . . . . . . . . . . 15 ⊢ (𝑁 = 1 → (2 · (⌊‘(𝑁 / 2))) = (2 · 0))
237		2t0e0 11622	. . . . . . . . . . . . . . 15 ⊢ (2 · 0) = 0
238	236, 237	syl6eq 2832	. . . . . . . . . . . . . 14 ⊢ (𝑁 = 1 → (2 · (⌊‘(𝑁 / 2))) = 0)
239	238	oveq1d 6997	. . . . . . . . . . . . 13 ⊢ (𝑁 = 1 → ((2 · (⌊‘(𝑁 / 2))) + 1) = (0 + 1))
240	90	addid2i 10634	. . . . . . . . . . . . 13 ⊢ (0 + 1) = 1
241	239, 240	syl6eq 2832	. . . . . . . . . . . 12 ⊢ (𝑁 = 1 → ((2 · (⌊‘(𝑁 / 2))) + 1) = 1)
242	241	oveq2d 6998	. . . . . . . . . . 11 ⊢ (𝑁 = 1 → (1...((2 · (⌊‘(𝑁 / 2))) + 1)) = (1...1))
243	242	sumeq1d 14924	. . . . . . . . . 10 ⊢ (𝑁 = 1 → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)))
244		1z 11831	. . . . . . . . . . . 12 ⊢ 1 ∈ ℤ
245		coscl 15346	. . . . . . . . . . . . 13 ⊢ (π ∈ ℂ → (cos‘π) ∈ ℂ)
246	14, 245	ax-mp 5	. . . . . . . . . . . 12 ⊢ (cos‘π) ∈ ℂ
247		oveq2 6990	. . . . . . . . . . . . . . 15 ⊢ (𝑛 = 1 → (π · 𝑛) = (π · 1))
248	14	mulid1i 10450	. . . . . . . . . . . . . . 15 ⊢ (π · 1) = π
249	247, 248	syl6eq 2832	. . . . . . . . . . . . . 14 ⊢ (𝑛 = 1 → (π · 𝑛) = π)
250	249	fveq2d 6508	. . . . . . . . . . . . 13 ⊢ (𝑛 = 1 → (cos‘(π · 𝑛)) = (cos‘π))
251	250	fsum1 14968	. . . . . . . . . . . 12 ⊢ ((1 ∈ ℤ ∧ (cos‘π) ∈ ℂ) → Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)) = (cos‘π))
252	244, 246, 251	mp2an 680	. . . . . . . . . . 11 ⊢ Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)) = (cos‘π)
253	252	a1i 11	. . . . . . . . . 10 ⊢ (𝑁 = 1 → Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)) = (cos‘π))
254		cospi 24776	. . . . . . . . . . 11 ⊢ (cos‘π) = -1
255	254	a1i 11	. . . . . . . . . 10 ⊢ (𝑁 = 1 → (cos‘π) = -1)
256	243, 253, 255	3eqtrd 2820	. . . . . . . . 9 ⊢ (𝑁 = 1 → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
257	256	adantl 474	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑁 = 1) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
258		2nn 11519	. . . . . . . . . . . . 13 ⊢ 2 ∈ ℕ
259	258	a1i 11	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ∈ ℕ)
260	67	rehalfcld 11700	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (𝑁 / 2) ∈ ℝ)
261	260	flcld 12989	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (⌊‘(𝑁 / 2)) ∈ ℤ)
262	261	adantr 473	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (⌊‘(𝑁 / 2)) ∈ ℤ)
263		2div2e1 11594	. . . . . . . . . . . . . . 15 ⊢ (2 / 2) = 1
264	73	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ∈ ℝ)
265	67	adantr 473	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → 𝑁 ∈ ℝ)
266	69	a1i 11	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ∈ ℝ+)
267		neqne 2977	. . . . . . . . . . . . . . . . 17 ⊢ (¬ 𝑁 = 1 → 𝑁 ≠ 1)
268		nnne1ge2 41022	. . . . . . . . . . . . . . . . 17 ⊢ ((𝑁 ∈ ℕ ∧ 𝑁 ≠ 1) → 2 ≤ 𝑁)
269	48, 267, 268	syl2an 587	. . . . . . . . . . . . . . . 16 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ≤ 𝑁)
270	264, 265, 266, 269	lediv1dd 12312	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (2 / 2) ≤ (𝑁 / 2))
271	263, 270	syl5eqbrr 4970	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → 1 ≤ (𝑁 / 2))
272	260	adantr 473	. . . . . . . . . . . . . . 15 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (𝑁 / 2) ∈ ℝ)
273		flge 12996	. . . . . . . . . . . . . . 15 ⊢ (((𝑁 / 2) ∈ ℝ ∧ 1 ∈ ℤ) → (1 ≤ (𝑁 / 2) ↔ 1 ≤ (⌊‘(𝑁 / 2))))
274	272, 244, 273	sylancl 578	. . . . . . . . . . . . . 14 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (1 ≤ (𝑁 / 2) ↔ 1 ≤ (⌊‘(𝑁 / 2))))
275	271, 274	mpbid 224	. . . . . . . . . . . . 13 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → 1 ≤ (⌊‘(𝑁 / 2)))
276		elnnz1 11827	. . . . . . . . . . . . 13 ⊢ ((⌊‘(𝑁 / 2)) ∈ ℕ ↔ ((⌊‘(𝑁 / 2)) ∈ ℤ ∧ 1 ≤ (⌊‘(𝑁 / 2))))
277	262, 275, 276	sylanbrc 575	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (⌊‘(𝑁 / 2)) ∈ ℕ)
278	259, 277	nnmulcld 11499	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (2 · (⌊‘(𝑁 / 2))) ∈ ℕ)
279		nnuz 12101	. . . . . . . . . . 11 ⊢ ℕ = (ℤ≥‘1)
280	278, 279	syl6eleq 2878	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (2 · (⌊‘(𝑁 / 2))) ∈ (ℤ≥‘1))
281	14	a1i 11	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → π ∈ ℂ)
282		elfzelz 12730	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1)) → 𝑛 ∈ ℤ)
283	282	zcnd 11907	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1)) → 𝑛 ∈ ℂ)
284	283	adantl 474	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → 𝑛 ∈ ℂ)
285	281, 284	mulcld 10466	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → (π · 𝑛) ∈ ℂ)
286	285	coscld 15350	. . . . . . . . . 10 ⊢ (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → (cos‘(π · 𝑛)) ∈ ℂ)
287		oveq2 6990	. . . . . . . . . . 11 ⊢ (𝑛 = ((2 · (⌊‘(𝑁 / 2))) + 1) → (π · 𝑛) = (π · ((2 · (⌊‘(𝑁 / 2))) + 1)))
288	287	fveq2d 6508	. . . . . . . . . 10 ⊢ (𝑛 = ((2 · (⌊‘(𝑁 / 2))) + 1) → (cos‘(π · 𝑛)) = (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))))
289	280, 286, 288	fsump1 14977	. . . . . . . . 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 12730	. . . . . . . . . . . . . . 15 ⊢ (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → 𝑛 ∈ ℤ)
292	291	zcnd 11907	. . . . . . . . . . . . . 14 ⊢ (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → 𝑛 ∈ ℂ)
293	290, 292	mulcomd 10467	. . . . . . . . . . . . 13 ⊢ (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → (π · 𝑛) = (𝑛 · π))
294	293	fveq2d 6508	. . . . . . . . . . . 12 ⊢ (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → (cos‘(π · 𝑛)) = (cos‘(𝑛 · π)))
295	294	sumeq2i 14922	. . . . . . . . . . 11 ⊢ Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(𝑛 · π))
296		dirkertrigeqlem1 41849	. . . . . . . . . . . 12 ⊢ ((⌊‘(𝑁 / 2)) ∈ ℕ → Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(𝑛 · π)) = 0)
297	277, 296	syl 17	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(𝑛 · π)) = 0)
298	295, 297	syl5eq 2828	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) = 0)
299	261	zcnd 11907	. . . . . . . . . . . . . . . 16 ⊢ (𝜑 → (⌊‘(𝑁 / 2)) ∈ ℂ)
300	50, 299	mulcld 10466	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (2 · (⌊‘(𝑁 / 2))) ∈ ℂ)
301	107, 300, 109	adddid 10470	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (π · ((2 · (⌊‘(𝑁 / 2))) + 1)) = ((π · (2 · (⌊‘(𝑁 / 2)))) + (π · 1)))
302	107, 50, 299	mul13d 41009	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (π · (2 · (⌊‘(𝑁 / 2)))) = ((⌊‘(𝑁 / 2)) · (2 · π)))
303	248	a1i 11	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → (π · 1) = π)
304	302, 303	oveq12d 7000	. . . . . . . . . . . . . 14 ⊢ (𝜑 → ((π · (2 · (⌊‘(𝑁 / 2)))) + (π · 1)) = (((⌊‘(𝑁 / 2)) · (2 · π)) + π))
305	299, 192	mulcld 10466	. . . . . . . . . . . . . . 15 ⊢ (𝜑 → ((⌊‘(𝑁 / 2)) · (2 · π)) ∈ ℂ)
306	305, 107	addcomd 10648	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (((⌊‘(𝑁 / 2)) · (2 · π)) + π) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
307	301, 304, 306	3eqtrd 2820	. . . . . . . . . . . . 13 ⊢ (𝜑 → (π · ((2 · (⌊‘(𝑁 / 2))) + 1)) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
308	307	fveq2d 6508	. . . . . . . . . . . 12 ⊢ (𝜑 → (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))) = (cos‘(π + ((⌊‘(𝑁 / 2)) · (2 · π)))))
309		cosper 24786	. . . . . . . . . . . . 13 ⊢ ((π ∈ ℂ ∧ (⌊‘(𝑁 / 2)) ∈ ℤ) → (cos‘(π + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (cos‘π))
310	107, 261, 309	syl2anc 576	. . . . . . . . . . . 12 ⊢ (𝜑 → (cos‘(π + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (cos‘π))
311	254	a1i 11	. . . . . . . . . . . 12 ⊢ (𝜑 → (cos‘π) = -1)
312	308, 310, 311	3eqtrd 2820	. . . . . . . . . . 11 ⊢ (𝜑 → (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))) = -1)
313	312	adantr 473	. . . . . . . . . 10 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))) = -1)
314	298, 313	oveq12d 7000	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) + (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1)))) = (0 + -1))
315		neg1cn 11567	. . . . . . . . . . 11 ⊢ -1 ∈ ℂ
316	315	addid2i 10634	. . . . . . . . . 10 ⊢ (0 + -1) = -1
317	316	a1i 11	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → (0 + -1) = -1)
318	289, 314, 317	3eqtrd 2820	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
319	257, 318	pm2.61dan 801	. . . . . . 7 ⊢ (𝜑 → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
320	319	adantr 473	. . . . . 6 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
321	232, 320	eqtrd 2816	. . . . 5 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = -1)
322	321	oveq2d 6998	. . . 4 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) = ((1 / 2) + -1))
323	322	oveq1d 6997	. . 3 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π) = (((1 / 2) + -1) / π))
324	168, 172	eqtrd 2816	. . . . 5 ⊢ (𝜑 → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))) = ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
325	324	adantr 473	. . . 4 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))) = ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
326	230	oveq1d 6997	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (𝑁 · π) = (((2 · (⌊‘(𝑁 / 2))) + 1) · π))
327	300, 109, 107	adddird 10471	. . . . . . . . . . 11 ⊢ (𝜑 → (((2 · (⌊‘(𝑁 / 2))) + 1) · π) = (((2 · (⌊‘(𝑁 / 2))) · π) + (1 · π)))
328	107	mulid2d 10464	. . . . . . . . . . . 12 ⊢ (𝜑 → (1 · π) = π)
329	328	oveq2d 6998	. . . . . . . . . . 11 ⊢ (𝜑 → (((2 · (⌊‘(𝑁 / 2))) · π) + (1 · π)) = (((2 · (⌊‘(𝑁 / 2))) · π) + π))
330	300, 107	mulcld 10466	. . . . . . . . . . . 12 ⊢ (𝜑 → ((2 · (⌊‘(𝑁 / 2))) · π) ∈ ℂ)
331	330, 107	addcomd 10648	. . . . . . . . . . 11 ⊢ (𝜑 → (((2 · (⌊‘(𝑁 / 2))) · π) + π) = (π + ((2 · (⌊‘(𝑁 / 2))) · π)))
332	327, 329, 331	3eqtrd 2820	. . . . . . . . . 10 ⊢ (𝜑 → (((2 · (⌊‘(𝑁 / 2))) + 1) · π) = (π + ((2 · (⌊‘(𝑁 / 2))) · π)))
333	332	adantr 473	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((2 · (⌊‘(𝑁 / 2))) + 1) · π) = (π + ((2 · (⌊‘(𝑁 / 2))) · π)))
334	50, 299	mulcomd 10467	. . . . . . . . . . . . 13 ⊢ (𝜑 → (2 · (⌊‘(𝑁 / 2))) = ((⌊‘(𝑁 / 2)) · 2))
335	334	oveq1d 6997	. . . . . . . . . . . 12 ⊢ (𝜑 → ((2 · (⌊‘(𝑁 / 2))) · π) = (((⌊‘(𝑁 / 2)) · 2) · π))
336	299, 50, 107	mulassd 10469	. . . . . . . . . . . 12 ⊢ (𝜑 → (((⌊‘(𝑁 / 2)) · 2) · π) = ((⌊‘(𝑁 / 2)) · (2 · π)))
337	335, 336	eqtrd 2816	. . . . . . . . . . 11 ⊢ (𝜑 → ((2 · (⌊‘(𝑁 / 2))) · π) = ((⌊‘(𝑁 / 2)) · (2 · π)))
338	337	oveq2d 6998	. . . . . . . . . 10 ⊢ (𝜑 → (π + ((2 · (⌊‘(𝑁 / 2))) · π)) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
339	338	adantr 473	. . . . . . . . 9 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (π + ((2 · (⌊‘(𝑁 / 2))) · π)) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
340	326, 333, 339	3eqtrd 2820	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (𝑁 · π) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
341	340	oveq2d 6998	. . . . . . 7 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((𝐾 + (1 / 2)) · π) + (𝑁 · π)) = (((𝐾 + (1 / 2)) · π) + (π + ((⌊‘(𝑁 / 2)) · (2 · π)))))
342	193	adantr 473	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((𝐾 + (1 / 2)) · π) ∈ ℂ)
343	14	a1i 11	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → π ∈ ℂ)
344	305	adantr 473	. . . . . . . 8 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((⌊‘(𝑁 / 2)) · (2 · π)) ∈ ℂ)
345	342, 343, 344	addassd 10468	. . . . . . 7 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π))) = (((𝐾 + (1 / 2)) · π) + (π + ((⌊‘(𝑁 / 2)) · (2 · π)))))
346	341, 345	eqtr4d 2819	. . . . . 6 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((𝐾 + (1 / 2)) · π) + (𝑁 · π)) = ((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π))))
347	346	fveq2d 6508	. . . . 5 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) = (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))))
348	347	oveq1d 6997	. . . 4 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
349	193, 107	addcld 10465	. . . . . . . . 9 ⊢ (𝜑 → (((𝐾 + (1 / 2)) · π) + π) ∈ ℂ)
350		sinper 24785	. . . . . . . . 9 ⊢ (((((𝐾 + (1 / 2)) · π) + π) ∈ ℂ ∧ (⌊‘(𝑁 / 2)) ∈ ℤ) → (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (sin‘(((𝐾 + (1 / 2)) · π) + π)))
351	349, 261, 350	syl2anc 576	. . . . . . . 8 ⊢ (𝜑 → (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (sin‘(((𝐾 + (1 / 2)) · π) + π)))
352		sinppi 24793	. . . . . . . . 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 2816	. . . . . . 7 ⊢ (𝜑 → (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) = -(sin‘((𝐾 + (1 / 2)) · π)))
355	354	oveq1d 6997	. . . . . 6 ⊢ (𝜑 → ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (-(sin‘((𝐾 + (1 / 2)) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
356	195	oveq2d 6998	. . . . . 6 ⊢ (𝜑 → (-(sin‘((𝐾 + (1 / 2)) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (-(sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))))
357	194, 194, 215	divnegd 11236	. . . . . . . . 9 ⊢ (𝜑 → -((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = (-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))))
358	218	negeqd 10686	. . . . . . . . 9 ⊢ (𝜑 → -((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = -1)
359	357, 358	eqtr3d 2818	. . . . . . . 8 ⊢ (𝜑 → (-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = -1)
360	359	oveq1d 6997	. . . . . . 7 ⊢ (𝜑 → ((-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = (-1 / (2 · π)))
361	194	negcld 10791	. . . . . . . 8 ⊢ (𝜑 → -(sin‘((𝐾 + (1 / 2)) · π)) ∈ ℂ)
362	361, 194, 192, 215, 216	divdiv1d 11254	. . . . . . 7 ⊢ (𝜑 → ((-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = (-(sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))))
363	86, 90	negsubi 10771	. . . . . . . . . . 11 ⊢ ((1 / 2) + -1) = ((1 / 2) − 1)
364	90, 86	negsubdi2i 10779	. . . . . . . . . . 11 ⊢ -(1 − (1 / 2)) = ((1 / 2) − 1)
365		1mhlfehlf 11672	. . . . . . . . . . . . 13 ⊢ (1 − (1 / 2)) = (1 / 2)
366	365	negeqi 10685	. . . . . . . . . . . 12 ⊢ -(1 − (1 / 2)) = -(1 / 2)
367		divneg 11139	. . . . . . . . . . . . 13 ⊢ ((1 ∈ ℂ ∧ 2 ∈ ℂ ∧ 2 ≠ 0) → -(1 / 2) = (-1 / 2))
368	90, 118, 51, 367	mp3an 1441	. . . . . . . . . . . 12 ⊢ -(1 / 2) = (-1 / 2)
369	366, 368	eqtri 2804	. . . . . . . . . . 11 ⊢ -(1 − (1 / 2)) = (-1 / 2)
370	363, 364, 369	3eqtr2i 2810	. . . . . . . . . 10 ⊢ ((1 / 2) + -1) = (-1 / 2)
371	370	oveq1i 6992	. . . . . . . . 9 ⊢ (((1 / 2) + -1) / π) = ((-1 / 2) / π)
372		divdiv1 11158	. . . . . . . . . 10 ⊢ ((-1 ∈ ℂ ∧ (2 ∈ ℂ ∧ 2 ≠ 0) ∧ (π ∈ ℂ ∧ π ≠ 0)) → ((-1 / 2) / π) = (-1 / (2 · π)))
373	315, 91, 95, 372	mp3an 1441	. . . . . . . . 9 ⊢ ((-1 / 2) / π) = (-1 / (2 · π))
374	371, 373	eqtr2i 2805	. . . . . . . 8 ⊢ (-1 / (2 · π)) = (((1 / 2) + -1) / π)
375	374	a1i 11	. . . . . . 7 ⊢ (𝜑 → (-1 / (2 · π)) = (((1 / 2) + -1) / π))
376	360, 362, 375	3eqtr3d 2824	. . . . . 6 ⊢ (𝜑 → (-(sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))) = (((1 / 2) + -1) / π))
377	355, 356, 376	3eqtrd 2820	. . . . 5 ⊢ (𝜑 → ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (((1 / 2) + -1) / π))
378	377	adantr 473	. . . 4 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (((1 / 2) + -1) / π))
379	325, 348, 378	3eqtrrd 2821	. . 3 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + -1) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
380	225, 323, 379	3eqtrd 2820	. 2 ⊢ ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
381	224, 380	pm2.61dan 801	1 ⊢ (𝜑 → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))

Syntax hints:  ¬ wn 3   → wi 4   ↔ wb 198   ∧ wa 387   = wceq 1508   ∈ wcel 2051   ≠ wne 2969  ∀wral 3090   class class class wbr 4934  ‘cfv 6193  (class class class)co 6982  ℂcc 10339  ℝcr 10340  0cc0 10341  1c1 10342   + caddc 10344   · cmul 10346   < clt 10480   ≤ cle 10481   − cmin 10676  -cneg 10677   / cdiv 11104  ℕcn 11445  2c2 11501  ℤcz 11799  ℤ_≥cuz 12064  ℝ⁺crp 12210  ...cfz 12714  ⌊cfl 12981   mod cmo 13058  Σcsu 14909  sincsin 15283  cosccos 15284  πcpi 15286

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1759  ax-4 1773  ax-5 1870  ax-6 1929  ax-7 1966  ax-8 2053  ax-9 2060  ax-10 2080  ax-11 2094  ax-12 2107  ax-13 2302  ax-ext 2752  ax-rep 5053  ax-sep 5064  ax-nul 5071  ax-pow 5123  ax-pr 5190  ax-un 7285  ax-inf2 8904  ax-cnex 10397  ax-resscn 10398  ax-1cn 10399  ax-icn 10400  ax-addcl 10401  ax-addrcl 10402  ax-mulcl 10403  ax-mulrcl 10404  ax-mulcom 10405  ax-addass 10406  ax-mulass 10407  ax-distr 10408  ax-i2m1 10409  ax-1ne0 10410  ax-1rid 10411  ax-rnegex 10412  ax-rrecex 10413  ax-cnre 10414  ax-pre-lttri 10415  ax-pre-lttrn 10416  ax-pre-ltadd 10417  ax-pre-mulgt0 10418  ax-pre-sup 10419  ax-addf 10420  ax-mulf 10421

This theorem depends on definitions:  df-bi 199  df-an 388  df-or 835  df-3or 1070  df-3an 1071  df-tru 1511  df-fal 1521  df-ex 1744  df-nf 1748  df-sb 2017  df-mo 2551  df-eu 2589  df-clab 2761  df-cleq 2773  df-clel 2848  df-nfc 2920  df-ne 2970  df-nel 3076  df-ral 3095  df-rex 3096  df-reu 3097  df-rmo 3098  df-rab 3099  df-v 3419  df-sbc 3684  df-csb 3789  df-dif 3834  df-un 3836  df-in 3838  df-ss 3845  df-pss 3847  df-nul 4182  df-if 4354  df-pw 4427  df-sn 4445  df-pr 4447  df-tp 4449  df-op 4451  df-uni 4718  df-int 4755  df-iun 4799  df-iin 4800  df-br 4935  df-opab 4997  df-mpt 5014  df-tr 5036  df-id 5316  df-eprel 5321  df-po 5330  df-so 5331  df-fr 5370  df-se 5371  df-we 5372  df-xp 5417  df-rel 5418  df-cnv 5419  df-co 5420  df-dm 5421  df-rn 5422  df-res 5423  df-ima 5424  df-pred 5991  df-ord 6037  df-on 6038  df-lim 6039  df-suc 6040  df-iota 6157  df-fun 6195  df-fn 6196  df-f 6197  df-f1 6198  df-fo 6199  df-f1o 6200  df-fv 6201  df-isom 6202  df-riota 6943  df-ov 6985  df-oprab 6986  df-mpo 6987  df-of 7233  df-om 7403  df-1st 7507  df-2nd 7508  df-supp 7640  df-wrecs 7756  df-recs 7818  df-rdg 7856  df-1o 7911  df-2o 7912  df-oadd 7915  df-er 8095  df-map 8214  df-pm 8215  df-ixp 8266  df-en 8313  df-dom 8314  df-sdom 8315  df-fin 8316  df-fsupp 8635  df-fi 8676  df-sup 8707  df-inf 8708  df-oi 8775  df-card 9168  df-cda 9394  df-pnf 10482  df-mnf 10483  df-xr 10484  df-ltxr 10485  df-le 10486  df-sub 10678  df-neg 10679  df-div 11105  df-nn 11446  df-2 11509  df-3 11510  df-4 11511  df-5 11512  df-6 11513  df-7 11514  df-8 11515  df-9 11516  df-n0 11714  df-z 11800  df-dec 11918  df-uz 12065  df-q 12169  df-rp 12211  df-xneg 12330  df-xadd 12331  df-xmul 12332  df-ioo 12564  df-ioc 12565  df-ico 12566  df-icc 12567  df-fz 12715  df-fzo 12856  df-fl 12983  df-mod 13059  df-seq 13191  df-exp 13251  df-fac 13455  df-bc 13484  df-hash 13512  df-shft 14293  df-cj 14325  df-re 14326  df-im 14327  df-sqrt 14461  df-abs 14462  df-limsup 14695  df-clim 14712  df-rlim 14713  df-sum 14910  df-ef 15287  df-sin 15289  df-cos 15290  df-pi 15292  df-struct 16347  df-ndx 16348  df-slot 16349  df-base 16351  df-sets 16352  df-ress 16353  df-plusg 16440  df-mulr 16441  df-starv 16442  df-sca 16443  df-vsca 16444  df-ip 16445  df-tset 16446  df-ple 16447  df-ds 16449  df-unif 16450  df-hom 16451  df-cco 16452  df-rest 16558  df-topn 16559  df-0g 16577  df-gsum 16578  df-topgen 16579  df-pt 16580  df-prds 16583  df-xrs 16637  df-qtop 16642  df-imas 16643  df-xps 16645  df-mre 16727  df-mrc 16728  df-acs 16730  df-mgm 17722  df-sgrp 17764  df-mnd 17775  df-submnd 17816  df-mulg 18024  df-cntz 18230  df-cmn 18680  df-psmet 20254  df-xmet 20255  df-met 20256  df-bl 20257  df-mopn 20258  df-fbas 20259  df-fg 20260  df-cnfld 20263  df-top 21221  df-topon 21238  df-topsp 21260  df-bases 21273  df-cld 21346  df-ntr 21347  df-cls 21348  df-nei 21425  df-lp 21463  df-perf 21464  df-cn 21554  df-cnp 21555  df-haus 21642  df-tx 21889  df-hmeo 22082  df-fil 22173  df-fm 22265  df-flim 22266  df-flf 22267  df-xms 22648  df-ms 22649  df-tms 22650  df-cncf 23204  df-limc 24182  df-dv 24183

This theorem is referenced by:  dirkertrigeq  41852