Metamath Proof Explorer


Theorem fmtno4prmfac

Description: If P was a (prime) factor of the fourth Fermat number less than the square root of the fourth Fermat number, it would be either 65 or 129 or 193. (Contributed by AV, 28-Jul-2021)

Ref Expression
Assertion fmtno4prmfac P P FermatNo 4 P FermatNo 4 P = 65 P = 129 P = 193

Proof

Step Hyp Ref Expression
1 2z 2
2 4z 4
3 2re 2
4 4re 4
5 2lt4 2 < 4
6 3 4 5 ltleii 2 4
7 eluz2 4 2 2 4 2 4
8 1 2 6 7 mpbir3an 4 2
9 fmtnoprmfac2 4 2 P P FermatNo 4 k P = k 2 4 + 2 + 1
10 8 9 mp3an1 P P FermatNo 4 k P = k 2 4 + 2 + 1
11 elnnuz k k 1
12 4nn 4
13 nnuz = 1
14 12 13 eleqtri 4 1
15 fzouzsplit 4 1 1 = 1 ..^ 4 4
16 14 15 ax-mp 1 = 1 ..^ 4 4
17 16 eleq2i k 1 k 1 ..^ 4 4
18 elun k 1 ..^ 4 4 k 1 ..^ 4 k 4
19 fzo1to4tp 1 ..^ 4 = 1 2 3
20 19 eleq2i k 1 ..^ 4 k 1 2 3
21 vex k V
22 21 eltp k 1 2 3 k = 1 k = 2 k = 3
23 20 22 bitri k 1 ..^ 4 k = 1 k = 2 k = 3
24 23 orbi1i k 1 ..^ 4 k 4 k = 1 k = 2 k = 3 k 4
25 18 24 bitri k 1 ..^ 4 4 k = 1 k = 2 k = 3 k 4
26 11 17 25 3bitri k k = 1 k = 2 k = 3 k 4
27 4p2e6 4 + 2 = 6
28 27 oveq2i 2 4 + 2 = 2 6
29 2exp6 2 6 = 64
30 28 29 eqtri 2 4 + 2 = 64
31 30 oveq2i k 2 4 + 2 = k 64
32 31 oveq1i k 2 4 + 2 + 1 = k 64 + 1
33 32 eqeq2i P = k 2 4 + 2 + 1 P = k 64 + 1
34 simpl P = k 64 + 1 k = 1 P = k 64 + 1
35 oveq1 k = 1 k 64 = 1 64
36 6nn0 6 0
37 4nn0 4 0
38 36 37 deccl 64 0
39 38 nn0cni 64
40 39 mullidi 1 64 = 64
41 35 40 eqtrdi k = 1 k 64 = 64
42 41 oveq1d k = 1 k 64 + 1 = 64 + 1
43 4p1e5 4 + 1 = 5
44 eqid 64 = 64
45 36 37 43 44 decsuc 64 + 1 = 65
46 42 45 eqtrdi k = 1 k 64 + 1 = 65
47 46 adantl P = k 64 + 1 k = 1 k 64 + 1 = 65
48 34 47 eqtrd P = k 64 + 1 k = 1 P = 65
49 48 ex P = k 64 + 1 k = 1 P = 65
50 simpl P = k 64 + 1 k = 2 P = k 64 + 1
51 oveq1 k = 2 k 64 = 2 64
52 2nn0 2 0
53 6cn 6
54 2cn 2
55 6t2e12 6 2 = 12
56 53 54 55 mulcomli 2 6 = 12
57 56 eqcomi 12 = 2 6
58 2t4e8 2 4 = 8
59 58 eqcomi 8 = 2 4
60 36 37 52 57 59 decmul10add 2 64 = 120 + 8
61 51 60 eqtrdi k = 2 k 64 = 120 + 8
62 61 oveq1d k = 2 k 64 + 1 = 120 + 8 + 1
63 1nn0 1 0
64 63 52 deccl 12 0
65 8nn0 8 0
66 8p1e9 8 + 1 = 9
67 0nn0 0 0
68 eqid 120 = 120
69 8cn 8
70 69 addlidi 0 + 8 = 8
71 64 67 65 68 70 decaddi 120 + 8 = 128
72 64 65 66 71 decsuc 120 + 8 + 1 = 129
73 62 72 eqtrdi k = 2 k 64 + 1 = 129
74 73 adantl P = k 64 + 1 k = 2 k 64 + 1 = 129
75 50 74 eqtrd P = k 64 + 1 k = 2 P = 129
76 75 ex P = k 64 + 1 k = 2 P = 129
77 simpl P = k 64 + 1 k = 3 P = k 64 + 1
78 oveq1 k = 3 k 64 = 3 64
79 3nn0 3 0
80 6t3e18 6 3 = 18
81 3cn 3
82 53 81 mulcomi 6 3 = 3 6
83 80 82 eqtr3i 18 = 3 6
84 4t3e12 4 3 = 12
85 4cn 4
86 85 81 mulcomi 4 3 = 3 4
87 84 86 eqtr3i 12 = 3 4
88 36 37 79 83 87 decmul10add 3 64 = 180 + 12
89 78 88 eqtrdi k = 3 k 64 = 180 + 12
90 89 oveq1d k = 3 k 64 + 1 = 180 + 12 + 1
91 9nn0 9 0
92 63 91 deccl 19 0
93 2p1e3 2 + 1 = 3
94 63 65 deccl 18 0
95 eqid 180 = 180
96 eqid 12 = 12
97 eqid 18 = 18
98 63 65 66 97 decsuc 18 + 1 = 19
99 54 addlidi 0 + 2 = 2
100 94 67 63 52 95 96 98 99 decadd 180 + 12 = 192
101 92 52 93 100 decsuc 180 + 12 + 1 = 193
102 90 101 eqtrdi k = 3 k 64 + 1 = 193
103 102 adantl P = k 64 + 1 k = 3 k 64 + 1 = 193
104 77 103 eqtrd P = k 64 + 1 k = 3 P = 193
105 104 ex P = k 64 + 1 k = 3 P = 193
106 49 76 105 3orim123d P = k 64 + 1 k = 1 k = 2 k = 3 P = 65 P = 129 P = 193
107 106 a1i P FermatNo 4 P = k 64 + 1 k = 1 k = 2 k = 3 P = 65 P = 129 P = 193
108 107 com13 k = 1 k = 2 k = 3 P = k 64 + 1 P FermatNo 4 P = 65 P = 129 P = 193
109 fmtno4sqrt FermatNo 4 = 256
110 109 breq2i P FermatNo 4 P 256
111 breq1 P = k 64 + 1 P 256 k 64 + 1 256
112 111 adantl k 4 P = k 64 + 1 P 256 k 64 + 1 256
113 eluz2 k 4 4 k 4 k
114 6t4e24 6 4 = 24
115 53 85 114 mulcomli 4 6 = 24
116 52 37 43 115 decsuc 4 6 + 1 = 25
117 4t4e16 4 4 = 16
118 37 36 37 44 36 63 116 117 decmul2c 4 64 = 256
119 zre k k
120 38 nn0rei 64
121 36 12 decnncl 64
122 121 nngt0i 0 < 64
123 120 122 pm3.2i 64 0 < 64
124 123 a1i k 64 0 < 64
125 lemul1 4 k 64 0 < 64 4 k 4 64 k 64
126 4 119 124 125 mp3an2i k 4 k 4 64 k 64
127 126 biimpa k 4 k 4 64 k 64
128 118 127 eqbrtrrid k 4 k 256 k 64
129 5nn0 5 0
130 52 129 deccl 25 0
131 130 36 deccl 256 0
132 131 nn0zi 256
133 id k k
134 38 nn0zi 64
135 134 a1i k 64
136 133 135 zmulcld k k 64
137 136 adantr k 4 k k 64
138 zleltp1 256 k 64 256 k 64 256 < k 64 + 1
139 132 137 138 sylancr k 4 k 256 k 64 256 < k 64 + 1
140 128 139 mpbid k 4 k 256 < k 64 + 1
141 140 3adant1 4 k 4 k 256 < k 64 + 1
142 113 141 sylbi k 4 256 < k 64 + 1
143 131 nn0rei 256
144 143 a1i k 4 256
145 eluzelre k 4 k
146 120 a1i k 4 64
147 145 146 remulcld k 4 k 64
148 peano2re k 64 k 64 + 1
149 147 148 syl k 4 k 64 + 1
150 144 149 ltnled k 4 256 < k 64 + 1 ¬ k 64 + 1 256
151 142 150 mpbid k 4 ¬ k 64 + 1 256
152 151 pm2.21d k 4 k 64 + 1 256 P = 65 P = 129 P = 193
153 152 adantr k 4 P = k 64 + 1 k 64 + 1 256 P = 65 P = 129 P = 193
154 112 153 sylbid k 4 P = k 64 + 1 P 256 P = 65 P = 129 P = 193
155 110 154 biimtrid k 4 P = k 64 + 1 P FermatNo 4 P = 65 P = 129 P = 193
156 155 ex k 4 P = k 64 + 1 P FermatNo 4 P = 65 P = 129 P = 193
157 108 156 jaoi k = 1 k = 2 k = 3 k 4 P = k 64 + 1 P FermatNo 4 P = 65 P = 129 P = 193
158 157 adantr k = 1 k = 2 k = 3 k 4 P P FermatNo 4 P = k 64 + 1 P FermatNo 4 P = 65 P = 129 P = 193
159 33 158 biimtrid k = 1 k = 2 k = 3 k 4 P P FermatNo 4 P = k 2 4 + 2 + 1 P FermatNo 4 P = 65 P = 129 P = 193
160 159 ex k = 1 k = 2 k = 3 k 4 P P FermatNo 4 P = k 2 4 + 2 + 1 P FermatNo 4 P = 65 P = 129 P = 193
161 26 160 sylbi k P P FermatNo 4 P = k 2 4 + 2 + 1 P FermatNo 4 P = 65 P = 129 P = 193
162 161 com12 P P FermatNo 4 k P = k 2 4 + 2 + 1 P FermatNo 4 P = 65 P = 129 P = 193
163 162 rexlimdv P P FermatNo 4 k P = k 2 4 + 2 + 1 P FermatNo 4 P = 65 P = 129 P = 193
164 10 163 mpd P P FermatNo 4 P FermatNo 4 P = 65 P = 129 P = 193
165 164 3impia P P FermatNo 4 P FermatNo 4 P = 65 P = 129 P = 193