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

Theorem dirkertrigeqlem3 43896
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
StepHypRef Expression
1 dirkertrigeqlem3.a . . . . . . . . . . . . 13 𝐴 = (((2 · 𝐾) + 1) · π)
21a1i 11 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → 𝐴 = (((2 · 𝐾) + 1) · π))
32oveq2d 7332 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → (𝑛 · 𝐴) = (𝑛 · (((2 · 𝐾) + 1) · π)))
4 elfzelz 13335 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℤ)
54zcnd 12506 . . . . . . . . . . . . 13 (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℂ)
65adantl 482 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → 𝑛 ∈ ℂ)
7 2cnd 12130 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑁)) → 2 ∈ ℂ)
8 dirkertrigeqlem3.k . . . . . . . . . . . . . . . . 17 (𝜑𝐾 ∈ ℤ)
98zcnd 12506 . . . . . . . . . . . . . . . 16 (𝜑𝐾 ∈ ℂ)
109adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑁)) → 𝐾 ∈ ℂ)
117, 10mulcld 11074 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → (2 · 𝐾) ∈ ℂ)
12 1cnd 11049 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → 1 ∈ ℂ)
1311, 12addcld 11073 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) + 1) ∈ ℂ)
14 picn 25696 . . . . . . . . . . . . . 14 π ∈ ℂ
1514a1i 11 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → π ∈ ℂ)
1613, 15mulcld 11074 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) + 1) · π) ∈ ℂ)
176, 16mulcomd 11075 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → (𝑛 · (((2 · 𝐾) + 1) · π)) = ((((2 · 𝐾) + 1) · π) · 𝑛))
1813, 15, 6mulassd 11077 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → ((((2 · 𝐾) + 1) · π) · 𝑛) = (((2 · 𝐾) + 1) · (π · 𝑛)))
1915, 6mulcld 11074 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → (π · 𝑛) ∈ ℂ)
2011, 12, 19adddird 11079 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) + 1) · (π · 𝑛)) = (((2 · 𝐾) · (π · 𝑛)) + (1 · (π · 𝑛))))
2111, 19mulcld 11074 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) · (π · 𝑛)) ∈ ℂ)
2212, 19mulcld 11074 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → (1 · (π · 𝑛)) ∈ ℂ)
2321, 22addcomd 11256 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) · (π · 𝑛)) + (1 · (π · 𝑛))) = ((1 · (π · 𝑛)) + ((2 · 𝐾) · (π · 𝑛))))
2414a1i 11 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ (1...𝑁) → π ∈ ℂ)
2524, 5mulcld 11074 . . . . . . . . . . . . . . . 16 (𝑛 ∈ (1...𝑁) → (π · 𝑛) ∈ ℂ)
2625mulid2d 11072 . . . . . . . . . . . . . . 15 (𝑛 ∈ (1...𝑁) → (1 · (π · 𝑛)) = (π · 𝑛))
2726adantl 482 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → (1 · (π · 𝑛)) = (π · 𝑛))
287, 10, 15, 6mul4d 11266 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) · (π · 𝑛)) = ((2 · π) · (𝐾 · 𝑛)))
297, 15mulcld 11074 . . . . . . . . . . . . . . . 16 ((𝜑𝑛 ∈ (1...𝑁)) → (2 · π) ∈ ℂ)
3010, 6mulcld 11074 . . . . . . . . . . . . . . . 16 ((𝜑𝑛 ∈ (1...𝑁)) → (𝐾 · 𝑛) ∈ ℂ)
3129, 30mulcomd 11075 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑁)) → ((2 · π) · (𝐾 · 𝑛)) = ((𝐾 · 𝑛) · (2 · π)))
3228, 31eqtrd 2776 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) · (π · 𝑛)) = ((𝐾 · 𝑛) · (2 · π)))
3327, 32oveq12d 7334 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → ((1 · (π · 𝑛)) + ((2 · 𝐾) · (π · 𝑛))) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
3423, 33eqtrd 2776 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) · (π · 𝑛)) + (1 · (π · 𝑛))) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
3518, 20, 343eqtrd 2780 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → ((((2 · 𝐾) + 1) · π) · 𝑛) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
363, 17, 353eqtrd 2780 . . . . . . . . . 10 ((𝜑𝑛 ∈ (1...𝑁)) → (𝑛 · 𝐴) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
3736fveq2d 6815 . . . . . . . . 9 ((𝜑𝑛 ∈ (1...𝑁)) → (cos‘(𝑛 · 𝐴)) = (cos‘((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π)))))
388adantr 481 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → 𝐾 ∈ ℤ)
394adantl 482 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → 𝑛 ∈ ℤ)
4038, 39zmulcld 12511 . . . . . . . . . 10 ((𝜑𝑛 ∈ (1...𝑁)) → (𝐾 · 𝑛) ∈ ℤ)
41 cosper 25719 . . . . . . . . . 10 (((π · 𝑛) ∈ ℂ ∧ (𝐾 · 𝑛) ∈ ℤ) → (cos‘((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π)))) = (cos‘(π · 𝑛)))
4219, 40, 41syl2anc 584 . . . . . . . . 9 ((𝜑𝑛 ∈ (1...𝑁)) → (cos‘((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π)))) = (cos‘(π · 𝑛)))
4337, 42eqtrd 2776 . . . . . . . 8 ((𝜑𝑛 ∈ (1...𝑁)) → (cos‘(𝑛 · 𝐴)) = (cos‘(π · 𝑛)))
4443sumeq2dv 15491 . . . . . . 7 (𝜑 → Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴)) = Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)))
4544oveq2d 7332 . . . . . 6 (𝜑 → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) = ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))))
4645oveq1d 7331 . . . . 5 (𝜑 → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π))
4746adantr 481 . . . 4 ((𝜑 ∧ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π))
48 dirkertrigeqlem3.n . . . . . . . . . . . . . 14 (𝜑𝑁 ∈ ℕ)
4948nncnd 12068 . . . . . . . . . . . . 13 (𝜑𝑁 ∈ ℂ)
50 2cnd 12130 . . . . . . . . . . . . 13 (𝜑 → 2 ∈ ℂ)
51 2ne0 12156 . . . . . . . . . . . . . 14 2 ≠ 0
5251a1i 11 . . . . . . . . . . . . 13 (𝜑 → 2 ≠ 0)
5349, 50, 52divcan2d 11832 . . . . . . . . . . . 12 (𝜑 → (2 · (𝑁 / 2)) = 𝑁)
5453eqcomd 2742 . . . . . . . . . . 11 (𝜑𝑁 = (2 · (𝑁 / 2)))
5554oveq2d 7332 . . . . . . . . . 10 (𝜑 → (1...𝑁) = (1...(2 · (𝑁 / 2))))
5655sumeq1d 15489 . . . . . . . . 9 (𝜑 → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)))
5756adantr 481 . . . . . . . 8 ((𝜑 ∧ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)))
5814a1i 11 . . . . . . . . . . . . 13 (𝑛 ∈ (1...(2 · (𝑁 / 2))) → π ∈ ℂ)
59 elfzelz 13335 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...(2 · (𝑁 / 2))) → 𝑛 ∈ ℤ)
6059zcnd 12506 . . . . . . . . . . . . 13 (𝑛 ∈ (1...(2 · (𝑁 / 2))) → 𝑛 ∈ ℂ)
6158, 60mulcomd 11075 . . . . . . . . . . . 12 (𝑛 ∈ (1...(2 · (𝑁 / 2))) → (π · 𝑛) = (𝑛 · π))
6261fveq2d 6815 . . . . . . . . . . 11 (𝑛 ∈ (1...(2 · (𝑁 / 2))) → (cos‘(π · 𝑛)) = (cos‘(𝑛 · π)))
6362rgen 3063 . . . . . . . . . 10 𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)) = (cos‘(𝑛 · π))
6463a1i 11 . . . . . . . . 9 ((𝜑 ∧ (𝑁 mod 2) = 0) → ∀𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)) = (cos‘(𝑛 · π)))
6564sumeq2d 15490 . . . . . . . 8 ((𝜑 ∧ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(𝑛 · π)))
66 simpr 485 . . . . . . . . . . 11 ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝑁 mod 2) = 0)
6748nnred 12067 . . . . . . . . . . . . 13 (𝜑𝑁 ∈ ℝ)
6867adantr 481 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑁 mod 2) = 0) → 𝑁 ∈ ℝ)
69 2rp 12814 . . . . . . . . . . . 12 2 ∈ ℝ+
70 mod0 13675 . . . . . . . . . . . 12 ((𝑁 ∈ ℝ ∧ 2 ∈ ℝ+) → ((𝑁 mod 2) = 0 ↔ (𝑁 / 2) ∈ ℤ))
7168, 69, 70sylancl 586 . . . . . . . . . . 11 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((𝑁 mod 2) = 0 ↔ (𝑁 / 2) ∈ ℤ))
7266, 71mpbid 231 . . . . . . . . . 10 ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝑁 / 2) ∈ ℤ)
73 2re 12126 . . . . . . . . . . . . 13 2 ∈ ℝ
7473a1i 11 . . . . . . . . . . . 12 (𝜑 → 2 ∈ ℝ)
7548nngt0d 12101 . . . . . . . . . . . 12 (𝜑 → 0 < 𝑁)
76 2pos 12155 . . . . . . . . . . . . 13 0 < 2
7776a1i 11 . . . . . . . . . . . 12 (𝜑 → 0 < 2)
7867, 74, 75, 77divgt0d 11989 . . . . . . . . . . 11 (𝜑 → 0 < (𝑁 / 2))
7978adantr 481 . . . . . . . . . 10 ((𝜑 ∧ (𝑁 mod 2) = 0) → 0 < (𝑁 / 2))
80 elnnz 12408 . . . . . . . . . 10 ((𝑁 / 2) ∈ ℕ ↔ ((𝑁 / 2) ∈ ℤ ∧ 0 < (𝑁 / 2)))
8172, 79, 80sylanbrc 583 . . . . . . . . 9 ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝑁 / 2) ∈ ℕ)
82 dirkertrigeqlem1 43894 . . . . . . . . 9 ((𝑁 / 2) ∈ ℕ → Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(𝑛 · π)) = 0)
8381, 82syl 17 . . . . . . . 8 ((𝜑 ∧ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(𝑛 · π)) = 0)
8457, 65, 833eqtrd 2780 . . . . . . 7 ((𝜑 ∧ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = 0)
8584oveq2d 7332 . . . . . 6 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) = ((1 / 2) + 0))
86 halfcn 12267 . . . . . . 7 (1 / 2) ∈ ℂ
8786addid1i 11241 . . . . . 6 ((1 / 2) + 0) = (1 / 2)
8885, 87eqtrdi 2792 . . . . 5 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) = (1 / 2))
8988oveq1d 7331 . . . 4 ((𝜑 ∧ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π) = ((1 / 2) / π))
90 ax-1cn 11008 . . . . . 6 1 ∈ ℂ
91 2cnne0 12262 . . . . . 6 (2 ∈ ℂ ∧ 2 ≠ 0)
92 pire 25695 . . . . . . . 8 π ∈ ℝ
93 pipos 25697 . . . . . . . 8 0 < π
9492, 93gt0ne0ii 11590 . . . . . . 7 π ≠ 0
9514, 94pm3.2i 471 . . . . . 6 (π ∈ ℂ ∧ π ≠ 0)
96 divdiv1 11765 . . . . . 6 ((1 ∈ ℂ ∧ (2 ∈ ℂ ∧ 2 ≠ 0) ∧ (π ∈ ℂ ∧ π ≠ 0)) → ((1 / 2) / π) = (1 / (2 · π)))
9790, 91, 95, 96mp3an 1460 . . . . 5 ((1 / 2) / π) = (1 / (2 · π))
9897a1i 11 . . . 4 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((1 / 2) / π) = (1 / (2 · π)))
9947, 89, 983eqtrd 2780 . . 3 ((𝜑 ∧ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = (1 / (2 · π)))
1001oveq2i 7327 . . . . . . . . . 10 ((𝑁 + (1 / 2)) · 𝐴) = ((𝑁 + (1 / 2)) · (((2 · 𝐾) + 1) · π))
101100a1i 11 . . . . . . . . 9 (𝜑 → ((𝑁 + (1 / 2)) · 𝐴) = ((𝑁 + (1 / 2)) · (((2 · 𝐾) + 1) · π)))
10286a1i 11 . . . . . . . . . . 11 (𝜑 → (1 / 2) ∈ ℂ)
10349, 102addcld 11073 . . . . . . . . . 10 (𝜑 → (𝑁 + (1 / 2)) ∈ ℂ)
10450, 9mulcld 11074 . . . . . . . . . . 11 (𝜑 → (2 · 𝐾) ∈ ℂ)
105 peano2cn 11226 . . . . . . . . . . 11 ((2 · 𝐾) ∈ ℂ → ((2 · 𝐾) + 1) ∈ ℂ)
106104, 105syl 17 . . . . . . . . . 10 (𝜑 → ((2 · 𝐾) + 1) ∈ ℂ)
10714a1i 11 . . . . . . . . . 10 (𝜑 → π ∈ ℂ)
108103, 106, 107mulassd 11077 . . . . . . . . 9 (𝜑 → (((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) · π) = ((𝑁 + (1 / 2)) · (((2 · 𝐾) + 1) · π)))
109 1cnd 11049 . . . . . . . . . . . . . 14 (𝜑 → 1 ∈ ℂ)
11049, 102, 104, 109muladdd 11512 . . . . . . . . . . . . 13 (𝜑 → ((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) = (((𝑁 · (2 · 𝐾)) + (1 · (1 / 2))) + ((𝑁 · 1) + ((2 · 𝐾) · (1 / 2)))))
11149, 50, 9mul12d 11263 . . . . . . . . . . . . . . 15 (𝜑 → (𝑁 · (2 · 𝐾)) = (2 · (𝑁 · 𝐾)))
112102mulid2d 11072 . . . . . . . . . . . . . . 15 (𝜑 → (1 · (1 / 2)) = (1 / 2))
113111, 112oveq12d 7334 . . . . . . . . . . . . . 14 (𝜑 → ((𝑁 · (2 · 𝐾)) + (1 · (1 / 2))) = ((2 · (𝑁 · 𝐾)) + (1 / 2)))
11449mulid1d 11071 . . . . . . . . . . . . . . 15 (𝜑 → (𝑁 · 1) = 𝑁)
11550, 9mulcomd 11075 . . . . . . . . . . . . . . . . 17 (𝜑 → (2 · 𝐾) = (𝐾 · 2))
116115oveq1d 7331 . . . . . . . . . . . . . . . 16 (𝜑 → ((2 · 𝐾) · (1 / 2)) = ((𝐾 · 2) · (1 / 2)))
1179, 50, 102mulassd 11077 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝐾 · 2) · (1 / 2)) = (𝐾 · (2 · (1 / 2))))
118 2cn 12127 . . . . . . . . . . . . . . . . . . 19 2 ∈ ℂ
119118, 51recidi 11785 . . . . . . . . . . . . . . . . . 18 (2 · (1 / 2)) = 1
120119oveq2i 7327 . . . . . . . . . . . . . . . . 17 (𝐾 · (2 · (1 / 2))) = (𝐾 · 1)
1219mulid1d 11071 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐾 · 1) = 𝐾)
122120, 121eqtrid 2788 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐾 · (2 · (1 / 2))) = 𝐾)
123116, 117, 1223eqtrd 2780 . . . . . . . . . . . . . . 15 (𝜑 → ((2 · 𝐾) · (1 / 2)) = 𝐾)
124114, 123oveq12d 7334 . . . . . . . . . . . . . 14 (𝜑 → ((𝑁 · 1) + ((2 · 𝐾) · (1 / 2))) = (𝑁 + 𝐾))
125113, 124oveq12d 7334 . . . . . . . . . . . . 13 (𝜑 → (((𝑁 · (2 · 𝐾)) + (1 · (1 / 2))) + ((𝑁 · 1) + ((2 · 𝐾) · (1 / 2)))) = (((2 · (𝑁 · 𝐾)) + (1 / 2)) + (𝑁 + 𝐾)))
12649, 9mulcld 11074 . . . . . . . . . . . . . . 15 (𝜑 → (𝑁 · 𝐾) ∈ ℂ)
12750, 126mulcld 11074 . . . . . . . . . . . . . 14 (𝜑 → (2 · (𝑁 · 𝐾)) ∈ ℂ)
12849, 9addcld 11073 . . . . . . . . . . . . . 14 (𝜑 → (𝑁 + 𝐾) ∈ ℂ)
129127, 102, 128addassd 11076 . . . . . . . . . . . . 13 (𝜑 → (((2 · (𝑁 · 𝐾)) + (1 / 2)) + (𝑁 + 𝐾)) = ((2 · (𝑁 · 𝐾)) + ((1 / 2) + (𝑁 + 𝐾))))
130110, 125, 1293eqtrd 2780 . . . . . . . . . . . 12 (𝜑 → ((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) = ((2 · (𝑁 · 𝐾)) + ((1 / 2) + (𝑁 + 𝐾))))
131102, 128addcld 11073 . . . . . . . . . . . . 13 (𝜑 → ((1 / 2) + (𝑁 + 𝐾)) ∈ ℂ)
132127, 131addcomd 11256 . . . . . . . . . . . 12 (𝜑 → ((2 · (𝑁 · 𝐾)) + ((1 / 2) + (𝑁 + 𝐾))) = (((1 / 2) + (𝑁 + 𝐾)) + (2 · (𝑁 · 𝐾))))
13350, 126mulcomd 11075 . . . . . . . . . . . . 13 (𝜑 → (2 · (𝑁 · 𝐾)) = ((𝑁 · 𝐾) · 2))
134133oveq2d 7332 . . . . . . . . . . . 12 (𝜑 → (((1 / 2) + (𝑁 + 𝐾)) + (2 · (𝑁 · 𝐾))) = (((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)))
135130, 132, 1343eqtrd 2780 . . . . . . . . . . 11 (𝜑 → ((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) = (((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)))
136135oveq1d 7331 . . . . . . . . . 10 (𝜑 → (((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) · π) = ((((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)) · π))
137126, 50mulcld 11074 . . . . . . . . . . 11 (𝜑 → ((𝑁 · 𝐾) · 2) ∈ ℂ)
138131, 137, 107adddird 11079 . . . . . . . . . 10 (𝜑 → ((((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)) · π) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + (((𝑁 · 𝐾) · 2) · π)))
139126, 50, 107mulassd 11077 . . . . . . . . . . 11 (𝜑 → (((𝑁 · 𝐾) · 2) · π) = ((𝑁 · 𝐾) · (2 · π)))
140139oveq2d 7332 . . . . . . . . . 10 (𝜑 → ((((1 / 2) + (𝑁 + 𝐾)) · π) + (((𝑁 · 𝐾) · 2) · π)) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π))))
141136, 138, 1403eqtrd 2780 . . . . . . . . 9 (𝜑 → (((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) · π) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π))))
142101, 108, 1413eqtr2d 2782 . . . . . . . 8 (𝜑 → ((𝑁 + (1 / 2)) · 𝐴) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π))))
143142fveq2d 6815 . . . . . . 7 (𝜑 → (sin‘((𝑁 + (1 / 2)) · 𝐴)) = (sin‘((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π)))))
144131, 107mulcld 11074 . . . . . . . 8 (𝜑 → (((1 / 2) + (𝑁 + 𝐾)) · π) ∈ ℂ)
14548nnzd 12504 . . . . . . . . 9 (𝜑𝑁 ∈ ℤ)
146145, 8zmulcld 12511 . . . . . . . 8 (𝜑 → (𝑁 · 𝐾) ∈ ℤ)
147 sinper 25718 . . . . . . . 8 (((((1 / 2) + (𝑁 + 𝐾)) · π) ∈ ℂ ∧ (𝑁 · 𝐾) ∈ ℤ) → (sin‘((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π)))) = (sin‘(((1 / 2) + (𝑁 + 𝐾)) · π)))
148144, 146, 147syl2anc 584 . . . . . . 7 (𝜑 → (sin‘((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π)))) = (sin‘(((1 / 2) + (𝑁 + 𝐾)) · π)))
149102, 128addcomd 11256 . . . . . . . . . 10 (𝜑 → ((1 / 2) + (𝑁 + 𝐾)) = ((𝑁 + 𝐾) + (1 / 2)))
15049, 9, 102addassd 11076 . . . . . . . . . 10 (𝜑 → ((𝑁 + 𝐾) + (1 / 2)) = (𝑁 + (𝐾 + (1 / 2))))
1519, 102addcld 11073 . . . . . . . . . . 11 (𝜑 → (𝐾 + (1 / 2)) ∈ ℂ)
15249, 151addcomd 11256 . . . . . . . . . 10 (𝜑 → (𝑁 + (𝐾 + (1 / 2))) = ((𝐾 + (1 / 2)) + 𝑁))
153149, 150, 1523eqtrd 2780 . . . . . . . . 9 (𝜑 → ((1 / 2) + (𝑁 + 𝐾)) = ((𝐾 + (1 / 2)) + 𝑁))
154153oveq1d 7331 . . . . . . . 8 (𝜑 → (((1 / 2) + (𝑁 + 𝐾)) · π) = (((𝐾 + (1 / 2)) + 𝑁) · π))
155154fveq2d 6815 . . . . . . 7 (𝜑 → (sin‘(((1 / 2) + (𝑁 + 𝐾)) · π)) = (sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)))
156143, 148, 1553eqtrd 2780 . . . . . 6 (𝜑 → (sin‘((𝑁 + (1 / 2)) · 𝐴)) = (sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)))
1571a1i 11 . . . . . . . . . 10 (𝜑𝐴 = (((2 · 𝐾) + 1) · π))
158157oveq1d 7331 . . . . . . . . 9 (𝜑 → (𝐴 / 2) = ((((2 · 𝐾) + 1) · π) / 2))
159106, 107, 50, 52div23d 11867 . . . . . . . . 9 (𝜑 → ((((2 · 𝐾) + 1) · π) / 2) = ((((2 · 𝐾) + 1) / 2) · π))
160104, 109, 50, 52divdird 11868 . . . . . . . . . . 11 (𝜑 → (((2 · 𝐾) + 1) / 2) = (((2 · 𝐾) / 2) + (1 / 2)))
1619, 50, 52divcan3d 11835 . . . . . . . . . . . 12 (𝜑 → ((2 · 𝐾) / 2) = 𝐾)
162161oveq1d 7331 . . . . . . . . . . 11 (𝜑 → (((2 · 𝐾) / 2) + (1 / 2)) = (𝐾 + (1 / 2)))
163160, 162eqtrd 2776 . . . . . . . . . 10 (𝜑 → (((2 · 𝐾) + 1) / 2) = (𝐾 + (1 / 2)))
164163oveq1d 7331 . . . . . . . . 9 (𝜑 → ((((2 · 𝐾) + 1) / 2) · π) = ((𝐾 + (1 / 2)) · π))
165158, 159, 1643eqtrd 2780 . . . . . . . 8 (𝜑 → (𝐴 / 2) = ((𝐾 + (1 / 2)) · π))
166165fveq2d 6815 . . . . . . 7 (𝜑 → (sin‘(𝐴 / 2)) = (sin‘((𝐾 + (1 / 2)) · π)))
167166oveq2d 7332 . . . . . 6 (𝜑 → ((2 · π) · (sin‘(𝐴 / 2))) = ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π))))
168156, 167oveq12d 7334 . . . . 5 (𝜑 → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))) = ((sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
169168adantr 481 . . . 4 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))) = ((sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
170151, 49, 107adddird 11079 . . . . . . 7 (𝜑 → (((𝐾 + (1 / 2)) + 𝑁) · π) = (((𝐾 + (1 / 2)) · π) + (𝑁 · π)))
171170fveq2d 6815 . . . . . 6 (𝜑 → (sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) = (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))))
172171oveq1d 7331 . . . . 5 (𝜑 → ((sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
173172adantr 481 . . . 4 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
17449halfcld 12297 . . . . . . . . . . . . . 14 (𝜑 → (𝑁 / 2) ∈ ℂ)
17550, 174mulcomd 11075 . . . . . . . . . . . . 13 (𝜑 → (2 · (𝑁 / 2)) = ((𝑁 / 2) · 2))
17653, 175eqtr3d 2778 . . . . . . . . . . . 12 (𝜑𝑁 = ((𝑁 / 2) · 2))
177176oveq1d 7331 . . . . . . . . . . 11 (𝜑 → (𝑁 · π) = (((𝑁 / 2) · 2) · π))
178174, 50, 107mulassd 11077 . . . . . . . . . . 11 (𝜑 → (((𝑁 / 2) · 2) · π) = ((𝑁 / 2) · (2 · π)))
179177, 178eqtrd 2776 . . . . . . . . . 10 (𝜑 → (𝑁 · π) = ((𝑁 / 2) · (2 · π)))
180179oveq2d 7332 . . . . . . . . 9 (𝜑 → (((𝐾 + (1 / 2)) · π) + (𝑁 · π)) = (((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π))))
181180fveq2d 6815 . . . . . . . 8 (𝜑 → (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) = (sin‘(((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π)))))
182181adantr 481 . . . . . . 7 ((𝜑 ∧ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) = (sin‘(((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π)))))
1839adantr 481 . . . . . . . . . 10 ((𝜑 ∧ (𝑁 mod 2) = 0) → 𝐾 ∈ ℂ)
184 1cnd 11049 . . . . . . . . . . 11 ((𝜑 ∧ (𝑁 mod 2) = 0) → 1 ∈ ℂ)
185184halfcld 12297 . . . . . . . . . 10 ((𝜑 ∧ (𝑁 mod 2) = 0) → (1 / 2) ∈ ℂ)
186183, 185addcld 11073 . . . . . . . . 9 ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝐾 + (1 / 2)) ∈ ℂ)
18714a1i 11 . . . . . . . . 9 ((𝜑 ∧ (𝑁 mod 2) = 0) → π ∈ ℂ)
188186, 187mulcld 11074 . . . . . . . 8 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((𝐾 + (1 / 2)) · π) ∈ ℂ)
189 sinper 25718 . . . . . . . 8 ((((𝐾 + (1 / 2)) · π) ∈ ℂ ∧ (𝑁 / 2) ∈ ℤ) → (sin‘(((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π)))) = (sin‘((𝐾 + (1 / 2)) · π)))
190188, 72, 189syl2anc 584 . . . . . . 7 ((𝜑 ∧ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π)))) = (sin‘((𝐾 + (1 / 2)) · π)))
191182, 190eqtrd 2776 . . . . . 6 ((𝜑 ∧ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) = (sin‘((𝐾 + (1 / 2)) · π)))
19250, 107mulcld 11074 . . . . . . . 8 (𝜑 → (2 · π) ∈ ℂ)
193151, 107mulcld 11074 . . . . . . . . 9 (𝜑 → ((𝐾 + (1 / 2)) · π) ∈ ℂ)
194193sincld 15915 . . . . . . . 8 (𝜑 → (sin‘((𝐾 + (1 / 2)) · π)) ∈ ℂ)
195192, 194mulcomd 11075 . . . . . . 7 (𝜑 → ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π))) = ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π)))
196195adantr 481 . . . . . 6 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π))) = ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π)))
197191, 196oveq12d 7334 . . . . 5 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = ((sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))))
19894a1i 11 . . . . . . . . . . . 12 (𝜑 → π ≠ 0)
199151, 107, 198divcan4d 11836 . . . . . . . . . . 11 (𝜑 → (((𝐾 + (1 / 2)) · π) / π) = (𝐾 + (1 / 2)))
2008zred 12505 . . . . . . . . . . . . 13 (𝜑𝐾 ∈ ℝ)
20169a1i 11 . . . . . . . . . . . . . 14 (𝜑 → 2 ∈ ℝ+)
202201rpreccld 12861 . . . . . . . . . . . . 13 (𝜑 → (1 / 2) ∈ ℝ+)
203200, 202ltaddrpd 12884 . . . . . . . . . . . 12 (𝜑𝐾 < (𝐾 + (1 / 2)))
204 1red 11055 . . . . . . . . . . . . . 14 (𝜑 → 1 ∈ ℝ)
205204rehalfcld 12299 . . . . . . . . . . . . 13 (𝜑 → (1 / 2) ∈ ℝ)
206 halflt1 12270 . . . . . . . . . . . . . 14 (1 / 2) < 1
207206a1i 11 . . . . . . . . . . . . 13 (𝜑 → (1 / 2) < 1)
208205, 204, 200, 207ltadd2dd 11213 . . . . . . . . . . . 12 (𝜑 → (𝐾 + (1 / 2)) < (𝐾 + 1))
209 btwnnz 12475 . . . . . . . . . . . 12 ((𝐾 ∈ ℤ ∧ 𝐾 < (𝐾 + (1 / 2)) ∧ (𝐾 + (1 / 2)) < (𝐾 + 1)) → ¬ (𝐾 + (1 / 2)) ∈ ℤ)
2108, 203, 208, 209syl3anc 1370 . . . . . . . . . . 11 (𝜑 → ¬ (𝐾 + (1 / 2)) ∈ ℤ)
211199, 210eqneltrd 2856 . . . . . . . . . 10 (𝜑 → ¬ (((𝐾 + (1 / 2)) · π) / π) ∈ ℤ)
212 sineq0 25760 . . . . . . . . . . 11 (((𝐾 + (1 / 2)) · π) ∈ ℂ → ((sin‘((𝐾 + (1 / 2)) · π)) = 0 ↔ (((𝐾 + (1 / 2)) · π) / π) ∈ ℤ))
213193, 212syl 17 . . . . . . . . . 10 (𝜑 → ((sin‘((𝐾 + (1 / 2)) · π)) = 0 ↔ (((𝐾 + (1 / 2)) · π) / π) ∈ ℤ))
214211, 213mtbird 324 . . . . . . . . 9 (𝜑 → ¬ (sin‘((𝐾 + (1 / 2)) · π)) = 0)
215214neqned 2947 . . . . . . . 8 (𝜑 → (sin‘((𝐾 + (1 / 2)) · π)) ≠ 0)
21650, 107, 52, 198mulne0d 11706 . . . . . . . 8 (𝜑 → (2 · π) ≠ 0)
217194, 194, 192, 215, 216divdiv1d 11861 . . . . . . 7 (𝜑 → (((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = ((sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))))
218194, 215dividd 11828 . . . . . . . 8 (𝜑 → ((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = 1)
219218oveq1d 7331 . . . . . . 7 (𝜑 → (((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = (1 / (2 · π)))
220217, 219eqtr3d 2778 . . . . . 6 (𝜑 → ((sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))) = (1 / (2 · π)))
221220adantr 481 . . . . 5 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))) = (1 / (2 · π)))
222197, 221eqtrd 2776 . . . 4 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (1 / (2 · π)))
223169, 173, 2223eqtrrd 2781 . . 3 ((𝜑 ∧ (𝑁 mod 2) = 0) → (1 / (2 · π)) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
22499, 223eqtrd 2776 . 2 ((𝜑 ∧ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
22546adantr 481 . . 3 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π))
226145adantr 481 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → 𝑁 ∈ ℤ)
227 simpr 485 . . . . . . . . . 10 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ¬ (𝑁 mod 2) = 0)
228227neqned 2947 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (𝑁 mod 2) ≠ 0)
229 oddfl 43070 . . . . . . . . 9 ((𝑁 ∈ ℤ ∧ (𝑁 mod 2) ≠ 0) → 𝑁 = ((2 · (⌊‘(𝑁 / 2))) + 1))
230226, 228, 229syl2anc 584 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → 𝑁 = ((2 · (⌊‘(𝑁 / 2))) + 1))
231230oveq2d 7332 . . . . . . 7 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (1...𝑁) = (1...((2 · (⌊‘(𝑁 / 2))) + 1)))
232231sumeq1d 15489 . . . . . 6 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)))
233 fvoveq1 7339 . . . . . . . . . . . . . . . . 17 (𝑁 = 1 → (⌊‘(𝑁 / 2)) = (⌊‘(1 / 2)))
234 halffl 43089 . . . . . . . . . . . . . . . . 17 (⌊‘(1 / 2)) = 0
235233, 234eqtrdi 2792 . . . . . . . . . . . . . . . 16 (𝑁 = 1 → (⌊‘(𝑁 / 2)) = 0)
236235oveq2d 7332 . . . . . . . . . . . . . . 15 (𝑁 = 1 → (2 · (⌊‘(𝑁 / 2))) = (2 · 0))
237 2t0e0 12221 . . . . . . . . . . . . . . 15 (2 · 0) = 0
238236, 237eqtrdi 2792 . . . . . . . . . . . . . 14 (𝑁 = 1 → (2 · (⌊‘(𝑁 / 2))) = 0)
239238oveq1d 7331 . . . . . . . . . . . . 13 (𝑁 = 1 → ((2 · (⌊‘(𝑁 / 2))) + 1) = (0 + 1))
24090addid2i 11242 . . . . . . . . . . . . 13 (0 + 1) = 1
241239, 240eqtrdi 2792 . . . . . . . . . . . 12 (𝑁 = 1 → ((2 · (⌊‘(𝑁 / 2))) + 1) = 1)
242241oveq2d 7332 . . . . . . . . . . 11 (𝑁 = 1 → (1...((2 · (⌊‘(𝑁 / 2))) + 1)) = (1...1))
243242sumeq1d 15489 . . . . . . . . . 10 (𝑁 = 1 → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)))
244 1z 12429 . . . . . . . . . . . 12 1 ∈ ℤ
245 coscl 15912 . . . . . . . . . . . . 13 (π ∈ ℂ → (cos‘π) ∈ ℂ)
24614, 245ax-mp 5 . . . . . . . . . . . 12 (cos‘π) ∈ ℂ
247 oveq2 7324 . . . . . . . . . . . . . . 15 (𝑛 = 1 → (π · 𝑛) = (π · 1))
24814mulid1i 11058 . . . . . . . . . . . . . . 15 (π · 1) = π
249247, 248eqtrdi 2792 . . . . . . . . . . . . . 14 (𝑛 = 1 → (π · 𝑛) = π)
250249fveq2d 6815 . . . . . . . . . . . . 13 (𝑛 = 1 → (cos‘(π · 𝑛)) = (cos‘π))
251250fsum1 15535 . . . . . . . . . . . 12 ((1 ∈ ℤ ∧ (cos‘π) ∈ ℂ) → Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)) = (cos‘π))
252244, 246, 251mp2an 689 . . . . . . . . . . 11 Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)) = (cos‘π)
253252a1i 11 . . . . . . . . . 10 (𝑁 = 1 → Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)) = (cos‘π))
254 cospi 25709 . . . . . . . . . . 11 (cos‘π) = -1
255254a1i 11 . . . . . . . . . 10 (𝑁 = 1 → (cos‘π) = -1)
256243, 253, 2553eqtrd 2780 . . . . . . . . 9 (𝑁 = 1 → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
257256adantl 482 . . . . . . . 8 ((𝜑𝑁 = 1) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
258 2nn 12125 . . . . . . . . . . . . 13 2 ∈ ℕ
259258a1i 11 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ∈ ℕ)
26067rehalfcld 12299 . . . . . . . . . . . . . . 15 (𝜑 → (𝑁 / 2) ∈ ℝ)
261260flcld 13597 . . . . . . . . . . . . . 14 (𝜑 → (⌊‘(𝑁 / 2)) ∈ ℤ)
262261adantr 481 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ 𝑁 = 1) → (⌊‘(𝑁 / 2)) ∈ ℤ)
263 2div2e1 12193 . . . . . . . . . . . . . . 15 (2 / 2) = 1
26473a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ∈ ℝ)
26567adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ¬ 𝑁 = 1) → 𝑁 ∈ ℝ)
26669a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ∈ ℝ+)
267 neqne 2948 . . . . . . . . . . . . . . . . 17 𝑁 = 1 → 𝑁 ≠ 1)
268 nnne1ge2 43084 . . . . . . . . . . . . . . . . 17 ((𝑁 ∈ ℕ ∧ 𝑁 ≠ 1) → 2 ≤ 𝑁)
26948, 267, 268syl2an 596 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ≤ 𝑁)
270264, 265, 266, 269lediv1dd 12909 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ¬ 𝑁 = 1) → (2 / 2) ≤ (𝑁 / 2))
271263, 270eqbrtrrid 5122 . . . . . . . . . . . . . 14 ((𝜑 ∧ ¬ 𝑁 = 1) → 1 ≤ (𝑁 / 2))
272260adantr 481 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ¬ 𝑁 = 1) → (𝑁 / 2) ∈ ℝ)
273 flge 13604 . . . . . . . . . . . . . . 15 (((𝑁 / 2) ∈ ℝ ∧ 1 ∈ ℤ) → (1 ≤ (𝑁 / 2) ↔ 1 ≤ (⌊‘(𝑁 / 2))))
274272, 244, 273sylancl 586 . . . . . . . . . . . . . 14 ((𝜑 ∧ ¬ 𝑁 = 1) → (1 ≤ (𝑁 / 2) ↔ 1 ≤ (⌊‘(𝑁 / 2))))
275271, 274mpbid 231 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ 𝑁 = 1) → 1 ≤ (⌊‘(𝑁 / 2)))
276 elnnz1 12425 . . . . . . . . . . . . 13 ((⌊‘(𝑁 / 2)) ∈ ℕ ↔ ((⌊‘(𝑁 / 2)) ∈ ℤ ∧ 1 ≤ (⌊‘(𝑁 / 2))))
277262, 275, 276sylanbrc 583 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝑁 = 1) → (⌊‘(𝑁 / 2)) ∈ ℕ)
278259, 277nnmulcld 12105 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝑁 = 1) → (2 · (⌊‘(𝑁 / 2))) ∈ ℕ)
279 nnuz 12700 . . . . . . . . . . 11 ℕ = (ℤ‘1)
280278, 279eleqtrdi 2847 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝑁 = 1) → (2 · (⌊‘(𝑁 / 2))) ∈ (ℤ‘1))
28114a1i 11 . . . . . . . . . . . 12 (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → π ∈ ℂ)
282 elfzelz 13335 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1)) → 𝑛 ∈ ℤ)
283282zcnd 12506 . . . . . . . . . . . . 13 (𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1)) → 𝑛 ∈ ℂ)
284283adantl 482 . . . . . . . . . . . 12 (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → 𝑛 ∈ ℂ)
285281, 284mulcld 11074 . . . . . . . . . . 11 (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → (π · 𝑛) ∈ ℂ)
286285coscld 15916 . . . . . . . . . 10 (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → (cos‘(π · 𝑛)) ∈ ℂ)
287 oveq2 7324 . . . . . . . . . . 11 (𝑛 = ((2 · (⌊‘(𝑁 / 2))) + 1) → (π · 𝑛) = (π · ((2 · (⌊‘(𝑁 / 2))) + 1)))
288287fveq2d 6815 . . . . . . . . . 10 (𝑛 = ((2 · (⌊‘(𝑁 / 2))) + 1) → (cos‘(π · 𝑛)) = (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))))
289280, 286, 288fsump1 15544 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = (Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) + (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1)))))
29014a1i 11 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → π ∈ ℂ)
291 elfzelz 13335 . . . . . . . . . . . . . . 15 (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → 𝑛 ∈ ℤ)
292291zcnd 12506 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → 𝑛 ∈ ℂ)
293290, 292mulcomd 11075 . . . . . . . . . . . . 13 (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → (π · 𝑛) = (𝑛 · π))
294293fveq2d 6815 . . . . . . . . . . . 12 (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → (cos‘(π · 𝑛)) = (cos‘(𝑛 · π)))
295294sumeq2i 15487 . . . . . . . . . . 11 Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(𝑛 · π))
296 dirkertrigeqlem1 43894 . . . . . . . . . . . 12 ((⌊‘(𝑁 / 2)) ∈ ℕ → Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(𝑛 · π)) = 0)
297277, 296syl 17 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(𝑛 · π)) = 0)
298295, 297eqtrid 2788 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) = 0)
299261zcnd 12506 . . . . . . . . . . . . . . . 16 (𝜑 → (⌊‘(𝑁 / 2)) ∈ ℂ)
30050, 299mulcld 11074 . . . . . . . . . . . . . . 15 (𝜑 → (2 · (⌊‘(𝑁 / 2))) ∈ ℂ)
301107, 300, 109adddid 11078 . . . . . . . . . . . . . 14 (𝜑 → (π · ((2 · (⌊‘(𝑁 / 2))) + 1)) = ((π · (2 · (⌊‘(𝑁 / 2)))) + (π · 1)))
302107, 50, 299mul13d 43072 . . . . . . . . . . . . . . 15 (𝜑 → (π · (2 · (⌊‘(𝑁 / 2)))) = ((⌊‘(𝑁 / 2)) · (2 · π)))
303248a1i 11 . . . . . . . . . . . . . . 15 (𝜑 → (π · 1) = π)
304302, 303oveq12d 7334 . . . . . . . . . . . . . 14 (𝜑 → ((π · (2 · (⌊‘(𝑁 / 2)))) + (π · 1)) = (((⌊‘(𝑁 / 2)) · (2 · π)) + π))
305299, 192mulcld 11074 . . . . . . . . . . . . . . 15 (𝜑 → ((⌊‘(𝑁 / 2)) · (2 · π)) ∈ ℂ)
306305, 107addcomd 11256 . . . . . . . . . . . . . 14 (𝜑 → (((⌊‘(𝑁 / 2)) · (2 · π)) + π) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
307301, 304, 3063eqtrd 2780 . . . . . . . . . . . . 13 (𝜑 → (π · ((2 · (⌊‘(𝑁 / 2))) + 1)) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
308307fveq2d 6815 . . . . . . . . . . . 12 (𝜑 → (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))) = (cos‘(π + ((⌊‘(𝑁 / 2)) · (2 · π)))))
309 cosper 25719 . . . . . . . . . . . . 13 ((π ∈ ℂ ∧ (⌊‘(𝑁 / 2)) ∈ ℤ) → (cos‘(π + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (cos‘π))
310107, 261, 309syl2anc 584 . . . . . . . . . . . 12 (𝜑 → (cos‘(π + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (cos‘π))
311254a1i 11 . . . . . . . . . . . 12 (𝜑 → (cos‘π) = -1)
312308, 310, 3113eqtrd 2780 . . . . . . . . . . 11 (𝜑 → (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))) = -1)
313312adantr 481 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝑁 = 1) → (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))) = -1)
314298, 313oveq12d 7334 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝑁 = 1) → (Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) + (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1)))) = (0 + -1))
315 neg1cn 12166 . . . . . . . . . . 11 -1 ∈ ℂ
316315addid2i 11242 . . . . . . . . . 10 (0 + -1) = -1
317316a1i 11 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝑁 = 1) → (0 + -1) = -1)
318289, 314, 3173eqtrd 2780 . . . . . . . 8 ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
319257, 318pm2.61dan 810 . . . . . . 7 (𝜑 → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
320319adantr 481 . . . . . 6 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
321232, 320eqtrd 2776 . . . . 5 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = -1)
322321oveq2d 7332 . . . 4 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) = ((1 / 2) + -1))
323322oveq1d 7331 . . 3 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π) = (((1 / 2) + -1) / π))
324168, 172eqtrd 2776 . . . . 5 (𝜑 → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))) = ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
325324adantr 481 . . . 4 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))) = ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
326230oveq1d 7331 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (𝑁 · π) = (((2 · (⌊‘(𝑁 / 2))) + 1) · π))
327300, 109, 107adddird 11079 . . . . . . . . . . 11 (𝜑 → (((2 · (⌊‘(𝑁 / 2))) + 1) · π) = (((2 · (⌊‘(𝑁 / 2))) · π) + (1 · π)))
328107mulid2d 11072 . . . . . . . . . . . 12 (𝜑 → (1 · π) = π)
329328oveq2d 7332 . . . . . . . . . . 11 (𝜑 → (((2 · (⌊‘(𝑁 / 2))) · π) + (1 · π)) = (((2 · (⌊‘(𝑁 / 2))) · π) + π))
330300, 107mulcld 11074 . . . . . . . . . . . 12 (𝜑 → ((2 · (⌊‘(𝑁 / 2))) · π) ∈ ℂ)
331330, 107addcomd 11256 . . . . . . . . . . 11 (𝜑 → (((2 · (⌊‘(𝑁 / 2))) · π) + π) = (π + ((2 · (⌊‘(𝑁 / 2))) · π)))
332327, 329, 3313eqtrd 2780 . . . . . . . . . 10 (𝜑 → (((2 · (⌊‘(𝑁 / 2))) + 1) · π) = (π + ((2 · (⌊‘(𝑁 / 2))) · π)))
333332adantr 481 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((2 · (⌊‘(𝑁 / 2))) + 1) · π) = (π + ((2 · (⌊‘(𝑁 / 2))) · π)))
33450, 299mulcomd 11075 . . . . . . . . . . . . 13 (𝜑 → (2 · (⌊‘(𝑁 / 2))) = ((⌊‘(𝑁 / 2)) · 2))
335334oveq1d 7331 . . . . . . . . . . . 12 (𝜑 → ((2 · (⌊‘(𝑁 / 2))) · π) = (((⌊‘(𝑁 / 2)) · 2) · π))
336299, 50, 107mulassd 11077 . . . . . . . . . . . 12 (𝜑 → (((⌊‘(𝑁 / 2)) · 2) · π) = ((⌊‘(𝑁 / 2)) · (2 · π)))
337335, 336eqtrd 2776 . . . . . . . . . . 11 (𝜑 → ((2 · (⌊‘(𝑁 / 2))) · π) = ((⌊‘(𝑁 / 2)) · (2 · π)))
338337oveq2d 7332 . . . . . . . . . 10 (𝜑 → (π + ((2 · (⌊‘(𝑁 / 2))) · π)) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
339338adantr 481 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (π + ((2 · (⌊‘(𝑁 / 2))) · π)) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
340326, 333, 3393eqtrd 2780 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (𝑁 · π) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
341340oveq2d 7332 . . . . . . 7 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((𝐾 + (1 / 2)) · π) + (𝑁 · π)) = (((𝐾 + (1 / 2)) · π) + (π + ((⌊‘(𝑁 / 2)) · (2 · π)))))
342193adantr 481 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((𝐾 + (1 / 2)) · π) ∈ ℂ)
34314a1i 11 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → π ∈ ℂ)
344305adantr 481 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((⌊‘(𝑁 / 2)) · (2 · π)) ∈ ℂ)
345342, 343, 344addassd 11076 . . . . . . 7 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π))) = (((𝐾 + (1 / 2)) · π) + (π + ((⌊‘(𝑁 / 2)) · (2 · π)))))
346341, 345eqtr4d 2779 . . . . . 6 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((𝐾 + (1 / 2)) · π) + (𝑁 · π)) = ((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π))))
347346fveq2d 6815 . . . . 5 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) = (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))))
348347oveq1d 7331 . . . 4 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
349193, 107addcld 11073 . . . . . . . . 9 (𝜑 → (((𝐾 + (1 / 2)) · π) + π) ∈ ℂ)
350 sinper 25718 . . . . . . . . 9 (((((𝐾 + (1 / 2)) · π) + π) ∈ ℂ ∧ (⌊‘(𝑁 / 2)) ∈ ℤ) → (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (sin‘(((𝐾 + (1 / 2)) · π) + π)))
351349, 261, 350syl2anc 584 . . . . . . . 8 (𝜑 → (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (sin‘(((𝐾 + (1 / 2)) · π) + π)))
352 sinppi 25726 . . . . . . . . 9 (((𝐾 + (1 / 2)) · π) ∈ ℂ → (sin‘(((𝐾 + (1 / 2)) · π) + π)) = -(sin‘((𝐾 + (1 / 2)) · π)))
353193, 352syl 17 . . . . . . . 8 (𝜑 → (sin‘(((𝐾 + (1 / 2)) · π) + π)) = -(sin‘((𝐾 + (1 / 2)) · π)))
354351, 353eqtrd 2776 . . . . . . 7 (𝜑 → (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) = -(sin‘((𝐾 + (1 / 2)) · π)))
355354oveq1d 7331 . . . . . 6 (𝜑 → ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (-(sin‘((𝐾 + (1 / 2)) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
356195oveq2d 7332 . . . . . 6 (𝜑 → (-(sin‘((𝐾 + (1 / 2)) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (-(sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))))
357194, 194, 215divnegd 11843 . . . . . . . . 9 (𝜑 → -((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = (-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))))
358218negeqd 11294 . . . . . . . . 9 (𝜑 → -((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = -1)
359357, 358eqtr3d 2778 . . . . . . . 8 (𝜑 → (-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = -1)
360359oveq1d 7331 . . . . . . 7 (𝜑 → ((-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = (-1 / (2 · π)))
361194negcld 11398 . . . . . . . 8 (𝜑 → -(sin‘((𝐾 + (1 / 2)) · π)) ∈ ℂ)
362361, 194, 192, 215, 216divdiv1d 11861 . . . . . . 7 (𝜑 → ((-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = (-(sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))))
36386, 90negsubi 11378 . . . . . . . . . . 11 ((1 / 2) + -1) = ((1 / 2) − 1)
36490, 86negsubdi2i 11386 . . . . . . . . . . 11 -(1 − (1 / 2)) = ((1 / 2) − 1)
365 1mhlfehlf 12271 . . . . . . . . . . . . 13 (1 − (1 / 2)) = (1 / 2)
366365negeqi 11293 . . . . . . . . . . . 12 -(1 − (1 / 2)) = -(1 / 2)
367 divneg 11746 . . . . . . . . . . . . 13 ((1 ∈ ℂ ∧ 2 ∈ ℂ ∧ 2 ≠ 0) → -(1 / 2) = (-1 / 2))
36890, 118, 51, 367mp3an 1460 . . . . . . . . . . . 12 -(1 / 2) = (-1 / 2)
369366, 368eqtri 2764 . . . . . . . . . . 11 -(1 − (1 / 2)) = (-1 / 2)
370363, 364, 3693eqtr2i 2770 . . . . . . . . . 10 ((1 / 2) + -1) = (-1 / 2)
371370oveq1i 7326 . . . . . . . . 9 (((1 / 2) + -1) / π) = ((-1 / 2) / π)
372 divdiv1 11765 . . . . . . . . . 10 ((-1 ∈ ℂ ∧ (2 ∈ ℂ ∧ 2 ≠ 0) ∧ (π ∈ ℂ ∧ π ≠ 0)) → ((-1 / 2) / π) = (-1 / (2 · π)))
373315, 91, 95, 372mp3an 1460 . . . . . . . . 9 ((-1 / 2) / π) = (-1 / (2 · π))
374371, 373eqtr2i 2765 . . . . . . . 8 (-1 / (2 · π)) = (((1 / 2) + -1) / π)
375374a1i 11 . . . . . . 7 (𝜑 → (-1 / (2 · π)) = (((1 / 2) + -1) / π))
376360, 362, 3753eqtr3d 2784 . . . . . 6 (𝜑 → (-(sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))) = (((1 / 2) + -1) / π))
377355, 356, 3763eqtrd 2780 . . . . 5 (𝜑 → ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (((1 / 2) + -1) / π))
378377adantr 481 . . . 4 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (((1 / 2) + -1) / π))
379325, 348, 3783eqtrrd 2781 . . 3 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + -1) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
380225, 323, 3793eqtrd 2780 . 2 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
381224, 380pm2.61dan 810 1 (𝜑 → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 205  wa 396   = wceq 1540  wcel 2105  wne 2940  wral 3061   class class class wbr 5086  cfv 6465  (class class class)co 7316  cc 10948  cr 10949  0cc0 10950  1c1 10951   + caddc 10953   · cmul 10955   < clt 11088  cle 11089  cmin 11284  -cneg 11285   / cdiv 11711  cn 12052  2c2 12107  cz 12398  cuz 12661  +crp 12809  ...cfz 13318  cfl 13589   mod cmo 13668  Σcsu 15473  sincsin 15849  cosccos 15850  πcpi 15852
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2707  ax-rep 5223  ax-sep 5237  ax-nul 5244  ax-pow 5302  ax-pr 5366  ax-un 7629  ax-inf2 9476  ax-cnex 11006  ax-resscn 11007  ax-1cn 11008  ax-icn 11009  ax-addcl 11010  ax-addrcl 11011  ax-mulcl 11012  ax-mulrcl 11013  ax-mulcom 11014  ax-addass 11015  ax-mulass 11016  ax-distr 11017  ax-i2m1 11018  ax-1ne0 11019  ax-1rid 11020  ax-rnegex 11021  ax-rrecex 11022  ax-cnre 11023  ax-pre-lttri 11024  ax-pre-lttrn 11025  ax-pre-ltadd 11026  ax-pre-mulgt0 11027  ax-pre-sup 11028  ax-addf 11029  ax-mulf 11030
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3or 1087  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2886  df-ne 2941  df-nel 3047  df-ral 3062  df-rex 3071  df-rmo 3349  df-reu 3350  df-rab 3404  df-v 3442  df-sbc 3726  df-csb 3842  df-dif 3899  df-un 3901  df-in 3903  df-ss 3913  df-pss 3915  df-nul 4267  df-if 4471  df-pw 4546  df-sn 4571  df-pr 4573  df-tp 4575  df-op 4577  df-uni 4850  df-int 4892  df-iun 4938  df-iin 4939  df-br 5087  df-opab 5149  df-mpt 5170  df-tr 5204  df-id 5506  df-eprel 5512  df-po 5520  df-so 5521  df-fr 5562  df-se 5563  df-we 5564  df-xp 5613  df-rel 5614  df-cnv 5615  df-co 5616  df-dm 5617  df-rn 5618  df-res 5619  df-ima 5620  df-pred 6224  df-ord 6291  df-on 6292  df-lim 6293  df-suc 6294  df-iota 6417  df-fun 6467  df-fn 6468  df-f 6469  df-f1 6470  df-fo 6471  df-f1o 6472  df-fv 6473  df-isom 6474  df-riota 7273  df-ov 7319  df-oprab 7320  df-mpo 7321  df-of 7574  df-om 7759  df-1st 7877  df-2nd 7878  df-supp 8026  df-frecs 8145  df-wrecs 8176  df-recs 8250  df-rdg 8289  df-1o 8345  df-2o 8346  df-er 8547  df-map 8666  df-pm 8667  df-ixp 8735  df-en 8783  df-dom 8784  df-sdom 8785  df-fin 8786  df-fsupp 9205  df-fi 9246  df-sup 9277  df-inf 9278  df-oi 9345  df-card 9774  df-pnf 11090  df-mnf 11091  df-xr 11092  df-ltxr 11093  df-le 11094  df-sub 11286  df-neg 11287  df-div 11712  df-nn 12053  df-2 12115  df-3 12116  df-4 12117  df-5 12118  df-6 12119  df-7 12120  df-8 12121  df-9 12122  df-n0 12313  df-z 12399  df-dec 12517  df-uz 12662  df-q 12768  df-rp 12810  df-xneg 12927  df-xadd 12928  df-xmul 12929  df-ioo 13162  df-ioc 13163  df-ico 13164  df-icc 13165  df-fz 13319  df-fzo 13462  df-fl 13591  df-mod 13669  df-seq 13801  df-exp 13862  df-fac 14067  df-bc 14096  df-hash 14124  df-shft 14854  df-cj 14886  df-re 14887  df-im 14888  df-sqrt 15022  df-abs 15023  df-limsup 15256  df-clim 15273  df-rlim 15274  df-sum 15474  df-ef 15853  df-sin 15855  df-cos 15856  df-pi 15858  df-struct 16922  df-sets 16939  df-slot 16957  df-ndx 16969  df-base 16987  df-ress 17016  df-plusg 17049  df-mulr 17050  df-starv 17051  df-sca 17052  df-vsca 17053  df-ip 17054  df-tset 17055  df-ple 17056  df-ds 17058  df-unif 17059  df-hom 17060  df-cco 17061  df-rest 17207  df-topn 17208  df-0g 17226  df-gsum 17227  df-topgen 17228  df-pt 17229  df-prds 17232  df-xrs 17287  df-qtop 17292  df-imas 17293  df-xps 17295  df-mre 17369  df-mrc 17370  df-acs 17372  df-mgm 18400  df-sgrp 18449  df-mnd 18460  df-submnd 18505  df-mulg 18774  df-cntz 18996  df-cmn 19460  df-psmet 20669  df-xmet 20670  df-met 20671  df-bl 20672  df-mopn 20673  df-fbas 20674  df-fg 20675  df-cnfld 20678  df-top 22123  df-topon 22140  df-topsp 22162  df-bases 22176  df-cld 22250  df-ntr 22251  df-cls 22252  df-nei 22329  df-lp 22367  df-perf 22368  df-cn 22458  df-cnp 22459  df-haus 22546  df-tx 22793  df-hmeo 22986  df-fil 23077  df-fm 23169  df-flim 23170  df-flf 23171  df-xms 23553  df-ms 23554  df-tms 23555  df-cncf 24121  df-limc 25110  df-dv 25111
This theorem is referenced by:  dirkertrigeq  43897
  Copyright terms: Public domain W3C validator