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

Theorem dirkertrigeqlem2 44330
Description: Trigonomic equality lemma for the Dirichlet Kernel trigonomic equality. (Contributed by Glauco Siliprandi, 11-Dec-2019.)
Hypotheses
Ref Expression
dirkertrigeqlem2.a (𝜑𝐴 ∈ ℝ)
dirkertrigeqlem2.sinne0 (𝜑 → (sin‘𝐴) ≠ 0)
dirkertrigeqlem2.n (𝜑𝑁 ∈ ℕ)
Assertion
Ref Expression
dirkertrigeqlem2 (𝜑 → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
Distinct variable groups:   𝐴,𝑛   𝑛,𝑁   𝜑,𝑛

Proof of Theorem dirkertrigeqlem2
Dummy variable 𝑗 is distinct from all other variables.
StepHypRef Expression
1 1cnd 11150 . . . . . . . . 9 (𝜑 → 1 ∈ ℂ)
21halfcld 12398 . . . . . . . 8 (𝜑 → (1 / 2) ∈ ℂ)
3 fzfid 13878 . . . . . . . . 9 (𝜑 → (1...𝑁) ∈ Fin)
4 elfzelz 13441 . . . . . . . . . . . . 13 (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℤ)
54zcnd 12608 . . . . . . . . . . . 12 (𝑛 ∈ (1...𝑁) → 𝑛 ∈ ℂ)
65adantl 482 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → 𝑛 ∈ ℂ)
7 dirkertrigeqlem2.a . . . . . . . . . . . . 13 (𝜑𝐴 ∈ ℝ)
87recnd 11183 . . . . . . . . . . . 12 (𝜑𝐴 ∈ ℂ)
98adantr 481 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → 𝐴 ∈ ℂ)
106, 9mulcld 11175 . . . . . . . . . 10 ((𝜑𝑛 ∈ (1...𝑁)) → (𝑛 · 𝐴) ∈ ℂ)
1110coscld 16013 . . . . . . . . 9 ((𝜑𝑛 ∈ (1...𝑁)) → (cos‘(𝑛 · 𝐴)) ∈ ℂ)
123, 11fsumcl 15618 . . . . . . . 8 (𝜑 → Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴)) ∈ ℂ)
132, 12addcld 11174 . . . . . . 7 (𝜑 → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) ∈ ℂ)
148sincld 16012 . . . . . . 7 (𝜑 → (sin‘𝐴) ∈ ℂ)
15 dirkertrigeqlem2.sinne0 . . . . . . 7 (𝜑 → (sin‘𝐴) ≠ 0)
1613, 14, 15divcan4d 11937 . . . . . 6 (𝜑 → ((((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) · (sin‘𝐴)) / (sin‘𝐴)) = ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))))
1716eqcomd 2742 . . . . 5 (𝜑 → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) = ((((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) · (sin‘𝐴)) / (sin‘𝐴)))
183, 14, 11fsummulc1 15670 . . . . . . . . 9 (𝜑 → (Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴)) · (sin‘𝐴)) = Σ𝑛 ∈ (1...𝑁)((cos‘(𝑛 · 𝐴)) · (sin‘𝐴)))
1914adantr 481 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → (sin‘𝐴) ∈ ℂ)
2011, 19mulcomd 11176 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → ((cos‘(𝑛 · 𝐴)) · (sin‘𝐴)) = ((sin‘𝐴) · (cos‘(𝑛 · 𝐴))))
21 sinmulcos 44096 . . . . . . . . . . . 12 ((𝐴 ∈ ℂ ∧ (𝑛 · 𝐴) ∈ ℂ) → ((sin‘𝐴) · (cos‘(𝑛 · 𝐴))) = (((sin‘(𝐴 + (𝑛 · 𝐴))) + (sin‘(𝐴 − (𝑛 · 𝐴)))) / 2))
229, 10, 21syl2anc 584 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → ((sin‘𝐴) · (cos‘(𝑛 · 𝐴))) = (((sin‘(𝐴 + (𝑛 · 𝐴))) + (sin‘(𝐴 − (𝑛 · 𝐴)))) / 2))
23 1cnd 11150 . . . . . . . . . . . . . . . . 17 ((𝜑𝑛 ∈ (1...𝑁)) → 1 ∈ ℂ)
246, 23, 9adddird 11180 . . . . . . . . . . . . . . . 16 ((𝜑𝑛 ∈ (1...𝑁)) → ((𝑛 + 1) · 𝐴) = ((𝑛 · 𝐴) + (1 · 𝐴)))
2523, 9mulcld 11175 . . . . . . . . . . . . . . . . 17 ((𝜑𝑛 ∈ (1...𝑁)) → (1 · 𝐴) ∈ ℂ)
2610, 25addcomd 11357 . . . . . . . . . . . . . . . 16 ((𝜑𝑛 ∈ (1...𝑁)) → ((𝑛 · 𝐴) + (1 · 𝐴)) = ((1 · 𝐴) + (𝑛 · 𝐴)))
278mulid2d 11173 . . . . . . . . . . . . . . . . . 18 (𝜑 → (1 · 𝐴) = 𝐴)
2827oveq1d 7372 . . . . . . . . . . . . . . . . 17 (𝜑 → ((1 · 𝐴) + (𝑛 · 𝐴)) = (𝐴 + (𝑛 · 𝐴)))
2928adantr 481 . . . . . . . . . . . . . . . 16 ((𝜑𝑛 ∈ (1...𝑁)) → ((1 · 𝐴) + (𝑛 · 𝐴)) = (𝐴 + (𝑛 · 𝐴)))
3024, 26, 293eqtrrd 2781 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑁)) → (𝐴 + (𝑛 · 𝐴)) = ((𝑛 + 1) · 𝐴))
3130fveq2d 6846 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → (sin‘(𝐴 + (𝑛 · 𝐴))) = (sin‘((𝑛 + 1) · 𝐴)))
3210, 9negsubdi2d 11528 . . . . . . . . . . . . . . . . 17 ((𝜑𝑛 ∈ (1...𝑁)) → -((𝑛 · 𝐴) − 𝐴) = (𝐴 − (𝑛 · 𝐴)))
3332eqcomd 2742 . . . . . . . . . . . . . . . 16 ((𝜑𝑛 ∈ (1...𝑁)) → (𝐴 − (𝑛 · 𝐴)) = -((𝑛 · 𝐴) − 𝐴))
3433fveq2d 6846 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑁)) → (sin‘(𝐴 − (𝑛 · 𝐴))) = (sin‘-((𝑛 · 𝐴) − 𝐴)))
3510, 9subcld 11512 . . . . . . . . . . . . . . . 16 ((𝜑𝑛 ∈ (1...𝑁)) → ((𝑛 · 𝐴) − 𝐴) ∈ ℂ)
36 sinneg 16028 . . . . . . . . . . . . . . . 16 (((𝑛 · 𝐴) − 𝐴) ∈ ℂ → (sin‘-((𝑛 · 𝐴) − 𝐴)) = -(sin‘((𝑛 · 𝐴) − 𝐴)))
3735, 36syl 17 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑁)) → (sin‘-((𝑛 · 𝐴) − 𝐴)) = -(sin‘((𝑛 · 𝐴) − 𝐴)))
3834, 37eqtrd 2776 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → (sin‘(𝐴 − (𝑛 · 𝐴))) = -(sin‘((𝑛 · 𝐴) − 𝐴)))
3931, 38oveq12d 7375 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → ((sin‘(𝐴 + (𝑛 · 𝐴))) + (sin‘(𝐴 − (𝑛 · 𝐴)))) = ((sin‘((𝑛 + 1) · 𝐴)) + -(sin‘((𝑛 · 𝐴) − 𝐴))))
409, 10addcld 11174 . . . . . . . . . . . . . . . 16 ((𝜑𝑛 ∈ (1...𝑁)) → (𝐴 + (𝑛 · 𝐴)) ∈ ℂ)
4140sincld 16012 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑁)) → (sin‘(𝐴 + (𝑛 · 𝐴))) ∈ ℂ)
4231, 41eqeltrrd 2839 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → (sin‘((𝑛 + 1) · 𝐴)) ∈ ℂ)
4335sincld 16012 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → (sin‘((𝑛 · 𝐴) − 𝐴)) ∈ ℂ)
4442, 43negsubd 11518 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → ((sin‘((𝑛 + 1) · 𝐴)) + -(sin‘((𝑛 · 𝐴) − 𝐴))) = ((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 · 𝐴) − 𝐴))))
456, 9mulsubfacd 11616 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑁)) → ((𝑛 · 𝐴) − 𝐴) = ((𝑛 − 1) · 𝐴))
4645fveq2d 6846 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → (sin‘((𝑛 · 𝐴) − 𝐴)) = (sin‘((𝑛 − 1) · 𝐴)))
4746oveq2d 7373 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → ((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 · 𝐴) − 𝐴))) = ((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))))
4839, 44, 473eqtrd 2780 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → ((sin‘(𝐴 + (𝑛 · 𝐴))) + (sin‘(𝐴 − (𝑛 · 𝐴)))) = ((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))))
4948oveq1d 7372 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → (((sin‘(𝐴 + (𝑛 · 𝐴))) + (sin‘(𝐴 − (𝑛 · 𝐴)))) / 2) = (((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))) / 2))
5020, 22, 493eqtrd 2780 . . . . . . . . . 10 ((𝜑𝑛 ∈ (1...𝑁)) → ((cos‘(𝑛 · 𝐴)) · (sin‘𝐴)) = (((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))) / 2))
5150sumeq2dv 15588 . . . . . . . . 9 (𝜑 → Σ𝑛 ∈ (1...𝑁)((cos‘(𝑛 · 𝐴)) · (sin‘𝐴)) = Σ𝑛 ∈ (1...𝑁)(((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))) / 2))
52 2cnd 12231 . . . . . . . . . . 11 (𝜑 → 2 ∈ ℂ)
53 peano2cnm 11467 . . . . . . . . . . . . . . 15 (𝑛 ∈ ℂ → (𝑛 − 1) ∈ ℂ)
546, 53syl 17 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → (𝑛 − 1) ∈ ℂ)
5554, 9mulcld 11175 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → ((𝑛 − 1) · 𝐴) ∈ ℂ)
5655sincld 16012 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → (sin‘((𝑛 − 1) · 𝐴)) ∈ ℂ)
5742, 56subcld 11512 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → ((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))) ∈ ℂ)
58 2ne0 12257 . . . . . . . . . . . 12 2 ≠ 0
5958a1i 11 . . . . . . . . . . 11 (𝜑 → 2 ≠ 0)
603, 52, 57, 59fsumdivc 15671 . . . . . . . . . 10 (𝜑 → (Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))) / 2) = Σ𝑛 ∈ (1...𝑁)(((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))) / 2))
613, 57fsumcl 15618 . . . . . . . . . . 11 (𝜑 → Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))) ∈ ℂ)
6261, 52, 59divrec2d 11935 . . . . . . . . . 10 (𝜑 → (Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))) / 2) = ((1 / 2) · Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴)))))
6360, 62eqtr3d 2778 . . . . . . . . 9 (𝜑 → Σ𝑛 ∈ (1...𝑁)(((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))) / 2) = ((1 / 2) · Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴)))))
6418, 51, 633eqtrd 2780 . . . . . . . 8 (𝜑 → (Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴)) · (sin‘𝐴)) = ((1 / 2) · Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴)))))
6564oveq2d 7373 . . . . . . 7 (𝜑 → (((1 / 2) · (sin‘𝐴)) + (Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴)) · (sin‘𝐴))) = (((1 / 2) · (sin‘𝐴)) + ((1 / 2) · Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))))))
662, 12, 14adddird 11180 . . . . . . 7 (𝜑 → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) · (sin‘𝐴)) = (((1 / 2) · (sin‘𝐴)) + (Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴)) · (sin‘𝐴))))
672, 14, 61adddid 11179 . . . . . . 7 (𝜑 → ((1 / 2) · ((sin‘𝐴) + Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))))) = (((1 / 2) · (sin‘𝐴)) + ((1 / 2) · Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))))))
6865, 66, 673eqtr4d 2786 . . . . . 6 (𝜑 → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) · (sin‘𝐴)) = ((1 / 2) · ((sin‘𝐴) + Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))))))
6968oveq1d 7372 . . . . 5 (𝜑 → ((((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) · (sin‘𝐴)) / (sin‘𝐴)) = (((1 / 2) · ((sin‘𝐴) + Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))))) / (sin‘𝐴)))
7010sincld 16012 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → (sin‘(𝑛 · 𝐴)) ∈ ℂ)
7142, 70, 56npncand 11536 . . . . . . . . . . . 12 ((𝜑𝑛 ∈ (1...𝑁)) → (((sin‘((𝑛 + 1) · 𝐴)) − (sin‘(𝑛 · 𝐴))) + ((sin‘(𝑛 · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴)))) = ((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))))
7271eqcomd 2742 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → ((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))) = (((sin‘((𝑛 + 1) · 𝐴)) − (sin‘(𝑛 · 𝐴))) + ((sin‘(𝑛 · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴)))))
7372sumeq2dv 15588 . . . . . . . . . 10 (𝜑 → Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))) = Σ𝑛 ∈ (1...𝑁)(((sin‘((𝑛 + 1) · 𝐴)) − (sin‘(𝑛 · 𝐴))) + ((sin‘(𝑛 · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴)))))
7442, 70subcld 11512 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → ((sin‘((𝑛 + 1) · 𝐴)) − (sin‘(𝑛 · 𝐴))) ∈ ℂ)
7570, 56subcld 11512 . . . . . . . . . . 11 ((𝜑𝑛 ∈ (1...𝑁)) → ((sin‘(𝑛 · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))) ∈ ℂ)
763, 74, 75fsumadd 15625 . . . . . . . . . 10 (𝜑 → Σ𝑛 ∈ (1...𝑁)(((sin‘((𝑛 + 1) · 𝐴)) − (sin‘(𝑛 · 𝐴))) + ((sin‘(𝑛 · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴)))) = (Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘(𝑛 · 𝐴))) + Σ𝑛 ∈ (1...𝑁)((sin‘(𝑛 · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴)))))
77 fvoveq1 7380 . . . . . . . . . . . 12 (𝑗 = 𝑛 → (sin‘(𝑗 · 𝐴)) = (sin‘(𝑛 · 𝐴)))
78 fvoveq1 7380 . . . . . . . . . . . 12 (𝑗 = (𝑛 + 1) → (sin‘(𝑗 · 𝐴)) = (sin‘((𝑛 + 1) · 𝐴)))
79 fvoveq1 7380 . . . . . . . . . . . 12 (𝑗 = 1 → (sin‘(𝑗 · 𝐴)) = (sin‘(1 · 𝐴)))
80 fvoveq1 7380 . . . . . . . . . . . 12 (𝑗 = (𝑁 + 1) → (sin‘(𝑗 · 𝐴)) = (sin‘((𝑁 + 1) · 𝐴)))
81 dirkertrigeqlem2.n . . . . . . . . . . . . 13 (𝜑𝑁 ∈ ℕ)
8281nnzd 12526 . . . . . . . . . . . 12 (𝜑𝑁 ∈ ℤ)
83 nnuz 12806 . . . . . . . . . . . . . 14 ℕ = (ℤ‘1)
8481, 83eleqtrdi 2848 . . . . . . . . . . . . 13 (𝜑𝑁 ∈ (ℤ‘1))
85 peano2uz 12826 . . . . . . . . . . . . 13 (𝑁 ∈ (ℤ‘1) → (𝑁 + 1) ∈ (ℤ‘1))
8684, 85syl 17 . . . . . . . . . . . 12 (𝜑 → (𝑁 + 1) ∈ (ℤ‘1))
87 elfzelz 13441 . . . . . . . . . . . . . . . 16 (𝑗 ∈ (1...(𝑁 + 1)) → 𝑗 ∈ ℤ)
8887zcnd 12608 . . . . . . . . . . . . . . 15 (𝑗 ∈ (1...(𝑁 + 1)) → 𝑗 ∈ ℂ)
8988adantl 482 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (1...(𝑁 + 1))) → 𝑗 ∈ ℂ)
908adantr 481 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (1...(𝑁 + 1))) → 𝐴 ∈ ℂ)
9189, 90mulcld 11175 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (1...(𝑁 + 1))) → (𝑗 · 𝐴) ∈ ℂ)
9291sincld 16012 . . . . . . . . . . . 12 ((𝜑𝑗 ∈ (1...(𝑁 + 1))) → (sin‘(𝑗 · 𝐴)) ∈ ℂ)
9377, 78, 79, 80, 82, 86, 92telfsum2 15690 . . . . . . . . . . 11 (𝜑 → Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘(𝑛 · 𝐴))) = ((sin‘((𝑁 + 1) · 𝐴)) − (sin‘(1 · 𝐴))))
94 1cnd 11150 . . . . . . . . . . . . . . . . . 18 (𝑛 ∈ (1...𝑁) → 1 ∈ ℂ)
955, 94pncand 11513 . . . . . . . . . . . . . . . . 17 (𝑛 ∈ (1...𝑁) → ((𝑛 + 1) − 1) = 𝑛)
9695eqcomd 2742 . . . . . . . . . . . . . . . 16 (𝑛 ∈ (1...𝑁) → 𝑛 = ((𝑛 + 1) − 1))
9796adantl 482 . . . . . . . . . . . . . . 15 ((𝜑𝑛 ∈ (1...𝑁)) → 𝑛 = ((𝑛 + 1) − 1))
9897fvoveq1d 7379 . . . . . . . . . . . . . 14 ((𝜑𝑛 ∈ (1...𝑁)) → (sin‘(𝑛 · 𝐴)) = (sin‘(((𝑛 + 1) − 1) · 𝐴)))
9998oveq1d 7372 . . . . . . . . . . . . 13 ((𝜑𝑛 ∈ (1...𝑁)) → ((sin‘(𝑛 · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))) = ((sin‘(((𝑛 + 1) − 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))))
10099sumeq2dv 15588 . . . . . . . . . . . 12 (𝜑 → Σ𝑛 ∈ (1...𝑁)((sin‘(𝑛 · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))) = Σ𝑛 ∈ (1...𝑁)((sin‘(((𝑛 + 1) − 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))))
101 oveq1 7364 . . . . . . . . . . . . . 14 (𝑗 = 𝑛 → (𝑗 − 1) = (𝑛 − 1))
102101fvoveq1d 7379 . . . . . . . . . . . . 13 (𝑗 = 𝑛 → (sin‘((𝑗 − 1) · 𝐴)) = (sin‘((𝑛 − 1) · 𝐴)))
103 oveq1 7364 . . . . . . . . . . . . . 14 (𝑗 = (𝑛 + 1) → (𝑗 − 1) = ((𝑛 + 1) − 1))
104103fvoveq1d 7379 . . . . . . . . . . . . 13 (𝑗 = (𝑛 + 1) → (sin‘((𝑗 − 1) · 𝐴)) = (sin‘(((𝑛 + 1) − 1) · 𝐴)))
105 oveq1 7364 . . . . . . . . . . . . . 14 (𝑗 = 1 → (𝑗 − 1) = (1 − 1))
106105fvoveq1d 7379 . . . . . . . . . . . . 13 (𝑗 = 1 → (sin‘((𝑗 − 1) · 𝐴)) = (sin‘((1 − 1) · 𝐴)))
107 oveq1 7364 . . . . . . . . . . . . . 14 (𝑗 = (𝑁 + 1) → (𝑗 − 1) = ((𝑁 + 1) − 1))
108107fvoveq1d 7379 . . . . . . . . . . . . 13 (𝑗 = (𝑁 + 1) → (sin‘((𝑗 − 1) · 𝐴)) = (sin‘(((𝑁 + 1) − 1) · 𝐴)))
109 1cnd 11150 . . . . . . . . . . . . . . . 16 ((𝜑𝑗 ∈ (1...(𝑁 + 1))) → 1 ∈ ℂ)
11089, 109subcld 11512 . . . . . . . . . . . . . . 15 ((𝜑𝑗 ∈ (1...(𝑁 + 1))) → (𝑗 − 1) ∈ ℂ)
111110, 90mulcld 11175 . . . . . . . . . . . . . 14 ((𝜑𝑗 ∈ (1...(𝑁 + 1))) → ((𝑗 − 1) · 𝐴) ∈ ℂ)
112111sincld 16012 . . . . . . . . . . . . 13 ((𝜑𝑗 ∈ (1...(𝑁 + 1))) → (sin‘((𝑗 − 1) · 𝐴)) ∈ ℂ)
113102, 104, 106, 108, 82, 86, 112telfsum2 15690 . . . . . . . . . . . 12 (𝜑 → Σ𝑛 ∈ (1...𝑁)((sin‘(((𝑛 + 1) − 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))) = ((sin‘(((𝑁 + 1) − 1) · 𝐴)) − (sin‘((1 − 1) · 𝐴))))
11481nnred 12168 . . . . . . . . . . . . . . . 16 (𝜑𝑁 ∈ ℝ)
115114recnd 11183 . . . . . . . . . . . . . . 15 (𝜑𝑁 ∈ ℂ)
116115, 1pncand 11513 . . . . . . . . . . . . . 14 (𝜑 → ((𝑁 + 1) − 1) = 𝑁)
117116fvoveq1d 7379 . . . . . . . . . . . . 13 (𝜑 → (sin‘(((𝑁 + 1) − 1) · 𝐴)) = (sin‘(𝑁 · 𝐴)))
1181subidd 11500 . . . . . . . . . . . . . . . . 17 (𝜑 → (1 − 1) = 0)
119118oveq1d 7372 . . . . . . . . . . . . . . . 16 (𝜑 → ((1 − 1) · 𝐴) = (0 · 𝐴))
1208mul02d 11353 . . . . . . . . . . . . . . . 16 (𝜑 → (0 · 𝐴) = 0)
121119, 120eqtrd 2776 . . . . . . . . . . . . . . 15 (𝜑 → ((1 − 1) · 𝐴) = 0)
122121fveq2d 6846 . . . . . . . . . . . . . 14 (𝜑 → (sin‘((1 − 1) · 𝐴)) = (sin‘0))
123 sin0 16031 . . . . . . . . . . . . . . 15 (sin‘0) = 0
124123a1i 11 . . . . . . . . . . . . . 14 (𝜑 → (sin‘0) = 0)
125122, 124eqtrd 2776 . . . . . . . . . . . . 13 (𝜑 → (sin‘((1 − 1) · 𝐴)) = 0)
126117, 125oveq12d 7375 . . . . . . . . . . . 12 (𝜑 → ((sin‘(((𝑁 + 1) − 1) · 𝐴)) − (sin‘((1 − 1) · 𝐴))) = ((sin‘(𝑁 · 𝐴)) − 0))
127100, 113, 1263eqtrd 2780 . . . . . . . . . . 11 (𝜑 → Σ𝑛 ∈ (1...𝑁)((sin‘(𝑛 · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))) = ((sin‘(𝑁 · 𝐴)) − 0))
12893, 127oveq12d 7375 . . . . . . . . . 10 (𝜑 → (Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘(𝑛 · 𝐴))) + Σ𝑛 ∈ (1...𝑁)((sin‘(𝑛 · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴)))) = (((sin‘((𝑁 + 1) · 𝐴)) − (sin‘(1 · 𝐴))) + ((sin‘(𝑁 · 𝐴)) − 0)))
12973, 76, 1283eqtrd 2780 . . . . . . . . 9 (𝜑 → Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))) = (((sin‘((𝑁 + 1) · 𝐴)) − (sin‘(1 · 𝐴))) + ((sin‘(𝑁 · 𝐴)) − 0)))
130129oveq2d 7373 . . . . . . . 8 (𝜑 → ((sin‘𝐴) + Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴)))) = ((sin‘𝐴) + (((sin‘((𝑁 + 1) · 𝐴)) − (sin‘(1 · 𝐴))) + ((sin‘(𝑁 · 𝐴)) − 0))))
13127fveq2d 6846 . . . . . . . . . . . 12 (𝜑 → (sin‘(1 · 𝐴)) = (sin‘𝐴))
132131oveq2d 7373 . . . . . . . . . . 11 (𝜑 → ((sin‘((𝑁 + 1) · 𝐴)) − (sin‘(1 · 𝐴))) = ((sin‘((𝑁 + 1) · 𝐴)) − (sin‘𝐴)))
133132oveq1d 7372 . . . . . . . . . 10 (𝜑 → (((sin‘((𝑁 + 1) · 𝐴)) − (sin‘(1 · 𝐴))) + ((sin‘(𝑁 · 𝐴)) − 0)) = (((sin‘((𝑁 + 1) · 𝐴)) − (sin‘𝐴)) + ((sin‘(𝑁 · 𝐴)) − 0)))
134133oveq2d 7373 . . . . . . . . 9 (𝜑 → ((sin‘𝐴) + (((sin‘((𝑁 + 1) · 𝐴)) − (sin‘(1 · 𝐴))) + ((sin‘(𝑁 · 𝐴)) − 0))) = ((sin‘𝐴) + (((sin‘((𝑁 + 1) · 𝐴)) − (sin‘𝐴)) + ((sin‘(𝑁 · 𝐴)) − 0))))
135115, 1addcld 11174 . . . . . . . . . . . . . 14 (𝜑 → (𝑁 + 1) ∈ ℂ)
136135, 8mulcld 11175 . . . . . . . . . . . . 13 (𝜑 → ((𝑁 + 1) · 𝐴) ∈ ℂ)
137136sincld 16012 . . . . . . . . . . . 12 (𝜑 → (sin‘((𝑁 + 1) · 𝐴)) ∈ ℂ)
138137, 14subcld 11512 . . . . . . . . . . 11 (𝜑 → ((sin‘((𝑁 + 1) · 𝐴)) − (sin‘𝐴)) ∈ ℂ)
139115, 8mulcld 11175 . . . . . . . . . . . . 13 (𝜑 → (𝑁 · 𝐴) ∈ ℂ)
140139sincld 16012 . . . . . . . . . . . 12 (𝜑 → (sin‘(𝑁 · 𝐴)) ∈ ℂ)
141 0cnd 11148 . . . . . . . . . . . 12 (𝜑 → 0 ∈ ℂ)
142140, 141subcld 11512 . . . . . . . . . . 11 (𝜑 → ((sin‘(𝑁 · 𝐴)) − 0) ∈ ℂ)
14314, 138, 142addassd 11177 . . . . . . . . . 10 (𝜑 → (((sin‘𝐴) + ((sin‘((𝑁 + 1) · 𝐴)) − (sin‘𝐴))) + ((sin‘(𝑁 · 𝐴)) − 0)) = ((sin‘𝐴) + (((sin‘((𝑁 + 1) · 𝐴)) − (sin‘𝐴)) + ((sin‘(𝑁 · 𝐴)) − 0))))
144143eqcomd 2742 . . . . . . . . 9 (𝜑 → ((sin‘𝐴) + (((sin‘((𝑁 + 1) · 𝐴)) − (sin‘𝐴)) + ((sin‘(𝑁 · 𝐴)) − 0))) = (((sin‘𝐴) + ((sin‘((𝑁 + 1) · 𝐴)) − (sin‘𝐴))) + ((sin‘(𝑁 · 𝐴)) − 0)))
14514, 137pncan3d 11515 . . . . . . . . . . 11 (𝜑 → ((sin‘𝐴) + ((sin‘((𝑁 + 1) · 𝐴)) − (sin‘𝐴))) = (sin‘((𝑁 + 1) · 𝐴)))
146140subid1d 11501 . . . . . . . . . . 11 (𝜑 → ((sin‘(𝑁 · 𝐴)) − 0) = (sin‘(𝑁 · 𝐴)))
147145, 146oveq12d 7375 . . . . . . . . . 10 (𝜑 → (((sin‘𝐴) + ((sin‘((𝑁 + 1) · 𝐴)) − (sin‘𝐴))) + ((sin‘(𝑁 · 𝐴)) − 0)) = ((sin‘((𝑁 + 1) · 𝐴)) + (sin‘(𝑁 · 𝐴))))
148137, 140addcomd 11357 . . . . . . . . . 10 (𝜑 → ((sin‘((𝑁 + 1) · 𝐴)) + (sin‘(𝑁 · 𝐴))) = ((sin‘(𝑁 · 𝐴)) + (sin‘((𝑁 + 1) · 𝐴))))
149147, 148eqtrd 2776 . . . . . . . . 9 (𝜑 → (((sin‘𝐴) + ((sin‘((𝑁 + 1) · 𝐴)) − (sin‘𝐴))) + ((sin‘(𝑁 · 𝐴)) − 0)) = ((sin‘(𝑁 · 𝐴)) + (sin‘((𝑁 + 1) · 𝐴))))
150134, 144, 1493eqtrd 2780 . . . . . . . 8 (𝜑 → ((sin‘𝐴) + (((sin‘((𝑁 + 1) · 𝐴)) − (sin‘(1 · 𝐴))) + ((sin‘(𝑁 · 𝐴)) − 0))) = ((sin‘(𝑁 · 𝐴)) + (sin‘((𝑁 + 1) · 𝐴))))
151130, 150eqtrd 2776 . . . . . . 7 (𝜑 → ((sin‘𝐴) + Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴)))) = ((sin‘(𝑁 · 𝐴)) + (sin‘((𝑁 + 1) · 𝐴))))
152151oveq2d 7373 . . . . . 6 (𝜑 → ((1 / 2) · ((sin‘𝐴) + Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))))) = ((1 / 2) · ((sin‘(𝑁 · 𝐴)) + (sin‘((𝑁 + 1) · 𝐴)))))
153152oveq1d 7372 . . . . 5 (𝜑 → (((1 / 2) · ((sin‘𝐴) + Σ𝑛 ∈ (1...𝑁)((sin‘((𝑛 + 1) · 𝐴)) − (sin‘((𝑛 − 1) · 𝐴))))) / (sin‘𝐴)) = (((1 / 2) · ((sin‘(𝑁 · 𝐴)) + (sin‘((𝑁 + 1) · 𝐴)))) / (sin‘𝐴)))
15417, 69, 1533eqtrd 2780 . . . 4 (𝜑 → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) = (((1 / 2) · ((sin‘(𝑁 · 𝐴)) + (sin‘((𝑁 + 1) · 𝐴)))) / (sin‘𝐴)))
155 halfre 12367 . . . . . . . . . . . 12 (1 / 2) ∈ ℝ
156155a1i 11 . . . . . . . . . . 11 (𝜑 → (1 / 2) ∈ ℝ)
157114, 156readdcld 11184 . . . . . . . . . 10 (𝜑 → (𝑁 + (1 / 2)) ∈ ℝ)
158157, 7remulcld 11185 . . . . . . . . 9 (𝜑 → ((𝑁 + (1 / 2)) · 𝐴) ∈ ℝ)
159158recnd 11183 . . . . . . . 8 (𝜑 → ((𝑁 + (1 / 2)) · 𝐴) ∈ ℂ)
1602, 8mulcld 11175 . . . . . . . 8 (𝜑 → ((1 / 2) · 𝐴) ∈ ℂ)
161 sinmulcos 44096 . . . . . . . 8 ((((𝑁 + (1 / 2)) · 𝐴) ∈ ℂ ∧ ((1 / 2) · 𝐴) ∈ ℂ) → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) · (cos‘((1 / 2) · 𝐴))) = (((sin‘(((𝑁 + (1 / 2)) · 𝐴) + ((1 / 2) · 𝐴))) + (sin‘(((𝑁 + (1 / 2)) · 𝐴) − ((1 / 2) · 𝐴)))) / 2))
162159, 160, 161syl2anc 584 . . . . . . 7 (𝜑 → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) · (cos‘((1 / 2) · 𝐴))) = (((sin‘(((𝑁 + (1 / 2)) · 𝐴) + ((1 / 2) · 𝐴))) + (sin‘(((𝑁 + (1 / 2)) · 𝐴) − ((1 / 2) · 𝐴)))) / 2))
163115, 2, 8adddird 11180 . . . . . . . . . . . 12 (𝜑 → ((𝑁 + (1 / 2)) · 𝐴) = ((𝑁 · 𝐴) + ((1 / 2) · 𝐴)))
164163oveq1d 7372 . . . . . . . . . . 11 (𝜑 → (((𝑁 + (1 / 2)) · 𝐴) + ((1 / 2) · 𝐴)) = (((𝑁 · 𝐴) + ((1 / 2) · 𝐴)) + ((1 / 2) · 𝐴)))
165139, 160, 160addassd 11177 . . . . . . . . . . 11 (𝜑 → (((𝑁 · 𝐴) + ((1 / 2) · 𝐴)) + ((1 / 2) · 𝐴)) = ((𝑁 · 𝐴) + (((1 / 2) · 𝐴) + ((1 / 2) · 𝐴))))
1662, 2, 8adddird 11180 . . . . . . . . . . . . . 14 (𝜑 → (((1 / 2) + (1 / 2)) · 𝐴) = (((1 / 2) · 𝐴) + ((1 / 2) · 𝐴)))
16712halvesd 12399 . . . . . . . . . . . . . . 15 (𝜑 → ((1 / 2) + (1 / 2)) = 1)
168167oveq1d 7372 . . . . . . . . . . . . . 14 (𝜑 → (((1 / 2) + (1 / 2)) · 𝐴) = (1 · 𝐴))
169166, 168eqtr3d 2778 . . . . . . . . . . . . 13 (𝜑 → (((1 / 2) · 𝐴) + ((1 / 2) · 𝐴)) = (1 · 𝐴))
170169oveq2d 7373 . . . . . . . . . . . 12 (𝜑 → ((𝑁 · 𝐴) + (((1 / 2) · 𝐴) + ((1 / 2) · 𝐴))) = ((𝑁 · 𝐴) + (1 · 𝐴)))
171115, 1, 8adddird 11180 . . . . . . . . . . . 12 (𝜑 → ((𝑁 + 1) · 𝐴) = ((𝑁 · 𝐴) + (1 · 𝐴)))
172170, 171eqtr4d 2779 . . . . . . . . . . 11 (𝜑 → ((𝑁 · 𝐴) + (((1 / 2) · 𝐴) + ((1 / 2) · 𝐴))) = ((𝑁 + 1) · 𝐴))
173164, 165, 1723eqtrrd 2781 . . . . . . . . . 10 (𝜑 → ((𝑁 + 1) · 𝐴) = (((𝑁 + (1 / 2)) · 𝐴) + ((1 / 2) · 𝐴)))
174173fveq2d 6846 . . . . . . . . 9 (𝜑 → (sin‘((𝑁 + 1) · 𝐴)) = (sin‘(((𝑁 + (1 / 2)) · 𝐴) + ((1 / 2) · 𝐴))))
175163oveq1d 7372 . . . . . . . . . . 11 (𝜑 → (((𝑁 + (1 / 2)) · 𝐴) − ((1 / 2) · 𝐴)) = (((𝑁 · 𝐴) + ((1 / 2) · 𝐴)) − ((1 / 2) · 𝐴)))
176139, 160pncand 11513 . . . . . . . . . . 11 (𝜑 → (((𝑁 · 𝐴) + ((1 / 2) · 𝐴)) − ((1 / 2) · 𝐴)) = (𝑁 · 𝐴))
177175, 176eqtr2d 2777 . . . . . . . . . 10 (𝜑 → (𝑁 · 𝐴) = (((𝑁 + (1 / 2)) · 𝐴) − ((1 / 2) · 𝐴)))
178177fveq2d 6846 . . . . . . . . 9 (𝜑 → (sin‘(𝑁 · 𝐴)) = (sin‘(((𝑁 + (1 / 2)) · 𝐴) − ((1 / 2) · 𝐴))))
179174, 178oveq12d 7375 . . . . . . . 8 (𝜑 → ((sin‘((𝑁 + 1) · 𝐴)) + (sin‘(𝑁 · 𝐴))) = ((sin‘(((𝑁 + (1 / 2)) · 𝐴) + ((1 / 2) · 𝐴))) + (sin‘(((𝑁 + (1 / 2)) · 𝐴) − ((1 / 2) · 𝐴)))))
180179oveq1d 7372 . . . . . . 7 (𝜑 → (((sin‘((𝑁 + 1) · 𝐴)) + (sin‘(𝑁 · 𝐴))) / 2) = (((sin‘(((𝑁 + (1 / 2)) · 𝐴) + ((1 / 2) · 𝐴))) + (sin‘(((𝑁 + (1 / 2)) · 𝐴) − ((1 / 2) · 𝐴)))) / 2))
181162, 180eqtr4d 2779 . . . . . 6 (𝜑 → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) · (cos‘((1 / 2) · 𝐴))) = (((sin‘((𝑁 + 1) · 𝐴)) + (sin‘(𝑁 · 𝐴))) / 2))
182148oveq1d 7372 . . . . . 6 (𝜑 → (((sin‘((𝑁 + 1) · 𝐴)) + (sin‘(𝑁 · 𝐴))) / 2) = (((sin‘(𝑁 · 𝐴)) + (sin‘((𝑁 + 1) · 𝐴))) / 2))
183140, 137addcld 11174 . . . . . . 7 (𝜑 → ((sin‘(𝑁 · 𝐴)) + (sin‘((𝑁 + 1) · 𝐴))) ∈ ℂ)
184183, 52, 59divrec2d 11935 . . . . . 6 (𝜑 → (((sin‘(𝑁 · 𝐴)) + (sin‘((𝑁 + 1) · 𝐴))) / 2) = ((1 / 2) · ((sin‘(𝑁 · 𝐴)) + (sin‘((𝑁 + 1) · 𝐴)))))
185181, 182, 1843eqtrrd 2781 . . . . 5 (𝜑 → ((1 / 2) · ((sin‘(𝑁 · 𝐴)) + (sin‘((𝑁 + 1) · 𝐴)))) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) · (cos‘((1 / 2) · 𝐴))))
186185oveq1d 7372 . . . 4 (𝜑 → (((1 / 2) · ((sin‘(𝑁 · 𝐴)) + (sin‘((𝑁 + 1) · 𝐴)))) / (sin‘𝐴)) = (((sin‘((𝑁 + (1 / 2)) · 𝐴)) · (cos‘((1 / 2) · 𝐴))) / (sin‘𝐴)))
1878, 52, 59divcan2d 11933 . . . . . . . . 9 (𝜑 → (2 · (𝐴 / 2)) = 𝐴)
188187eqcomd 2742 . . . . . . . 8 (𝜑𝐴 = (2 · (𝐴 / 2)))
189188fveq2d 6846 . . . . . . 7 (𝜑 → (sin‘𝐴) = (sin‘(2 · (𝐴 / 2))))
1908halfcld 12398 . . . . . . . 8 (𝜑 → (𝐴 / 2) ∈ ℂ)
191 sin2t 16059 . . . . . . . 8 ((𝐴 / 2) ∈ ℂ → (sin‘(2 · (𝐴 / 2))) = (2 · ((sin‘(𝐴 / 2)) · (cos‘(𝐴 / 2)))))
192190, 191syl 17 . . . . . . 7 (𝜑 → (sin‘(2 · (𝐴 / 2))) = (2 · ((sin‘(𝐴 / 2)) · (cos‘(𝐴 / 2)))))
193189, 192eqtrd 2776 . . . . . 6 (𝜑 → (sin‘𝐴) = (2 · ((sin‘(𝐴 / 2)) · (cos‘(𝐴 / 2)))))
194193oveq2d 7373 . . . . 5 (𝜑 → (((sin‘((𝑁 + (1 / 2)) · 𝐴)) · (cos‘((1 / 2) · 𝐴))) / (sin‘𝐴)) = (((sin‘((𝑁 + (1 / 2)) · 𝐴)) · (cos‘((1 / 2) · 𝐴))) / (2 · ((sin‘(𝐴 / 2)) · (cos‘(𝐴 / 2))))))
195190sincld 16012 . . . . . . . 8 (𝜑 → (sin‘(𝐴 / 2)) ∈ ℂ)
196190coscld 16013 . . . . . . . 8 (𝜑 → (cos‘(𝐴 / 2)) ∈ ℂ)
19752, 195, 196mulassd 11178 . . . . . . 7 (𝜑 → ((2 · (sin‘(𝐴 / 2))) · (cos‘(𝐴 / 2))) = (2 · ((sin‘(𝐴 / 2)) · (cos‘(𝐴 / 2)))))
1988, 52, 59divrec2d 11935 . . . . . . . . 9 (𝜑 → (𝐴 / 2) = ((1 / 2) · 𝐴))
199198fveq2d 6846 . . . . . . . 8 (𝜑 → (cos‘(𝐴 / 2)) = (cos‘((1 / 2) · 𝐴)))
200199oveq2d 7373 . . . . . . 7 (𝜑 → ((2 · (sin‘(𝐴 / 2))) · (cos‘(𝐴 / 2))) = ((2 · (sin‘(𝐴 / 2))) · (cos‘((1 / 2) · 𝐴))))
201197, 200eqtr3d 2778 . . . . . 6 (𝜑 → (2 · ((sin‘(𝐴 / 2)) · (cos‘(𝐴 / 2)))) = ((2 · (sin‘(𝐴 / 2))) · (cos‘((1 / 2) · 𝐴))))
202201oveq2d 7373 . . . . 5 (𝜑 → (((sin‘((𝑁 + (1 / 2)) · 𝐴)) · (cos‘((1 / 2) · 𝐴))) / (2 · ((sin‘(𝐴 / 2)) · (cos‘(𝐴 / 2))))) = (((sin‘((𝑁 + (1 / 2)) · 𝐴)) · (cos‘((1 / 2) · 𝐴))) / ((2 · (sin‘(𝐴 / 2))) · (cos‘((1 / 2) · 𝐴)))))
203159sincld 16012 . . . . . 6 (𝜑 → (sin‘((𝑁 + (1 / 2)) · 𝐴)) ∈ ℂ)
20452, 195mulcld 11175 . . . . . 6 (𝜑 → (2 · (sin‘(𝐴 / 2))) ∈ ℂ)
205160coscld 16013 . . . . . 6 (𝜑 → (cos‘((1 / 2) · 𝐴)) ∈ ℂ)
206195, 196mulcld 11175 . . . . . . . . 9 (𝜑 → ((sin‘(𝐴 / 2)) · (cos‘(𝐴 / 2))) ∈ ℂ)
207193, 15eqnetrrd 3012 . . . . . . . . 9 (𝜑 → (2 · ((sin‘(𝐴 / 2)) · (cos‘(𝐴 / 2)))) ≠ 0)
20852, 206, 207mulne0bbd 11811 . . . . . . . 8 (𝜑 → ((sin‘(𝐴 / 2)) · (cos‘(𝐴 / 2))) ≠ 0)
209195, 196, 208mulne0bad 11810 . . . . . . 7 (𝜑 → (sin‘(𝐴 / 2)) ≠ 0)
21052, 195, 59, 209mulne0d 11807 . . . . . 6 (𝜑 → (2 · (sin‘(𝐴 / 2))) ≠ 0)
211195, 196, 208mulne0bbd 11811 . . . . . . 7 (𝜑 → (cos‘(𝐴 / 2)) ≠ 0)
212199, 211eqnetrrd 3012 . . . . . 6 (𝜑 → (cos‘((1 / 2) · 𝐴)) ≠ 0)
213203, 204, 205, 210, 212divcan5rd 11958 . . . . 5 (𝜑 → (((sin‘((𝑁 + (1 / 2)) · 𝐴)) · (cos‘((1 / 2) · 𝐴))) / ((2 · (sin‘(𝐴 / 2))) · (cos‘((1 / 2) · 𝐴)))) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / (2 · (sin‘(𝐴 / 2)))))
214194, 202, 2133eqtrd 2780 . . . 4 (𝜑 → (((sin‘((𝑁 + (1 / 2)) · 𝐴)) · (cos‘((1 / 2) · 𝐴))) / (sin‘𝐴)) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / (2 · (sin‘(𝐴 / 2)))))
215154, 186, 2143eqtrd 2780 . . 3 (𝜑 → ((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / (2 · (sin‘(𝐴 / 2)))))
216215oveq1d 7372 . 2 (𝜑 → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = (((sin‘((𝑁 + (1 / 2)) · 𝐴)) / (2 · (sin‘(𝐴 / 2)))) / π))
217 picn 25816 . . . 4 π ∈ ℂ
218217a1i 11 . . 3 (𝜑 → π ∈ ℂ)
219 pire 25815 . . . . 5 π ∈ ℝ
220 pipos 25817 . . . . 5 0 < π
221219, 220gt0ne0ii 11691 . . . 4 π ≠ 0
222221a1i 11 . . 3 (𝜑 → π ≠ 0)
223203, 204, 218, 210, 222divdiv32d 11956 . 2 (𝜑 → (((sin‘((𝑁 + (1 / 2)) · 𝐴)) / (2 · (sin‘(𝐴 / 2)))) / π) = (((sin‘((𝑁 + (1 / 2)) · 𝐴)) / π) / (2 · (sin‘(𝐴 / 2)))))
224203, 218, 204, 222, 210divdiv1d 11962 . . 3 (𝜑 → (((sin‘((𝑁 + (1 / 2)) · 𝐴)) / π) / (2 · (sin‘(𝐴 / 2)))) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / (π · (2 · (sin‘(𝐴 / 2))))))
225218, 52, 195mulassd 11178 . . . . 5 (𝜑 → ((π · 2) · (sin‘(𝐴 / 2))) = (π · (2 · (sin‘(𝐴 / 2)))))
226218, 52mulcomd 11176 . . . . . 6 (𝜑 → (π · 2) = (2 · π))
227226oveq1d 7372 . . . . 5 (𝜑 → ((π · 2) · (sin‘(𝐴 / 2))) = ((2 · π) · (sin‘(𝐴 / 2))))
228225, 227eqtr3d 2778 . . . 4 (𝜑 → (π · (2 · (sin‘(𝐴 / 2)))) = ((2 · π) · (sin‘(𝐴 / 2))))
229228oveq2d 7373 . . 3 (𝜑 → ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / (π · (2 · (sin‘(𝐴 / 2))))) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
230224, 229eqtrd 2776 . 2 (𝜑 → (((sin‘((𝑁 + (1 / 2)) · 𝐴)) / π) / (2 · (sin‘(𝐴 / 2)))) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
231216, 223, 2303eqtrd 2780 1 (𝜑 → (((1 / 2) + Σ𝑛 ∈ (1...𝑁)(cos‘(𝑛 · 𝐴))) / π) = ((sin‘((𝑁 + (1 / 2)) · 𝐴)) / ((2 · π) · (sin‘(𝐴 / 2)))))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 396   = wceq 1541  wcel 2106  wne 2943  cfv 6496  (class class class)co 7357  cc 11049  cr 11050  0cc0 11051  1c1 11052   + caddc 11054   · cmul 11056  cmin 11385  -cneg 11386   / cdiv 11812  cn 12153  2c2 12208  cuz 12763  ...cfz 13424  Σcsu 15570  sincsin 15946  cosccos 15947  πcpi 15949
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1797  ax-4 1811  ax-5 1913  ax-6 1971  ax-7 2011  ax-8 2108  ax-9 2116  ax-10 2137  ax-11 2154  ax-12 2171  ax-ext 2707  ax-rep 5242  ax-sep 5256  ax-nul 5263  ax-pow 5320  ax-pr 5384  ax-un 7672  ax-inf2 9577  ax-cnex 11107  ax-resscn 11108  ax-1cn 11109  ax-icn 11110  ax-addcl 11111  ax-addrcl 11112  ax-mulcl 11113  ax-mulrcl 11114  ax-mulcom 11115  ax-addass 11116  ax-mulass 11117  ax-distr 11118  ax-i2m1 11119  ax-1ne0 11120  ax-1rid 11121  ax-rnegex 11122  ax-rrecex 11123  ax-cnre 11124  ax-pre-lttri 11125  ax-pre-lttrn 11126  ax-pre-ltadd 11127  ax-pre-mulgt0 11128  ax-pre-sup 11129  ax-addf 11130  ax-mulf 11131
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 846  df-3or 1088  df-3an 1089  df-tru 1544  df-fal 1554  df-ex 1782  df-nf 1786  df-sb 2068  df-mo 2538  df-eu 2567  df-clab 2714  df-cleq 2728  df-clel 2814  df-nfc 2889  df-ne 2944  df-nel 3050  df-ral 3065  df-rex 3074  df-rmo 3353  df-reu 3354  df-rab 3408  df-v 3447  df-sbc 3740  df-csb 3856  df-dif 3913  df-un 3915  df-in 3917  df-ss 3927  df-pss 3929  df-nul 4283  df-if 4487  df-pw 4562  df-sn 4587  df-pr 4589  df-tp 4591  df-op 4593  df-uni 4866  df-int 4908  df-iun 4956  df-iin 4957  df-br 5106  df-opab 5168  df-mpt 5189  df-tr 5223  df-id 5531  df-eprel 5537  df-po 5545  df-so 5546  df-fr 5588  df-se 5589  df-we 5590  df-xp 5639  df-rel 5640  df-cnv 5641  df-co 5642  df-dm 5643  df-rn 5644  df-res 5645  df-ima 5646  df-pred 6253  df-ord 6320  df-on 6321  df-lim 6322  df-suc 6323  df-iota 6448  df-fun 6498  df-fn 6499  df-f 6500  df-f1 6501  df-fo 6502  df-f1o 6503  df-fv 6504  df-isom 6505  df-riota 7313  df-ov 7360  df-oprab 7361  df-mpo 7362  df-of 7617  df-om 7803  df-1st 7921  df-2nd 7922  df-supp 8093  df-frecs 8212  df-wrecs 8243  df-recs 8317  df-rdg 8356  df-1o 8412  df-2o 8413  df-er 8648  df-map 8767  df-pm 8768  df-ixp 8836  df-en 8884  df-dom 8885  df-sdom 8886  df-fin 8887  df-fsupp 9306  df-fi 9347  df-sup 9378  df-inf 9379  df-oi 9446  df-card 9875  df-pnf 11191  df-mnf 11192  df-xr 11193  df-ltxr 11194  df-le 11195  df-sub 11387  df-neg 11388  df-div 11813  df-nn 12154  df-2 12216  df-3 12217  df-4 12218  df-5 12219  df-6 12220  df-7 12221  df-8 12222  df-9 12223  df-n0 12414  df-z 12500  df-dec 12619  df-uz 12764  df-q 12874  df-rp 12916  df-xneg 13033  df-xadd 13034  df-xmul 13035  df-ioo 13268  df-ioc 13269  df-ico 13270  df-icc 13271  df-fz 13425  df-fzo 13568  df-fl 13697  df-seq 13907  df-exp 13968  df-fac 14174  df-bc 14203  df-hash 14231  df-shft 14952  df-cj 14984  df-re 14985  df-im 14986  df-sqrt 15120  df-abs 15121  df-limsup 15353  df-clim 15370  df-rlim 15371  df-sum 15571  df-ef 15950  df-sin 15952  df-cos 15953  df-pi 15955  df-struct 17019  df-sets 17036  df-slot 17054  df-ndx 17066  df-base 17084  df-ress 17113  df-plusg 17146  df-mulr 17147  df-starv 17148  df-sca 17149  df-vsca 17150  df-ip 17151  df-tset 17152  df-ple 17153  df-ds 17155  df-unif 17156  df-hom 17157  df-cco 17158  df-rest 17304  df-topn 17305  df-0g 17323  df-gsum 17324  df-topgen 17325  df-pt 17326  df-prds 17329  df-xrs 17384  df-qtop 17389  df-imas 17390  df-xps 17392  df-mre 17466  df-mrc 17467  df-acs 17469  df-mgm 18497  df-sgrp 18546  df-mnd 18557  df-submnd 18602  df-mulg 18873  df-cntz 19097  df-cmn 19564  df-psmet 20788  df-xmet 20789  df-met 20790  df-bl 20791  df-mopn 20792  df-fbas 20793  df-fg 20794  df-cnfld 20797  df-top 22243  df-topon 22260  df-topsp 22282  df-bases 22296  df-cld 22370  df-ntr 22371  df-cls 22372  df-nei 22449  df-lp 22487  df-perf 22488  df-cn 22578  df-cnp 22579  df-haus 22666  df-tx 22913  df-hmeo 23106  df-fil 23197  df-fm 23289  df-flim 23290  df-flf 23291  df-xms 23673  df-ms 23674  df-tms 23675  df-cncf 24241  df-limc 25230  df-dv 25231
This theorem is referenced by:  dirkertrigeq  44332
  Copyright terms: Public domain W3C validator