Metamath Proof Explorer


Theorem aks4d1p7

Description: Technical step in AKS lemma 4.1. (Contributed by metakunt, 31-Oct-2024)

Ref Expression
Hypotheses aks4d1p7.1 ⊢ φ → N ∈ ℤ ≥ 3
aks4d1p7.2 ⊢ A = N log 2 B ⁢ ∏ k = 1 log 2 N 2 N k − 1
aks4d1p7.3 ⊢ B = log 2 N 5
aks4d1p7.4 ⊢ R = inf r ∈ 1 … B | ¬ r ∥ A ℝ <
Assertion aks4d1p7 ⊢ φ → ∃ p ∈ ℙ p ∥ R ∧ ¬ p ∥ N

Proof

Step Hyp Ref Expression
1 aks4d1p7.1 ⊢ φ → N ∈ ℤ ≥ 3
2 aks4d1p7.2 ⊢ A = N log 2 B ⁢ ∏ k = 1 log 2 N 2 N k − 1
3 aks4d1p7.3 ⊢ B = log 2 N 5
4 aks4d1p7.4 ⊢ R = inf r ∈ 1 … B | ¬ r ∥ A ℝ <
5 1 adantr ⊢ φ ∧ ∀ p ∈ ℙ p ∥ R → p ∥ N → N ∈ ℤ ≥ 3
6 breq1 ⊢ p = q → p ∥ R ↔ q ∥ R
7 breq1 ⊢ p = q → p ∥ N ↔ q ∥ N
8 6 7 imbi12d ⊢ p = q → p ∥ R → p ∥ N ↔ q ∥ R → q ∥ N
9 8 cbvralvw ⊢ ∀ p ∈ ℙ p ∥ R → p ∥ N ↔ ∀ q ∈ ℙ q ∥ R → q ∥ N
10 9 bilani ⊢ φ ∧ ∀ p ∈ ℙ p ∥ R → p ∥ N → ∀ q ∈ ℙ q ∥ R → q ∥ N
11 5 2 3 4 10 aks4d1p7d1 ⊢ φ ∧ ∀ p ∈ ℙ p ∥ R → p ∥ N → R ∥ N log 2 B
12 4 a1i ⊢ φ → R = inf r ∈ 1 … B | ¬ r ∥ A ℝ <
13 ltso ⊢ < Or ℝ
14 13 a1i ⊢ φ → < Or ℝ
15 fzfid ⊢ φ → 1 … B ∈ Fin
16 ssrab2 ⊢ r ∈ 1 … B | ¬ r ∥ A ⊆ 1 … B
17 16 a1i ⊢ φ → r ∈ 1 … B | ¬ r ∥ A ⊆ 1 … B
18 15 17 ssfid ⊢ φ → r ∈ 1 … B | ¬ r ∥ A ∈ Fin
19 1 2 3 aks4d1p3 ⊢ φ → ∃ r ∈ 1 … B ¬ r ∥ A
20 rabn0 ⊢ r ∈ 1 … B | ¬ r ∥ A ≠ ∅ ↔ ∃ r ∈ 1 … B ¬ r ∥ A
21 19 20 sylibr ⊢ φ → r ∈ 1 … B | ¬ r ∥ A ≠ ∅
22 elfznn ⊢ o ∈ 1 … B → o ∈ ℕ
23 22 adantl ⊢ φ ∧ o ∈ 1 … B → o ∈ ℕ
24 23 nnred ⊢ φ ∧ o ∈ 1 … B → o ∈ ℝ
25 24 ex ⊢ φ → o ∈ 1 … B → o ∈ ℝ
26 25 ssrdv ⊢ φ → 1 … B ⊆ ℝ
27 17 26 sstrd ⊢ φ → r ∈ 1 … B | ¬ r ∥ A ⊆ ℝ
28 18 21 27 3jca ⊢ φ → r ∈ 1 … B | ¬ r ∥ A ∈ Fin ∧ r ∈ 1 … B | ¬ r ∥ A ≠ ∅ ∧ r ∈ 1 … B | ¬ r ∥ A ⊆ ℝ
29 fiinfcl ⊢ < Or ℝ ∧ r ∈ 1 … B | ¬ r ∥ A ∈ Fin ∧ r ∈ 1 … B | ¬ r ∥ A ≠ ∅ ∧ r ∈ 1 … B | ¬ r ∥ A ⊆ ℝ → inf r ∈ 1 … B | ¬ r ∥ A ℝ < ∈ r ∈ 1 … B | ¬ r ∥ A
30 14 28 29 syl2anc ⊢ φ → inf r ∈ 1 … B | ¬ r ∥ A ℝ < ∈ r ∈ 1 … B | ¬ r ∥ A
31 12 30 eqeltrd ⊢ φ → R ∈ r ∈ 1 … B | ¬ r ∥ A
32 breq1 ⊢ r = R → r ∥ A ↔ R ∥ A
33 32 notbid ⊢ r = R → ¬ r ∥ A ↔ ¬ R ∥ A
34 33 elrab ⊢ R ∈ r ∈ 1 … B | ¬ r ∥ A ↔ R ∈ 1 … B ∧ ¬ R ∥ A
35 31 34 sylib ⊢ φ → R ∈ 1 … B ∧ ¬ R ∥ A
36 35 simprd ⊢ φ → ¬ R ∥ A
37 1 2 3 4 aks4d1p4 ⊢ φ → R ∈ 1 … B ∧ ¬ R ∥ A
38 37 simpld ⊢ φ → R ∈ 1 … B
39 38 elfzelzd ⊢ φ → R ∈ ℤ
40 eluzelz ⊢ N ∈ ℤ ≥ 3 → N ∈ ℤ
41 1 40 syl ⊢ φ → N ∈ ℤ
42 2re ⊢ 2 ∈ ℝ
43 42 a1i ⊢ φ → 2 ∈ ℝ
44 2pos ⊢ 0 < 2
45 44 a1i ⊢ φ → 0 < 2
46 3 a1i ⊢ φ → B = log 2 N 5
47 41 zred ⊢ φ → N ∈ ℝ
48 0red ⊢ φ → 0 ∈ ℝ
49 3re ⊢ 3 ∈ ℝ
50 49 a1i ⊢ φ → 3 ∈ ℝ
51 3pos ⊢ 0 < 3
52 51 a1i ⊢ φ → 0 < 3
53 eluzle ⊢ N ∈ ℤ ≥ 3 → 3 ≤ N
54 1 53 syl ⊢ φ → 3 ≤ N
55 48 50 47 52 54 ltletrd ⊢ φ → 0 < N
56 1red ⊢ φ → 1 ∈ ℝ
57 1lt2 ⊢ 1 < 2
58 57 a1i ⊢ φ → 1 < 2
59 56 58 ltned ⊢ φ → 1 ≠ 2
60 59 necomd ⊢ φ → 2 ≠ 1
61 43 45 47 55 60 relogbcld ⊢ φ → log 2 N ∈ ℝ
62 5nn0 ⊢ 5 ∈ ℕ 0
63 62 a1i ⊢ φ → 5 ∈ ℕ 0
64 61 63 reexpcld ⊢ φ → log 2 N 5 ∈ ℝ
65 64 ceilcld ⊢ φ → log 2 N 5 ∈ ℤ
66 65 zred ⊢ φ → log 2 N 5 ∈ ℝ
67 46 66 eqeltrd ⊢ φ → B ∈ ℝ
68 9re ⊢ 9 ∈ ℝ
69 68 a1i ⊢ φ → 9 ∈ ℝ
70 9pos ⊢ 0 < 9
71 70 a1i ⊢ φ → 0 < 9
72 47 54 3lexlogpow5ineq4 ⊢ φ → 9 < log 2 N 5
73 64 ceilged ⊢ φ → log 2 N 5 ≤ log 2 N 5
74 69 64 66 72 73 ltletrd ⊢ φ → 9 < log 2 N 5
75 74 46 breqtrrd ⊢ φ → 9 < B
76 48 69 67 71 75 lttrd ⊢ φ → 0 < B
77 43 45 67 76 60 relogbcld ⊢ φ → log 2 B ∈ ℝ
78 77 flcld ⊢ φ → log 2 B ∈ ℤ
79 43 recnd ⊢ φ → 2 ∈ ℂ
80 48 45 gtned ⊢ φ → 2 ≠ 0
81 logb1 ⊢ 2 ∈ ℂ ∧ 2 ≠ 0 ∧ 2 ≠ 1 → log 2 1 = 0
82 79 80 60 81 syl3anc ⊢ φ → log 2 1 = 0
83 82 eqcomd ⊢ φ → 0 = log 2 1
84 2z ⊢ 2 ∈ ℤ
85 84 a1i ⊢ φ → 2 ∈ ℤ
86 43 leidd ⊢ φ → 2 ≤ 2
87 0lt1 ⊢ 0 < 1
88 87 a1i ⊢ φ → 0 < 1
89 1lt9 ⊢ 1 < 9
90 89 a1i ⊢ φ → 1 < 9
91 56 69 90 ltled ⊢ φ → 1 ≤ 9
92 69 67 75 ltled ⊢ φ → 9 ≤ B
93 56 69 67 91 92 letrd ⊢ φ → 1 ≤ B
94 85 86 56 88 67 76 93 logblebd ⊢ φ → log 2 1 ≤ log 2 B
95 83 94 eqbrtrd ⊢ φ → 0 ≤ log 2 B
96 0zd ⊢ φ → 0 ∈ ℤ
97 flge ⊢ log 2 B ∈ ℝ ∧ 0 ∈ ℤ → 0 ≤ log 2 B ↔ 0 ≤ log 2 B
98 77 96 97 syl2anc ⊢ φ → 0 ≤ log 2 B ↔ 0 ≤ log 2 B
99 95 98 mpbid ⊢ φ → 0 ≤ log 2 B
100 78 99 jca ⊢ φ → log 2 B ∈ ℤ ∧ 0 ≤ log 2 B
101 elnn0z ⊢ log 2 B ∈ ℕ 0 ↔ log 2 B ∈ ℤ ∧ 0 ≤ log 2 B
102 100 101 sylibr ⊢ φ → log 2 B ∈ ℕ 0
103 41 102 zexpcld ⊢ φ → N log 2 B ∈ ℤ
104 fzfid ⊢ φ → 1 … log 2 N 2 ∈ Fin
105 41 adantr ⊢ φ ∧ k ∈ 1 … log 2 N 2 → N ∈ ℤ
106 elfznn ⊢ k ∈ 1 … log 2 N 2 → k ∈ ℕ
107 106 adantl ⊢ φ ∧ k ∈ 1 … log 2 N 2 → k ∈ ℕ
108 107 nnnn0d ⊢ φ ∧ k ∈ 1 … log 2 N 2 → k ∈ ℕ 0
109 105 108 zexpcld ⊢ φ ∧ k ∈ 1 … log 2 N 2 → N k ∈ ℤ
110 1zzd ⊢ φ ∧ k ∈ 1 … log 2 N 2 → 1 ∈ ℤ
111 109 110 zsubcld ⊢ φ ∧ k ∈ 1 … log 2 N 2 → N k − 1 ∈ ℤ
112 104 111 fprodzcl ⊢ φ → ∏ k = 1 log 2 N 2 N k − 1 ∈ ℤ
113 dvdsmultr1 ⊢ R ∈ ℤ ∧ N log 2 B ∈ ℤ ∧ ∏ k = 1 log 2 N 2 N k − 1 ∈ ℤ → R ∥ N log 2 B → R ∥ N log 2 B ⁢ ∏ k = 1 log 2 N 2 N k − 1
114 39 103 112 113 syl3anc ⊢ φ → R ∥ N log 2 B → R ∥ N log 2 B ⁢ ∏ k = 1 log 2 N 2 N k − 1
115 114 imp ⊢ φ ∧ R ∥ N log 2 B → R ∥ N log 2 B ⁢ ∏ k = 1 log 2 N 2 N k − 1
116 2 a1i ⊢ φ → A = N log 2 B ⁢ ∏ k = 1 log 2 N 2 N k − 1
117 116 breq2d ⊢ φ → R ∥ A ↔ R ∥ N log 2 B ⁢ ∏ k = 1 log 2 N 2 N k − 1
118 117 adantr ⊢ φ ∧ R ∥ N log 2 B → R ∥ A ↔ R ∥ N log 2 B ⁢ ∏ k = 1 log 2 N 2 N k − 1
119 115 118 mpbird ⊢ φ ∧ R ∥ N log 2 B → R ∥ A
120 119 ex ⊢ φ → R ∥ N log 2 B → R ∥ A
121 120 con3d ⊢ φ → ¬ R ∥ A → ¬ R ∥ N log 2 B
122 36 121 mpd ⊢ φ → ¬ R ∥ N log 2 B
123 122 adantr ⊢ φ ∧ ∀ p ∈ ℙ p ∥ R → p ∥ N → ¬ R ∥ N log 2 B
124 11 123 pm2.65da ⊢ φ → ¬ ∀ p ∈ ℙ p ∥ R → p ∥ N
125 ianor ⊢ ¬ p ∥ R ∧ ¬ p ∥ N ↔ ¬ p ∥ R ∨ ¬ ¬ p ∥ N
126 notnotb ⊢ p ∥ N ↔ ¬ ¬ p ∥ N
127 126 orbi2i ⊢ ¬ p ∥ R ∨ p ∥ N ↔ ¬ p ∥ R ∨ ¬ ¬ p ∥ N
128 127 bicomi ⊢ ¬ p ∥ R ∨ ¬ ¬ p ∥ N ↔ ¬ p ∥ R ∨ p ∥ N
129 125 128 bitri ⊢ ¬ p ∥ R ∧ ¬ p ∥ N ↔ ¬ p ∥ R ∨ p ∥ N
130 df-or ⊢ ¬ p ∥ R ∨ p ∥ N ↔ ¬ ¬ p ∥ R → p ∥ N
131 129 130 bitri ⊢ ¬ p ∥ R ∧ ¬ p ∥ N ↔ ¬ ¬ p ∥ R → p ∥ N
132 notnotb ⊢ p ∥ R ↔ ¬ ¬ p ∥ R
133 132 imbi1i ⊢ p ∥ R → p ∥ N ↔ ¬ ¬ p ∥ R → p ∥ N
134 133 bicomi ⊢ ¬ ¬ p ∥ R → p ∥ N ↔ p ∥ R → p ∥ N
135 131 134 bitri ⊢ ¬ p ∥ R ∧ ¬ p ∥ N ↔ p ∥ R → p ∥ N
136 135 ralbii ⊢ ∀ p ∈ ℙ ¬ p ∥ R ∧ ¬ p ∥ N ↔ ∀ p ∈ ℙ p ∥ R → p ∥ N
137 136 notbii ⊢ ¬ ∀ p ∈ ℙ ¬ p ∥ R ∧ ¬ p ∥ N ↔ ¬ ∀ p ∈ ℙ p ∥ R → p ∥ N
138 124 137 sylibr ⊢ φ → ¬ ∀ p ∈ ℙ ¬ p ∥ R ∧ ¬ p ∥ N
139 ralnex ⊢ ∀ p ∈ ℙ ¬ p ∥ R ∧ ¬ p ∥ N ↔ ¬ ∃ p ∈ ℙ p ∥ R ∧ ¬ p ∥ N
140 139 con2bii ⊢ ∃ p ∈ ℙ p ∥ R ∧ ¬ p ∥ N ↔ ¬ ∀ p ∈ ℙ ¬ p ∥ R ∧ ¬ p ∥ N
141 140 bicomi ⊢ ¬ ∀ p ∈ ℙ ¬ p ∥ R ∧ ¬ p ∥ N ↔ ∃ p ∈ ℙ p ∥ R ∧ ¬ p ∥ N
142 138 141 sylib ⊢ φ → ∃ p ∈ ℙ p ∥ R ∧ ¬ p ∥ N