Step | Hyp | Ref
| Expression |
1 | | fzfid 13934 |
. . . . . 6
β’ (π β
(β€β₯β2) β (0...(π β 2)) β Fin) |
2 | | elfznn0 13590 |
. . . . . . . . 9
β’ (π β (0...(π β 2)) β π β β0) |
3 | | fmtnonn 46185 |
. . . . . . . . 9
β’ (π β β0
β (FermatNoβπ)
β β) |
4 | 2, 3 | syl 17 |
. . . . . . . 8
β’ (π β (0...(π β 2)) β (FermatNoβπ) β
β) |
5 | 4 | nncnd 12224 |
. . . . . . 7
β’ (π β (0...(π β 2)) β (FermatNoβπ) β
β) |
6 | 5 | adantl 482 |
. . . . . 6
β’ ((π β
(β€β₯β2) β§ π β (0...(π β 2))) β (FermatNoβπ) β
β) |
7 | 1, 6 | fprodcl 15892 |
. . . . 5
β’ (π β
(β€β₯β2) β βπ β (0...(π β 2))(FermatNoβπ) β
β) |
8 | | 2cn 12283 |
. . . . . 6
β’ 2 β
β |
9 | 8 | a1i 11 |
. . . . 5
β’ (π β
(β€β₯β2) β 2 β β) |
10 | | uznn0sub 12857 |
. . . . . . 7
β’ (π β
(β€β₯β2) β (π β 2) β
β0) |
11 | | fmtnorec2 46197 |
. . . . . . 7
β’ ((π β 2) β
β0 β (FermatNoβ((π β 2) + 1)) = (βπ β (0...(π β 2))(FermatNoβπ) + 2)) |
12 | 10, 11 | syl 17 |
. . . . . 6
β’ (π β
(β€β₯β2) β (FermatNoβ((π β 2) + 1)) = (βπ β (0...(π β 2))(FermatNoβπ) + 2)) |
13 | 12 | eqcomd 2738 |
. . . . 5
β’ (π β
(β€β₯β2) β (βπ β (0...(π β 2))(FermatNoβπ) + 2) = (FermatNoβ((π β 2) +
1))) |
14 | 7, 9, 13 | mvlraddd 11620 |
. . . 4
β’ (π β
(β€β₯β2) β βπ β (0...(π β 2))(FermatNoβπ) = ((FermatNoβ((π β 2) + 1)) β
2)) |
15 | 14 | oveq2d 7421 |
. . 3
β’ (π β
(β€β₯β2) β ((2β(2β(π β 1))) Β· βπ β (0...(π β 2))(FermatNoβπ)) = ((2β(2β(π β 1))) Β·
((FermatNoβ((π
β 2) + 1)) β 2))) |
16 | 15 | oveq2d 7421 |
. 2
β’ (π β
(β€β₯β2) β ((FermatNoβ(π β 1)) + ((2β(2β(π β 1))) Β·
βπ β (0...(π β
2))(FermatNoβπ))) =
((FermatNoβ(π β
1)) + ((2β(2β(π
β 1))) Β· ((FermatNoβ((π β 2) + 1)) β
2)))) |
17 | | 2nn0 12485 |
. . . . . . . 8
β’ 2 β
β0 |
18 | 17 | a1i 11 |
. . . . . . 7
β’ (π β
(β€β₯β2) β 2 β
β0) |
19 | | eluz2nn 12864 |
. . . . . . . . 9
β’ (π β
(β€β₯β2) β π β β) |
20 | | nnm1nn0 12509 |
. . . . . . . . 9
β’ (π β β β (π β 1) β
β0) |
21 | 19, 20 | syl 17 |
. . . . . . . 8
β’ (π β
(β€β₯β2) β (π β 1) β
β0) |
22 | 18, 21 | nn0expcld 14205 |
. . . . . . 7
β’ (π β
(β€β₯β2) β (2β(π β 1)) β
β0) |
23 | 18, 22 | nn0expcld 14205 |
. . . . . 6
β’ (π β
(β€β₯β2) β (2β(2β(π β 1))) β
β0) |
24 | 23 | nn0cnd 12530 |
. . . . 5
β’ (π β
(β€β₯β2) β (2β(2β(π β 1))) β
β) |
25 | | peano2nn0 12508 |
. . . . . . . 8
β’ ((π β 2) β
β0 β ((π β 2) + 1) β
β0) |
26 | 10, 25 | syl 17 |
. . . . . . 7
β’ (π β
(β€β₯β2) β ((π β 2) + 1) β
β0) |
27 | | fmtnonn 46185 |
. . . . . . 7
β’ (((π β 2) + 1) β
β0 β (FermatNoβ((π β 2) + 1)) β
β) |
28 | 26, 27 | syl 17 |
. . . . . 6
β’ (π β
(β€β₯β2) β (FermatNoβ((π β 2) + 1)) β
β) |
29 | 28 | nncnd 12224 |
. . . . 5
β’ (π β
(β€β₯β2) β (FermatNoβ((π β 2) + 1)) β
β) |
30 | 24, 29, 9 | subdid 11666 |
. . . 4
β’ (π β
(β€β₯β2) β ((2β(2β(π β 1))) Β·
((FermatNoβ((π
β 2) + 1)) β 2)) = (((2β(2β(π β 1))) Β·
(FermatNoβ((π β
2) + 1))) β ((2β(2β(π β 1))) Β· 2))) |
31 | | eluzelcn 12830 |
. . . . . . . . 9
β’ (π β
(β€β₯β2) β π β β) |
32 | | ax-1cn 11164 |
. . . . . . . . . 10
β’ 1 β
β |
33 | 32 | a1i 11 |
. . . . . . . . 9
β’ (π β
(β€β₯β2) β 1 β β) |
34 | | subsub 11486 |
. . . . . . . . . 10
β’ ((π β β β§ 2 β
β β§ 1 β β) β (π β (2 β 1)) = ((π β 2) +
1)) |
35 | 34 | eqcomd 2738 |
. . . . . . . . 9
β’ ((π β β β§ 2 β
β β§ 1 β β) β ((π β 2) + 1) = (π β (2 β 1))) |
36 | 31, 9, 33, 35 | syl3anc 1371 |
. . . . . . . 8
β’ (π β
(β€β₯β2) β ((π β 2) + 1) = (π β (2 β 1))) |
37 | | 2m1e1 12334 |
. . . . . . . . 9
β’ (2
β 1) = 1 |
38 | 37 | oveq2i 7416 |
. . . . . . . 8
β’ (π β (2 β 1)) = (π β 1) |
39 | 36, 38 | eqtrdi 2788 |
. . . . . . 7
β’ (π β
(β€β₯β2) β ((π β 2) + 1) = (π β 1)) |
40 | 39 | fveq2d 6892 |
. . . . . 6
β’ (π β
(β€β₯β2) β (FermatNoβ((π β 2) + 1)) = (FermatNoβ(π β 1))) |
41 | 40 | oveq2d 7421 |
. . . . 5
β’ (π β
(β€β₯β2) β ((2β(2β(π β 1))) Β·
(FermatNoβ((π β
2) + 1))) = ((2β(2β(π β 1))) Β·
(FermatNoβ(π β
1)))) |
42 | 41 | oveq1d 7420 |
. . . 4
β’ (π β
(β€β₯β2) β (((2β(2β(π β 1))) Β·
(FermatNoβ((π β
2) + 1))) β ((2β(2β(π β 1))) Β· 2)) =
(((2β(2β(π
β 1))) Β· (FermatNoβ(π β 1))) β
((2β(2β(π β
1))) Β· 2))) |
43 | 30, 42 | eqtrd 2772 |
. . 3
β’ (π β
(β€β₯β2) β ((2β(2β(π β 1))) Β·
((FermatNoβ((π
β 2) + 1)) β 2)) = (((2β(2β(π β 1))) Β·
(FermatNoβ(π β
1))) β ((2β(2β(π β 1))) Β· 2))) |
44 | 43 | oveq2d 7421 |
. 2
β’ (π β
(β€β₯β2) β ((FermatNoβ(π β 1)) + ((2β(2β(π β 1))) Β·
((FermatNoβ((π
β 2) + 1)) β 2))) = ((FermatNoβ(π β 1)) + (((2β(2β(π β 1))) Β·
(FermatNoβ(π β
1))) β ((2β(2β(π β 1))) Β·
2)))) |
45 | | fmtnonn 46185 |
. . . . . . . . . 10
β’ ((π β 1) β
β0 β (FermatNoβ(π β 1)) β
β) |
46 | 21, 45 | syl 17 |
. . . . . . . . 9
β’ (π β
(β€β₯β2) β (FermatNoβ(π β 1)) β
β) |
47 | 46 | nncnd 12224 |
. . . . . . . 8
β’ (π β
(β€β₯β2) β (FermatNoβ(π β 1)) β
β) |
48 | 47 | mullidd 11228 |
. . . . . . 7
β’ (π β
(β€β₯β2) β (1 Β· (FermatNoβ(π β 1))) =
(FermatNoβ(π β
1))) |
49 | 48 | eqcomd 2738 |
. . . . . 6
β’ (π β
(β€β₯β2) β (FermatNoβ(π β 1)) = (1 Β·
(FermatNoβ(π β
1)))) |
50 | 49 | oveq1d 7420 |
. . . . 5
β’ (π β
(β€β₯β2) β ((FermatNoβ(π β 1)) + ((2β(2β(π β 1))) Β·
(FermatNoβ(π β
1)))) = ((1 Β· (FermatNoβ(π β 1))) + ((2β(2β(π β 1))) Β·
(FermatNoβ(π β
1))))) |
51 | 33, 24, 47 | adddird 11235 |
. . . . 5
β’ (π β
(β€β₯β2) β ((1 + (2β(2β(π β 1)))) Β·
(FermatNoβ(π β
1))) = ((1 Β· (FermatNoβ(π β 1))) + ((2β(2β(π β 1))) Β·
(FermatNoβ(π β
1))))) |
52 | 33, 24 | addcomd 11412 |
. . . . . . . 8
β’ (π β
(β€β₯β2) β (1 + (2β(2β(π β 1)))) = ((2β(2β(π β 1))) +
1)) |
53 | | fmtno 46183 |
. . . . . . . . 9
β’ ((π β 1) β
β0 β (FermatNoβ(π β 1)) = ((2β(2β(π β 1))) +
1)) |
54 | 21, 53 | syl 17 |
. . . . . . . 8
β’ (π β
(β€β₯β2) β (FermatNoβ(π β 1)) = ((2β(2β(π β 1))) +
1)) |
55 | 52, 54 | eqtr4d 2775 |
. . . . . . 7
β’ (π β
(β€β₯β2) β (1 + (2β(2β(π β 1)))) = (FermatNoβ(π β 1))) |
56 | 55 | oveq1d 7420 |
. . . . . 6
β’ (π β
(β€β₯β2) β ((1 + (2β(2β(π β 1)))) Β·
(FermatNoβ(π β
1))) = ((FermatNoβ(π
β 1)) Β· (FermatNoβ(π β 1)))) |
57 | 47 | sqvald 14104 |
. . . . . 6
β’ (π β
(β€β₯β2) β ((FermatNoβ(π β 1))β2) =
((FermatNoβ(π β
1)) Β· (FermatNoβ(π β 1)))) |
58 | 56, 57 | eqtr4d 2775 |
. . . . 5
β’ (π β
(β€β₯β2) β ((1 + (2β(2β(π β 1)))) Β·
(FermatNoβ(π β
1))) = ((FermatNoβ(π
β 1))β2)) |
59 | 50, 51, 58 | 3eqtr2d 2778 |
. . . 4
β’ (π β
(β€β₯β2) β ((FermatNoβ(π β 1)) + ((2β(2β(π β 1))) Β·
(FermatNoβ(π β
1)))) = ((FermatNoβ(π
β 1))β2)) |
60 | 59 | oveq1d 7420 |
. . 3
β’ (π β
(β€β₯β2) β (((FermatNoβ(π β 1)) + ((2β(2β(π β 1))) Β·
(FermatNoβ(π β
1)))) β ((2β(2β(π β 1))) Β· 2)) =
(((FermatNoβ(π
β 1))β2) β ((2β(2β(π β 1))) Β· 2))) |
61 | 24, 47 | mulcld 11230 |
. . . 4
β’ (π β
(β€β₯β2) β ((2β(2β(π β 1))) Β·
(FermatNoβ(π β
1))) β β) |
62 | 24, 9 | mulcld 11230 |
. . . 4
β’ (π β
(β€β₯β2) β ((2β(2β(π β 1))) Β· 2) β
β) |
63 | 47, 61, 62 | addsubassd 11587 |
. . 3
β’ (π β
(β€β₯β2) β (((FermatNoβ(π β 1)) + ((2β(2β(π β 1))) Β·
(FermatNoβ(π β
1)))) β ((2β(2β(π β 1))) Β· 2)) =
((FermatNoβ(π β
1)) + (((2β(2β(π
β 1))) Β· (FermatNoβ(π β 1))) β
((2β(2β(π β
1))) Β· 2)))) |
64 | | npcan1 11635 |
. . . . . . 7
β’ (π β β β ((π β 1) + 1) = π) |
65 | 31, 64 | syl 17 |
. . . . . 6
β’ (π β
(β€β₯β2) β ((π β 1) + 1) = π) |
66 | 65 | eqcomd 2738 |
. . . . 5
β’ (π β
(β€β₯β2) β π = ((π β 1) + 1)) |
67 | 66 | fveq2d 6892 |
. . . 4
β’ (π β
(β€β₯β2) β (FermatNoβπ) = (FermatNoβ((π β 1) + 1))) |
68 | | fmtnorec1 46191 |
. . . . 5
β’ ((π β 1) β
β0 β (FermatNoβ((π β 1) + 1)) =
((((FermatNoβ(π
β 1)) β 1)β2) + 1)) |
69 | 21, 68 | syl 17 |
. . . 4
β’ (π β
(β€β₯β2) β (FermatNoβ((π β 1) + 1)) =
((((FermatNoβ(π
β 1)) β 1)β2) + 1)) |
70 | | binom2sub1 14180 |
. . . . . . 7
β’
((FermatNoβ(π
β 1)) β β β (((FermatNoβ(π β 1)) β 1)β2) =
((((FermatNoβ(π
β 1))β2) β (2 Β· (FermatNoβ(π β 1)))) + 1)) |
71 | 47, 70 | syl 17 |
. . . . . 6
β’ (π β
(β€β₯β2) β (((FermatNoβ(π β 1)) β 1)β2) =
((((FermatNoβ(π
β 1))β2) β (2 Β· (FermatNoβ(π β 1)))) + 1)) |
72 | 71 | oveq1d 7420 |
. . . . 5
β’ (π β
(β€β₯β2) β ((((FermatNoβ(π β 1)) β 1)β2) + 1) =
(((((FermatNoβ(π
β 1))β2) β (2 Β· (FermatNoβ(π β 1)))) + 1) + 1)) |
73 | 46 | nnsqcld 14203 |
. . . . . . . . 9
β’ (π β
(β€β₯β2) β ((FermatNoβ(π β 1))β2) β
β) |
74 | 73 | nncnd 12224 |
. . . . . . . 8
β’ (π β
(β€β₯β2) β ((FermatNoβ(π β 1))β2) β
β) |
75 | 9, 47 | mulcld 11230 |
. . . . . . . 8
β’ (π β
(β€β₯β2) β (2 Β· (FermatNoβ(π β 1))) β
β) |
76 | 74, 75 | subcld 11567 |
. . . . . . 7
β’ (π β
(β€β₯β2) β (((FermatNoβ(π β 1))β2) β (2 Β·
(FermatNoβ(π β
1)))) β β) |
77 | 76, 33, 33 | addassd 11232 |
. . . . . 6
β’ (π β
(β€β₯β2) β (((((FermatNoβ(π β 1))β2) β (2 Β·
(FermatNoβ(π β
1)))) + 1) + 1) = ((((FermatNoβ(π β 1))β2) β (2 Β·
(FermatNoβ(π β
1)))) + (1 + 1))) |
78 | 32 | 2timesi 12346 |
. . . . . . . . 9
β’ (2
Β· 1) = (1 + 1) |
79 | 78 | eqcomi 2741 |
. . . . . . . 8
β’ (1 + 1) =
(2 Β· 1) |
80 | 79 | a1i 11 |
. . . . . . 7
β’ (π β
(β€β₯β2) β (1 + 1) = (2 Β·
1)) |
81 | 80 | oveq2d 7421 |
. . . . . 6
β’ (π β
(β€β₯β2) β ((((FermatNoβ(π β 1))β2) β (2 Β·
(FermatNoβ(π β
1)))) + (1 + 1)) = ((((FermatNoβ(π β 1))β2) β (2 Β·
(FermatNoβ(π β
1)))) + (2 Β· 1))) |
82 | 77, 81 | eqtrd 2772 |
. . . . 5
β’ (π β
(β€β₯β2) β (((((FermatNoβ(π β 1))β2) β (2 Β·
(FermatNoβ(π β
1)))) + 1) + 1) = ((((FermatNoβ(π β 1))β2) β (2 Β·
(FermatNoβ(π β
1)))) + (2 Β· 1))) |
83 | 8, 32 | mulcli 11217 |
. . . . . . . 8
β’ (2
Β· 1) β β |
84 | 83 | a1i 11 |
. . . . . . 7
β’ (π β
(β€β₯β2) β (2 Β· 1) β
β) |
85 | 74, 75, 84 | subadd23d 11589 |
. . . . . 6
β’ (π β
(β€β₯β2) β ((((FermatNoβ(π β 1))β2) β (2 Β·
(FermatNoβ(π β
1)))) + (2 Β· 1)) = (((FermatNoβ(π β 1))β2) + ((2 Β· 1)
β (2 Β· (FermatNoβ(π β 1)))))) |
86 | 9, 33, 47 | subdid 11666 |
. . . . . . . 8
β’ (π β
(β€β₯β2) β (2 Β· (1 β
(FermatNoβ(π β
1)))) = ((2 Β· 1) β (2 Β· (FermatNoβ(π β 1))))) |
87 | 86 | eqcomd 2738 |
. . . . . . 7
β’ (π β
(β€β₯β2) β ((2 Β· 1) β (2 Β·
(FermatNoβ(π β
1)))) = (2 Β· (1 β (FermatNoβ(π β 1))))) |
88 | 87 | oveq2d 7421 |
. . . . . 6
β’ (π β
(β€β₯β2) β (((FermatNoβ(π β 1))β2) + ((2 Β· 1)
β (2 Β· (FermatNoβ(π β 1))))) = (((FermatNoβ(π β 1))β2) + (2
Β· (1 β (FermatNoβ(π β 1)))))) |
89 | 33, 47 | subcld 11567 |
. . . . . . . . . 10
β’ (π β
(β€β₯β2) β (1 β (FermatNoβ(π β 1))) β
β) |
90 | 9, 89 | mulneg2d 11664 |
. . . . . . . . 9
β’ (π β
(β€β₯β2) β (2 Β· -(1 β
(FermatNoβ(π β
1)))) = -(2 Β· (1 β (FermatNoβ(π β 1))))) |
91 | 33, 47 | negsubdi2d 11583 |
. . . . . . . . . . 11
β’ (π β
(β€β₯β2) β -(1 β (FermatNoβ(π β 1))) =
((FermatNoβ(π β
1)) β 1)) |
92 | | fmtnom1nn 46186 |
. . . . . . . . . . . 12
β’ ((π β 1) β
β0 β ((FermatNoβ(π β 1)) β 1) =
(2β(2β(π β
1)))) |
93 | 21, 92 | syl 17 |
. . . . . . . . . . 11
β’ (π β
(β€β₯β2) β ((FermatNoβ(π β 1)) β 1) =
(2β(2β(π β
1)))) |
94 | 91, 93 | eqtrd 2772 |
. . . . . . . . . 10
β’ (π β
(β€β₯β2) β -(1 β (FermatNoβ(π β 1))) =
(2β(2β(π β
1)))) |
95 | 94 | oveq2d 7421 |
. . . . . . . . 9
β’ (π β
(β€β₯β2) β (2 Β· -(1 β
(FermatNoβ(π β
1)))) = (2 Β· (2β(2β(π β 1))))) |
96 | 90, 95 | eqtr3d 2774 |
. . . . . . . 8
β’ (π β
(β€β₯β2) β -(2 Β· (1 β
(FermatNoβ(π β
1)))) = (2 Β· (2β(2β(π β 1))))) |
97 | 96 | oveq2d 7421 |
. . . . . . 7
β’ (π β
(β€β₯β2) β (((FermatNoβ(π β 1))β2) β -(2 Β· (1
β (FermatNoβ(π
β 1))))) = (((FermatNoβ(π β 1))β2) β (2 Β·
(2β(2β(π β
1)))))) |
98 | 9, 89 | mulcld 11230 |
. . . . . . . 8
β’ (π β
(β€β₯β2) β (2 Β· (1 β
(FermatNoβ(π β
1)))) β β) |
99 | 74, 98 | subnegd 11574 |
. . . . . . 7
β’ (π β
(β€β₯β2) β (((FermatNoβ(π β 1))β2) β -(2 Β· (1
β (FermatNoβ(π
β 1))))) = (((FermatNoβ(π β 1))β2) + (2 Β· (1
β (FermatNoβ(π
β 1)))))) |
100 | 9, 24 | mulcomd 11231 |
. . . . . . . 8
β’ (π β
(β€β₯β2) β (2 Β· (2β(2β(π β 1)))) =
((2β(2β(π β
1))) Β· 2)) |
101 | 100 | oveq2d 7421 |
. . . . . . 7
β’ (π β
(β€β₯β2) β (((FermatNoβ(π β 1))β2) β (2 Β·
(2β(2β(π β
1))))) = (((FermatNoβ(π β 1))β2) β
((2β(2β(π β
1))) Β· 2))) |
102 | 97, 99, 101 | 3eqtr3d 2780 |
. . . . . 6
β’ (π β
(β€β₯β2) β (((FermatNoβ(π β 1))β2) + (2 Β· (1
β (FermatNoβ(π
β 1))))) = (((FermatNoβ(π β 1))β2) β
((2β(2β(π β
1))) Β· 2))) |
103 | 85, 88, 102 | 3eqtrd 2776 |
. . . . 5
β’ (π β
(β€β₯β2) β ((((FermatNoβ(π β 1))β2) β (2 Β·
(FermatNoβ(π β
1)))) + (2 Β· 1)) = (((FermatNoβ(π β 1))β2) β
((2β(2β(π β
1))) Β· 2))) |
104 | 72, 82, 103 | 3eqtrd 2776 |
. . . 4
β’ (π β
(β€β₯β2) β ((((FermatNoβ(π β 1)) β 1)β2) + 1) =
(((FermatNoβ(π
β 1))β2) β ((2β(2β(π β 1))) Β· 2))) |
105 | 67, 69, 104 | 3eqtrrd 2777 |
. . 3
β’ (π β
(β€β₯β2) β (((FermatNoβ(π β 1))β2) β
((2β(2β(π β
1))) Β· 2)) = (FermatNoβπ)) |
106 | 60, 63, 105 | 3eqtr3d 2780 |
. 2
β’ (π β
(β€β₯β2) β ((FermatNoβ(π β 1)) + (((2β(2β(π β 1))) Β·
(FermatNoβ(π β
1))) β ((2β(2β(π β 1))) Β· 2))) =
(FermatNoβπ)) |
107 | 16, 44, 106 | 3eqtrrd 2777 |
1
β’ (π β
(β€β₯β2) β (FermatNoβπ) = ((FermatNoβ(π β 1)) + ((2β(2β(π β 1))) Β·
βπ β (0...(π β
2))(FermatNoβπ)))) |