Proof of Theorem goldratmolem2
| Step | Hyp | Ref
| Expression |
| 1 | | goldra.val |
. . 3
⊢ 𝐹 = (2 · (cos‘(π
/ 5))) |
| 2 | 1 | goldracos5teq 47333 |
. 2
⊢
(cos‘π) = (((;16
· ((𝐹 / 2)↑5))
− (;20 · ((𝐹 / 2)↑3))) + (5 ·
(𝐹 / 2))) |
| 3 | | cospi 26436 |
. 2
⊢
(cos‘π) = -1 |
| 4 | 1 | goldrarr 47329 |
. . . . . . . 8
⊢ 𝐹 ∈ ℝ |
| 5 | 4 | recni 11159 |
. . . . . . 7
⊢ 𝐹 ∈ ℂ |
| 6 | | 2cnne0 12386 |
. . . . . . 7
⊢ (2 ∈
ℂ ∧ 2 ≠ 0) |
| 7 | | 5nn0 12457 |
. . . . . . 7
⊢ 5 ∈
ℕ0 |
| 8 | | expdiv 14075 |
. . . . . . 7
⊢ ((𝐹 ∈ ℂ ∧ (2 ∈
ℂ ∧ 2 ≠ 0) ∧ 5 ∈ ℕ0) → ((𝐹 / 2)↑5) = ((𝐹↑5) /
(2↑5))) |
| 9 | 5, 6, 7, 8 | mp3an 1464 |
. . . . . 6
⊢ ((𝐹 / 2)↑5) = ((𝐹↑5) /
(2↑5)) |
| 10 | 9 | oveq2i 7378 |
. . . . 5
⊢ (;16 · ((𝐹 / 2)↑5)) = (;16 · ((𝐹↑5) / (2↑5))) |
| 11 | | expcl 14041 |
. . . . . . . 8
⊢ ((𝐹 ∈ ℂ ∧ 5 ∈
ℕ0) → (𝐹↑5) ∈ ℂ) |
| 12 | 5, 7, 11 | mp2an 693 |
. . . . . . 7
⊢ (𝐹↑5) ∈
ℂ |
| 13 | | 2cn 12256 |
. . . . . . . . 9
⊢ 2 ∈
ℂ |
| 14 | | expcl 14041 |
. . . . . . . . 9
⊢ ((2
∈ ℂ ∧ 5 ∈ ℕ0) → (2↑5) ∈
ℂ) |
| 15 | 13, 7, 14 | mp2an 693 |
. . . . . . . 8
⊢
(2↑5) ∈ ℂ |
| 16 | | 2ne0 12285 |
. . . . . . . . 9
⊢ 2 ≠
0 |
| 17 | | 5nn 12267 |
. . . . . . . . . 10
⊢ 5 ∈
ℕ |
| 18 | 17 | nnzi 12551 |
. . . . . . . . 9
⊢ 5 ∈
ℤ |
| 19 | | expne0i 14056 |
. . . . . . . . 9
⊢ ((2
∈ ℂ ∧ 2 ≠ 0 ∧ 5 ∈ ℤ) → (2↑5) ≠
0) |
| 20 | 13, 16, 18, 19 | mp3an 1464 |
. . . . . . . 8
⊢
(2↑5) ≠ 0 |
| 21 | 15, 20 | pm3.2i 470 |
. . . . . . 7
⊢
((2↑5) ∈ ℂ ∧ (2↑5) ≠ 0) |
| 22 | | 1nn0 12453 |
. . . . . . . . . 10
⊢ 1 ∈
ℕ0 |
| 23 | | 6nn0 12458 |
. . . . . . . . . 10
⊢ 6 ∈
ℕ0 |
| 24 | 22, 23 | deccl 12659 |
. . . . . . . . 9
⊢ ;16 ∈
ℕ0 |
| 25 | 24 | nn0cni 12449 |
. . . . . . . 8
⊢ ;16 ∈ ℂ |
| 26 | | 6nn 12270 |
. . . . . . . . . 10
⊢ 6 ∈
ℕ |
| 27 | 22, 26 | decnncl 12664 |
. . . . . . . . 9
⊢ ;16 ∈ ℕ |
| 28 | 27 | nnne0i 12217 |
. . . . . . . 8
⊢ ;16 ≠ 0 |
| 29 | 25, 28 | pm3.2i 470 |
. . . . . . 7
⊢ (;16 ∈ ℂ ∧ ;16 ≠ 0) |
| 30 | | divdiv2 11867 |
. . . . . . 7
⊢ (((𝐹↑5) ∈ ℂ ∧
((2↑5) ∈ ℂ ∧ (2↑5) ≠ 0) ∧ (;16 ∈ ℂ ∧ ;16 ≠ 0)) → ((𝐹↑5) / ((2↑5) / ;16)) = (((𝐹↑5) · ;16) / (2↑5))) |
| 31 | 12, 21, 29, 30 | mp3an 1464 |
. . . . . 6
⊢ ((𝐹↑5) / ((2↑5) / ;16)) = (((𝐹↑5) · ;16) / (2↑5)) |
| 32 | 12, 25 | mulcomi 11153 |
. . . . . . 7
⊢ ((𝐹↑5) · ;16) = (;16 · (𝐹↑5)) |
| 33 | 32 | oveq1i 7377 |
. . . . . 6
⊢ (((𝐹↑5) · ;16) / (2↑5)) = ((;16 · (𝐹↑5)) / (2↑5)) |
| 34 | 25, 12, 15, 20 | divassi 11911 |
. . . . . 6
⊢ ((;16 · (𝐹↑5)) / (2↑5)) = (;16 · ((𝐹↑5) / (2↑5))) |
| 35 | 31, 33, 34 | 3eqtrri 2764 |
. . . . 5
⊢ (;16 · ((𝐹↑5) / (2↑5))) = ((𝐹↑5) / ((2↑5) / ;16)) |
| 36 | | exp1 14029 |
. . . . . . . . . . 11
⊢ (2 ∈
ℂ → (2↑1) = 2) |
| 37 | 13, 36 | ax-mp 5 |
. . . . . . . . . 10
⊢
(2↑1) = 2 |
| 38 | 37 | eqcomi 2745 |
. . . . . . . . 9
⊢ 2 =
(2↑1) |
| 39 | | 4cn 12266 |
. . . . . . . . . . 11
⊢ 4 ∈
ℂ |
| 40 | | ax-1cn 11096 |
. . . . . . . . . . 11
⊢ 1 ∈
ℂ |
| 41 | | 4p1e5 12322 |
. . . . . . . . . . 11
⊢ (4 + 1) =
5 |
| 42 | 39, 40, 41 | mvlladdi 11412 |
. . . . . . . . . 10
⊢ 1 = (5
− 4) |
| 43 | 42 | oveq2i 7378 |
. . . . . . . . 9
⊢
(2↑1) = (2↑(5 − 4)) |
| 44 | 38, 43 | eqtri 2759 |
. . . . . . . 8
⊢ 2 =
(2↑(5 − 4)) |
| 45 | | 4z 12561 |
. . . . . . . . . 10
⊢ 4 ∈
ℤ |
| 46 | 18, 45 | pm3.2i 470 |
. . . . . . . . 9
⊢ (5 ∈
ℤ ∧ 4 ∈ ℤ) |
| 47 | | expsub 14072 |
. . . . . . . . 9
⊢ (((2
∈ ℂ ∧ 2 ≠ 0) ∧ (5 ∈ ℤ ∧ 4 ∈ ℤ))
→ (2↑(5 − 4)) = ((2↑5) / (2↑4))) |
| 48 | 6, 46, 47 | mp2an 693 |
. . . . . . . 8
⊢
(2↑(5 − 4)) = ((2↑5) / (2↑4)) |
| 49 | | 2exp4 17055 |
. . . . . . . . 9
⊢
(2↑4) = ;16 |
| 50 | 49 | oveq2i 7378 |
. . . . . . . 8
⊢
((2↑5) / (2↑4)) = ((2↑5) / ;16) |
| 51 | 44, 48, 50 | 3eqtri 2763 |
. . . . . . 7
⊢ 2 =
((2↑5) / ;16) |
| 52 | 51 | eqcomi 2745 |
. . . . . 6
⊢
((2↑5) / ;16) =
2 |
| 53 | 52 | oveq2i 7378 |
. . . . 5
⊢ ((𝐹↑5) / ((2↑5) / ;16)) = ((𝐹↑5) / 2) |
| 54 | 10, 35, 53 | 3eqtri 2763 |
. . . 4
⊢ (;16 · ((𝐹 / 2)↑5)) = ((𝐹↑5) / 2) |
| 55 | | 3nn0 12455 |
. . . . . . 7
⊢ 3 ∈
ℕ0 |
| 56 | | expdiv 14075 |
. . . . . . 7
⊢ ((𝐹 ∈ ℂ ∧ (2 ∈
ℂ ∧ 2 ≠ 0) ∧ 3 ∈ ℕ0) → ((𝐹 / 2)↑3) = ((𝐹↑3) /
(2↑3))) |
| 57 | 5, 6, 55, 56 | mp3an 1464 |
. . . . . 6
⊢ ((𝐹 / 2)↑3) = ((𝐹↑3) /
(2↑3)) |
| 58 | 57 | oveq2i 7378 |
. . . . 5
⊢ (;20 · ((𝐹 / 2)↑3)) = (;20 · ((𝐹↑3) / (2↑3))) |
| 59 | | 5t4e20 12746 |
. . . . . . . 8
⊢ (5
· 4) = ;20 |
| 60 | 59 | eqcomi 2745 |
. . . . . . 7
⊢ ;20 = (5 · 4) |
| 61 | 60 | oveq1i 7377 |
. . . . . 6
⊢ (;20 · ((𝐹↑3) / (2↑3))) = ((5 · 4)
· ((𝐹↑3) /
(2↑3))) |
| 62 | | 5cn 12269 |
. . . . . . 7
⊢ 5 ∈
ℂ |
| 63 | | expcl 14041 |
. . . . . . . . 9
⊢ ((𝐹 ∈ ℂ ∧ 3 ∈
ℕ0) → (𝐹↑3) ∈ ℂ) |
| 64 | 5, 55, 63 | mp2an 693 |
. . . . . . . 8
⊢ (𝐹↑3) ∈
ℂ |
| 65 | | expcl 14041 |
. . . . . . . . 9
⊢ ((2
∈ ℂ ∧ 3 ∈ ℕ0) → (2↑3) ∈
ℂ) |
| 66 | 13, 55, 65 | mp2an 693 |
. . . . . . . 8
⊢
(2↑3) ∈ ℂ |
| 67 | | 3z 12560 |
. . . . . . . . 9
⊢ 3 ∈
ℤ |
| 68 | | expne0i 14056 |
. . . . . . . . 9
⊢ ((2
∈ ℂ ∧ 2 ≠ 0 ∧ 3 ∈ ℤ) → (2↑3) ≠
0) |
| 69 | 13, 16, 67, 68 | mp3an 1464 |
. . . . . . . 8
⊢
(2↑3) ≠ 0 |
| 70 | 64, 66, 69 | divcli 11897 |
. . . . . . 7
⊢ ((𝐹↑3) / (2↑3)) ∈
ℂ |
| 71 | 62, 39, 70 | mulassi 11156 |
. . . . . 6
⊢ ((5
· 4) · ((𝐹↑3) / (2↑3))) = (5 · (4
· ((𝐹↑3) /
(2↑3)))) |
| 72 | 61, 71 | eqtri 2759 |
. . . . 5
⊢ (;20 · ((𝐹↑3) / (2↑3))) = (5 · (4
· ((𝐹↑3) /
(2↑3)))) |
| 73 | 66, 69 | pm3.2i 470 |
. . . . . . . . 9
⊢
((2↑3) ∈ ℂ ∧ (2↑3) ≠ 0) |
| 74 | | 4ne0 12289 |
. . . . . . . . . 10
⊢ 4 ≠
0 |
| 75 | 39, 74 | pm3.2i 470 |
. . . . . . . . 9
⊢ (4 ∈
ℂ ∧ 4 ≠ 0) |
| 76 | | divdiv2 11867 |
. . . . . . . . 9
⊢ (((𝐹↑3) ∈ ℂ ∧
((2↑3) ∈ ℂ ∧ (2↑3) ≠ 0) ∧ (4 ∈ ℂ
∧ 4 ≠ 0)) → ((𝐹↑3) / ((2↑3) / 4)) = (((𝐹↑3) · 4) /
(2↑3))) |
| 77 | 64, 73, 75, 76 | mp3an 1464 |
. . . . . . . 8
⊢ ((𝐹↑3) / ((2↑3) / 4)) =
(((𝐹↑3) · 4) /
(2↑3)) |
| 78 | 64, 39 | mulcomi 11153 |
. . . . . . . . 9
⊢ ((𝐹↑3) · 4) = (4
· (𝐹↑3)) |
| 79 | 78 | oveq1i 7377 |
. . . . . . . 8
⊢ (((𝐹↑3) · 4) /
(2↑3)) = ((4 · (𝐹↑3)) / (2↑3)) |
| 80 | 39, 64, 66, 69 | divassi 11911 |
. . . . . . . 8
⊢ ((4
· (𝐹↑3)) /
(2↑3)) = (4 · ((𝐹↑3) / (2↑3))) |
| 81 | 77, 79, 80 | 3eqtrri 2764 |
. . . . . . 7
⊢ (4
· ((𝐹↑3) /
(2↑3))) = ((𝐹↑3)
/ ((2↑3) / 4)) |
| 82 | | 4t2e8 12344 |
. . . . . . . . . 10
⊢ (4
· 2) = 8 |
| 83 | | cu2 14162 |
. . . . . . . . . . 11
⊢
(2↑3) = 8 |
| 84 | 83 | eqcomi 2745 |
. . . . . . . . . 10
⊢ 8 =
(2↑3) |
| 85 | 82, 84 | eqtri 2759 |
. . . . . . . . 9
⊢ (4
· 2) = (2↑3) |
| 86 | 66, 39, 13, 74 | divmuli 11909 |
. . . . . . . . 9
⊢
(((2↑3) / 4) = 2 ↔ (4 · 2) =
(2↑3)) |
| 87 | 85, 86 | mpbir 231 |
. . . . . . . 8
⊢
((2↑3) / 4) = 2 |
| 88 | 87 | oveq2i 7378 |
. . . . . . 7
⊢ ((𝐹↑3) / ((2↑3) / 4)) =
((𝐹↑3) /
2) |
| 89 | 81, 88 | eqtri 2759 |
. . . . . 6
⊢ (4
· ((𝐹↑3) /
(2↑3))) = ((𝐹↑3)
/ 2) |
| 90 | 89 | oveq2i 7378 |
. . . . 5
⊢ (5
· (4 · ((𝐹↑3) / (2↑3)))) = (5 ·
((𝐹↑3) /
2)) |
| 91 | 58, 72, 90 | 3eqtri 2763 |
. . . 4
⊢ (;20 · ((𝐹 / 2)↑3)) = (5 · ((𝐹↑3) / 2)) |
| 92 | 54, 91 | oveq12i 7379 |
. . 3
⊢ ((;16 · ((𝐹 / 2)↑5)) − (;20 · ((𝐹 / 2)↑3))) = (((𝐹↑5) / 2) − (5 · ((𝐹↑3) / 2))) |
| 93 | 92 | oveq1i 7377 |
. 2
⊢ (((;16 · ((𝐹 / 2)↑5)) − (;20 · ((𝐹 / 2)↑3))) + (5 · (𝐹 / 2))) = ((((𝐹↑5) / 2) − (5 · ((𝐹↑3) / 2))) + (5 ·
(𝐹 / 2))) |
| 94 | 2, 3, 93 | 3eqtr3i 2767 |
1
⊢ -1 =
((((𝐹↑5) / 2) −
(5 · ((𝐹↑3) /
2))) + (5 · (𝐹 /
2))) |