Metamath Proof Explorer


Theorem 2pwp1prm

Description: For ( ( 2 ^ k ) + 1 ) to be prime, k must be a power of 2, see Wikipedia "Fermat number", section "Other theorems about Fermat numbers", https://en.wikipedia.org/wiki/Fermat_number , 5-Aug-2021. (Contributed by AV, 7-Aug-2021)

Ref Expression
Assertion 2pwp1prm ⊢ K ∈ ℕ ∧ 2 K + 1 ∈ ℙ → ∃ n ∈ ℕ 0 K = 2 n

Proof

Step Hyp Ref Expression
1 oddprmdvds ⊢ K ∈ ℕ ∧ ¬ ∃ n ∈ ℕ 0 K = 2 n → ∃ p ∈ ℙ ∖ 2 p ∥ K
2 1 adantlr ⊢ K ∈ ℕ ∧ 2 K + 1 ∈ ℙ ∧ ¬ ∃ n ∈ ℕ 0 K = 2 n → ∃ p ∈ ℙ ∖ 2 p ∥ K
3 eldifi ⊢ p ∈ ℙ ∖ 2 → p ∈ ℙ
4 prmnn ⊢ p ∈ ℙ → p ∈ ℕ
5 3 4 syl ⊢ p ∈ ℙ ∖ 2 → p ∈ ℕ
6 simpl ⊢ K ∈ ℕ ∧ 2 K + 1 ∈ ℙ → K ∈ ℕ
7 nndivides ⊢ p ∈ ℕ ∧ K ∈ ℕ → p ∥ K ↔ ∃ m ∈ ℕ m ⁢ p = K
8 5 6 7 syl2anr ⊢ K ∈ ℕ ∧ 2 K + 1 ∈ ℙ ∧ p ∈ ℙ ∖ 2 → p ∥ K ↔ ∃ m ∈ ℕ m ⁢ p = K
9 2re ⊢ 2 ∈ ℝ
10 9 a1i ⊢ m ∈ ℕ → 2 ∈ ℝ
11 nnnn0 ⊢ m ∈ ℕ → m ∈ ℕ 0
12 1le2 ⊢ 1 ≤ 2
13 12 a1i ⊢ m ∈ ℕ → 1 ≤ 2
14 10 11 13 expge1d ⊢ m ∈ ℕ → 1 ≤ 2 m
15 1zzd ⊢ m ∈ ℕ → 1 ∈ ℤ
16 2nn ⊢ 2 ∈ ℕ
17 16 a1i ⊢ m ∈ ℕ → 2 ∈ ℕ
18 17 11 nnexpcld ⊢ m ∈ ℕ → 2 m ∈ ℕ
19 18 nnzd ⊢ m ∈ ℕ → 2 m ∈ ℤ
20 zleltp1 ⊢ 1 ∈ ℤ ∧ 2 m ∈ ℤ → 1 ≤ 2 m ↔ 1 < 2 m + 1
21 15 19 20 syl2anc ⊢ m ∈ ℕ → 1 ≤ 2 m ↔ 1 < 2 m + 1
22 14 21 mpbid ⊢ m ∈ ℕ → 1 < 2 m + 1
23 18 nncnd ⊢ m ∈ ℕ → 2 m ∈ ℂ
24 1cnd ⊢ m ∈ ℕ → 1 ∈ ℂ
25 subneg ⊢ 2 m ∈ ℂ ∧ 1 ∈ ℂ → 2 m − -1 = 2 m + 1
26 25 breq2d ⊢ 2 m ∈ ℂ ∧ 1 ∈ ℂ → 1 < 2 m − -1 ↔ 1 < 2 m + 1
27 23 24 26 syl2anc ⊢ m ∈ ℕ → 1 < 2 m − -1 ↔ 1 < 2 m + 1
28 22 27 mpbird ⊢ m ∈ ℕ → 1 < 2 m − -1
29 28 adantl ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 1 < 2 m − -1
30 29 ad2antlr ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → 1 < 2 m − -1
31 18 nnred ⊢ m ∈ ℕ → 2 m ∈ ℝ
32 31 adantl ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 2 m ∈ ℝ
33 16 a1i ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 2 ∈ ℕ
34 11 adantl ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → m ∈ ℕ 0
35 5 nnnn0d ⊢ p ∈ ℙ ∖ 2 → p ∈ ℕ 0
36 35 adantr ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → p ∈ ℕ 0
37 34 36 nn0mulcld ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → m ⁢ p ∈ ℕ 0
38 33 37 nnexpcld ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 2 m ⁢ p ∈ ℕ
39 38 nnred ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 2 m ⁢ p ∈ ℝ
40 1red ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 1 ∈ ℝ
41 9 a1i ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 2 ∈ ℝ
42 nnz ⊢ m ∈ ℕ → m ∈ ℤ
43 42 adantl ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → m ∈ ℤ
44 5 nnzd ⊢ p ∈ ℙ ∖ 2 → p ∈ ℤ
45 44 adantr ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → p ∈ ℤ
46 43 45 zmulcld ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → m ⁢ p ∈ ℤ
47 1lt2 ⊢ 1 < 2
48 47 a1i ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 1 < 2
49 prmgt1 ⊢ p ∈ ℙ → 1 < p
50 3 49 syl ⊢ p ∈ ℙ ∖ 2 → 1 < p
51 50 adantr ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 1 < p
52 nnre ⊢ m ∈ ℕ → m ∈ ℝ
53 52 adantl ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → m ∈ ℝ
54 5 nnred ⊢ p ∈ ℙ ∖ 2 → p ∈ ℝ
55 54 adantr ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → p ∈ ℝ
56 nngt0 ⊢ m ∈ ℕ → 0 < m
57 56 adantl ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 0 < m
58 ltmulgt11 ⊢ m ∈ ℝ ∧ p ∈ ℝ ∧ 0 < m → 1 < p ↔ m < m ⁢ p
59 53 55 57 58 syl3anc ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 1 < p ↔ m < m ⁢ p
60 51 59 mpbid ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → m < m ⁢ p
61 ltexp2a ⊢ 2 ∈ ℝ ∧ m ∈ ℤ ∧ m ⁢ p ∈ ℤ ∧ 1 < 2 ∧ m < m ⁢ p → 2 m < 2 m ⁢ p
62 41 43 46 48 60 61 syl32anc ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 2 m < 2 m ⁢ p
63 32 39 40 62 ltadd1dd ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 2 m + 1 < 2 m ⁢ p + 1
64 63 ad2antlr ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → 2 m + 1 < 2 m ⁢ p + 1
65 23 24 subnegd ⊢ m ∈ ℕ → 2 m − -1 = 2 m + 1
66 65 eqcomd ⊢ m ∈ ℕ → 2 m + 1 = 2 m − -1
67 66 adantl ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 2 m + 1 = 2 m − -1
68 67 ad2antlr ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → 2 m + 1 = 2 m − -1
69 oveq2 ⊢ m ⁢ p = K → 2 m ⁢ p = 2 K
70 69 oveq1d ⊢ m ⁢ p = K → 2 m ⁢ p + 1 = 2 K + 1
71 70 adantl ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → 2 m ⁢ p + 1 = 2 K + 1
72 64 68 71 3brtr3d ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → 2 m − -1 < 2 K + 1
73 neg1z ⊢ − 1 ∈ ℤ
74 73 a1i ⊢ m ∈ ℕ → − 1 ∈ ℤ
75 19 74 zsubcld ⊢ m ∈ ℕ → 2 m − -1 ∈ ℤ
76 75 adantl ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 2 m − -1 ∈ ℤ
77 fzofi ⊢ 0 ..^ p ∈ Fin
78 77 a1i ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 0 ..^ p ∈ Fin
79 19 adantl ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 2 m ∈ ℤ
80 elfzonn0 ⊢ k ∈ 0 ..^ p → k ∈ ℕ 0
81 zexpcl ⊢ 2 m ∈ ℤ ∧ k ∈ ℕ 0 → 2 m k ∈ ℤ
82 79 80 81 syl2an ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ k ∈ 0 ..^ p → 2 m k ∈ ℤ
83 73 a1i ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ k ∈ 0 ..^ p → − 1 ∈ ℤ
84 fzonnsub ⊢ k ∈ 0 ..^ p → p − k ∈ ℕ
85 84 adantl ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ k ∈ 0 ..^ p → p − k ∈ ℕ
86 nnm1nn0 ⊢ p − k ∈ ℕ → p - k - 1 ∈ ℕ 0
87 85 86 syl ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ k ∈ 0 ..^ p → p - k - 1 ∈ ℕ 0
88 zexpcl ⊢ − 1 ∈ ℤ ∧ p - k - 1 ∈ ℕ 0 → − 1 p - k - 1 ∈ ℤ
89 83 87 88 syl2anc ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ k ∈ 0 ..^ p → − 1 p - k - 1 ∈ ℤ
90 82 89 zmulcld ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ k ∈ 0 ..^ p → 2 m k ⁢ − 1 p - k - 1 ∈ ℤ
91 78 90 fsumzcl ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → ∑ k ∈ 0 ..^ p 2 m k ⁢ − 1 p - k - 1 ∈ ℤ
92 dvdsmul1 ⊢ 2 m − -1 ∈ ℤ ∧ ∑ k ∈ 0 ..^ p 2 m k ⁢ − 1 p - k - 1 ∈ ℤ → 2 m − -1 ∥ 2 m − -1 ⁢ ∑ k ∈ 0 ..^ p 2 m k ⁢ − 1 p - k - 1
93 76 91 92 syl2anc ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 2 m − -1 ∥ 2 m − -1 ⁢ ∑ k ∈ 0 ..^ p 2 m k ⁢ − 1 p - k - 1
94 93 ad2antlr ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → 2 m − -1 ∥ 2 m − -1 ⁢ ∑ k ∈ 0 ..^ p 2 m k ⁢ − 1 p - k - 1
95 23 adantl ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 2 m ∈ ℂ
96 neg1cn ⊢ − 1 ∈ ℂ
97 96 a1i ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → − 1 ∈ ℂ
98 pwdif ⊢ p ∈ ℕ 0 ∧ 2 m ∈ ℂ ∧ − 1 ∈ ℂ → 2 m p − − 1 p = 2 m − -1 ⁢ ∑ k ∈ 0 ..^ p 2 m k ⁢ − 1 p - k - 1
99 36 95 97 98 syl3anc ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 2 m p − − 1 p = 2 m − -1 ⁢ ∑ k ∈ 0 ..^ p 2 m k ⁢ − 1 p - k - 1
100 99 breq2d ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 2 m − -1 ∥ 2 m p − − 1 p ↔ 2 m − -1 ∥ 2 m − -1 ⁢ ∑ k ∈ 0 ..^ p 2 m k ⁢ − 1 p - k - 1
101 100 ad2antlr ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → 2 m − -1 ∥ 2 m p − − 1 p ↔ 2 m − -1 ∥ 2 m − -1 ⁢ ∑ k ∈ 0 ..^ p 2 m k ⁢ − 1 p - k - 1
102 94 101 mpbird ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → 2 m − -1 ∥ 2 m p − − 1 p
103 2cnd ⊢ K ∈ ℕ → 2 ∈ ℂ
104 nnnn0 ⊢ K ∈ ℕ → K ∈ ℕ 0
105 103 104 expcld ⊢ K ∈ ℕ → 2 K ∈ ℂ
106 1cnd ⊢ K ∈ ℕ → 1 ∈ ℂ
107 105 106 subnegd ⊢ K ∈ ℕ → 2 K − -1 = 2 K + 1
108 107 eqcomd ⊢ K ∈ ℕ → 2 K + 1 = 2 K − -1
109 108 adantr ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 2 K + 1 = 2 K − -1
110 109 adantr ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → 2 K + 1 = 2 K − -1
111 oveq2 ⊢ K = m ⁢ p → 2 K = 2 m ⁢ p
112 111 eqcoms ⊢ m ⁢ p = K → 2 K = 2 m ⁢ p
113 112 adantl ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → 2 K = 2 m ⁢ p
114 2cnd ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 2 ∈ ℂ
115 114 36 34 expmuld ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 2 m ⁢ p = 2 m p
116 115 ad2antlr ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → 2 m ⁢ p = 2 m p
117 113 116 eqtrd ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → 2 K = 2 m p
118 1exp ⊢ p ∈ ℤ → 1 p = 1
119 44 118 syl ⊢ p ∈ ℙ ∖ 2 → 1 p = 1
120 119 eqcomd ⊢ p ∈ ℙ ∖ 2 → 1 = 1 p
121 120 negeqd ⊢ p ∈ ℙ ∖ 2 → − 1 = − 1 p
122 1cnd ⊢ p ∈ ℙ ∖ 2 → 1 ∈ ℂ
123 oddn2prm ⊢ p ∈ ℙ ∖ 2 → ¬ 2 ∥ p
124 oexpneg ⊢ 1 ∈ ℂ ∧ p ∈ ℕ ∧ ¬ 2 ∥ p → − 1 p = − 1 p
125 122 5 123 124 syl3anc ⊢ p ∈ ℙ ∖ 2 → − 1 p = − 1 p
126 125 eqcomd ⊢ p ∈ ℙ ∖ 2 → − 1 p = − 1 p
127 121 126 eqtrd ⊢ p ∈ ℙ ∖ 2 → − 1 = − 1 p
128 127 adantr ⊢ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → − 1 = − 1 p
129 128 ad2antlr ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → − 1 = − 1 p
130 117 129 oveq12d ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → 2 K − -1 = 2 m p − − 1 p
131 110 130 eqtrd ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → 2 K + 1 = 2 m p − − 1 p
132 131 breq2d ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → 2 m − -1 ∥ 2 K + 1 ↔ 2 m − -1 ∥ 2 m p − − 1 p
133 102 132 mpbird ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → 2 m − -1 ∥ 2 K + 1
134 30 72 133 dvdsnprmd ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → ¬ 2 K + 1 ∈ ℙ
135 134 pm2.21d ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ ∧ m ⁢ p = K → 2 K + 1 ∈ ℙ → ∃ n ∈ ℕ 0 K = 2 n
136 135 ex ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → m ⁢ p = K → 2 K + 1 ∈ ℙ → ∃ n ∈ ℕ 0 K = 2 n
137 136 com23 ⊢ K ∈ ℕ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → 2 K + 1 ∈ ℙ → m ⁢ p = K → ∃ n ∈ ℕ 0 K = 2 n
138 137 impancom ⊢ K ∈ ℕ ∧ 2 K + 1 ∈ ℙ → p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → m ⁢ p = K → ∃ n ∈ ℕ 0 K = 2 n
139 138 impl ⊢ K ∈ ℕ ∧ 2 K + 1 ∈ ℙ ∧ p ∈ ℙ ∖ 2 ∧ m ∈ ℕ → m ⁢ p = K → ∃ n ∈ ℕ 0 K = 2 n
140 139 rexlimdva ⊢ K ∈ ℕ ∧ 2 K + 1 ∈ ℙ ∧ p ∈ ℙ ∖ 2 → ∃ m ∈ ℕ m ⁢ p = K → ∃ n ∈ ℕ 0 K = 2 n
141 8 140 sylbid ⊢ K ∈ ℕ ∧ 2 K + 1 ∈ ℙ ∧ p ∈ ℙ ∖ 2 → p ∥ K → ∃ n ∈ ℕ 0 K = 2 n
142 141 rexlimdva ⊢ K ∈ ℕ ∧ 2 K + 1 ∈ ℙ → ∃ p ∈ ℙ ∖ 2 p ∥ K → ∃ n ∈ ℕ 0 K = 2 n
143 142 adantr ⊢ K ∈ ℕ ∧ 2 K + 1 ∈ ℙ ∧ ¬ ∃ n ∈ ℕ 0 K = 2 n → ∃ p ∈ ℙ ∖ 2 p ∥ K → ∃ n ∈ ℕ 0 K = 2 n
144 2 143 mpd ⊢ K ∈ ℕ ∧ 2 K + 1 ∈ ℙ ∧ ¬ ∃ n ∈ ℕ 0 K = 2 n → ∃ n ∈ ℕ 0 K = 2 n
145 144 pm2.18da ⊢ K ∈ ℕ ∧ 2 K + 1 ∈ ℙ → ∃ n ∈ ℕ 0 K = 2 n