Proof of Theorem goldratmolem2
| Step | Hyp | Ref
| Expression |
| 1 | | goldra.val |
. . 3
⊢ 𝐹 = (2 · (cos‘(π
/ 5))) |
| 2 | 1 | goldracos5teq 47737 |
. 2
⊢
(cos‘π) = (((;16
· ((𝐹 / 2)↑5))
− (;20 · ((𝐹 / 2)↑3))) + (5 ·
(𝐹 / 2))) |
| 3 | | cospi 26707 |
. 2
⊢
(cos‘π) = -1 |
| 4 | 1 | goldrarr 47733 |
. . . . . . . 8
⊢ 𝐹 ∈ ℝ |
| 5 | 4 | recni 11250 |
. . . . . . 7
⊢ 𝐹 ∈ ℂ |
| 6 | | 2cnne0 12480 |
. . . . . . 7
⊢ (2 ∈
ℂ ∧ 2 ≠ 0) |
| 7 | | 5nn0 12551 |
. . . . . . 7
⊢ 5 ∈
ℕ0 |
| 8 | | expdiv 14179 |
. . . . . . 7
⊢ ((𝐹 ∈ ℂ ∧ (2 ∈
ℂ ∧ 2 ≠ 0) ∧ 5 ∈ ℕ0) → ((𝐹 / 2)↑5) = ((𝐹↑5) /
(2↑5))) |
| 9 | 5, 6, 7, 8 | mp3an 1490 |
. . . . . 6
⊢ ((𝐹 / 2)↑5) = ((𝐹↑5) /
(2↑5)) |
| 10 | 9 | oveq2i 7427 |
. . . . 5
⊢ (;16 · ((𝐹 / 2)↑5)) = (;16 · ((𝐹↑5) / (2↑5))) |
| 11 | | expcl 14145 |
. . . . . . . 8
⊢ ((𝐹 ∈ ℂ ∧ 5 ∈
ℕ0) → (𝐹↑5) ∈ ℂ) |
| 12 | 5, 7, 11 | mp2an 705 |
. . . . . . 7
⊢ (𝐹↑5) ∈
ℂ |
| 13 | | 2cn 12343 |
. . . . . . . . 9
⊢ 2 ∈
ℂ |
| 14 | | expcl 14145 |
. . . . . . . . 9
⊢ ((2
∈ ℂ ∧ 5 ∈ ℕ0) → (2↑5) ∈
ℂ) |
| 15 | 13, 7, 14 | mp2an 705 |
. . . . . . . 8
⊢
(2↑5) ∈ ℂ |
| 16 | | 2ne0 12374 |
. . . . . . . . 9
⊢ 2 ≠
0 |
| 17 | | 5nn 12354 |
. . . . . . . . . 10
⊢ 5 ∈
ℕ |
| 18 | 17 | nnzi 12645 |
. . . . . . . . 9
⊢ 5 ∈
ℤ |
| 19 | | expne0i 14160 |
. . . . . . . . 9
⊢ ((2
∈ ℂ ∧ 2 ≠ 0 ∧ 5 ∈ ℤ) → (2↑5) ≠
0) |
| 20 | 13, 16, 18, 19 | mp3an 1490 |
. . . . . . . 8
⊢
(2↑5) ≠ 0 |
| 21 | 15, 20 | pm3.2i 476 |
. . . . . . 7
⊢
((2↑5) ∈ ℂ ∧ (2↑5) ≠ 0) |
| 22 | | 16nn0 12757 |
. . . . . . . . 9
⊢ ;16 ∈
ℕ0 |
| 23 | 22 | nn0cni 12543 |
. . . . . . . 8
⊢ ;16 ∈ ℂ |
| 24 | | 1nn0 12547 |
. . . . . . . . . 10
⊢ 1 ∈
ℕ0 |
| 25 | | 6nn 12357 |
. . . . . . . . . 10
⊢ 6 ∈
ℕ |
| 26 | 24, 25 | decnncl 12763 |
. . . . . . . . 9
⊢ ;16 ∈ ℕ |
| 27 | 26 | nnne0i 12303 |
. . . . . . . 8
⊢ ;16 ≠ 0 |
| 28 | 23, 27 | pm3.2i 476 |
. . . . . . 7
⊢ (;16 ∈ ℂ ∧ ;16 ≠ 0) |
| 29 | | divdiv2 11954 |
. . . . . . 7
⊢ (((𝐹↑5) ∈ ℂ ∧
((2↑5) ∈ ℂ ∧ (2↑5) ≠ 0) ∧ (;16 ∈ ℂ ∧ ;16 ≠ 0)) → ((𝐹↑5) / ((2↑5) / ;16)) = (((𝐹↑5) · ;16) / (2↑5))) |
| 30 | 12, 21, 28, 29 | mp3an 1490 |
. . . . . 6
⊢ ((𝐹↑5) / ((2↑5) / ;16)) = (((𝐹↑5) · ;16) / (2↑5)) |
| 31 | 12, 23 | mulcomi 11244 |
. . . . . . 7
⊢ ((𝐹↑5) · ;16) = (;16 · (𝐹↑5)) |
| 32 | 31 | oveq1i 7426 |
. . . . . 6
⊢ (((𝐹↑5) · ;16) / (2↑5)) = ((;16 · (𝐹↑5)) / (2↑5)) |
| 33 | 23, 12, 15, 20 | divassi 11998 |
. . . . . 6
⊢ ((;16 · (𝐹↑5)) / (2↑5)) = (;16 · ((𝐹↑5) / (2↑5))) |
| 34 | 30, 32, 33 | 3eqtrri 2790 |
. . . . 5
⊢ (;16 · ((𝐹↑5) / (2↑5))) = ((𝐹↑5) / ((2↑5) / ;16)) |
| 35 | | exp1 14133 |
. . . . . . . . . . 11
⊢ (2 ∈
ℂ → (2↑1) = 2) |
| 36 | 13, 35 | ax-mp 5 |
. . . . . . . . . 10
⊢
(2↑1) = 2 |
| 37 | 36 | eqcomi 2771 |
. . . . . . . . 9
⊢ 2 =
(2↑1) |
| 38 | | 4cn 12353 |
. . . . . . . . . . 11
⊢ 4 ∈
ℂ |
| 39 | | ax-1cn 11185 |
. . . . . . . . . . 11
⊢ 1 ∈
ℂ |
| 40 | | 4p1e5 12413 |
. . . . . . . . . . 11
⊢ (4 + 1) =
5 |
| 41 | 38, 39, 40 | mvlladdi 11503 |
. . . . . . . . . 10
⊢ 1 = (5
− 4) |
| 42 | 41 | oveq2i 7427 |
. . . . . . . . 9
⊢
(2↑1) = (2↑(5 − 4)) |
| 43 | 37, 42 | eqtri 2785 |
. . . . . . . 8
⊢ 2 =
(2↑(5 − 4)) |
| 44 | | 4z 12655 |
. . . . . . . . . 10
⊢ 4 ∈
ℤ |
| 45 | 18, 44 | pm3.2i 476 |
. . . . . . . . 9
⊢ (5 ∈
ℤ ∧ 4 ∈ ℤ) |
| 46 | | expsub 14176 |
. . . . . . . . 9
⊢ (((2
∈ ℂ ∧ 2 ≠ 0) ∧ (5 ∈ ℤ ∧ 4 ∈ ℤ))
→ (2↑(5 − 4)) = ((2↑5) / (2↑4))) |
| 47 | 6, 45, 46 | mp2an 705 |
. . . . . . . 8
⊢
(2↑(5 − 4)) = ((2↑5) / (2↑4)) |
| 48 | | 2exp4 17180 |
. . . . . . . . 9
⊢
(2↑4) = ;16 |
| 49 | 48 | oveq2i 7427 |
. . . . . . . 8
⊢
((2↑5) / (2↑4)) = ((2↑5) / ;16) |
| 50 | 43, 47, 49 | 3eqtri 2789 |
. . . . . . 7
⊢ 2 =
((2↑5) / ;16) |
| 51 | 50 | eqcomi 2771 |
. . . . . 6
⊢
((2↑5) / ;16) =
2 |
| 52 | 51 | oveq2i 7427 |
. . . . 5
⊢ ((𝐹↑5) / ((2↑5) / ;16)) = ((𝐹↑5) / 2) |
| 53 | 10, 34, 52 | 3eqtri 2789 |
. . . 4
⊢ (;16 · ((𝐹 / 2)↑5)) = ((𝐹↑5) / 2) |
| 54 | | 3nn0 12549 |
. . . . . . 7
⊢ 3 ∈
ℕ0 |
| 55 | | expdiv 14179 |
. . . . . . 7
⊢ ((𝐹 ∈ ℂ ∧ (2 ∈
ℂ ∧ 2 ≠ 0) ∧ 3 ∈ ℕ0) → ((𝐹 / 2)↑3) = ((𝐹↑3) /
(2↑3))) |
| 56 | 5, 6, 54, 55 | mp3an 1490 |
. . . . . 6
⊢ ((𝐹 / 2)↑3) = ((𝐹↑3) /
(2↑3)) |
| 57 | 56 | oveq2i 7427 |
. . . . 5
⊢ (;20 · ((𝐹 / 2)↑3)) = (;20 · ((𝐹↑3) / (2↑3))) |
| 58 | | 5t4e20 12846 |
. . . . . . . 8
⊢ (5
· 4) = ;20 |
| 59 | 58 | eqcomi 2771 |
. . . . . . 7
⊢ ;20 = (5 · 4) |
| 60 | 59 | oveq1i 7426 |
. . . . . 6
⊢ (;20 · ((𝐹↑3) / (2↑3))) = ((5 · 4)
· ((𝐹↑3) /
(2↑3))) |
| 61 | | 5cn 12356 |
. . . . . . 7
⊢ 5 ∈
ℂ |
| 62 | | expcl 14145 |
. . . . . . . . 9
⊢ ((𝐹 ∈ ℂ ∧ 3 ∈
ℕ0) → (𝐹↑3) ∈ ℂ) |
| 63 | 5, 54, 62 | mp2an 705 |
. . . . . . . 8
⊢ (𝐹↑3) ∈
ℂ |
| 64 | | expcl 14145 |
. . . . . . . . 9
⊢ ((2
∈ ℂ ∧ 3 ∈ ℕ0) → (2↑3) ∈
ℂ) |
| 65 | 13, 54, 64 | mp2an 705 |
. . . . . . . 8
⊢
(2↑3) ∈ ℂ |
| 66 | | 3z 12654 |
. . . . . . . . 9
⊢ 3 ∈
ℤ |
| 67 | | expne0i 14160 |
. . . . . . . . 9
⊢ ((2
∈ ℂ ∧ 2 ≠ 0 ∧ 3 ∈ ℤ) → (2↑3) ≠
0) |
| 68 | 13, 16, 66, 67 | mp3an 1490 |
. . . . . . . 8
⊢
(2↑3) ≠ 0 |
| 69 | 63, 65, 68 | divcli 11984 |
. . . . . . 7
⊢ ((𝐹↑3) / (2↑3)) ∈
ℂ |
| 70 | 61, 38, 69 | mulassi 11247 |
. . . . . 6
⊢ ((5
· 4) · ((𝐹↑3) / (2↑3))) = (5 · (4
· ((𝐹↑3) /
(2↑3)))) |
| 71 | 60, 70 | eqtri 2785 |
. . . . 5
⊢ (;20 · ((𝐹↑3) / (2↑3))) = (5 · (4
· ((𝐹↑3) /
(2↑3)))) |
| 72 | 65, 68 | pm3.2i 476 |
. . . . . . . . 9
⊢
((2↑3) ∈ ℂ ∧ (2↑3) ≠ 0) |
| 73 | | 4ne0 12379 |
. . . . . . . . . 10
⊢ 4 ≠
0 |
| 74 | 38, 73 | pm3.2i 476 |
. . . . . . . . 9
⊢ (4 ∈
ℂ ∧ 4 ≠ 0) |
| 75 | | divdiv2 11954 |
. . . . . . . . 9
⊢ (((𝐹↑3) ∈ ℂ ∧
((2↑3) ∈ ℂ ∧ (2↑3) ≠ 0) ∧ (4 ∈ ℂ
∧ 4 ≠ 0)) → ((𝐹↑3) / ((2↑3) / 4)) = (((𝐹↑3) · 4) /
(2↑3))) |
| 76 | 63, 72, 74, 75 | mp3an 1490 |
. . . . . . . 8
⊢ ((𝐹↑3) / ((2↑3) / 4)) =
(((𝐹↑3) · 4) /
(2↑3)) |
| 77 | 63, 38 | mulcomi 11244 |
. . . . . . . . 9
⊢ ((𝐹↑3) · 4) = (4
· (𝐹↑3)) |
| 78 | 77 | oveq1i 7426 |
. . . . . . . 8
⊢ (((𝐹↑3) · 4) /
(2↑3)) = ((4 · (𝐹↑3)) / (2↑3)) |
| 79 | 38, 63, 65, 68 | divassi 11998 |
. . . . . . . 8
⊢ ((4
· (𝐹↑3)) /
(2↑3)) = (4 · ((𝐹↑3) / (2↑3))) |
| 80 | 76, 78, 79 | 3eqtrri 2790 |
. . . . . . 7
⊢ (4
· ((𝐹↑3) /
(2↑3))) = ((𝐹↑3)
/ ((2↑3) / 4)) |
| 81 | | 4t2e8 12436 |
. . . . . . . . . 10
⊢ (4
· 2) = 8 |
| 82 | | cu2 14266 |
. . . . . . . . . . 11
⊢
(2↑3) = 8 |
| 83 | 82 | eqcomi 2771 |
. . . . . . . . . 10
⊢ 8 =
(2↑3) |
| 84 | 81, 83 | eqtri 2785 |
. . . . . . . . 9
⊢ (4
· 2) = (2↑3) |
| 85 | 65, 38, 13, 73 | divmuli 11996 |
. . . . . . . . 9
⊢
(((2↑3) / 4) = 2 ↔ (4 · 2) =
(2↑3)) |
| 86 | 84, 85 | mpbir 234 |
. . . . . . . 8
⊢
((2↑3) / 4) = 2 |
| 87 | 86 | oveq2i 7427 |
. . . . . . 7
⊢ ((𝐹↑3) / ((2↑3) / 4)) =
((𝐹↑3) /
2) |
| 88 | 80, 87 | eqtri 2785 |
. . . . . 6
⊢ (4
· ((𝐹↑3) /
(2↑3))) = ((𝐹↑3)
/ 2) |
| 89 | 88 | oveq2i 7427 |
. . . . 5
⊢ (5
· (4 · ((𝐹↑3) / (2↑3)))) = (5 ·
((𝐹↑3) /
2)) |
| 90 | 57, 71, 89 | 3eqtri 2789 |
. . . 4
⊢ (;20 · ((𝐹 / 2)↑3)) = (5 · ((𝐹↑3) / 2)) |
| 91 | 53, 90 | oveq12i 7428 |
. . 3
⊢ ((;16 · ((𝐹 / 2)↑5)) − (;20 · ((𝐹 / 2)↑3))) = (((𝐹↑5) / 2) − (5 · ((𝐹↑3) / 2))) |
| 92 | 91 | oveq1i 7426 |
. 2
⊢ (((;16 · ((𝐹 / 2)↑5)) − (;20 · ((𝐹 / 2)↑3))) + (5 · (𝐹 / 2))) = ((((𝐹↑5) / 2) − (5 · ((𝐹↑3) / 2))) + (5 ·
(𝐹 / 2))) |
| 93 | 2, 3, 92 | 3eqtr3i 2793 |
1
⊢ -1 =
((((𝐹↑5) / 2) −
(5 · ((𝐹↑3) /
2))) + (5 · (𝐹 /
2))) |