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 39654
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 6631 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → (𝑛 · 𝐴) = (𝑛 · (((2 · 𝐾) + 1) · π)))
4 elfzelz 12300 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℤ)
54zcnd 11443 . . . . . . . . . . . . 13 (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℂ)
65adantl 482 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → 𝑛 ∈ ℂ)
7 2cnd 11053 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑁)) → 2 ∈ ℂ)
8 dirkertrigeqlem3.k . . . . . . . . . . . . . . . . 17 (𝜑𝐾 ∈ ℤ)
98zcnd 11443 . . . . . . . . . . . . . . . 16 (𝜑𝐾 ∈ ℂ)
109adantr 481 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑁)) → 𝐾 ∈ ℂ)
117, 10mulcld 10020 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → (2 · 𝐾) ∈ ℂ)
12 1cnd 10016 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → 1 ∈ ℂ)
1311, 12addcld 10019 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) + 1) ∈ ℂ)
14 picn 24149 . . . . . . . . . . . . . 14 π ∈ ℂ
1514a1i 11 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → π ∈ ℂ)
1613, 15mulcld 10020 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) + 1) · π) ∈ ℂ)
176, 16mulcomd 10021 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → (𝑛 · (((2 · 𝐾) + 1) · π)) = ((((2 · 𝐾) + 1) · π) · 𝑛))
1813, 15, 6mulassd 10023 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → ((((2 · 𝐾) + 1) · π) · 𝑛) = (((2 · 𝐾) + 1) · (π · 𝑛)))
1915, 6mulcld 10020 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → (π · 𝑛) ∈ ℂ)
2011, 12, 19adddird 10025 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) + 1) · (π · 𝑛)) = (((2 · 𝐾) · (π · 𝑛)) + (1 · (π · 𝑛))))
2111, 19mulcld 10020 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) · (π · 𝑛)) ∈ ℂ)
2212, 19mulcld 10020 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → (1 · (π · 𝑛)) ∈ ℂ)
2321, 22addcomd 10198 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) · (π · 𝑛)) + (1 · (π · 𝑛))) = ((1 · (π · 𝑛)) + ((2 · 𝐾) · (π · 𝑛))))
2414a1i 11 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ (1...𝑁) → π ∈ ℂ)
2524, 5mulcld 10020 . . . . . . . . . . . . . . . 16 (𝑛 ∈ (1...𝑁) → (π · 𝑛) ∈ ℂ)
2625mulid2d 10018 . . . . . . . . . . . . . . 15 (𝑛 ∈ (1...𝑁) → (1 · (π · 𝑛)) = (π · 𝑛))
2726adantl 482 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → (1 · (π · 𝑛)) = (π · 𝑛))
287, 10, 15, 6mul4d 10208 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) · (π · 𝑛)) = ((2 · π) · (𝐾 · 𝑛)))
297, 15mulcld 10020 . . . . . . . . . . . . . . . 16 ((𝜑𝑛 ∈ (1...𝑁)) → (2 · π) ∈ ℂ)
3010, 6mulcld 10020 . . . . . . . . . . . . . . . 16 ((𝜑𝑛 ∈ (1...𝑁)) → (𝐾 · 𝑛) ∈ ℂ)
3129, 30mulcomd 10021 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑁)) → ((2 · π) · (𝐾 · 𝑛)) = ((𝐾 · 𝑛) · (2 · π)))
3228, 31eqtrd 2655 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → ((2 · 𝐾) · (π · 𝑛)) = ((𝐾 · 𝑛) · (2 · π)))
3327, 32oveq12d 6633 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → ((1 · (π · 𝑛)) + ((2 · 𝐾) · (π · 𝑛))) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
3423, 33eqtrd 2655 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → (((2 · 𝐾) · (π · 𝑛)) + (1 · (π · 𝑛))) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
3518, 20, 343eqtrd 2659 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → ((((2 · 𝐾) + 1) · π) · 𝑛) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
363, 17, 353eqtrd 2659 . . . . . . . . . 10 ((𝜑𝑛 ∈ (1...𝑁)) → (𝑛 · 𝐴) = ((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π))))
3736fveq2d 6162 . . . . . . . . 9 ((𝜑𝑛 ∈ (1...𝑁)) → (cos‘(𝑛 · 𝐴)) = (cos‘((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π)))))
388adantr 481 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → 𝐾 ∈ ℤ)
394adantl 482 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → 𝑛 ∈ ℤ)
4038, 39zmulcld 11448 . . . . . . . . . 10 ((𝜑𝑛 ∈ (1...𝑁)) → (𝐾 · 𝑛) ∈ ℤ)
41 cosper 24172 . . . . . . . . . 10 (((π · 𝑛) ∈ ℂ ∧ (𝐾 · 𝑛) ∈ ℤ) → (cos‘((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π)))) = (cos‘(π · 𝑛)))
4219, 40, 41syl2anc 692 . . . . . . . . 9 ((𝜑𝑛 ∈ (1...𝑁)) → (cos‘((π · 𝑛) + ((𝐾 · 𝑛) · (2 · π)))) = (cos‘(π · 𝑛)))
4337, 42eqtrd 2655 . . . . . . . 8 ((𝜑𝑛 ∈ (1...𝑁)) → (cos‘(𝑛 · 𝐴)) = (cos‘(π · 𝑛)))
4443sumeq2dv 14383 . . . . . . 7 (𝜑 → Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴)) = Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)))
4544oveq2d 6631 . . . . . 6 (𝜑 → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) = ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))))
4645oveq1d 6630 . . . . 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 10996 . . . . . . . . . . . . 13 (𝜑𝑁 ∈ ℂ)
50 2cnd 11053 . . . . . . . . . . . . 13 (𝜑 → 2 ∈ ℂ)
51 2ne0 11073 . . . . . . . . . . . . . 14 2 ≠ 0
5251a1i 11 . . . . . . . . . . . . 13 (𝜑 → 2 ≠ 0)
5349, 50, 52divcan2d 10763 . . . . . . . . . . . 12 (𝜑 → (2 · (𝑁 / 2)) = 𝑁)
5453eqcomd 2627 . . . . . . . . . . 11 (𝜑𝑁 = (2 · (𝑁 / 2)))
5554oveq2d 6631 . . . . . . . . . 10 (𝜑 → (1...𝑁) = (1...(2 · (𝑁 / 2))))
5655sumeq1d 14381 . . . . . . . . 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 12300 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...(2 · (𝑁 / 2))) → 𝑛 ∈ ℤ)
6059zcnd 11443 . . . . . . . . . . . . 13 (𝑛 ∈ (1...(2 · (𝑁 / 2))) → 𝑛 ∈ ℂ)
6158, 60mulcomd 10021 . . . . . . . . . . . 12 (𝑛 ∈ (1...(2 · (𝑁 / 2))) → (π · 𝑛) = (𝑛 · π))
6261fveq2d 6162 . . . . . . . . . . 11 (𝑛 ∈ (1...(2 · (𝑁 / 2))) → (cos‘(π · 𝑛)) = (cos‘(𝑛 · π)))
6362rgen 2918 . . . . . . . . . 10 𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)) = (cos‘(𝑛 · π))
6463a1i 11 . . . . . . . . 9 ((𝜑 ∧ (𝑁 mod 2) = 0) → ∀𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)) = (cos‘(𝑛 · π)))
6564sumeq2d 14382 . . . . . . . 8 ((𝜑 ∧ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(𝑛 · π)))
66 simpr 477 . . . . . . . . . . 11 ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝑁 mod 2) = 0)
6748nnred 10995 . . . . . . . . . . . . 13 (𝜑𝑁 ∈ ℝ)
6867adantr 481 . . . . . . . . . . . 12 ((𝜑 ∧ (𝑁 mod 2) = 0) → 𝑁 ∈ ℝ)
69 2rp 11797 . . . . . . . . . . . 12 2 ∈ ℝ+
70 mod0 12631 . . . . . . . . . . . 12 ((𝑁 ∈ ℝ ∧ 2 ∈ ℝ+) → ((𝑁 mod 2) = 0 ↔ (𝑁 / 2) ∈ ℤ))
7168, 69, 70sylancl 693 . . . . . . . . . . 11 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((𝑁 mod 2) = 0 ↔ (𝑁 / 2) ∈ ℤ))
7266, 71mpbid 222 . . . . . . . . . 10 ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝑁 / 2) ∈ ℤ)
73 2re 11050 . . . . . . . . . . . . 13 2 ∈ ℝ
7473a1i 11 . . . . . . . . . . . 12 (𝜑 → 2 ∈ ℝ)
7548nngt0d 11024 . . . . . . . . . . . 12 (𝜑 → 0 < 𝑁)
76 2pos 11072 . . . . . . . . . . . . 13 0 < 2
7776a1i 11 . . . . . . . . . . . 12 (𝜑 → 0 < 2)
7867, 74, 75, 77divgt0d 10919 . . . . . . . . . . 11 (𝜑 → 0 < (𝑁 / 2))
7978adantr 481 . . . . . . . . . 10 ((𝜑 ∧ (𝑁 mod 2) = 0) → 0 < (𝑁 / 2))
80 elnnz 11347 . . . . . . . . . 10 ((𝑁 / 2) ∈ ℕ ↔ ((𝑁 / 2) ∈ ℤ ∧ 0 < (𝑁 / 2)))
8172, 79, 80sylanbrc 697 . . . . . . . . 9 ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝑁 / 2) ∈ ℕ)
82 dirkertrigeqlem1 39652 . . . . . . . . 9 ((𝑁 / 2) ∈ ℕ → Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(𝑛 · π)) = 0)
8381, 82syl 17 . . . . . . . 8 ((𝜑 ∧ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...(2 · (𝑁 / 2)))(cos‘(𝑛 · π)) = 0)
8457, 65, 833eqtrd 2659 . . . . . . 7 ((𝜑 ∧ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = 0)
8584oveq2d 6631 . . . . . 6 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) = ((1 / 2) + 0))
86 halfcn 11207 . . . . . . 7 (1 / 2) ∈ ℂ
8786addid1i 10183 . . . . . 6 ((1 / 2) + 0) = (1 / 2)
8885, 87syl6eq 2671 . . . . 5 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) = (1 / 2))
8988oveq1d 6630 . . . 4 ((𝜑 ∧ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π) = ((1 / 2) / π))
90 ax-1cn 9954 . . . . . 6 1 ∈ ℂ
91 2cnne0 11202 . . . . . 6 (2 ∈ ℂ ∧ 2 ≠ 0)
92 pire 24148 . . . . . . . 8 π ∈ ℝ
93 pipos 24150 . . . . . . . 8 0 < π
9492, 93gt0ne0ii 10524 . . . . . . 7 π ≠ 0
9514, 94pm3.2i 471 . . . . . 6 (π ∈ ℂ ∧ π ≠ 0)
96 divdiv1 10696 . . . . . 6 ((1 ∈ ℂ ∧ (2 ∈ ℂ ∧ 2 ≠ 0) ∧ (π ∈ ℂ ∧ π ≠ 0)) → ((1 / 2) / π) = (1 / (2 · π)))
9790, 91, 95, 96mp3an 1421 . . . . 5 ((1 / 2) / π) = (1 / (2 · π))
9897a1i 11 . . . 4 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((1 / 2) / π) = (1 / (2 · π)))
9947, 89, 983eqtrd 2659 . . 3 ((𝜑 ∧ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = (1 / (2 · π)))
1001oveq2i 6626 . . . . . . . . . 10 ((𝑁 + (1 / 2)) · 𝐴) = ((𝑁 + (1 / 2)) · (((2 · 𝐾) + 1) · π))
101100a1i 11 . . . . . . . . 9 (𝜑 → ((𝑁 + (1 / 2)) · 𝐴) = ((𝑁 + (1 / 2)) · (((2 · 𝐾) + 1) · π)))
10286a1i 11 . . . . . . . . . . 11 (𝜑 → (1 / 2) ∈ ℂ)
10349, 102addcld 10019 . . . . . . . . . 10 (𝜑 → (𝑁 + (1 / 2)) ∈ ℂ)
10450, 9mulcld 10020 . . . . . . . . . . 11 (𝜑 → (2 · 𝐾) ∈ ℂ)
105 peano2cn 10168 . . . . . . . . . . 11 ((2 · 𝐾) ∈ ℂ → ((2 · 𝐾) + 1) ∈ ℂ)
106104, 105syl 17 . . . . . . . . . 10 (𝜑 → ((2 · 𝐾) + 1) ∈ ℂ)
10714a1i 11 . . . . . . . . . 10 (𝜑 → π ∈ ℂ)
108103, 106, 107mulassd 10023 . . . . . . . . 9 (𝜑 → (((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) · π) = ((𝑁 + (1 / 2)) · (((2 · 𝐾) + 1) · π)))
109 1cnd 10016 . . . . . . . . . . . . . 14 (𝜑 → 1 ∈ ℂ)
11049, 102, 104, 109muladdd 10449 . . . . . . . . . . . . 13 (𝜑 → ((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) = (((𝑁 · (2 · 𝐾)) + (1 · (1 / 2))) + ((𝑁 · 1) + ((2 · 𝐾) · (1 / 2)))))
11149, 50, 9mul12d 10205 . . . . . . . . . . . . . . 15 (𝜑 → (𝑁 · (2 · 𝐾)) = (2 · (𝑁 · 𝐾)))
112102mulid2d 10018 . . . . . . . . . . . . . . 15 (𝜑 → (1 · (1 / 2)) = (1 / 2))
113111, 112oveq12d 6633 . . . . . . . . . . . . . 14 (𝜑 → ((𝑁 · (2 · 𝐾)) + (1 · (1 / 2))) = ((2 · (𝑁 · 𝐾)) + (1 / 2)))
11449mulid1d 10017 . . . . . . . . . . . . . . 15 (𝜑 → (𝑁 · 1) = 𝑁)
11550, 9mulcomd 10021 . . . . . . . . . . . . . . . . 17 (𝜑 → (2 · 𝐾) = (𝐾 · 2))
116115oveq1d 6630 . . . . . . . . . . . . . . . 16 (𝜑 → ((2 · 𝐾) · (1 / 2)) = ((𝐾 · 2) · (1 / 2)))
1179, 50, 102mulassd 10023 . . . . . . . . . . . . . . . 16 (𝜑 → ((𝐾 · 2) · (1 / 2)) = (𝐾 · (2 · (1 / 2))))
118 2cn 11051 . . . . . . . . . . . . . . . . . . 19 2 ∈ ℂ
119118, 51recidi 10716 . . . . . . . . . . . . . . . . . 18 (2 · (1 / 2)) = 1
120119oveq2i 6626 . . . . . . . . . . . . . . . . 17 (𝐾 · (2 · (1 / 2))) = (𝐾 · 1)
1219mulid1d 10017 . . . . . . . . . . . . . . . . 17 (𝜑 → (𝐾 · 1) = 𝐾)
122120, 121syl5eq 2667 . . . . . . . . . . . . . . . 16 (𝜑 → (𝐾 · (2 · (1 / 2))) = 𝐾)
123116, 117, 1223eqtrd 2659 . . . . . . . . . . . . . . 15 (𝜑 → ((2 · 𝐾) · (1 / 2)) = 𝐾)
124114, 123oveq12d 6633 . . . . . . . . . . . . . 14 (𝜑 → ((𝑁 · 1) + ((2 · 𝐾) · (1 / 2))) = (𝑁 + 𝐾))
125113, 124oveq12d 6633 . . . . . . . . . . . . 13 (𝜑 → (((𝑁 · (2 · 𝐾)) + (1 · (1 / 2))) + ((𝑁 · 1) + ((2 · 𝐾) · (1 / 2)))) = (((2 · (𝑁 · 𝐾)) + (1 / 2)) + (𝑁 + 𝐾)))
12649, 9mulcld 10020 . . . . . . . . . . . . . . 15 (𝜑 → (𝑁 · 𝐾) ∈ ℂ)
12750, 126mulcld 10020 . . . . . . . . . . . . . 14 (𝜑 → (2 · (𝑁 · 𝐾)) ∈ ℂ)
12849, 9addcld 10019 . . . . . . . . . . . . . 14 (𝜑 → (𝑁 + 𝐾) ∈ ℂ)
129127, 102, 128addassd 10022 . . . . . . . . . . . . 13 (𝜑 → (((2 · (𝑁 · 𝐾)) + (1 / 2)) + (𝑁 + 𝐾)) = ((2 · (𝑁 · 𝐾)) + ((1 / 2) + (𝑁 + 𝐾))))
130110, 125, 1293eqtrd 2659 . . . . . . . . . . . 12 (𝜑 → ((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) = ((2 · (𝑁 · 𝐾)) + ((1 / 2) + (𝑁 + 𝐾))))
131102, 128addcld 10019 . . . . . . . . . . . . 13 (𝜑 → ((1 / 2) + (𝑁 + 𝐾)) ∈ ℂ)
132127, 131addcomd 10198 . . . . . . . . . . . 12 (𝜑 → ((2 · (𝑁 · 𝐾)) + ((1 / 2) + (𝑁 + 𝐾))) = (((1 / 2) + (𝑁 + 𝐾)) + (2 · (𝑁 · 𝐾))))
13350, 126mulcomd 10021 . . . . . . . . . . . . 13 (𝜑 → (2 · (𝑁 · 𝐾)) = ((𝑁 · 𝐾) · 2))
134133oveq2d 6631 . . . . . . . . . . . 12 (𝜑 → (((1 / 2) + (𝑁 + 𝐾)) + (2 · (𝑁 · 𝐾))) = (((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)))
135130, 132, 1343eqtrd 2659 . . . . . . . . . . 11 (𝜑 → ((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) = (((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)))
136135oveq1d 6630 . . . . . . . . . 10 (𝜑 → (((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) · π) = ((((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)) · π))
137126, 50mulcld 10020 . . . . . . . . . . 11 (𝜑 → ((𝑁 · 𝐾) · 2) ∈ ℂ)
138131, 137, 107adddird 10025 . . . . . . . . . 10 (𝜑 → ((((1 / 2) + (𝑁 + 𝐾)) + ((𝑁 · 𝐾) · 2)) · π) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + (((𝑁 · 𝐾) · 2) · π)))
139126, 50, 107mulassd 10023 . . . . . . . . . . 11 (𝜑 → (((𝑁 · 𝐾) · 2) · π) = ((𝑁 · 𝐾) · (2 · π)))
140139oveq2d 6631 . . . . . . . . . 10 (𝜑 → ((((1 / 2) + (𝑁 + 𝐾)) · π) + (((𝑁 · 𝐾) · 2) · π)) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π))))
141136, 138, 1403eqtrd 2659 . . . . . . . . 9 (𝜑 → (((𝑁 + (1 / 2)) · ((2 · 𝐾) + 1)) · π) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π))))
142101, 108, 1413eqtr2d 2661 . . . . . . . 8 (𝜑 → ((𝑁 + (1 / 2)) · 𝐴) = ((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π))))
143142fveq2d 6162 . . . . . . 7 (𝜑 → (sin‘((𝑁 + (1 / 2)) · 𝐴)) = (sin‘((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π)))))
144131, 107mulcld 10020 . . . . . . . 8 (𝜑 → (((1 / 2) + (𝑁 + 𝐾)) · π) ∈ ℂ)
14548nnzd 11441 . . . . . . . . 9 (𝜑𝑁 ∈ ℤ)
146145, 8zmulcld 11448 . . . . . . . 8 (𝜑 → (𝑁 · 𝐾) ∈ ℤ)
147 sinper 24171 . . . . . . . 8 (((((1 / 2) + (𝑁 + 𝐾)) · π) ∈ ℂ ∧ (𝑁 · 𝐾) ∈ ℤ) → (sin‘((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π)))) = (sin‘(((1 / 2) + (𝑁 + 𝐾)) · π)))
148144, 146, 147syl2anc 692 . . . . . . 7 (𝜑 → (sin‘((((1 / 2) + (𝑁 + 𝐾)) · π) + ((𝑁 · 𝐾) · (2 · π)))) = (sin‘(((1 / 2) + (𝑁 + 𝐾)) · π)))
149102, 128addcomd 10198 . . . . . . . . . 10 (𝜑 → ((1 / 2) + (𝑁 + 𝐾)) = ((𝑁 + 𝐾) + (1 / 2)))
15049, 9, 102addassd 10022 . . . . . . . . . 10 (𝜑 → ((𝑁 + 𝐾) + (1 / 2)) = (𝑁 + (𝐾 + (1 / 2))))
1519, 102addcld 10019 . . . . . . . . . . 11 (𝜑 → (𝐾 + (1 / 2)) ∈ ℂ)
15249, 151addcomd 10198 . . . . . . . . . 10 (𝜑 → (𝑁 + (𝐾 + (1 / 2))) = ((𝐾 + (1 / 2)) + 𝑁))
153149, 150, 1523eqtrd 2659 . . . . . . . . 9 (𝜑 → ((1 / 2) + (𝑁 + 𝐾)) = ((𝐾 + (1 / 2)) + 𝑁))
154153oveq1d 6630 . . . . . . . 8 (𝜑 → (((1 / 2) + (𝑁 + 𝐾)) · π) = (((𝐾 + (1 / 2)) + 𝑁) · π))
155154fveq2d 6162 . . . . . . 7 (𝜑 → (sin‘(((1 / 2) + (𝑁 + 𝐾)) · π)) = (sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)))
156143, 148, 1553eqtrd 2659 . . . . . 6 (𝜑 → (sin‘((𝑁 + (1 / 2)) · 𝐴)) = (sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)))
1571a1i 11 . . . . . . . . . 10 (𝜑𝐴 = (((2 · 𝐾) + 1) · π))
158157oveq1d 6630 . . . . . . . . 9 (𝜑 → (𝐴 / 2) = ((((2 · 𝐾) + 1) · π) / 2))
159106, 107, 50, 52div23d 10798 . . . . . . . . 9 (𝜑 → ((((2 · 𝐾) + 1) · π) / 2) = ((((2 · 𝐾) + 1) / 2) · π))
160104, 109, 50, 52divdird 10799 . . . . . . . . . . 11 (𝜑 → (((2 · 𝐾) + 1) / 2) = (((2 · 𝐾) / 2) + (1 / 2)))
1619, 50, 52divcan3d 10766 . . . . . . . . . . . 12 (𝜑 → ((2 · 𝐾) / 2) = 𝐾)
162161oveq1d 6630 . . . . . . . . . . 11 (𝜑 → (((2 · 𝐾) / 2) + (1 / 2)) = (𝐾 + (1 / 2)))
163160, 162eqtrd 2655 . . . . . . . . . 10 (𝜑 → (((2 · 𝐾) + 1) / 2) = (𝐾 + (1 / 2)))
164163oveq1d 6630 . . . . . . . . 9 (𝜑 → ((((2 · 𝐾) + 1) / 2) · π) = ((𝐾 + (1 / 2)) · π))
165158, 159, 1643eqtrd 2659 . . . . . . . 8 (𝜑 → (𝐴 / 2) = ((𝐾 + (1 / 2)) · π))
166165fveq2d 6162 . . . . . . 7 (𝜑 → (sin‘(𝐴 / 2)) = (sin‘((𝐾 + (1 / 2)) · π)))
167166oveq2d 6631 . . . . . 6 (𝜑 → ((2 · π) · (sin‘(𝐴 / 2))) = ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π))))
168156, 167oveq12d 6633 . . . . 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 10025 . . . . . . 7 (𝜑 → (((𝐾 + (1 / 2)) + 𝑁) · π) = (((𝐾 + (1 / 2)) · π) + (𝑁 · π)))
171170fveq2d 6162 . . . . . 6 (𝜑 → (sin‘(((𝐾 + (1 / 2)) + 𝑁) · π)) = (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))))
172171oveq1d 6630 . . . . 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 11237 . . . . . . . . . . . . . 14 (𝜑 → (𝑁 / 2) ∈ ℂ)
17550, 174mulcomd 10021 . . . . . . . . . . . . 13 (𝜑 → (2 · (𝑁 / 2)) = ((𝑁 / 2) · 2))
17653, 175eqtr3d 2657 . . . . . . . . . . . 12 (𝜑𝑁 = ((𝑁 / 2) · 2))
177176oveq1d 6630 . . . . . . . . . . 11 (𝜑 → (𝑁 · π) = (((𝑁 / 2) · 2) · π))
178174, 50, 107mulassd 10023 . . . . . . . . . . 11 (𝜑 → (((𝑁 / 2) · 2) · π) = ((𝑁 / 2) · (2 · π)))
179177, 178eqtrd 2655 . . . . . . . . . 10 (𝜑 → (𝑁 · π) = ((𝑁 / 2) · (2 · π)))
180179oveq2d 6631 . . . . . . . . 9 (𝜑 → (((𝐾 + (1 / 2)) · π) + (𝑁 · π)) = (((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π))))
181180fveq2d 6162 . . . . . . . 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 10016 . . . . . . . . . . 11 ((𝜑 ∧ (𝑁 mod 2) = 0) → 1 ∈ ℂ)
185184halfcld 11237 . . . . . . . . . 10 ((𝜑 ∧ (𝑁 mod 2) = 0) → (1 / 2) ∈ ℂ)
186183, 185addcld 10019 . . . . . . . . 9 ((𝜑 ∧ (𝑁 mod 2) = 0) → (𝐾 + (1 / 2)) ∈ ℂ)
18714a1i 11 . . . . . . . . 9 ((𝜑 ∧ (𝑁 mod 2) = 0) → π ∈ ℂ)
188186, 187mulcld 10020 . . . . . . . 8 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((𝐾 + (1 / 2)) · π) ∈ ℂ)
189 sinper 24171 . . . . . . . 8 ((((𝐾 + (1 / 2)) · π) ∈ ℂ ∧ (𝑁 / 2) ∈ ℤ) → (sin‘(((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π)))) = (sin‘((𝐾 + (1 / 2)) · π)))
190188, 72, 189syl2anc 692 . . . . . . 7 ((𝜑 ∧ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + ((𝑁 / 2) · (2 · π)))) = (sin‘((𝐾 + (1 / 2)) · π)))
191182, 190eqtrd 2655 . . . . . 6 ((𝜑 ∧ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) = (sin‘((𝐾 + (1 / 2)) · π)))
19250, 107mulcld 10020 . . . . . . . 8 (𝜑 → (2 · π) ∈ ℂ)
193151, 107mulcld 10020 . . . . . . . . 9 (𝜑 → ((𝐾 + (1 / 2)) · π) ∈ ℂ)
194193sincld 14804 . . . . . . . 8 (𝜑 → (sin‘((𝐾 + (1 / 2)) · π)) ∈ ℂ)
195192, 194mulcomd 10021 . . . . . . 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 6633 . . . . 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 10767 . . . . . . . . . . 11 (𝜑 → (((𝐾 + (1 / 2)) · π) / π) = (𝐾 + (1 / 2)))
2008zred 11442 . . . . . . . . . . . . 13 (𝜑𝐾 ∈ ℝ)
20169a1i 11 . . . . . . . . . . . . . 14 (𝜑 → 2 ∈ ℝ+)
202201rpreccld 11842 . . . . . . . . . . . . 13 (𝜑 → (1 / 2) ∈ ℝ+)
203200, 202ltaddrpd 11865 . . . . . . . . . . . 12 (𝜑𝐾 < (𝐾 + (1 / 2)))
204 1red 10015 . . . . . . . . . . . . . 14 (𝜑 → 1 ∈ ℝ)
205204rehalfcld 11239 . . . . . . . . . . . . 13 (𝜑 → (1 / 2) ∈ ℝ)
206 halflt1 11210 . . . . . . . . . . . . . 14 (1 / 2) < 1
207206a1i 11 . . . . . . . . . . . . 13 (𝜑 → (1 / 2) < 1)
208205, 204, 200, 207ltadd2dd 10156 . . . . . . . . . . . 12 (𝜑 → (𝐾 + (1 / 2)) < (𝐾 + 1))
209 btwnnz 11413 . . . . . . . . . . . 12 ((𝐾 ∈ ℤ ∧ 𝐾 < (𝐾 + (1 / 2)) ∧ (𝐾 + (1 / 2)) < (𝐾 + 1)) → ¬ (𝐾 + (1 / 2)) ∈ ℤ)
2108, 203, 208, 209syl3anc 1323 . . . . . . . . . . 11 (𝜑 → ¬ (𝐾 + (1 / 2)) ∈ ℤ)
211199, 210eqneltrd 2717 . . . . . . . . . 10 (𝜑 → ¬ (((𝐾 + (1 / 2)) · π) / π) ∈ ℤ)
212 sineq0 24211 . . . . . . . . . . 11 (((𝐾 + (1 / 2)) · π) ∈ ℂ → ((sin‘((𝐾 + (1 / 2)) · π)) = 0 ↔ (((𝐾 + (1 / 2)) · π) / π) ∈ ℤ))
213193, 212syl 17 . . . . . . . . . 10 (𝜑 → ((sin‘((𝐾 + (1 / 2)) · π)) = 0 ↔ (((𝐾 + (1 / 2)) · π) / π) ∈ ℤ))
214211, 213mtbird 315 . . . . . . . . 9 (𝜑 → ¬ (sin‘((𝐾 + (1 / 2)) · π)) = 0)
215214neqned 2797 . . . . . . . 8 (𝜑 → (sin‘((𝐾 + (1 / 2)) · π)) ≠ 0)
21650, 107, 52, 198mulne0d 10639 . . . . . . . 8 (𝜑 → (2 · π) ≠ 0)
217194, 194, 192, 215, 216divdiv1d 10792 . . . . . . 7 (𝜑 → (((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = ((sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))))
218194, 215dividd 10759 . . . . . . . 8 (𝜑 → ((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = 1)
219218oveq1d 6630 . . . . . . 7 (𝜑 → (((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = (1 / (2 · π)))
220217, 219eqtr3d 2657 . . . . . 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 2655 . . . 4 ((𝜑 ∧ (𝑁 mod 2) = 0) → ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (1 / (2 · π)))
223169, 173, 2223eqtrrd 2660 . . 3 ((𝜑 ∧ (𝑁 mod 2) = 0) → (1 / (2 · π)) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
22499, 223eqtrd 2655 . 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 477 . . . . . . . . . 10 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ¬ (𝑁 mod 2) = 0)
228227neqned 2797 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (𝑁 mod 2) ≠ 0)
229 oddfl 38988 . . . . . . . . 9 ((𝑁 ∈ ℤ ∧ (𝑁 mod 2) ≠ 0) → 𝑁 = ((2 · (⌊‘(𝑁 / 2))) + 1))
230226, 228, 229syl2anc 692 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → 𝑁 = ((2 · (⌊‘(𝑁 / 2))) + 1))
231230oveq2d 6631 . . . . . . 7 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (1...𝑁) = (1...((2 · (⌊‘(𝑁 / 2))) + 1)))
232231sumeq1d 14381 . . . . . 6 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)))
233 oveq1 6622 . . . . . . . . . . . . . . . . . 18 (𝑁 = 1 → (𝑁 / 2) = (1 / 2))
234233fveq2d 6162 . . . . . . . . . . . . . . . . 17 (𝑁 = 1 → (⌊‘(𝑁 / 2)) = (⌊‘(1 / 2)))
235 halffl 39009 . . . . . . . . . . . . . . . . 17 (⌊‘(1 / 2)) = 0
236234, 235syl6eq 2671 . . . . . . . . . . . . . . . 16 (𝑁 = 1 → (⌊‘(𝑁 / 2)) = 0)
237236oveq2d 6631 . . . . . . . . . . . . . . 15 (𝑁 = 1 → (2 · (⌊‘(𝑁 / 2))) = (2 · 0))
238 2t0e0 11143 . . . . . . . . . . . . . . 15 (2 · 0) = 0
239237, 238syl6eq 2671 . . . . . . . . . . . . . 14 (𝑁 = 1 → (2 · (⌊‘(𝑁 / 2))) = 0)
240239oveq1d 6630 . . . . . . . . . . . . 13 (𝑁 = 1 → ((2 · (⌊‘(𝑁 / 2))) + 1) = (0 + 1))
24190addid2i 10184 . . . . . . . . . . . . 13 (0 + 1) = 1
242240, 241syl6eq 2671 . . . . . . . . . . . 12 (𝑁 = 1 → ((2 · (⌊‘(𝑁 / 2))) + 1) = 1)
243242oveq2d 6631 . . . . . . . . . . 11 (𝑁 = 1 → (1...((2 · (⌊‘(𝑁 / 2))) + 1)) = (1...1))
244243sumeq1d 14381 . . . . . . . . . 10 (𝑁 = 1 → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)))
245 1z 11367 . . . . . . . . . . . 12 1 ∈ ℤ
246 coscl 14801 . . . . . . . . . . . . 13 (π ∈ ℂ → (cos‘π) ∈ ℂ)
24714, 246ax-mp 5 . . . . . . . . . . . 12 (cos‘π) ∈ ℂ
248 oveq2 6623 . . . . . . . . . . . . . . 15 (𝑛 = 1 → (π · 𝑛) = (π · 1))
24914mulid1i 10002 . . . . . . . . . . . . . . 15 (π · 1) = π
250248, 249syl6eq 2671 . . . . . . . . . . . . . 14 (𝑛 = 1 → (π · 𝑛) = π)
251250fveq2d 6162 . . . . . . . . . . . . 13 (𝑛 = 1 → (cos‘(π · 𝑛)) = (cos‘π))
252251fsum1 14425 . . . . . . . . . . . 12 ((1 ∈ ℤ ∧ (cos‘π) ∈ ℂ) → Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)) = (cos‘π))
253245, 247, 252mp2an 707 . . . . . . . . . . 11 Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)) = (cos‘π)
254253a1i 11 . . . . . . . . . 10 (𝑁 = 1 → Σ𝑛 ∈ (1...1)(cos‘(π · 𝑛)) = (cos‘π))
255 cospi 24162 . . . . . . . . . . 11 (cos‘π) = -1
256255a1i 11 . . . . . . . . . 10 (𝑁 = 1 → (cos‘π) = -1)
257244, 254, 2563eqtrd 2659 . . . . . . . . 9 (𝑁 = 1 → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
258257adantl 482 . . . . . . . 8 ((𝜑𝑁 = 1) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
259 2nn 11145 . . . . . . . . . . . . 13 2 ∈ ℕ
260259a1i 11 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ∈ ℕ)
26167rehalfcld 11239 . . . . . . . . . . . . . . 15 (𝜑 → (𝑁 / 2) ∈ ℝ)
262261flcld 12555 . . . . . . . . . . . . . 14 (𝜑 → (⌊‘(𝑁 / 2)) ∈ ℤ)
263262adantr 481 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ 𝑁 = 1) → (⌊‘(𝑁 / 2)) ∈ ℤ)
264 2div2e1 11110 . . . . . . . . . . . . . . 15 (2 / 2) = 1
26573a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ∈ ℝ)
26667adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ¬ 𝑁 = 1) → 𝑁 ∈ ℝ)
26769a1i 11 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ∈ ℝ+)
268 neqne 2798 . . . . . . . . . . . . . . . . 17 𝑁 = 1 → 𝑁 ≠ 1)
269 nnne1ge2 39003 . . . . . . . . . . . . . . . . 17 ((𝑁 ∈ ℕ ∧ 𝑁 ≠ 1) → 2 ≤ 𝑁)
27048, 268, 269syl2an 494 . . . . . . . . . . . . . . . 16 ((𝜑 ∧ ¬ 𝑁 = 1) → 2 ≤ 𝑁)
271265, 266, 267, 270lediv1dd 11890 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ¬ 𝑁 = 1) → (2 / 2) ≤ (𝑁 / 2))
272264, 271syl5eqbrr 4659 . . . . . . . . . . . . . 14 ((𝜑 ∧ ¬ 𝑁 = 1) → 1 ≤ (𝑁 / 2))
273261adantr 481 . . . . . . . . . . . . . . 15 ((𝜑 ∧ ¬ 𝑁 = 1) → (𝑁 / 2) ∈ ℝ)
274 flge 12562 . . . . . . . . . . . . . . 15 (((𝑁 / 2) ∈ ℝ ∧ 1 ∈ ℤ) → (1 ≤ (𝑁 / 2) ↔ 1 ≤ (⌊‘(𝑁 / 2))))
275273, 245, 274sylancl 693 . . . . . . . . . . . . . 14 ((𝜑 ∧ ¬ 𝑁 = 1) → (1 ≤ (𝑁 / 2) ↔ 1 ≤ (⌊‘(𝑁 / 2))))
276272, 275mpbid 222 . . . . . . . . . . . . 13 ((𝜑 ∧ ¬ 𝑁 = 1) → 1 ≤ (⌊‘(𝑁 / 2)))
277 elnnz1 11363 . . . . . . . . . . . . 13 ((⌊‘(𝑁 / 2)) ∈ ℕ ↔ ((⌊‘(𝑁 / 2)) ∈ ℤ ∧ 1 ≤ (⌊‘(𝑁 / 2))))
278263, 276, 277sylanbrc 697 . . . . . . . . . . . 12 ((𝜑 ∧ ¬ 𝑁 = 1) → (⌊‘(𝑁 / 2)) ∈ ℕ)
279260, 278nnmulcld 11028 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝑁 = 1) → (2 · (⌊‘(𝑁 / 2))) ∈ ℕ)
280 nnuz 11683 . . . . . . . . . . 11 ℕ = (ℤ‘1)
281279, 280syl6eleq 2708 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝑁 = 1) → (2 · (⌊‘(𝑁 / 2))) ∈ (ℤ‘1))
28214a1i 11 . . . . . . . . . . . 12 (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → π ∈ ℂ)
283 elfzelz 12300 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1)) → 𝑛 ∈ ℤ)
284283zcnd 11443 . . . . . . . . . . . . 13 (𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1)) → 𝑛 ∈ ℂ)
285284adantl 482 . . . . . . . . . . . 12 (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → 𝑛 ∈ ℂ)
286282, 285mulcld 10020 . . . . . . . . . . 11 (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → (π · 𝑛) ∈ ℂ)
287286coscld 14805 . . . . . . . . . 10 (((𝜑 ∧ ¬ 𝑁 = 1) ∧ 𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))) → (cos‘(π · 𝑛)) ∈ ℂ)
288 oveq2 6623 . . . . . . . . . . 11 (𝑛 = ((2 · (⌊‘(𝑁 / 2))) + 1) → (π · 𝑛) = (π · ((2 · (⌊‘(𝑁 / 2))) + 1)))
289288fveq2d 6162 . . . . . . . . . 10 (𝑛 = ((2 · (⌊‘(𝑁 / 2))) + 1) → (cos‘(π · 𝑛)) = (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))))
290281, 287, 289fsump1 14434 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = (Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) + (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1)))))
29114a1i 11 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → π ∈ ℂ)
292 elfzelz 12300 . . . . . . . . . . . . . . 15 (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → 𝑛 ∈ ℤ)
293292zcnd 11443 . . . . . . . . . . . . . 14 (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → 𝑛 ∈ ℂ)
294291, 293mulcomd 10021 . . . . . . . . . . . . 13 (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → (π · 𝑛) = (𝑛 · π))
295294fveq2d 6162 . . . . . . . . . . . 12 (𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2)))) → (cos‘(π · 𝑛)) = (cos‘(𝑛 · π)))
296295sumeq2i 14379 . . . . . . . . . . 11 Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) = Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(𝑛 · π))
297 dirkertrigeqlem1 39652 . . . . . . . . . . . 12 ((⌊‘(𝑁 / 2)) ∈ ℕ → Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(𝑛 · π)) = 0)
298278, 297syl 17 . . . . . . . . . . 11 ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(𝑛 · π)) = 0)
299296, 298syl5eq 2667 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) = 0)
300262zcnd 11443 . . . . . . . . . . . . . . . 16 (𝜑 → (⌊‘(𝑁 / 2)) ∈ ℂ)
30150, 300mulcld 10020 . . . . . . . . . . . . . . 15 (𝜑 → (2 · (⌊‘(𝑁 / 2))) ∈ ℂ)
302107, 301, 109adddid 10024 . . . . . . . . . . . . . 14 (𝜑 → (π · ((2 · (⌊‘(𝑁 / 2))) + 1)) = ((π · (2 · (⌊‘(𝑁 / 2)))) + (π · 1)))
303107, 50, 300mul13d 38990 . . . . . . . . . . . . . . 15 (𝜑 → (π · (2 · (⌊‘(𝑁 / 2)))) = ((⌊‘(𝑁 / 2)) · (2 · π)))
304249a1i 11 . . . . . . . . . . . . . . 15 (𝜑 → (π · 1) = π)
305303, 304oveq12d 6633 . . . . . . . . . . . . . 14 (𝜑 → ((π · (2 · (⌊‘(𝑁 / 2)))) + (π · 1)) = (((⌊‘(𝑁 / 2)) · (2 · π)) + π))
306300, 192mulcld 10020 . . . . . . . . . . . . . . 15 (𝜑 → ((⌊‘(𝑁 / 2)) · (2 · π)) ∈ ℂ)
307306, 107addcomd 10198 . . . . . . . . . . . . . 14 (𝜑 → (((⌊‘(𝑁 / 2)) · (2 · π)) + π) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
308302, 305, 3073eqtrd 2659 . . . . . . . . . . . . 13 (𝜑 → (π · ((2 · (⌊‘(𝑁 / 2))) + 1)) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
309308fveq2d 6162 . . . . . . . . . . . 12 (𝜑 → (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))) = (cos‘(π + ((⌊‘(𝑁 / 2)) · (2 · π)))))
310 cosper 24172 . . . . . . . . . . . . 13 ((π ∈ ℂ ∧ (⌊‘(𝑁 / 2)) ∈ ℤ) → (cos‘(π + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (cos‘π))
311107, 262, 310syl2anc 692 . . . . . . . . . . . 12 (𝜑 → (cos‘(π + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (cos‘π))
312255a1i 11 . . . . . . . . . . . 12 (𝜑 → (cos‘π) = -1)
313309, 311, 3123eqtrd 2659 . . . . . . . . . . 11 (𝜑 → (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))) = -1)
314313adantr 481 . . . . . . . . . 10 ((𝜑 ∧ ¬ 𝑁 = 1) → (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1))) = -1)
315299, 314oveq12d 6633 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝑁 = 1) → (Σ𝑛 ∈ (1...(2 · (⌊‘(𝑁 / 2))))(cos‘(π · 𝑛)) + (cos‘(π · ((2 · (⌊‘(𝑁 / 2))) + 1)))) = (0 + -1))
316 neg1cn 11084 . . . . . . . . . . 11 -1 ∈ ℂ
317316addid2i 10184 . . . . . . . . . 10 (0 + -1) = -1
318317a1i 11 . . . . . . . . 9 ((𝜑 ∧ ¬ 𝑁 = 1) → (0 + -1) = -1)
319290, 315, 3183eqtrd 2659 . . . . . . . 8 ((𝜑 ∧ ¬ 𝑁 = 1) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
320258, 319pm2.61dan 831 . . . . . . 7 (𝜑 → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
321320adantr 481 . . . . . 6 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...((2 · (⌊‘(𝑁 / 2))) + 1))(cos‘(π · 𝑛)) = -1)
322232, 321eqtrd 2655 . . . . 5 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛)) = -1)
323322oveq2d 6631 . . . 4 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) = ((1 / 2) + -1))
324323oveq1d 6630 . . 3 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(π · 𝑛))) / π) = (((1 / 2) + -1) / π))
325168, 172eqtrd 2655 . . . . 5 (𝜑 → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))) = ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
326325adantr 481 . . . 4 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))) = ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
327230oveq1d 6630 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (𝑁 · π) = (((2 · (⌊‘(𝑁 / 2))) + 1) · π))
328301, 109, 107adddird 10025 . . . . . . . . . . 11 (𝜑 → (((2 · (⌊‘(𝑁 / 2))) + 1) · π) = (((2 · (⌊‘(𝑁 / 2))) · π) + (1 · π)))
329107mulid2d 10018 . . . . . . . . . . . 12 (𝜑 → (1 · π) = π)
330329oveq2d 6631 . . . . . . . . . . 11 (𝜑 → (((2 · (⌊‘(𝑁 / 2))) · π) + (1 · π)) = (((2 · (⌊‘(𝑁 / 2))) · π) + π))
331301, 107mulcld 10020 . . . . . . . . . . . 12 (𝜑 → ((2 · (⌊‘(𝑁 / 2))) · π) ∈ ℂ)
332331, 107addcomd 10198 . . . . . . . . . . 11 (𝜑 → (((2 · (⌊‘(𝑁 / 2))) · π) + π) = (π + ((2 · (⌊‘(𝑁 / 2))) · π)))
333328, 330, 3323eqtrd 2659 . . . . . . . . . 10 (𝜑 → (((2 · (⌊‘(𝑁 / 2))) + 1) · π) = (π + ((2 · (⌊‘(𝑁 / 2))) · π)))
334333adantr 481 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((2 · (⌊‘(𝑁 / 2))) + 1) · π) = (π + ((2 · (⌊‘(𝑁 / 2))) · π)))
33550, 300mulcomd 10021 . . . . . . . . . . . . 13 (𝜑 → (2 · (⌊‘(𝑁 / 2))) = ((⌊‘(𝑁 / 2)) · 2))
336335oveq1d 6630 . . . . . . . . . . . 12 (𝜑 → ((2 · (⌊‘(𝑁 / 2))) · π) = (((⌊‘(𝑁 / 2)) · 2) · π))
337300, 50, 107mulassd 10023 . . . . . . . . . . . 12 (𝜑 → (((⌊‘(𝑁 / 2)) · 2) · π) = ((⌊‘(𝑁 / 2)) · (2 · π)))
338336, 337eqtrd 2655 . . . . . . . . . . 11 (𝜑 → ((2 · (⌊‘(𝑁 / 2))) · π) = ((⌊‘(𝑁 / 2)) · (2 · π)))
339338oveq2d 6631 . . . . . . . . . 10 (𝜑 → (π + ((2 · (⌊‘(𝑁 / 2))) · π)) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
340339adantr 481 . . . . . . . . 9 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (π + ((2 · (⌊‘(𝑁 / 2))) · π)) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
341327, 334, 3403eqtrd 2659 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (𝑁 · π) = (π + ((⌊‘(𝑁 / 2)) · (2 · π))))
342341oveq2d 6631 . . . . . . 7 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((𝐾 + (1 / 2)) · π) + (𝑁 · π)) = (((𝐾 + (1 / 2)) · π) + (π + ((⌊‘(𝑁 / 2)) · (2 · π)))))
343193adantr 481 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((𝐾 + (1 / 2)) · π) ∈ ℂ)
34414a1i 11 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → π ∈ ℂ)
345306adantr 481 . . . . . . . 8 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((⌊‘(𝑁 / 2)) · (2 · π)) ∈ ℂ)
346343, 344, 345addassd 10022 . . . . . . 7 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π))) = (((𝐾 + (1 / 2)) · π) + (π + ((⌊‘(𝑁 / 2)) · (2 · π)))))
347342, 346eqtr4d 2658 . . . . . 6 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((𝐾 + (1 / 2)) · π) + (𝑁 · π)) = ((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π))))
348347fveq2d 6162 . . . . 5 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) = (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))))
349348oveq1d 6630 . . . 4 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((sin‘(((𝐾 + (1 / 2)) · π) + (𝑁 · π))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
350193, 107addcld 10019 . . . . . . . . 9 (𝜑 → (((𝐾 + (1 / 2)) · π) + π) ∈ ℂ)
351 sinper 24171 . . . . . . . . 9 (((((𝐾 + (1 / 2)) · π) + π) ∈ ℂ ∧ (⌊‘(𝑁 / 2)) ∈ ℤ) → (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (sin‘(((𝐾 + (1 / 2)) · π) + π)))
352350, 262, 351syl2anc 692 . . . . . . . 8 (𝜑 → (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) = (sin‘(((𝐾 + (1 / 2)) · π) + π)))
353 sinppi 24179 . . . . . . . . 9 (((𝐾 + (1 / 2)) · π) ∈ ℂ → (sin‘(((𝐾 + (1 / 2)) · π) + π)) = -(sin‘((𝐾 + (1 / 2)) · π)))
354193, 353syl 17 . . . . . . . 8 (𝜑 → (sin‘(((𝐾 + (1 / 2)) · π) + π)) = -(sin‘((𝐾 + (1 / 2)) · π)))
355352, 354eqtrd 2655 . . . . . . 7 (𝜑 → (sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) = -(sin‘((𝐾 + (1 / 2)) · π)))
356355oveq1d 6630 . . . . . 6 (𝜑 → ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (-(sin‘((𝐾 + (1 / 2)) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))))
357195oveq2d 6631 . . . . . 6 (𝜑 → (-(sin‘((𝐾 + (1 / 2)) · π)) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (-(sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))))
358194, 194, 215divnegd 10774 . . . . . . . . 9 (𝜑 → -((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = (-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))))
359218negeqd 10235 . . . . . . . . 9 (𝜑 → -((sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = -1)
360358, 359eqtr3d 2657 . . . . . . . 8 (𝜑 → (-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) = -1)
361360oveq1d 6630 . . . . . . 7 (𝜑 → ((-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = (-1 / (2 · π)))
362194negcld 10339 . . . . . . . 8 (𝜑 → -(sin‘((𝐾 + (1 / 2)) · π)) ∈ ℂ)
363362, 194, 192, 215, 216divdiv1d 10792 . . . . . . 7 (𝜑 → ((-(sin‘((𝐾 + (1 / 2)) · π)) / (sin‘((𝐾 + (1 / 2)) · π))) / (2 · π)) = (-(sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))))
36486, 90negsubi 10319 . . . . . . . . . . 11 ((1 / 2) + -1) = ((1 / 2) − 1)
36590, 86negsubdi2i 10327 . . . . . . . . . . 11 -(1 − (1 / 2)) = ((1 / 2) − 1)
366 1mhlfehlf 11211 . . . . . . . . . . . . 13 (1 − (1 / 2)) = (1 / 2)
367366negeqi 10234 . . . . . . . . . . . 12 -(1 − (1 / 2)) = -(1 / 2)
368 divneg 10679 . . . . . . . . . . . . 13 ((1 ∈ ℂ ∧ 2 ∈ ℂ ∧ 2 ≠ 0) → -(1 / 2) = (-1 / 2))
36990, 118, 51, 368mp3an 1421 . . . . . . . . . . . 12 -(1 / 2) = (-1 / 2)
370367, 369eqtri 2643 . . . . . . . . . . 11 -(1 − (1 / 2)) = (-1 / 2)
371364, 365, 3703eqtr2i 2649 . . . . . . . . . 10 ((1 / 2) + -1) = (-1 / 2)
372371oveq1i 6625 . . . . . . . . 9 (((1 / 2) + -1) / π) = ((-1 / 2) / π)
373 divdiv1 10696 . . . . . . . . . 10 ((-1 ∈ ℂ ∧ (2 ∈ ℂ ∧ 2 ≠ 0) ∧ (π ∈ ℂ ∧ π ≠ 0)) → ((-1 / 2) / π) = (-1 / (2 · π)))
374316, 91, 95, 373mp3an 1421 . . . . . . . . 9 ((-1 / 2) / π) = (-1 / (2 · π))
375372, 374eqtr2i 2644 . . . . . . . 8 (-1 / (2 · π)) = (((1 / 2) + -1) / π)
376375a1i 11 . . . . . . 7 (𝜑 → (-1 / (2 · π)) = (((1 / 2) + -1) / π))
377361, 363, 3763eqtr3d 2663 . . . . . 6 (𝜑 → (-(sin‘((𝐾 + (1 / 2)) · π)) / ((sin‘((𝐾 + (1 / 2)) · π)) · (2 · π))) = (((1 / 2) + -1) / π))
378356, 357, 3773eqtrd 2659 . . . . 5 (𝜑 → ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (((1 / 2) + -1) / π))
379378adantr 481 . . . 4 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → ((sin‘((((𝐾 + (1 / 2)) · π) + π) + ((⌊‘(𝑁 / 2)) · (2 · π)))) / ((2 · π) · (sin‘((𝐾 + (1 / 2)) · π)))) = (((1 / 2) + -1) / π))
380326, 349, 3793eqtrrd 2660 . . 3 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + -1) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
381225, 324, 3803eqtrd 2659 . 2 ((𝜑 ∧ ¬ (𝑁 mod 2) = 0) → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
382224, 381pm2.61dan 831 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 384   = wceq 1480  wcel 1987  wne 2790  wral 2908   class class class wbr 4623  cfv 5857  (class class class)co 6615  cc 9894  cr 9895  0cc0 9896  1c1 9897   + caddc 9899   · cmul 9901   < clt 10034  cle 10035  cmin 10226  -cneg 10227   / cdiv 10644  cn 10980  2c2 11030  cz 11337  cuz 11647  +crp 11792  ...cfz 12284  cfl 12547   mod cmo 12624  Σcsu 14366  sincsin 14738  cosccos 14739  πcpi 14741
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1719  ax-4 1734  ax-5 1836  ax-6 1885  ax-7 1932  ax-8 1989  ax-9 1996  ax-10 2016  ax-11 2031  ax-12 2044  ax-13 2245  ax-ext 2601  ax-rep 4741  ax-sep 4751  ax-nul 4759  ax-pow 4813  ax-pr 4877  ax-un 6914  ax-inf2 8498  ax-cnex 9952  ax-resscn 9953  ax-1cn 9954  ax-icn 9955  ax-addcl 9956  ax-addrcl 9957  ax-mulcl 9958  ax-mulrcl 9959  ax-mulcom 9960  ax-addass 9961  ax-mulass 9962  ax-distr 9963  ax-i2m1 9964  ax-1ne0 9965  ax-1rid 9966  ax-rnegex 9967  ax-rrecex 9968  ax-cnre 9969  ax-pre-lttri 9970  ax-pre-lttrn 9971  ax-pre-ltadd 9972  ax-pre-mulgt0 9973  ax-pre-sup 9974  ax-addf 9975  ax-mulf 9976
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3or 1037  df-3an 1038  df-tru 1483  df-fal 1486  df-ex 1702  df-nf 1707  df-sb 1878  df-eu 2473  df-mo 2474  df-clab 2608  df-cleq 2614  df-clel 2617  df-nfc 2750  df-ne 2791  df-nel 2894  df-ral 2913  df-rex 2914  df-reu 2915  df-rmo 2916  df-rab 2917  df-v 3192  df-sbc 3423  df-csb 3520  df-dif 3563  df-un 3565  df-in 3567  df-ss 3574  df-pss 3576  df-nul 3898  df-if 4065  df-pw 4138  df-sn 4156  df-pr 4158  df-tp 4160  df-op 4162  df-uni 4410  df-int 4448  df-iun 4494  df-iin 4495  df-br 4624  df-opab 4684  df-mpt 4685  df-tr 4723  df-eprel 4995  df-id 4999  df-po 5005  df-so 5006  df-fr 5043  df-se 5044  df-we 5045  df-xp 5090  df-rel 5091  df-cnv 5092  df-co 5093  df-dm 5094  df-rn 5095  df-res 5096  df-ima 5097  df-pred 5649  df-ord 5695  df-on 5696  df-lim 5697  df-suc 5698  df-iota 5820  df-fun 5859  df-fn 5860  df-f 5861  df-f1 5862  df-fo 5863  df-f1o 5864  df-fv 5865  df-isom 5866  df-riota 6576  df-ov 6618  df-oprab 6619  df-mpt2 6620  df-of 6862  df-om 7028  df-1st 7128  df-2nd 7129  df-supp 7256  df-wrecs 7367  df-recs 7428  df-rdg 7466  df-1o 7520  df-2o 7521  df-oadd 7524  df-er 7702  df-map 7819  df-pm 7820  df-ixp 7869  df-en 7916  df-dom 7917  df-sdom 7918  df-fin 7919  df-fsupp 8236  df-fi 8277  df-sup 8308  df-inf 8309  df-oi 8375  df-card 8725  df-cda 8950  df-pnf 10036  df-mnf 10037  df-xr 10038  df-ltxr 10039  df-le 10040  df-sub 10228  df-neg 10229  df-div 10645  df-nn 10981  df-2 11039  df-3 11040  df-4 11041  df-5 11042  df-6 11043  df-7 11044  df-8 11045  df-9 11046  df-n0 11253  df-z 11338  df-dec 11454  df-uz 11648  df-q 11749  df-rp 11793  df-xneg 11906  df-xadd 11907  df-xmul 11908  df-ioo 12137  df-ioc 12138  df-ico 12139  df-icc 12140  df-fz 12285  df-fzo 12423  df-fl 12549  df-mod 12625  df-seq 12758  df-exp 12817  df-fac 13017  df-bc 13046  df-hash 13074  df-shft 13757  df-cj 13789  df-re 13790  df-im 13791  df-sqrt 13925  df-abs 13926  df-limsup 14152  df-clim 14169  df-rlim 14170  df-sum 14367  df-ef 14742  df-sin 14744  df-cos 14745  df-pi 14747  df-struct 15802  df-ndx 15803  df-slot 15804  df-base 15805  df-sets 15806  df-ress 15807  df-plusg 15894  df-mulr 15895  df-starv 15896  df-sca 15897  df-vsca 15898  df-ip 15899  df-tset 15900  df-ple 15901  df-ds 15904  df-unif 15905  df-hom 15906  df-cco 15907  df-rest 16023  df-topn 16024  df-0g 16042  df-gsum 16043  df-topgen 16044  df-pt 16045  df-prds 16048  df-xrs 16102  df-qtop 16107  df-imas 16108  df-xps 16110  df-mre 16186  df-mrc 16187  df-acs 16189  df-mgm 17182  df-sgrp 17224  df-mnd 17235  df-submnd 17276  df-mulg 17481  df-cntz 17690  df-cmn 18135  df-psmet 19678  df-xmet 19679  df-met 19680  df-bl 19681  df-mopn 19682  df-fbas 19683  df-fg 19684  df-cnfld 19687  df-top 20639  df-topon 20656  df-topsp 20677  df-bases 20690  df-cld 20763  df-ntr 20764  df-cls 20765  df-nei 20842  df-lp 20880  df-perf 20881  df-cn 20971  df-cnp 20972  df-haus 21059  df-tx 21305  df-hmeo 21498  df-fil 21590  df-fm 21682  df-flim 21683  df-flf 21684  df-xms 22065  df-ms 22066  df-tms 22067  df-cncf 22621  df-limc 23570  df-dv 23571
This theorem is referenced by:  dirkertrigeq  39655
  Copyright terms: Public domain W3C validator