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