Proof of Theorem sin5tlem5
| Step | Hyp | Ref
| Expression |
| 1 | | sin5tlem1 47337 |
. . . 4
⊢ (𝑀 ∈ ℂ → (((3
· 𝑀) − (4
· (𝑀↑3)))
· (1 − (2 · (𝑀↑2)))) = (((8 · (𝑀↑5)) − (;10 · (𝑀↑3))) + (3 · 𝑀))) |
| 2 | 1 | 3ad2ant2 1135 |
. . 3
⊢ ((𝑁 ∈ ℂ ∧ 𝑀 ∈ ℂ ∧ (𝑁↑2) = (1 − (𝑀↑2))) → (((3 ·
𝑀) − (4 ·
(𝑀↑3))) · (1
− (2 · (𝑀↑2)))) = (((8 · (𝑀↑5)) − (;10 · (𝑀↑3))) + (3 · 𝑀))) |
| 3 | | sin5tlem4 47340 |
. . 3
⊢ ((𝑁 ∈ ℂ ∧ 𝑀 ∈ ℂ ∧ (𝑁↑2) = (1 − (𝑀↑2))) → (((4 ·
(𝑁↑3)) − (3
· 𝑁)) · (2
· (𝑀 · 𝑁))) = ((((8 · (𝑀↑5)) − (;16 · (𝑀↑3))) + (8 · 𝑀)) − ((6 · 𝑀) − (6 · (𝑀↑3))))) |
| 4 | 2, 3 | oveq12d 7378 |
. 2
⊢ ((𝑁 ∈ ℂ ∧ 𝑀 ∈ ℂ ∧ (𝑁↑2) = (1 − (𝑀↑2))) → ((((3 ·
𝑀) − (4 ·
(𝑀↑3))) · (1
− (2 · (𝑀↑2)))) + (((4 · (𝑁↑3)) − (3 ·
𝑁)) · (2 ·
(𝑀 · 𝑁)))) = ((((8 · (𝑀↑5)) − (;10 · (𝑀↑3))) + (3 · 𝑀)) + ((((8 · (𝑀↑5)) − (;16 · (𝑀↑3))) + (8 · 𝑀)) − ((6 · 𝑀) − (6 · (𝑀↑3)))))) |
| 5 | | 8cn 12269 |
. . . . . . . . 9
⊢ 8 ∈
ℂ |
| 6 | 5 | a1i 11 |
. . . . . . . 8
⊢ (𝑀 ∈ ℂ → 8 ∈
ℂ) |
| 7 | | id 22 |
. . . . . . . 8
⊢ (𝑀 ∈ ℂ → 𝑀 ∈
ℂ) |
| 8 | 6, 7 | mulcld 11156 |
. . . . . . 7
⊢ (𝑀 ∈ ℂ → (8
· 𝑀) ∈
ℂ) |
| 9 | | 6cn 12263 |
. . . . . . . . 9
⊢ 6 ∈
ℂ |
| 10 | 9 | a1i 11 |
. . . . . . . 8
⊢ (𝑀 ∈ ℂ → 6 ∈
ℂ) |
| 11 | 10, 7 | mulcld 11156 |
. . . . . . 7
⊢ (𝑀 ∈ ℂ → (6
· 𝑀) ∈
ℂ) |
| 12 | 8, 11 | subcld 11496 |
. . . . . 6
⊢ (𝑀 ∈ ℂ → ((8
· 𝑀) − (6
· 𝑀)) ∈
ℂ) |
| 13 | | 5nn0 12448 |
. . . . . . . . . . 11
⊢ 5 ∈
ℕ0 |
| 14 | 13 | a1i 11 |
. . . . . . . . . 10
⊢ (𝑀 ∈ ℂ → 5 ∈
ℕ0) |
| 15 | 7, 14 | expcld 14099 |
. . . . . . . . 9
⊢ (𝑀 ∈ ℂ → (𝑀↑5) ∈
ℂ) |
| 16 | 6, 15 | mulcld 11156 |
. . . . . . . 8
⊢ (𝑀 ∈ ℂ → (8
· (𝑀↑5)) ∈
ℂ) |
| 17 | | 1nn0 12444 |
. . . . . . . . . . . 12
⊢ 1 ∈
ℕ0 |
| 18 | | 6nn0 12449 |
. . . . . . . . . . . 12
⊢ 6 ∈
ℕ0 |
| 19 | 17, 18 | deccl 12650 |
. . . . . . . . . . 11
⊢ ;16 ∈
ℕ0 |
| 20 | 19 | nn0cni 12440 |
. . . . . . . . . 10
⊢ ;16 ∈ ℂ |
| 21 | 20 | a1i 11 |
. . . . . . . . 9
⊢ (𝑀 ∈ ℂ → ;16 ∈ ℂ) |
| 22 | | 3nn0 12446 |
. . . . . . . . . . 11
⊢ 3 ∈
ℕ0 |
| 23 | 22 | a1i 11 |
. . . . . . . . . 10
⊢ (𝑀 ∈ ℂ → 3 ∈
ℕ0) |
| 24 | 7, 23 | expcld 14099 |
. . . . . . . . 9
⊢ (𝑀 ∈ ℂ → (𝑀↑3) ∈
ℂ) |
| 25 | 21, 24 | mulcld 11156 |
. . . . . . . 8
⊢ (𝑀 ∈ ℂ → (;16 · (𝑀↑3)) ∈ ℂ) |
| 26 | 16, 25 | subcld 11496 |
. . . . . . 7
⊢ (𝑀 ∈ ℂ → ((8
· (𝑀↑5))
− (;16 · (𝑀↑3))) ∈
ℂ) |
| 27 | 10, 24 | mulcld 11156 |
. . . . . . 7
⊢ (𝑀 ∈ ℂ → (6
· (𝑀↑3)) ∈
ℂ) |
| 28 | 26, 27 | addcld 11155 |
. . . . . 6
⊢ (𝑀 ∈ ℂ → (((8
· (𝑀↑5))
− (;16 · (𝑀↑3))) + (6 · (𝑀↑3))) ∈
ℂ) |
| 29 | 26, 8 | addcomd 11339 |
. . . . . . . 8
⊢ (𝑀 ∈ ℂ → (((8
· (𝑀↑5))
− (;16 · (𝑀↑3))) + (8 · 𝑀)) = ((8 · 𝑀) + ((8 · (𝑀↑5)) − (;16 · (𝑀↑3))))) |
| 30 | 29 | oveq1d 7375 |
. . . . . . 7
⊢ (𝑀 ∈ ℂ → ((((8
· (𝑀↑5))
− (;16 · (𝑀↑3))) + (8 · 𝑀)) − ((6 · 𝑀) − (6 · (𝑀↑3)))) = (((8 ·
𝑀) + ((8 · (𝑀↑5)) − (;16 · (𝑀↑3)))) − ((6 · 𝑀) − (6 · (𝑀↑3))))) |
| 31 | 8, 26, 11, 27 | addsubsub23 11549 |
. . . . . . 7
⊢ (𝑀 ∈ ℂ → (((8
· 𝑀) + ((8 ·
(𝑀↑5)) − (;16 · (𝑀↑3)))) − ((6 · 𝑀) − (6 · (𝑀↑3)))) = (((8 ·
𝑀) − (6 ·
𝑀)) + (((8 · (𝑀↑5)) − (;16 · (𝑀↑3))) + (6 · (𝑀↑3))))) |
| 32 | 30, 31 | eqtrd 2772 |
. . . . . 6
⊢ (𝑀 ∈ ℂ → ((((8
· (𝑀↑5))
− (;16 · (𝑀↑3))) + (8 · 𝑀)) − ((6 · 𝑀) − (6 · (𝑀↑3)))) = (((8 ·
𝑀) − (6 ·
𝑀)) + (((8 · (𝑀↑5)) − (;16 · (𝑀↑3))) + (6 · (𝑀↑3))))) |
| 33 | 12, 28, 32 | comraddd 11351 |
. . . . 5
⊢ (𝑀 ∈ ℂ → ((((8
· (𝑀↑5))
− (;16 · (𝑀↑3))) + (8 · 𝑀)) − ((6 · 𝑀) − (6 · (𝑀↑3)))) = ((((8 ·
(𝑀↑5)) − (;16 · (𝑀↑3))) + (6 · (𝑀↑3))) + ((8 · 𝑀) − (6 · 𝑀)))) |
| 34 | 33 | oveq2d 7376 |
. . . 4
⊢ (𝑀 ∈ ℂ → ((((8
· (𝑀↑5))
− (;10 · (𝑀↑3))) + (3 · 𝑀)) + ((((8 · (𝑀↑5)) − (;16 · (𝑀↑3))) + (8 · 𝑀)) − ((6 · 𝑀) − (6 · (𝑀↑3))))) = ((((8 · (𝑀↑5)) − (;10 · (𝑀↑3))) + (3 · 𝑀)) + ((((8 · (𝑀↑5)) − (;16 · (𝑀↑3))) + (6 · (𝑀↑3))) + ((8 · 𝑀) − (6 · 𝑀))))) |
| 35 | | 10nn 12651 |
. . . . . . . . 9
⊢ ;10 ∈ ℕ |
| 36 | 35 | nncni 12175 |
. . . . . . . 8
⊢ ;10 ∈ ℂ |
| 37 | 36 | a1i 11 |
. . . . . . 7
⊢ (𝑀 ∈ ℂ → ;10 ∈ ℂ) |
| 38 | 37, 24 | mulcld 11156 |
. . . . . 6
⊢ (𝑀 ∈ ℂ → (;10 · (𝑀↑3)) ∈ ℂ) |
| 39 | 16, 38 | subcld 11496 |
. . . . 5
⊢ (𝑀 ∈ ℂ → ((8
· (𝑀↑5))
− (;10 · (𝑀↑3))) ∈
ℂ) |
| 40 | | 3cn 12253 |
. . . . . . 7
⊢ 3 ∈
ℂ |
| 41 | 40 | a1i 11 |
. . . . . 6
⊢ (𝑀 ∈ ℂ → 3 ∈
ℂ) |
| 42 | 41, 7 | mulcld 11156 |
. . . . 5
⊢ (𝑀 ∈ ℂ → (3
· 𝑀) ∈
ℂ) |
| 43 | 39, 42, 28, 12 | add4d 11366 |
. . . 4
⊢ (𝑀 ∈ ℂ → ((((8
· (𝑀↑5))
− (;10 · (𝑀↑3))) + (3 · 𝑀)) + ((((8 · (𝑀↑5)) − (;16 · (𝑀↑3))) + (6 · (𝑀↑3))) + ((8 · 𝑀) − (6 · 𝑀)))) = ((((8 · (𝑀↑5)) − (;10 · (𝑀↑3))) + (((8 · (𝑀↑5)) − (;16 · (𝑀↑3))) + (6 · (𝑀↑3)))) + ((3 · 𝑀) + ((8 · 𝑀) − (6 · 𝑀))))) |
| 44 | 16, 16, 38, 38 | addsub4d 11543 |
. . . . . 6
⊢ (𝑀 ∈ ℂ → (((8
· (𝑀↑5)) + (8
· (𝑀↑5)))
− ((;10 · (𝑀↑3)) + (;10 · (𝑀↑3)))) = (((8 · (𝑀↑5)) − (;10 · (𝑀↑3))) + ((8 · (𝑀↑5)) − (;10 · (𝑀↑3))))) |
| 45 | | 8p8e16 12721 |
. . . . . . . . . . 11
⊢ (8 + 8) =
;16 |
| 46 | 45 | eqcomi 2746 |
. . . . . . . . . 10
⊢ ;16 = (8 + 8) |
| 47 | 46 | a1i 11 |
. . . . . . . . 9
⊢ (𝑀 ∈ ℂ → ;16 = (8 + 8)) |
| 48 | 47 | oveq1d 7375 |
. . . . . . . 8
⊢ (𝑀 ∈ ℂ → (;16 · (𝑀↑5)) = ((8 + 8) · (𝑀↑5))) |
| 49 | 6, 6, 15 | adddird 11161 |
. . . . . . . 8
⊢ (𝑀 ∈ ℂ → ((8 + 8)
· (𝑀↑5)) = ((8
· (𝑀↑5)) + (8
· (𝑀↑5)))) |
| 50 | 48, 49 | eqtrd 2772 |
. . . . . . 7
⊢ (𝑀 ∈ ℂ → (;16 · (𝑀↑5)) = ((8 · (𝑀↑5)) + (8 · (𝑀↑5)))) |
| 51 | | 10p10e20 12730 |
. . . . . . . . . . 11
⊢ (;10 + ;10) = ;20 |
| 52 | 51 | eqcomi 2746 |
. . . . . . . . . 10
⊢ ;20 = (;10 + ;10) |
| 53 | 52 | a1i 11 |
. . . . . . . . 9
⊢ (𝑀 ∈ ℂ → ;20 = (;10 + ;10)) |
| 54 | 53 | oveq1d 7375 |
. . . . . . . 8
⊢ (𝑀 ∈ ℂ → (;20 · (𝑀↑3)) = ((;10 + ;10) · (𝑀↑3))) |
| 55 | 37, 37, 24 | adddird 11161 |
. . . . . . . 8
⊢ (𝑀 ∈ ℂ → ((;10 + ;10) · (𝑀↑3)) = ((;10 · (𝑀↑3)) + (;10 · (𝑀↑3)))) |
| 56 | 54, 55 | eqtrd 2772 |
. . . . . . 7
⊢ (𝑀 ∈ ℂ → (;20 · (𝑀↑3)) = ((;10 · (𝑀↑3)) + (;10 · (𝑀↑3)))) |
| 57 | 50, 56 | oveq12d 7378 |
. . . . . 6
⊢ (𝑀 ∈ ℂ → ((;16 · (𝑀↑5)) − (;20 · (𝑀↑3))) = (((8 · (𝑀↑5)) + (8 · (𝑀↑5))) − ((;10 · (𝑀↑3)) + (;10 · (𝑀↑3))))) |
| 58 | 21, 10, 24 | subdird 11598 |
. . . . . . . . . 10
⊢ (𝑀 ∈ ℂ → ((;16 − 6) · (𝑀↑3)) = ((;16 · (𝑀↑3)) − (6 · (𝑀↑3)))) |
| 59 | 58 | eqcomd 2743 |
. . . . . . . . 9
⊢ (𝑀 ∈ ℂ → ((;16 · (𝑀↑3)) − (6 · (𝑀↑3))) = ((;16 − 6) · (𝑀↑3))) |
| 60 | 59 | oveq2d 7376 |
. . . . . . . 8
⊢ (𝑀 ∈ ℂ → ((8
· (𝑀↑5))
− ((;16 · (𝑀↑3)) − (6 ·
(𝑀↑3)))) = ((8
· (𝑀↑5))
− ((;16 − 6) ·
(𝑀↑3)))) |
| 61 | 16, 25, 27 | subsubd 11524 |
. . . . . . . 8
⊢ (𝑀 ∈ ℂ → ((8
· (𝑀↑5))
− ((;16 · (𝑀↑3)) − (6 ·
(𝑀↑3)))) = (((8
· (𝑀↑5))
− (;16 · (𝑀↑3))) + (6 · (𝑀↑3)))) |
| 62 | | dec10p 12678 |
. . . . . . . . . . . . 13
⊢ (;10 + 6) = ;16 |
| 63 | 62 | eqcomi 2746 |
. . . . . . . . . . . 12
⊢ ;16 = (;10 + 6) |
| 64 | 63 | a1i 11 |
. . . . . . . . . . 11
⊢ (𝑀 ∈ ℂ → ;16 = (;10 + 6)) |
| 65 | 37, 10, 64 | mvrraddd 11553 |
. . . . . . . . . 10
⊢ (𝑀 ∈ ℂ → (;16 − 6) = ;10) |
| 66 | 65 | oveq1d 7375 |
. . . . . . . . 9
⊢ (𝑀 ∈ ℂ → ((;16 − 6) · (𝑀↑3)) = (;10 · (𝑀↑3))) |
| 67 | 66 | oveq2d 7376 |
. . . . . . . 8
⊢ (𝑀 ∈ ℂ → ((8
· (𝑀↑5))
− ((;16 − 6) ·
(𝑀↑3))) = ((8 ·
(𝑀↑5)) − (;10 · (𝑀↑3)))) |
| 68 | 60, 61, 67 | 3eqtr3d 2780 |
. . . . . . 7
⊢ (𝑀 ∈ ℂ → (((8
· (𝑀↑5))
− (;16 · (𝑀↑3))) + (6 · (𝑀↑3))) = ((8 · (𝑀↑5)) − (;10 · (𝑀↑3)))) |
| 69 | 68 | oveq2d 7376 |
. . . . . 6
⊢ (𝑀 ∈ ℂ → (((8
· (𝑀↑5))
− (;10 · (𝑀↑3))) + (((8 ·
(𝑀↑5)) − (;16 · (𝑀↑3))) + (6 · (𝑀↑3)))) = (((8 · (𝑀↑5)) − (;10 · (𝑀↑3))) + ((8 · (𝑀↑5)) − (;10 · (𝑀↑3))))) |
| 70 | 44, 57, 69 | 3eqtr4rd 2783 |
. . . . 5
⊢ (𝑀 ∈ ℂ → (((8
· (𝑀↑5))
− (;10 · (𝑀↑3))) + (((8 ·
(𝑀↑5)) − (;16 · (𝑀↑3))) + (6 · (𝑀↑3)))) = ((;16 · (𝑀↑5)) − (;20 · (𝑀↑3)))) |
| 71 | 6, 10 | subcld 11496 |
. . . . . . 7
⊢ (𝑀 ∈ ℂ → (8
− 6) ∈ ℂ) |
| 72 | 41, 71, 7 | adddird 11161 |
. . . . . 6
⊢ (𝑀 ∈ ℂ → ((3 + (8
− 6)) · 𝑀) =
((3 · 𝑀) + ((8
− 6) · 𝑀))) |
| 73 | | 2cn 12247 |
. . . . . . . . . . 11
⊢ 2 ∈
ℂ |
| 74 | | 6p2e8 12326 |
. . . . . . . . . . . 12
⊢ (6 + 2) =
8 |
| 75 | 74 | eqcomi 2746 |
. . . . . . . . . . 11
⊢ 8 = (6 +
2) |
| 76 | 9, 73, 75 | mvrladdi 11402 |
. . . . . . . . . 10
⊢ (8
− 6) = 2 |
| 77 | 76 | oveq2i 7371 |
. . . . . . . . 9
⊢ (3 + (8
− 6)) = (3 + 2) |
| 78 | | 3p2e5 12318 |
. . . . . . . . 9
⊢ (3 + 2) =
5 |
| 79 | 77, 78 | eqtri 2760 |
. . . . . . . 8
⊢ (3 + (8
− 6)) = 5 |
| 80 | 79 | a1i 11 |
. . . . . . 7
⊢ (𝑀 ∈ ℂ → (3 + (8
− 6)) = 5) |
| 81 | 80 | oveq1d 7375 |
. . . . . 6
⊢ (𝑀 ∈ ℂ → ((3 + (8
− 6)) · 𝑀) =
(5 · 𝑀)) |
| 82 | 6, 10, 7 | subdird 11598 |
. . . . . . 7
⊢ (𝑀 ∈ ℂ → ((8
− 6) · 𝑀) =
((8 · 𝑀) − (6
· 𝑀))) |
| 83 | 82 | oveq2d 7376 |
. . . . . 6
⊢ (𝑀 ∈ ℂ → ((3
· 𝑀) + ((8 −
6) · 𝑀)) = ((3
· 𝑀) + ((8 ·
𝑀) − (6 ·
𝑀)))) |
| 84 | 72, 81, 83 | 3eqtr3rd 2781 |
. . . . 5
⊢ (𝑀 ∈ ℂ → ((3
· 𝑀) + ((8 ·
𝑀) − (6 ·
𝑀))) = (5 · 𝑀)) |
| 85 | 70, 84 | oveq12d 7378 |
. . . 4
⊢ (𝑀 ∈ ℂ → ((((8
· (𝑀↑5))
− (;10 · (𝑀↑3))) + (((8 ·
(𝑀↑5)) − (;16 · (𝑀↑3))) + (6 · (𝑀↑3)))) + ((3 · 𝑀) + ((8 · 𝑀) − (6 · 𝑀)))) = (((;16 · (𝑀↑5)) − (;20 · (𝑀↑3))) + (5 · 𝑀))) |
| 86 | 34, 43, 85 | 3eqtrd 2776 |
. . 3
⊢ (𝑀 ∈ ℂ → ((((8
· (𝑀↑5))
− (;10 · (𝑀↑3))) + (3 · 𝑀)) + ((((8 · (𝑀↑5)) − (;16 · (𝑀↑3))) + (8 · 𝑀)) − ((6 · 𝑀) − (6 · (𝑀↑3))))) = (((;16 · (𝑀↑5)) − (;20 · (𝑀↑3))) + (5 · 𝑀))) |
| 87 | 86 | 3ad2ant2 1135 |
. 2
⊢ ((𝑁 ∈ ℂ ∧ 𝑀 ∈ ℂ ∧ (𝑁↑2) = (1 − (𝑀↑2))) → ((((8 ·
(𝑀↑5)) − (;10 · (𝑀↑3))) + (3 · 𝑀)) + ((((8 · (𝑀↑5)) − (;16 · (𝑀↑3))) + (8 · 𝑀)) − ((6 · 𝑀) − (6 · (𝑀↑3))))) = (((;16 · (𝑀↑5)) − (;20 · (𝑀↑3))) + (5 · 𝑀))) |
| 88 | 4, 87 | eqtrd 2772 |
1
⊢ ((𝑁 ∈ ℂ ∧ 𝑀 ∈ ℂ ∧ (𝑁↑2) = (1 − (𝑀↑2))) → ((((3 ·
𝑀) − (4 ·
(𝑀↑3))) · (1
− (2 · (𝑀↑2)))) + (((4 · (𝑁↑3)) − (3 ·
𝑁)) · (2 ·
(𝑀 · 𝑁)))) = (((;16 · (𝑀↑5)) − (;20 · (𝑀↑3))) + (5 · 𝑀))) |