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 40839
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 6831 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → (𝑛 · 𝐴) = (𝑛 · (((2 · 𝐾) + 1) · π)))
4 elfzelz 12556 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℤ)
54zcnd 11696 . . . . . . . . . . . . 13 (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℂ)
65adantl 473 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → 𝑛 ∈ ℂ)
7 2cnd 11306 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑁)) → 2 ∈ ℂ)
8 dirkertrigeqlem3.k . . . . . . . . . . . . . . . . 17 (𝜑𝐾 ∈ ℤ)
98zcnd 11696 . . . . . . . . . . . . . . . 16 (𝜑𝐾 ∈ ℂ)
109adantr 472 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑁)) → 𝐾 ∈ ℂ)
117, 10mulcld 10273 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → (2 · 𝐾) ∈ ℂ)
12 1cnd 10269 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → 1 ∈ ℂ)
1311, 12addcld 10272 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) + 1) ∈ ℂ)
14 picn 24432 . . . . . . . . . . . . . 14 π ∈ ℂ
1514a1i 11 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → π ∈ ℂ)
1613, 15mulcld 10273 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) + 1) · π) ∈ ℂ)
176, 16mulcomd 10274 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → (𝑛 · (((2 · 𝐾) + 1) · π)) = ((((2 · 𝐾) + 1) · π) · 𝑛))
1813, 15, 6mulassd 10276 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → ((((2 · 𝐾) + 1) · π) · 𝑛) = (((2 · 𝐾) + 1) · (π · 𝑛)))
1915, 6mulcld 10273 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → (π · 𝑛) ∈ ℂ)
2011, 12, 19adddird 10278 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) + 1) · (π · 𝑛)) = (((2 · 𝐾) · (π · 𝑛)) + (1 · (π · 𝑛))))
2111, 19mulcld 10273 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) · (π · 𝑛)) ∈ ℂ)
2212, 19mulcld 10273 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → (1 · (π · 𝑛)) ∈ ℂ)
2321, 22addcomd 10451 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) · (π · 𝑛)) + (1 · (π · 𝑛))) = ((1 · (π · 𝑛)) + ((2 · 𝐾) · (π · 𝑛))))
2414a1i 11 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ (1...𝑁) → π ∈ ℂ)
2524, 5mulcld 10273 . . . . . . . . . . . . . . . 16 (𝑛 ∈ (1...𝑁) → (π · 𝑛) ∈ ℂ)
2625mulid2d 10271 . . . . . . . . . . . . . . 15 (𝑛 ∈ (1...𝑁) → (1 · (π · 𝑛)) = (π · 𝑛))
2726adantl 473 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → (1 · (π · 𝑛)) = (π · 𝑛))
287, 10, 15, 6mul4d 10461 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) · (π · 𝑛)) = ((2 · π) · (𝐾 · 𝑛)))
297, 15mulcld 10273 . . . . . . . . . . . . . . . 16 ((𝜑𝑛 ∈ (1...𝑁)) → (2 · π) ∈ ℂ)
3010, 6mulcld 10273 . . . . . . . . . . . . . . . 16 ((𝜑𝑛 ∈ (1...𝑁)) → (𝐾 · 𝑛) ∈ ℂ)
3129, 30mulcomd 10274 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑁)) → ((2 · π) · (𝐾 · 𝑛)) = ((𝐾 · 𝑛) · (2 · π)))
3228, 31eqtrd 2795 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) · (π · 𝑛)) = ((𝐾 · 𝑛) · (2 · π)))
3327, 32oveq12d 6833 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → ((1 · (π · 𝑛)) + ((2 · 𝐾) · (π · 𝑛))) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
3423, 33eqtrd 2795 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) · (π · 𝑛)) + (1 · (π · 𝑛))) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
3518, 20, 343eqtrd 2799 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → ((((2 · 𝐾) + 1) · π) · 𝑛) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
363, 17, 353eqtrd 2799 . . . . . . . . . 10 ((𝜑𝑛 ∈ (1...𝑁)) → (𝑛 · 𝐴) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
3736fveq2d 6358 . . . . . . . . 9 ((𝜑𝑛 ∈ (1...𝑁)) → (cos‘(𝑛 · 𝐴)) = (cos‘((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π)))))
388adantr 472 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → 𝐾 ∈ ℤ)
394adantl 473 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → 𝑛 ∈ ℤ)
4038, 39zmulcld 11701 . . . . . . . . . 10 ((𝜑𝑛 ∈ (1...𝑁)) → (𝐾 · 𝑛) ∈ ℤ)
41 cosper 24455 . . . . . . . . . 10 (((π · 𝑛) ∈ ℂ ∧ (𝐾 · 𝑛) ∈ ℤ) → (cos‘((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π)))) = (cos‘(π · 𝑛)))
4219, 40, 41syl2anc 696 . . . . . . . . 9 ((𝜑𝑛 ∈ (1...𝑁)) → (cos‘((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π)))) = (cos‘(π · 𝑛)))
4337, 42eqtrd 2795 . . . . . . . 8 ((𝜑𝑛 ∈ (1...𝑁)) → (cos‘(𝑛 · 𝐴)) = (cos‘(π · 𝑛)))
4443sumeq2dv 14653 . . . . . . 7 (𝜑 → Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴)) = Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)))
4544oveq2d 6831 . . . . . 6 (𝜑 → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) = ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))))
4645oveq1d 6830 . . . . 5 (𝜑 → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π))
4746adantr 472 . . . 4 ((𝜑 ∧ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π))
48 dirkertrigeqlem3.n . . . . . . . . . . . . . 14 (𝜑𝑁 ∈ ℕ)
4948nncnd 11249 . . . . . . . . . . . . 13 (𝜑𝑁 ∈ ℂ)
50 2cnd 11306 . . . . . . . . . . . . 13 (𝜑 → 2 ∈ ℂ)
51 2ne0 11326 . . . . . . . . . . . . . 14 2 ≠ 0
5251a1i 11 . . . . . . . . . . . . 13 (𝜑 → 2 ≠ 0)
5349, 50, 52divcan2d 11016 . . . . . . . . . . . 12 (𝜑 → (2 · (𝑁 / 2)) = 𝑁)
5453eqcomd 2767 . . . . . . . . . . 11 (𝜑𝑁 = (2 · (𝑁 / 2)))
5554oveq2d 6831 . . . . . . . . . 10 (𝜑 → (1...𝑁) = (1...(2 · (𝑁 / 2))))
5655sumeq1d 14651 . . . . . . . . 9 (𝜑 → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)))
5756adantr 472 . . . . . . . 8 ((𝜑 ∧ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)))
5814a1i 11 . . . . . . . . . . . . 13 (𝑛 ∈ (1...(2 · (𝑁 / 2))) → π ∈ ℂ)
59 elfzelz 12556 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...(2 · (𝑁 / 2))) → 𝑛 ∈ ℤ)
6059zcnd 11696 . . . . . . . . . . . . 13 (𝑛 ∈ (1...(2 · (𝑁 / 2))) → 𝑛 ∈ ℂ)
6158, 60mulcomd 10274 . . . . . . . . . . . 12 (𝑛 ∈ (1...(2 · (𝑁 / 2))) → (π · 𝑛) = (𝑛 · π))
6261fveq2d 6358 . . . . . . . . . . 11 (𝑛 ∈ (1...(2 · (𝑁 / 2))) → (cos‘(π · 𝑛)) = (cos‘(𝑛 · π)))
6362rgen 3061 . . . . . . . . . 10 𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)) = (cos‘(𝑛 · π))
6463a1i 11 . . . . . . . . 9 ((𝜑 ∧ (𝑁 mod 2) = 0) → ∀𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)) = (cos‘(𝑛 · π)))
6564sumeq2d 14652 . . . . . . . 8 ((𝜑 ∧ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(𝑛 · π)))
66 simpr 479 . . . . . . . . . . 11 ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝑁 mod 2) = 0)
6748nnred 11248 . . . . . . . . . . . . 13 (𝜑𝑁 ∈ ℝ)
6867adantr 472 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑁 mod 2) = 0) → 𝑁 ∈ ℝ)
69 2rp 12051 . . . . . . . . . . . 12 2 ∈ ℝ+
70 mod0 12890 . . . . . . . . . . . 12 ((𝑁 ∈ ℝ ∧ 2 ∈ ℝ+) → ((𝑁 mod 2) = 0 ↔ (𝑁 / 2) ∈ ℤ))
7168, 69, 70sylancl 697 . . . . . . . . . . 11 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((𝑁 mod 2) = 0 ↔ (𝑁 / 2) ∈ ℤ))
7266, 71mpbid 222 . . . . . . . . . 10 ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝑁 / 2) ∈ ℤ)
73 2re 11303 . . . . . . . . . . . . 13 2 ∈ ℝ
7473a1i 11 . . . . . . . . . . . 12 (𝜑 → 2 ∈ ℝ)
7548nngt0d 11277 . . . . . . . . . . . 12 (𝜑 → 0 < 𝑁)
76 2pos 11325 . . . . . . . . . . . . 13 0 < 2
7776a1i 11 . . . . . . . . . . . 12 (𝜑 → 0 < 2)
7867, 74, 75, 77divgt0d 11172 . . . . . . . . . . 11 (𝜑 → 0 < (𝑁 / 2))
7978adantr 472 . . . . . . . . . 10 ((𝜑 ∧ (𝑁 mod 2) = 0) → 0 < (𝑁 / 2))
80 elnnz 11600 . . . . . . . . . 10 ((𝑁 / 2) ∈ ℕ ↔ ((𝑁 / 2) ∈ ℤ ∧ 0 < (𝑁 / 2)))
8172, 79, 80sylanbrc 701 . . . . . . . . 9 ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝑁 / 2) ∈ ℕ)
82 dirkertrigeqlem1 40837 . . . . . . . . 9 ((𝑁 / 2) ∈ ℕ → Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(𝑛 · π)) = 0)
8381, 82syl 17 . . . . . . . 8 ((𝜑 ∧ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(𝑛 · π)) = 0)
8457, 65, 833eqtrd 2799 . . . . . . 7 ((𝜑 ∧ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = 0)
8584oveq2d 6831 . . . . . 6 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) = ((1 / 2) + 0))
86 halfcn 11460 . . . . . . 7 (1 / 2) ∈ ℂ
8786addid1i 10436 . . . . . 6 ((1 / 2) + 0) = (1 / 2)
8885, 87syl6eq 2811 . . . . 5 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) = (1 / 2))
8988oveq1d 6830 . . . 4 ((𝜑 ∧ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π) = ((1 / 2) / π))
90 ax-1cn 10207 . . . . . 6 1 ∈ ℂ
91 2cnne0 11455 . . . . . 6 (2 ∈ ℂ ∧ 2 ≠ 0)
92 pire 24431 . . . . . . . 8 π ∈ ℝ
93 pipos 24433 . . . . . . . 8 0 < π
9492, 93gt0ne0ii 10777 . . . . . . 7 π ≠ 0
9514, 94pm3.2i 470 . . . . . 6 (π ∈ ℂ ∧ π ≠ 0)
96 divdiv1 10949 . . . . . 6 ((1 ∈ ℂ ∧ (2 ∈ ℂ ∧ 2 ≠ 0) ∧ (π ∈ ℂ ∧ π ≠ 0)) → ((1 / 2) / π) = (1 / (2 · π)))
9790, 91, 95, 96mp3an 1573 . . . . 5 ((1 / 2) / π) = (1 / (2 · π))
9897a1i 11 . . . 4 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((1 / 2) / π) = (1 / (2 · π)))
9947, 89, 983eqtrd 2799 . . 3 ((𝜑 ∧ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = (1 / (2 · π)))
1001oveq2i 6826 . . . . . . . . . 10 ((𝑁 + (1 / 2)) · 𝐴) = ((𝑁 + (1 / 2)) · (((2 · 𝐾) + 1) · π))
101100a1i 11 . . . . . . . . 9 (𝜑 → ((𝑁 + (1 / 2)) · 𝐴) = ((𝑁 + (1 / 2)) · (((2 · 𝐾) + 1) · π)))
10286a1i 11 . . . . . . . . . . 11 (𝜑 → (1 / 2) ∈ ℂ)
10349, 102addcld 10272 . . . . . . . . . 10 (𝜑 → (𝑁 + (1 / 2)) ∈ ℂ)
10450, 9mulcld 10273 . . . . . . . . . . 11 (𝜑 → (2 · 𝐾) ∈ ℂ)
105 peano2cn 10421 . . . . . . . . . . 11 ((2 · 𝐾) ∈ ℂ → ((2 · 𝐾) + 1) ∈ ℂ)
106104, 105syl 17 . . . . . . . . . 10 (𝜑 → ((2 · 𝐾) + 1) ∈ ℂ)
10714a1i 11 . . . . . . . . . 10 (𝜑 → π ∈ ℂ)
108103, 106, 107mulassd 10276 . . . . . . . . 9 (𝜑 → (((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) · π) = ((𝑁 + (1 / 2)) · (((2 · 𝐾) + 1) · π)))
109 1cnd 10269 . . . . . . . . . . . . . 14 (𝜑 → 1 ∈ ℂ)
11049, 102, 104, 109muladdd 10702 . . . . . . . . . . . . 13 (𝜑 → ((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) = (((𝑁 · (2 · 𝐾)) + (1 · (1 / 2))) + ((𝑁 · 1) + ((2 · 𝐾) · (1 / 2)))))
11149, 50, 9mul12d 10458 . . . . . . . . . . . . . . 15 (𝜑 → (𝑁 · (2 · 𝐾)) = (2 · (𝑁 · 𝐾)))
112102mulid2d 10271 . . . . . . . . . . . . . . 15 (𝜑 → (1 · (1 / 2)) = (1 / 2))
113111, 112oveq12d 6833 . . . . . . . . . . . . . 14 (𝜑 → ((𝑁 · (2 · 𝐾)) + (1 · (1 / 2))) = ((2 · (𝑁 · 𝐾)) + (1 / 2)))
11449mulid1d 10270 . . . . . . . . . . . . . . 15 (𝜑 → (𝑁 · 1) = 𝑁)
11550, 9mulcomd 10274 . . . . . . . . . . . . . . . . 17 (𝜑 → (2 · 𝐾) = (𝐾 · 2))
116115oveq1d 6830 . . . . . . . . . . . . . . . 16 (𝜑 → ((2 · 𝐾) · (1 / 2)) = ((𝐾 · 2) · (1 / 2)))
1179, 50, 102mulassd 10276 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝐾 · 2) · (1 / 2)) = (𝐾 · (2 · (1 / 2))))
118 2cn 11304 . . . . . . . . . . . . . . . . . . 19 2 ∈ ℂ
119118, 51recidi 10969 . . . . . . . . . . . . . . . . . 18 (2 · (1 / 2)) = 1
120119oveq2i 6826 . . . . . . . . . . . . . . . . 17 (𝐾 · (2 · (1 / 2))) = (𝐾 · 1)
1219mulid1d 10270 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐾 · 1) = 𝐾)
122120, 121syl5eq 2807 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐾 · (2 · (1 / 2))) = 𝐾)
123116, 117, 1223eqtrd 2799 . . . . . . . . . . . . . . 15 (𝜑 → ((2 · 𝐾) · (1 / 2)) = 𝐾)
124114, 123oveq12d 6833 . . . . . . . . . . . . . 14 (𝜑 → ((𝑁 · 1) + ((2 · 𝐾) · (1 / 2))) = (𝑁 + 𝐾))
125113, 124oveq12d 6833 . . . . . . . . . . . . 13 (𝜑 → (((𝑁 · (2 · 𝐾)) + (1 · (1 / 2))) + ((𝑁 · 1) + ((2 · 𝐾) · (1 / 2)))) = (((2 · (𝑁 · 𝐾)) + (1 / 2)) + (𝑁 + 𝐾)))
12649, 9mulcld 10273 . . . . . . . . . . . . . . 15 (𝜑 → (𝑁 · 𝐾) ∈ ℂ)
12750, 126mulcld 10273 . . . . . . . . . . . . . 14 (𝜑 → (2 · (𝑁 · 𝐾)) ∈ ℂ)
12849, 9addcld 10272 . . . . . . . . . . . . . 14 (𝜑 → (𝑁 + 𝐾) ∈ ℂ)
129127, 102, 128addassd 10275 . . . . . . . . . . . . 13 (𝜑 → (((2 · (𝑁 · 𝐾)) + (1 / 2)) + (𝑁 + 𝐾)) = ((2 · (𝑁 · 𝐾)) + ((1 / 2) + (𝑁 + 𝐾))))
130110, 125, 1293eqtrd 2799 . . . . . . . . . . . 12 (𝜑 → ((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) = ((2 · (𝑁 · 𝐾)) + ((1 / 2) + (𝑁 + 𝐾))))
131102, 128addcld 10272 . . . . . . . . . . . . 13 (𝜑 → ((1 / 2) + (𝑁 + 𝐾)) ∈ ℂ)
132127, 131addcomd 10451 . . . . . . . . . . . 12 (𝜑 → ((2 · (𝑁 · 𝐾)) + ((1 / 2) + (𝑁 + 𝐾))) = (((1 / 2) + (𝑁 + 𝐾)) + (2 · (𝑁 · 𝐾))))
13350, 126mulcomd 10274 . . . . . . . . . . . . 13 (𝜑 → (2 · (𝑁 · 𝐾)) = ((𝑁 · 𝐾) · 2))
134133oveq2d 6831 . . . . . . . . . . . 12 (𝜑 → (((1 / 2) + (𝑁 + 𝐾)) + (2 · (𝑁 · 𝐾))) = (((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)))
135130, 132, 1343eqtrd 2799 . . . . . . . . . . 11 (𝜑 → ((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) = (((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)))
136135oveq1d 6830 . . . . . . . . . 10 (𝜑 → (((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) · π) = ((((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)) · π))
137126, 50mulcld 10273 . . . . . . . . . . 11 (𝜑 → ((𝑁 · 𝐾) · 2) ∈ ℂ)
138131, 137, 107adddird 10278 . . . . . . . . . 10 (𝜑 → ((((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)) · π) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + (((𝑁 · 𝐾) · 2) · π)))
139126, 50, 107mulassd 10276 . . . . . . . . . . 11 (𝜑 → (((𝑁 · 𝐾) · 2) · π) = ((𝑁 · 𝐾) · (2 · π)))
140139oveq2d 6831 . . . . . . . . . 10 (𝜑 → ((((1 / 2) + (𝑁 + 𝐾)) · π) + (((𝑁 · 𝐾) · 2) · π)) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π))))
141136, 138, 1403eqtrd 2799 . . . . . . . . 9 (𝜑 → (((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) · π) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π))))
142101, 108, 1413eqtr2d 2801 . . . . . . . 8 (𝜑 → ((𝑁 + (1 / 2)) · 𝐴) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π))))
143142fveq2d 6358 . . . . . . 7 (𝜑 → (sin‘((𝑁 + (1 / 2)) · 𝐴)) = (sin‘((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π)))))
144131, 107mulcld 10273 . . . . . . . 8 (𝜑 → (((1 / 2) + (𝑁 + 𝐾)) · π) ∈ ℂ)
14548nnzd 11694 . . . . . . . . 9 (𝜑𝑁 ∈ ℤ)
146145, 8zmulcld 11701 . . . . . . . 8 (𝜑 → (𝑁 · 𝐾) ∈ ℤ)
147 sinper 24454 . . . . . . . 8 (((((1 / 2) + (𝑁 + 𝐾)) · π) ∈ ℂ ∧ (𝑁 · 𝐾) ∈ ℤ) → (sin‘((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π)))) = (sin‘(((1 / 2) + (𝑁 + 𝐾)) · π)))
148144, 146, 147syl2anc 696 . . . . . . 7 (𝜑 → (sin‘((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π)))) = (sin‘(((1 / 2) + (𝑁 + 𝐾)) · π)))
149102, 128addcomd 10451 . . . . . . . . . 10 (𝜑 → ((1 / 2) + (𝑁 + 𝐾)) = ((𝑁 + 𝐾) + (1 / 2)))
15049, 9, 102addassd 10275 . . . . . . . . . 10 (𝜑 → ((𝑁 + 𝐾) + (1 / 2)) = (𝑁 + (𝐾 + (1 / 2))))
1519, 102addcld 10272 . . . . . . . . . . 11 (𝜑 → (𝐾 + (1 / 2)) ∈ ℂ)
15249, 151addcomd 10451 . . . . . . . . . 10 (𝜑 → (𝑁 + (𝐾 + (1 / 2))) = ((𝐾 + (1 / 2)) + 𝑁))
153149, 150, 1523eqtrd 2799 . . . . . . . . 9 (𝜑 → ((1 / 2) + (𝑁 + 𝐾)) = ((𝐾 + (1 / 2)) + 𝑁))
154153oveq1d 6830 . . . . . . . 8 (𝜑 → (((1 / 2) + (𝑁 + 𝐾)) · π) = (((𝐾 + (1 / 2)) + 𝑁) · π))
155154fveq2d 6358 . . . . . . 7 (𝜑 → (sin‘(((1 / 2) + (𝑁 + 𝐾)) · π)) = (sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)))
156143, 148, 1553eqtrd 2799 . . . . . 6 (𝜑 → (sin‘((𝑁 + (1 / 2)) · 𝐴)) = (sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)))
1571a1i 11 . . . . . . . . . 10 (𝜑𝐴 = (((2 · 𝐾) + 1) · π))
158157oveq1d 6830 . . . . . . . . 9 (𝜑 → (𝐴 / 2) = ((((2 · 𝐾) + 1) · π) / 2))
159106, 107, 50, 52div23d 11051 . . . . . . . . 9 (𝜑 → ((((2 · 𝐾) + 1) · π) / 2) = ((((2 · 𝐾) + 1) / 2) · π))
160104, 109, 50, 52divdird 11052 . . . . . . . . . . 11 (𝜑 → (((2 · 𝐾) + 1) / 2) = (((2 · 𝐾) / 2) + (1 / 2)))
1619, 50, 52divcan3d 11019 . . . . . . . . . . . 12 (𝜑 → ((2 · 𝐾) / 2) = 𝐾)
162161oveq1d 6830 . . . . . . . . . . 11 (𝜑 → (((2 · 𝐾) / 2) + (1 / 2)) = (𝐾 + (1 / 2)))
163160, 162eqtrd 2795 . . . . . . . . . 10 (𝜑 → (((2 · 𝐾) + 1) / 2) = (𝐾 + (1 / 2)))
164163oveq1d 6830 . . . . . . . . 9 (𝜑 → ((((2 · 𝐾) + 1) / 2) · π) = ((𝐾 + (1 / 2)) · π))
165158, 159, 1643eqtrd 2799 . . . . . . . 8 (𝜑 → (𝐴 / 2) = ((𝐾 + (1 / 2)) · π))
166165fveq2d 6358 . . . . . . 7 (𝜑 → (sin‘(𝐴 / 2)) = (sin‘((𝐾 + (1 / 2)) · π)))
167166oveq2d 6831 . . . . . 6 (𝜑 → ((2 · π) · (sin‘(𝐴 / 2))) = ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π))))
168156, 167oveq12d 6833 . . . . 5 (𝜑 → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))) = ((sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
169168adantr 472 . . . 4 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))) = ((sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
170151, 49, 107adddird 10278 . . . . . . 7 (𝜑 → (((𝐾 + (1 / 2)) + 𝑁) · π) = (((𝐾 + (1 / 2)) · π) + (𝑁 · π)))
171170fveq2d 6358 . . . . . 6 (𝜑 → (sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) = (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))))
172171oveq1d 6830 . . . . 5 (𝜑 → ((sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
173172adantr 472 . . . 4 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
17449halfcld 11490 . . . . . . . . . . . . . 14 (𝜑 → (𝑁 / 2) ∈ ℂ)
17550, 174mulcomd 10274 . . . . . . . . . . . . 13 (𝜑 → (2 · (𝑁 / 2)) = ((𝑁 / 2) · 2))
17653, 175eqtr3d 2797 . . . . . . . . . . . 12 (𝜑𝑁 = ((𝑁 / 2) · 2))
177176oveq1d 6830 . . . . . . . . . . 11 (𝜑 → (𝑁 · π) = (((𝑁 / 2) · 2) · π))
178174, 50, 107mulassd 10276 . . . . . . . . . . 11 (𝜑 → (((𝑁 / 2) · 2) · π) = ((𝑁 / 2) · (2 · π)))
179177, 178eqtrd 2795 . . . . . . . . . 10 (𝜑 → (𝑁 · π) = ((𝑁 / 2) · (2 · π)))
180179oveq2d 6831 . . . . . . . . 9 (𝜑 → (((𝐾 + (1 / 2)) · π) + (𝑁 · π)) = (((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π))))
181180fveq2d 6358 . . . . . . . 8 (𝜑 → (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) = (sin‘(((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π)))))
182181adantr 472 . . . . . . 7 ((𝜑 ∧ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) = (sin‘(((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π)))))
1839adantr 472 . . . . . . . . . 10 ((𝜑 ∧ (𝑁 mod 2) = 0) → 𝐾 ∈ ℂ)
184 1cnd 10269 . . . . . . . . . . 11 ((𝜑 ∧ (𝑁 mod 2) = 0) → 1 ∈ ℂ)
185184halfcld 11490 . . . . . . . . . 10 ((𝜑 ∧ (𝑁 mod 2) = 0) → (1 / 2) ∈ ℂ)
186183, 185addcld 10272 . . . . . . . . 9 ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝐾 + (1 / 2)) ∈ ℂ)
18714a1i 11 . . . . . . . . 9 ((𝜑 ∧ (𝑁 mod 2) = 0) → π ∈ ℂ)
188186, 187mulcld 10273 . . . . . . . 8 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((𝐾 + (1 / 2)) · π) ∈ ℂ)
189 sinper 24454 . . . . . . . 8 ((((𝐾 + (1 / 2)) · π) ∈ ℂ ∧ (𝑁 / 2) ∈ ℤ) → (sin‘(((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π)))) = (sin‘((𝐾 + (1 / 2)) · π)))
190188, 72, 189syl2anc 696 . . . . . . 7 ((𝜑 ∧ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π)))) = (sin‘((𝐾 + (1 / 2)) · π)))
191182, 190eqtrd 2795 . . . . . 6 ((𝜑 ∧ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) = (sin‘((𝐾 + (1 / 2)) · π)))
19250, 107mulcld 10273 . . . . . . . 8 (𝜑 → (2 · π) ∈ ℂ)
193151, 107mulcld 10273 . . . . . . . . 9 (𝜑 → ((𝐾 + (1 / 2)) · π) ∈ ℂ)
194193sincld 15080 . . . . . . . 8 (𝜑 → (sin‘((𝐾 + (1 / 2)) · π)) ∈ ℂ)
195192, 194mulcomd 10274 . . . . . . 7 (𝜑 → ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π))) = ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π)))
196195adantr 472 . . . . . 6 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π))) = ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π)))
197191, 196oveq12d 6833 . . . . 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 11020 . . . . . . . . . . 11 (𝜑 → (((𝐾 + (1 / 2)) · π) / π) = (𝐾 + (1 / 2)))
2008zred 11695 . . . . . . . . . . . . 13 (𝜑𝐾 ∈ ℝ)
20169a1i 11 . . . . . . . . . . . . . 14 (𝜑 → 2 ∈ ℝ+)
202201rpreccld 12096 . . . . . . . . . . . . 13 (𝜑 → (1 / 2) ∈ ℝ+)
203200, 202ltaddrpd 12119 . . . . . . . . . . . 12 (𝜑𝐾 < (𝐾 + (1 / 2)))
204 1red 10268 . . . . . . . . . . . . . 14 (𝜑 → 1 ∈ ℝ)
205204rehalfcld 11492 . . . . . . . . . . . . 13 (𝜑 → (1 / 2) ∈ ℝ)
206 halflt1 11463 . . . . . . . . . . . . . 14 (1 / 2) < 1
207206a1i 11 . . . . . . . . . . . . 13 (𝜑 → (1 / 2) < 1)
208205, 204, 200, 207ltadd2dd 10409 . . . . . . . . . . . 12 (𝜑 → (𝐾 + (1 / 2)) < (𝐾 + 1))
209 btwnnz 11666 . . . . . . . . . . . 12 ((𝐾 ∈ ℤ ∧ 𝐾 < (𝐾 + (1 / 2)) ∧ (𝐾 + (1 / 2)) < (𝐾 + 1)) → ¬ (𝐾 + (1 / 2)) ∈ ℤ)
2108, 203, 208, 209syl3anc 1477 . . . . . . . . . . 11 (𝜑 → ¬ (𝐾 + (1 / 2)) ∈ ℤ)
211199, 210eqneltrd 2859 . . . . . . . . . 10 (𝜑 → ¬ (((𝐾 + (1 / 2)) · π) / π) ∈ ℤ)
212 sineq0 24494 . . . . . . . . . . 11 (((𝐾 + (1 / 2)) · π) ∈ ℂ → ((sin‘((𝐾 + (1 / 2)) · π)) = 0 ↔ (((𝐾 + (1 / 2)) · π) / π) ∈ ℤ))
213193, 212syl 17 . . . . . . . . . 10 (𝜑 → ((sin‘((𝐾 + (1 / 2)) · π)) = 0 ↔ (((𝐾 + (1 / 2)) · π) / π) ∈ ℤ))
214211, 213mtbird 314 . . . . . . . . 9 (𝜑 → ¬ (sin‘((𝐾 + (1 / 2)) · π)) = 0)
215214neqned 2940 . . . . . . . 8 (𝜑 → (sin‘((𝐾 + (1 / 2)) · π)) ≠ 0)
21650, 107, 52, 198mulne0d 10892 . . . . . . . 8 (𝜑 → (2 · π) ≠ 0)
217194, 194, 192, 215, 216divdiv1d 11045 . . . . . . 7 (𝜑 → (((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = ((sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))))
218194, 215dividd 11012 . . . . . . . 8 (𝜑 → ((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = 1)
219218oveq1d 6830 . . . . . . 7 (𝜑 → (((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = (1 / (2 · π)))
220217, 219eqtr3d 2797 . . . . . 6 (𝜑 → ((sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))) = (1 / (2 · π)))
221220adantr 472 . . . . 5 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))) = (1 / (2 · π)))
222197, 221eqtrd 2795 . . . 4 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (1 / (2 · π)))
223169, 173, 2223eqtrrd 2800 . . 3 ((𝜑 ∧ (𝑁 mod 2) = 0) → (1 / (2 · π)) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
22499, 223eqtrd 2795 . 2 ((𝜑 ∧ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
22546adantr 472 . . 3 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π))
226145adantr 472 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → 𝑁 ∈ ℤ)
227 simpr 479 . . . . . . . . . 10 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ¬ (𝑁 mod 2) = 0)
228227neqned 2940 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (𝑁 mod 2) ≠ 0)
229 oddfl 40007 . . . . . . . . 9 ((𝑁 ∈ ℤ ∧ (𝑁 mod 2) ≠ 0) → 𝑁 = ((2 · (⌊‘(𝑁 / 2))) + 1))
230226, 228, 229syl2anc 696 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → 𝑁 = ((2 · (⌊‘(𝑁 / 2))) + 1))
231230oveq2d 6831 . . . . . . 7 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (1...𝑁) = (1...((2 · (⌊‘(𝑁 / 2))) + 1)))
232231sumeq1d 14651 . . . . . 6 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)))
233 oveq1 6822 . . . . . . . . . . . . . . . . . 18 (𝑁 = 1 → (𝑁 / 2) = (1 / 2))
234233fveq2d 6358 . . . . . . . . . . . . . . . . 17 (𝑁 = 1 → (⌊‘(𝑁 / 2)) = (⌊‘(1 / 2)))
235 halffl 40028 . . . . . . . . . . . . . . . . 17 (⌊‘(1 / 2)) = 0
236234, 235syl6eq 2811 . . . . . . . . . . . . . . . 16 (𝑁 = 1 → (⌊‘(𝑁 / 2)) = 0)
237236oveq2d 6831 . . . . . . . . . . . . . . 15 (𝑁 = 1 → (2 · (⌊‘(𝑁 / 2))) = (2 · 0))
238 2t0e0 11396 . . . . . . . . . . . . . . 15 (2 · 0) = 0
239237, 238syl6eq 2811 . . . . . . . . . . . . . 14 (𝑁 = 1 → (2 · (⌊‘(𝑁 / 2))) = 0)
240239oveq1d 6830 . . . . . . . . . . . . 13 (𝑁 = 1 → ((2 · (⌊‘(𝑁 / 2))) + 1) = (0 + 1))
24190addid2i 10437 . . . . . . . . . . . . 13 (0 + 1) = 1
242240, 241syl6eq 2811 . . . . . . . . . . . 12 (𝑁 = 1 → ((2 · (⌊‘(𝑁 / 2))) + 1) = 1)
243242oveq2d 6831 . . . . . . . . . . 11 (𝑁 = 1 → (1...((2 · (⌊‘(𝑁 / 2))) + 1)) = (1...1))
244243sumeq1d 14651 . . . . . . . . . 10 (𝑁 = 1 → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)))
245 1z 11620 . . . . . . . . . . . 12 1 ∈ ℤ
246 coscl 15077 . . . . . . . . . . . . 13 (π ∈ ℂ → (cos‘π) ∈ ℂ)
24714, 246ax-mp 5 . . . . . . . . . . . 12 (cos‘π) ∈ ℂ
248 oveq2 6823 . . . . . . . . . . . . . . 15 (𝑛 = 1 → (π · 𝑛) = (π · 1))
24914mulid1i 10255 . . . . . . . . . . . . . . 15 (π · 1) = π
250248, 249syl6eq 2811 . . . . . . . . . . . . . 14 (𝑛 = 1 → (π · 𝑛) = π)
251250fveq2d 6358 . . . . . . . . . . . . 13 (𝑛 = 1 → (cos‘(π · 𝑛)) = (cos‘π))
252251fsum1 14696 . . . . . . . . . . . 12 ((1 ∈ ℤ ∧ (cos‘π) ∈ ℂ) → Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)) = (cos‘π))
253245, 247, 252mp2an 710 . . . . . . . . . . 11 Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)) = (cos‘π)
254253a1i 11 . . . . . . . . . 10 (𝑁 = 1 → Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)) = (cos‘π))
255 cospi 24445 . . . . . . . . . . 11 (cos‘π) = -1
256255a1i 11 . . . . . . . . . 10 (𝑁 = 1 → (cos‘π) = -1)
257244, 254, 2563eqtrd 2799 . . . . . . . . 9 (𝑁 = 1 → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
258257adantl 473 . . . . . . . 8 ((𝜑𝑁 = 1) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
259 2nn 11398 . . . . . . . . . . . . 13 2 ∈ ℕ
260259a1i 11 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ∈ ℕ)
26167rehalfcld 11492 . . . . . . . . . . . . . . 15 (𝜑 → (𝑁 / 2) ∈ ℝ)
262261flcld 12814 . . . . . . . . . . . . . 14 (𝜑 → (⌊‘(𝑁 / 2)) ∈ ℤ)
263262adantr 472 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ 𝑁 = 1) → (⌊‘(𝑁 / 2)) ∈ ℤ)
264 2div2e1 11363 . . . . . . . . . . . . . . 15 (2 / 2) = 1
26573a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ∈ ℝ)
26667adantr 472 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ¬ 𝑁 = 1) → 𝑁 ∈ ℝ)
26769a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ∈ ℝ+)
268 neqne 2941 . . . . . . . . . . . . . . . . 17 𝑁 = 1 → 𝑁 ≠ 1)
269 nnne1ge2 40022 . . . . . . . . . . . . . . . . 17 ((𝑁 ∈ ℕ ∧ 𝑁 ≠ 1) → 2 ≤ 𝑁)
27048, 268, 269syl2an 495 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ≤ 𝑁)
271265, 266, 267, 270lediv1dd 12144 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ¬ 𝑁 = 1) → (2 / 2) ≤ (𝑁 / 2))
272264, 271syl5eqbrr 4841 . . . . . . . . . . . . . 14 ((𝜑 ∧ ¬ 𝑁 = 1) → 1 ≤ (𝑁 / 2))
273261adantr 472 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ¬ 𝑁 = 1) → (𝑁 / 2) ∈ ℝ)
274 flge 12821 . . . . . . . . . . . . . . 15 (((𝑁 / 2) ∈ ℝ ∧ 1 ∈ ℤ) → (1 ≤ (𝑁 / 2) ↔ 1 ≤ (⌊‘(𝑁 / 2))))
275273, 245, 274sylancl 697 . . . . . . . . . . . . . 14 ((𝜑 ∧ ¬ 𝑁 = 1) → (1 ≤ (𝑁 / 2) ↔ 1 ≤ (⌊‘(𝑁 / 2))))
276272, 275mpbid 222 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ 𝑁 = 1) → 1 ≤ (⌊‘(𝑁 / 2)))
277 elnnz1 11616 . . . . . . . . . . . . 13 ((⌊‘(𝑁 / 2)) ∈ ℕ ↔ ((⌊‘(𝑁 / 2)) ∈ ℤ ∧ 1 ≤ (⌊‘(𝑁 / 2))))
278263, 276, 277sylanbrc 701 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝑁 = 1) → (⌊‘(𝑁 / 2)) ∈ ℕ)
279260, 278nnmulcld 11281 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝑁 = 1) → (2 · (⌊‘(𝑁 / 2))) ∈ ℕ)
280 nnuz 11937 . . . . . . . . . . 11 ℕ = (ℤ‘1)
281279, 280syl6eleq 2850 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝑁 = 1) → (2 · (⌊‘(𝑁 / 2))) ∈ (ℤ‘1))
28214a1i 11 . . . . . . . . . . . 12 (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → π ∈ ℂ)
283 elfzelz 12556 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1)) → 𝑛 ∈ ℤ)
284283zcnd 11696 . . . . . . . . . . . . 13 (𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1)) → 𝑛 ∈ ℂ)
285284adantl 473 . . . . . . . . . . . 12 (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → 𝑛 ∈ ℂ)
286282, 285mulcld 10273 . . . . . . . . . . 11 (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → (π · 𝑛) ∈ ℂ)
287286coscld 15081 . . . . . . . . . 10 (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → (cos‘(π · 𝑛)) ∈ ℂ)
288 oveq2 6823 . . . . . . . . . . 11 (𝑛 = ((2 · (⌊‘(𝑁 / 2))) + 1) → (π · 𝑛) = (π · ((2 · (⌊‘(𝑁 / 2))) + 1)))
289288fveq2d 6358 . . . . . . . . . 10 (𝑛 = ((2 · (⌊‘(𝑁 / 2))) + 1) → (cos‘(π · 𝑛)) = (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))))
290281, 287, 289fsump1 14707 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = (Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) + (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1)))))
29114a1i 11 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → π ∈ ℂ)
292 elfzelz 12556 . . . . . . . . . . . . . . 15 (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → 𝑛 ∈ ℤ)
293292zcnd 11696 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → 𝑛 ∈ ℂ)
294291, 293mulcomd 10274 . . . . . . . . . . . . 13 (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → (π · 𝑛) = (𝑛 · π))
295294fveq2d 6358 . . . . . . . . . . . 12 (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → (cos‘(π · 𝑛)) = (cos‘(𝑛 · π)))
296295sumeq2i 14649 . . . . . . . . . . 11 Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(𝑛 · π))
297 dirkertrigeqlem1 40837 . . . . . . . . . . . 12 ((⌊‘(𝑁 / 2)) ∈ ℕ → Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(𝑛 · π)) = 0)
298278, 297syl 17 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(𝑛 · π)) = 0)
299296, 298syl5eq 2807 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) = 0)
300262zcnd 11696 . . . . . . . . . . . . . . . 16 (𝜑 → (⌊‘(𝑁 / 2)) ∈ ℂ)
30150, 300mulcld 10273 . . . . . . . . . . . . . . 15 (𝜑 → (2 · (⌊‘(𝑁 / 2))) ∈ ℂ)
302107, 301, 109adddid 10277 . . . . . . . . . . . . . 14 (𝜑 → (π · ((2 · (⌊‘(𝑁 / 2))) + 1)) = ((π · (2 · (⌊‘(𝑁 / 2)))) + (π · 1)))
303107, 50, 300mul13d 40009 . . . . . . . . . . . . . . 15 (𝜑 → (π · (2 · (⌊‘(𝑁 / 2)))) = ((⌊‘(𝑁 / 2)) · (2 · π)))
304249a1i 11 . . . . . . . . . . . . . . 15 (𝜑 → (π · 1) = π)
305303, 304oveq12d 6833 . . . . . . . . . . . . . 14 (𝜑 → ((π · (2 · (⌊‘(𝑁 / 2)))) + (π · 1)) = (((⌊‘(𝑁 / 2)) · (2 · π)) + π))
306300, 192mulcld 10273 . . . . . . . . . . . . . . 15 (𝜑 → ((⌊‘(𝑁 / 2)) · (2 · π)) ∈ ℂ)
307306, 107addcomd 10451 . . . . . . . . . . . . . 14 (𝜑 → (((⌊‘(𝑁 / 2)) · (2 · π)) + π) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
308302, 305, 3073eqtrd 2799 . . . . . . . . . . . . 13 (𝜑 → (π · ((2 · (⌊‘(𝑁 / 2))) + 1)) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
309308fveq2d 6358 . . . . . . . . . . . 12 (𝜑 → (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))) = (cos‘(π + ((⌊‘(𝑁 / 2)) · (2 · π)))))
310 cosper 24455 . . . . . . . . . . . . 13 ((π ∈ ℂ ∧ (⌊‘(𝑁 / 2)) ∈ ℤ) → (cos‘(π + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (cos‘π))
311107, 262, 310syl2anc 696 . . . . . . . . . . . 12 (𝜑 → (cos‘(π + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (cos‘π))
312255a1i 11 . . . . . . . . . . . 12 (𝜑 → (cos‘π) = -1)
313309, 311, 3123eqtrd 2799 . . . . . . . . . . 11 (𝜑 → (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))) = -1)
314313adantr 472 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝑁 = 1) → (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))) = -1)
315299, 314oveq12d 6833 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝑁 = 1) → (Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) + (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1)))) = (0 + -1))
316 neg1cn 11337 . . . . . . . . . . 11 -1 ∈ ℂ
317316addid2i 10437 . . . . . . . . . 10 (0 + -1) = -1
318317a1i 11 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝑁 = 1) → (0 + -1) = -1)
319290, 315, 3183eqtrd 2799 . . . . . . . 8 ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
320258, 319pm2.61dan 867 . . . . . . 7 (𝜑 → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
321320adantr 472 . . . . . 6 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
322232, 321eqtrd 2795 . . . . 5 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = -1)
323322oveq2d 6831 . . . 4 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) = ((1 / 2) + -1))
324323oveq1d 6830 . . 3 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π) = (((1 / 2) + -1) / π))
325168, 172eqtrd 2795 . . . . 5 (𝜑 → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))) = ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
326325adantr 472 . . . 4 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))) = ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
327230oveq1d 6830 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (𝑁 · π) = (((2 · (⌊‘(𝑁 / 2))) + 1) · π))
328301, 109, 107adddird 10278 . . . . . . . . . . 11 (𝜑 → (((2 · (⌊‘(𝑁 / 2))) + 1) · π) = (((2 · (⌊‘(𝑁 / 2))) · π) + (1 · π)))
329107mulid2d 10271 . . . . . . . . . . . 12 (𝜑 → (1 · π) = π)
330329oveq2d 6831 . . . . . . . . . . 11 (𝜑 → (((2 · (⌊‘(𝑁 / 2))) · π) + (1 · π)) = (((2 · (⌊‘(𝑁 / 2))) · π) + π))
331301, 107mulcld 10273 . . . . . . . . . . . 12 (𝜑 → ((2 · (⌊‘(𝑁 / 2))) · π) ∈ ℂ)
332331, 107addcomd 10451 . . . . . . . . . . 11 (𝜑 → (((2 · (⌊‘(𝑁 / 2))) · π) + π) = (π + ((2 · (⌊‘(𝑁 / 2))) · π)))
333328, 330, 3323eqtrd 2799 . . . . . . . . . 10 (𝜑 → (((2 · (⌊‘(𝑁 / 2))) + 1) · π) = (π + ((2 · (⌊‘(𝑁 / 2))) · π)))
334333adantr 472 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((2 · (⌊‘(𝑁 / 2))) + 1) · π) = (π + ((2 · (⌊‘(𝑁 / 2))) · π)))
33550, 300mulcomd 10274 . . . . . . . . . . . . 13 (𝜑 → (2 · (⌊‘(𝑁 / 2))) = ((⌊‘(𝑁 / 2)) · 2))
336335oveq1d 6830 . . . . . . . . . . . 12 (𝜑 → ((2 · (⌊‘(𝑁 / 2))) · π) = (((⌊‘(𝑁 / 2)) · 2) · π))
337300, 50, 107mulassd 10276 . . . . . . . . . . . 12 (𝜑 → (((⌊‘(𝑁 / 2)) · 2) · π) = ((⌊‘(𝑁 / 2)) · (2 · π)))
338336, 337eqtrd 2795 . . . . . . . . . . 11 (𝜑 → ((2 · (⌊‘(𝑁 / 2))) · π) = ((⌊‘(𝑁 / 2)) · (2 · π)))
339338oveq2d 6831 . . . . . . . . . 10 (𝜑 → (π + ((2 · (⌊‘(𝑁 / 2))) · π)) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
340339adantr 472 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (π + ((2 · (⌊‘(𝑁 / 2))) · π)) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
341327, 334, 3403eqtrd 2799 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (𝑁 · π) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
342341oveq2d 6831 . . . . . . 7 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((𝐾 + (1 / 2)) · π) + (𝑁 · π)) = (((𝐾 + (1 / 2)) · π) + (π + ((⌊‘(𝑁 / 2)) · (2 · π)))))
343193adantr 472 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((𝐾 + (1 / 2)) · π) ∈ ℂ)
34414a1i 11 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → π ∈ ℂ)
345306adantr 472 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((⌊‘(𝑁 / 2)) · (2 · π)) ∈ ℂ)
346343, 344, 345addassd 10275 . . . . . . 7 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π))) = (((𝐾 + (1 / 2)) · π) + (π + ((⌊‘(𝑁 / 2)) · (2 · π)))))
347342, 346eqtr4d 2798 . . . . . 6 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((𝐾 + (1 / 2)) · π) + (𝑁 · π)) = ((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π))))
348347fveq2d 6358 . . . . 5 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) = (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))))
349348oveq1d 6830 . . . 4 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
350193, 107addcld 10272 . . . . . . . . 9 (𝜑 → (((𝐾 + (1 / 2)) · π) + π) ∈ ℂ)
351 sinper 24454 . . . . . . . . 9 (((((𝐾 + (1 / 2)) · π) + π) ∈ ℂ ∧ (⌊‘(𝑁 / 2)) ∈ ℤ) → (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (sin‘(((𝐾 + (1 / 2)) · π) + π)))
352350, 262, 351syl2anc 696 . . . . . . . 8 (𝜑 → (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (sin‘(((𝐾 + (1 / 2)) · π) + π)))
353 sinppi 24462 . . . . . . . . 9 (((𝐾 + (1 / 2)) · π) ∈ ℂ → (sin‘(((𝐾 + (1 / 2)) · π) + π)) = -(sin‘((𝐾 + (1 / 2)) · π)))
354193, 353syl 17 . . . . . . . 8 (𝜑 → (sin‘(((𝐾 + (1 / 2)) · π) + π)) = -(sin‘((𝐾 + (1 / 2)) · π)))
355352, 354eqtrd 2795 . . . . . . 7 (𝜑 → (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) = -(sin‘((𝐾 + (1 / 2)) · π)))
356355oveq1d 6830 . . . . . 6 (𝜑 → ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (-(sin‘((𝐾 + (1 / 2)) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
357195oveq2d 6831 . . . . . 6 (𝜑 → (-(sin‘((𝐾 + (1 / 2)) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (-(sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))))
358194, 194, 215divnegd 11027 . . . . . . . . 9 (𝜑 → -((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = (-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))))
359218negeqd 10488 . . . . . . . . 9 (𝜑 → -((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = -1)
360358, 359eqtr3d 2797 . . . . . . . 8 (𝜑 → (-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = -1)
361360oveq1d 6830 . . . . . . 7 (𝜑 → ((-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = (-1 / (2 · π)))
362194negcld 10592 . . . . . . . 8 (𝜑 → -(sin‘((𝐾 + (1 / 2)) · π)) ∈ ℂ)
363362, 194, 192, 215, 216divdiv1d 11045 . . . . . . 7 (𝜑 → ((-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = (-(sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))))
36486, 90negsubi 10572 . . . . . . . . . . 11 ((1 / 2) + -1) = ((1 / 2) − 1)
36590, 86negsubdi2i 10580 . . . . . . . . . . 11 -(1 − (1 / 2)) = ((1 / 2) − 1)
366 1mhlfehlf 11464 . . . . . . . . . . . . 13 (1 − (1 / 2)) = (1 / 2)
367366negeqi 10487 . . . . . . . . . . . 12 -(1 − (1 / 2)) = -(1 / 2)
368 divneg 10932 . . . . . . . . . . . . 13 ((1 ∈ ℂ ∧ 2 ∈ ℂ ∧ 2 ≠ 0) → -(1 / 2) = (-1 / 2))
36990, 118, 51, 368mp3an 1573 . . . . . . . . . . . 12 -(1 / 2) = (-1 / 2)
370367, 369eqtri 2783 . . . . . . . . . . 11 -(1 − (1 / 2)) = (-1 / 2)
371364, 365, 3703eqtr2i 2789 . . . . . . . . . 10 ((1 / 2) + -1) = (-1 / 2)
372371oveq1i 6825 . . . . . . . . 9 (((1 / 2) + -1) / π) = ((-1 / 2) / π)
373 divdiv1 10949 . . . . . . . . . 10 ((-1 ∈ ℂ ∧ (2 ∈ ℂ ∧ 2 ≠ 0) ∧ (π ∈ ℂ ∧ π ≠ 0)) → ((-1 / 2) / π) = (-1 / (2 · π)))
374316, 91, 95, 373mp3an 1573 . . . . . . . . 9 ((-1 / 2) / π) = (-1 / (2 · π))
375372, 374eqtr2i 2784 . . . . . . . 8 (-1 / (2 · π)) = (((1 / 2) + -1) / π)
376375a1i 11 . . . . . . 7 (𝜑 → (-1 / (2 · π)) = (((1 / 2) + -1) / π))
377361, 363, 3763eqtr3d 2803 . . . . . 6 (𝜑 → (-(sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))) = (((1 / 2) + -1) / π))
378356, 357, 3773eqtrd 2799 . . . . 5 (𝜑 → ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (((1 / 2) + -1) / π))
379378adantr 472 . . . 4 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (((1 / 2) + -1) / π))
380326, 349, 3793eqtrrd 2800 . . 3 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + -1) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
381225, 324, 3803eqtrd 2799 . 2 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
382224, 381pm2.61dan 867 1 (𝜑 → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
Colors of variables: wff setvar class
Syntax hints:  ¬ wn 3  wi 4  wb 196  wa 383   = wceq 1632  wcel 2140  wne 2933  wral 3051   class class class wbr 4805  cfv 6050  (class class class)co 6815  cc 10147  cr 10148  0cc0 10149  1c1 10150   + caddc 10152   · cmul 10154   < clt 10287  cle 10288  cmin 10479  -cneg 10480   / cdiv 10897  cn 11233  2c2 11283  cz 11590  cuz 11900  +crp 12046  ...cfz 12540  cfl 12806   mod cmo 12883  Σcsu 14636  sincsin 15014  cosccos 15015  πcpi 15017
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1871  ax-4 1886  ax-5 1989  ax-6 2055  ax-7 2091  ax-8 2142  ax-9 2149  ax-10 2169  ax-11 2184  ax-12 2197  ax-13 2392  ax-ext 2741  ax-rep 4924  ax-sep 4934  ax-nul 4942  ax-pow 4993  ax-pr 5056  ax-un 7116  ax-inf2 8714  ax-cnex 10205  ax-resscn 10206  ax-1cn 10207  ax-icn 10208  ax-addcl 10209  ax-addrcl 10210  ax-mulcl 10211  ax-mulrcl 10212  ax-mulcom 10213  ax-addass 10214  ax-mulass 10215  ax-distr 10216  ax-i2m1 10217  ax-1ne0 10218  ax-1rid 10219  ax-rnegex 10220  ax-rrecex 10221  ax-cnre 10222  ax-pre-lttri 10223  ax-pre-lttrn 10224  ax-pre-ltadd 10225  ax-pre-mulgt0 10226  ax-pre-sup 10227  ax-addf 10228  ax-mulf 10229
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3or 1073  df-3an 1074  df-tru 1635  df-fal 1638  df-ex 1854  df-nf 1859  df-sb 2048  df-eu 2612  df-mo 2613  df-clab 2748  df-cleq 2754  df-clel 2757  df-nfc 2892  df-ne 2934  df-nel 3037  df-ral 3056  df-rex 3057  df-reu 3058  df-rmo 3059  df-rab 3060  df-v 3343  df-sbc 3578  df-csb 3676  df-dif 3719  df-un 3721  df-in 3723  df-ss 3730  df-pss 3732  df-nul 4060  df-if 4232  df-pw 4305  df-sn 4323  df-pr 4325  df-tp 4327  df-op 4329  df-uni 4590  df-int 4629  df-iun 4675  df-iin 4676  df-br 4806  df-opab 4866  df-mpt 4883  df-tr 4906  df-id 5175  df-eprel 5180  df-po 5188  df-so 5189  df-fr 5226  df-se 5227  df-we 5228  df-xp 5273  df-rel 5274  df-cnv 5275  df-co 5276  df-dm 5277  df-rn 5278  df-res 5279  df-ima 5280  df-pred 5842  df-ord 5888  df-on 5889  df-lim 5890  df-suc 5891  df-iota 6013  df-fun 6052  df-fn 6053  df-f 6054  df-f1 6055  df-fo 6056  df-f1o 6057  df-fv 6058  df-isom 6059  df-riota 6776  df-ov 6818  df-oprab 6819  df-mpt2 6820  df-of 7064  df-om 7233  df-1st 7335  df-2nd 7336  df-supp 7466  df-wrecs 7578  df-recs 7639  df-rdg 7677  df-1o 7731  df-2o 7732  df-oadd 7735  df-er 7914  df-map 8028  df-pm 8029  df-ixp 8078  df-en 8125  df-dom 8126  df-sdom 8127  df-fin 8128  df-fsupp 8444  df-fi 8485  df-sup 8516  df-inf 8517  df-oi 8583  df-card 8976  df-cda 9203  df-pnf 10289  df-mnf 10290  df-xr 10291  df-ltxr 10292  df-le 10293  df-sub 10481  df-neg 10482  df-div 10898  df-nn 11234  df-2 11292  df-3 11293  df-4 11294  df-5 11295  df-6 11296  df-7 11297  df-8 11298  df-9 11299  df-n0 11506  df-z 11591  df-dec 11707  df-uz 11901  df-q 12003  df-rp 12047  df-xneg 12160  df-xadd 12161  df-xmul 12162  df-ioo 12393  df-ioc 12394  df-ico 12395  df-icc 12396  df-fz 12541  df-fzo 12681  df-fl 12808  df-mod 12884  df-seq 13017  df-exp 13076  df-fac 13276  df-bc 13305  df-hash 13333  df-shft 14027  df-cj 14059  df-re 14060  df-im 14061  df-sqrt 14195  df-abs 14196  df-limsup 14422  df-clim 14439  df-rlim 14440  df-sum 14637  df-ef 15018  df-sin 15020  df-cos 15021  df-pi 15023  df-struct 16082  df-ndx 16083  df-slot 16084  df-base 16086  df-sets 16087  df-ress 16088  df-plusg 16177  df-mulr 16178  df-starv 16179  df-sca 16180  df-vsca 16181  df-ip 16182  df-tset 16183  df-ple 16184  df-ds 16187  df-unif 16188  df-hom 16189  df-cco 16190  df-rest 16306  df-topn 16307  df-0g 16325  df-gsum 16326  df-topgen 16327  df-pt 16328  df-prds 16331  df-xrs 16385  df-qtop 16390  df-imas 16391  df-xps 16393  df-mre 16469  df-mrc 16470  df-acs 16472  df-mgm 17464  df-sgrp 17506  df-mnd 17517  df-submnd 17558  df-mulg 17763  df-cntz 17971  df-cmn 18416  df-psmet 19961  df-xmet 19962  df-met 19963  df-bl 19964  df-mopn 19965  df-fbas 19966  df-fg 19967  df-cnfld 19970  df-top 20922  df-topon 20939  df-topsp 20960  df-bases 20973  df-cld 21046  df-ntr 21047  df-cls 21048  df-nei 21125  df-lp 21163  df-perf 21164  df-cn 21254  df-cnp 21255  df-haus 21342  df-tx 21588  df-hmeo 21781  df-fil 21872  df-fm 21964  df-flim 21965  df-flf 21966  df-xms 22347  df-ms 22348  df-tms 22349  df-cncf 22903  df-limc 23850  df-dv 23851
This theorem is referenced by:  dirkertrigeq  40840
  Copyright terms: Public domain W3C validator