Metamath Proof Explorer


Theorem aks4d1p9

Description: Show that the order is bound by the squared binary logarithm. (Contributed by metakunt, 14-Nov-2024)

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

Proof

Step Hyp Ref Expression
1 aks4d1p9.1 ⊢ φ → N ∈ ℤ ≥ 3
2 aks4d1p9.2 ⊢ A = N log 2 B ⁢ ∏ k = 1 log 2 N 2 N k − 1
3 aks4d1p9.3 ⊢ B = log 2 N 5
4 aks4d1p9.4 ⊢ R = inf r ∈ 1 … B | ¬ r ∥ A ℝ <
5 2re ⊢ 2 ∈ ℝ
6 5 a1i ⊢ φ → 2 ∈ ℝ
7 2pos ⊢ 0 < 2
8 7 a1i ⊢ φ → 0 < 2
9 eluzelz ⊢ N ∈ ℤ ≥ 3 → N ∈ ℤ
10 1 9 syl ⊢ φ → N ∈ ℤ
11 10 zred ⊢ φ → N ∈ ℝ
12 0red ⊢ φ → 0 ∈ ℝ
13 3re ⊢ 3 ∈ ℝ
14 13 a1i ⊢ φ → 3 ∈ ℝ
15 3pos ⊢ 0 < 3
16 15 a1i ⊢ φ → 0 < 3
17 eluzle ⊢ N ∈ ℤ ≥ 3 → 3 ≤ N
18 1 17 syl ⊢ φ → 3 ≤ N
19 12 14 11 16 18 ltletrd ⊢ φ → 0 < N
20 1red ⊢ φ → 1 ∈ ℝ
21 1lt2 ⊢ 1 < 2
22 21 a1i ⊢ φ → 1 < 2
23 20 22 ltned ⊢ φ → 1 ≠ 2
24 23 necomd ⊢ φ → 2 ≠ 1
25 6 8 11 19 24 relogbcld ⊢ φ → log 2 N ∈ ℝ
26 25 resqcld ⊢ φ → log 2 N 2 ∈ ℝ
27 1 2 3 4 aks4d1p4 ⊢ φ → R ∈ 1 … B ∧ ¬ R ∥ A
28 27 simpld ⊢ φ → R ∈ 1 … B
29 elfznn ⊢ R ∈ 1 … B → R ∈ ℕ
30 28 29 syl ⊢ φ → R ∈ ℕ
31 1 2 3 4 aks4d1p8 ⊢ φ → N gcd R = 1
32 30 10 31 3jca ⊢ φ → R ∈ ℕ ∧ N ∈ ℤ ∧ N gcd R = 1
33 odzcl ⊢ R ∈ ℕ ∧ N ∈ ℤ ∧ N gcd R = 1 → odℤ ⁡ R ⁡ N ∈ ℕ
34 32 33 syl ⊢ φ → odℤ ⁡ R ⁡ N ∈ ℕ
35 34 nnzd ⊢ φ → odℤ ⁡ R ⁡ N ∈ ℤ
36 flge ⊢ log 2 N 2 ∈ ℝ ∧ odℤ ⁡ R ⁡ N ∈ ℤ → odℤ ⁡ R ⁡ N ≤ log 2 N 2 ↔ odℤ ⁡ R ⁡ N ≤ log 2 N 2
37 26 35 36 syl2anc ⊢ φ → odℤ ⁡ R ⁡ N ≤ log 2 N 2 ↔ odℤ ⁡ R ⁡ N ≤ log 2 N 2
38 37 biimpd ⊢ φ → odℤ ⁡ R ⁡ N ≤ log 2 N 2 → odℤ ⁡ R ⁡ N ≤ log 2 N 2
39 38 imp ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → odℤ ⁡ R ⁡ N ≤ log 2 N 2
40 30 nnzd ⊢ φ → R ∈ ℤ
41 40 adantr ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → R ∈ ℤ
42 10 adantr ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → N ∈ ℤ
43 34 nnnn0d ⊢ φ → odℤ ⁡ R ⁡ N ∈ ℕ 0
44 43 adantr ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → odℤ ⁡ R ⁡ N ∈ ℕ 0
45 42 44 zexpcld ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → N odℤ ⁡ R ⁡ N ∈ ℤ
46 1zzd ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → 1 ∈ ℤ
47 45 46 zsubcld ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → N odℤ ⁡ R ⁡ N − 1 ∈ ℤ
48 1 3 aks4d1lem1 ⊢ φ → B ∈ ℕ ∧ 9 < B
49 48 simpld ⊢ φ → B ∈ ℕ
50 49 nnred ⊢ φ → B ∈ ℝ
51 49 nngt0d ⊢ φ → 0 < B
52 6 8 50 51 24 relogbcld ⊢ φ → log 2 B ∈ ℝ
53 52 flcld ⊢ φ → log 2 B ∈ ℤ
54 2cnd ⊢ φ → 2 ∈ ℂ
55 12 8 gtned ⊢ φ → 2 ≠ 0
56 54 55 24 3jca ⊢ φ → 2 ∈ ℂ ∧ 2 ≠ 0 ∧ 2 ≠ 1
57 logb1 ⊢ 2 ∈ ℂ ∧ 2 ≠ 0 ∧ 2 ≠ 1 → log 2 1 = 0
58 56 57 syl ⊢ φ → log 2 1 = 0
59 2z ⊢ 2 ∈ ℤ
60 59 a1i ⊢ φ → 2 ∈ ℤ
61 6 leidd ⊢ φ → 2 ≤ 2
62 0lt1 ⊢ 0 < 1
63 62 a1i ⊢ φ → 0 < 1
64 49 nnge1d ⊢ φ → 1 ≤ B
65 60 61 20 63 50 51 64 logblebd ⊢ φ → log 2 1 ≤ log 2 B
66 58 65 eqbrtrrd ⊢ φ → 0 ≤ log 2 B
67 0zd ⊢ φ → 0 ∈ ℤ
68 flge ⊢ log 2 B ∈ ℝ ∧ 0 ∈ ℤ → 0 ≤ log 2 B ↔ 0 ≤ log 2 B
69 52 67 68 syl2anc ⊢ φ → 0 ≤ log 2 B ↔ 0 ≤ log 2 B
70 66 69 mpbid ⊢ φ → 0 ≤ log 2 B
71 53 70 jca ⊢ φ → log 2 B ∈ ℤ ∧ 0 ≤ log 2 B
72 elnn0z ⊢ log 2 B ∈ ℕ 0 ↔ log 2 B ∈ ℤ ∧ 0 ≤ log 2 B
73 71 72 sylibr ⊢ φ → log 2 B ∈ ℕ 0
74 10 73 zexpcld ⊢ φ → N log 2 B ∈ ℤ
75 fzfid ⊢ φ → 1 … log 2 N 2 ∈ Fin
76 10 adantr ⊢ φ ∧ k ∈ 1 … log 2 N 2 → N ∈ ℤ
77 elfznn ⊢ k ∈ 1 … log 2 N 2 → k ∈ ℕ
78 77 nnnn0d ⊢ k ∈ 1 … log 2 N 2 → k ∈ ℕ 0
79 78 adantl ⊢ φ ∧ k ∈ 1 … log 2 N 2 → k ∈ ℕ 0
80 76 79 zexpcld ⊢ φ ∧ k ∈ 1 … log 2 N 2 → N k ∈ ℤ
81 1zzd ⊢ φ ∧ k ∈ 1 … log 2 N 2 → 1 ∈ ℤ
82 80 81 zsubcld ⊢ φ ∧ k ∈ 1 … log 2 N 2 → N k − 1 ∈ ℤ
83 75 82 fprodzcl ⊢ φ → ∏ k = 1 log 2 N 2 N k − 1 ∈ ℤ
84 74 83 zmulcld ⊢ φ → N log 2 B ⁢ ∏ k = 1 log 2 N 2 N k − 1 ∈ ℤ
85 2 a1i ⊢ φ → A = N log 2 B ⁢ ∏ k = 1 log 2 N 2 N k − 1
86 85 eleq1d ⊢ φ → A ∈ ℤ ↔ N log 2 B ⁢ ∏ k = 1 log 2 N 2 N k − 1 ∈ ℤ
87 84 86 mpbird ⊢ φ → A ∈ ℤ
88 87 adantr ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → A ∈ ℤ
89 iddvds ⊢ odℤ ⁡ R ⁡ N ∈ ℤ → odℤ ⁡ R ⁡ N ∥ odℤ ⁡ R ⁡ N
90 35 89 syl ⊢ φ → odℤ ⁡ R ⁡ N ∥ odℤ ⁡ R ⁡ N
91 odzdvds ⊢ R ∈ ℕ ∧ N ∈ ℤ ∧ N gcd R = 1 ∧ odℤ ⁡ R ⁡ N ∈ ℕ 0 → R ∥ N odℤ ⁡ R ⁡ N − 1 ↔ odℤ ⁡ R ⁡ N ∥ odℤ ⁡ R ⁡ N
92 32 43 91 syl2anc ⊢ φ → R ∥ N odℤ ⁡ R ⁡ N − 1 ↔ odℤ ⁡ R ⁡ N ∥ odℤ ⁡ R ⁡ N
93 90 92 mpbird ⊢ φ → R ∥ N odℤ ⁡ R ⁡ N − 1
94 93 adantr ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → R ∥ N odℤ ⁡ R ⁡ N − 1
95 73 adantr ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → log 2 B ∈ ℕ 0
96 42 95 zexpcld ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → N log 2 B ∈ ℤ
97 fzfid ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → 1 … log 2 N 2 ∈ Fin
98 42 adantr ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 ∧ k ∈ 1 … log 2 N 2 → N ∈ ℤ
99 77 adantl ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 ∧ k ∈ 1 … log 2 N 2 → k ∈ ℕ
100 99 nnnn0d ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 ∧ k ∈ 1 … log 2 N 2 → k ∈ ℕ 0
101 98 100 zexpcld ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 ∧ k ∈ 1 … log 2 N 2 → N k ∈ ℤ
102 1zzd ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 ∧ k ∈ 1 … log 2 N 2 → 1 ∈ ℤ
103 101 102 zsubcld ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 ∧ k ∈ 1 … log 2 N 2 → N k − 1 ∈ ℤ
104 97 103 fprodzcl ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → ∏ k = 1 log 2 N 2 N k − 1 ∈ ℤ
105 fveq2 ⊢ z = odℤ ⁡ R ⁡ N → x ∈ 1 … log 2 N 2 ⟼ N x − 1 ⁡ z = x ∈ 1 … log 2 N 2 ⟼ N x − 1 ⁡ odℤ ⁡ R ⁡ N
106 105 breq1d ⊢ z = odℤ ⁡ R ⁡ N → x ∈ 1 … log 2 N 2 ⟼ N x − 1 ⁡ z ∥ ∏ k = 1 log 2 N 2 x ∈ 1 … log 2 N 2 ⟼ N x − 1 ⁡ k ↔ x ∈ 1 … log 2 N 2 ⟼ N x − 1 ⁡ odℤ ⁡ R ⁡ N ∥ ∏ k = 1 log 2 N 2 x ∈ 1 … log 2 N 2 ⟼ N x − 1 ⁡ k
107 ssidd ⊢ φ → 1 … log 2 N 2 ⊆ 1 … log 2 N 2
108 10 adantr ⊢ φ ∧ x ∈ 1 … log 2 N 2 → N ∈ ℤ
109 elfznn ⊢ x ∈ 1 … log 2 N 2 → x ∈ ℕ
110 109 adantl ⊢ φ ∧ x ∈ 1 … log 2 N 2 → x ∈ ℕ
111 110 nnnn0d ⊢ φ ∧ x ∈ 1 … log 2 N 2 → x ∈ ℕ 0
112 108 111 zexpcld ⊢ φ ∧ x ∈ 1 … log 2 N 2 → N x ∈ ℤ
113 1zzd ⊢ φ ∧ x ∈ 1 … log 2 N 2 → 1 ∈ ℤ
114 112 113 zsubcld ⊢ φ ∧ x ∈ 1 … log 2 N 2 → N x − 1 ∈ ℤ
115 114 fmpttd ⊢ φ → x ∈ 1 … log 2 N 2 ⟼ N x − 1 : 1 … log 2 N 2 ⟶ ℤ
116 75 107 115 fprodfvdvdsd ⊢ φ → ∀ z ∈ 1 … log 2 N 2 x ∈ 1 … log 2 N 2 ⟼ N x − 1 ⁡ z ∥ ∏ k = 1 log 2 N 2 x ∈ 1 … log 2 N 2 ⟼ N x − 1 ⁡ k
117 116 adantr ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → ∀ z ∈ 1 … log 2 N 2 x ∈ 1 … log 2 N 2 ⟼ N x − 1 ⁡ z ∥ ∏ k = 1 log 2 N 2 x ∈ 1 … log 2 N 2 ⟼ N x − 1 ⁡ k
118 25 adantr ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → log 2 N ∈ ℝ
119 118 resqcld ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → log 2 N 2 ∈ ℝ
120 119 flcld ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → log 2 N 2 ∈ ℤ
121 35 adantr ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → odℤ ⁡ R ⁡ N ∈ ℤ
122 34 nnge1d ⊢ φ → 1 ≤ odℤ ⁡ R ⁡ N
123 122 adantr ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → 1 ≤ odℤ ⁡ R ⁡ N
124 simpr ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → odℤ ⁡ R ⁡ N ≤ log 2 N 2
125 46 120 121 123 124 elfzd ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → odℤ ⁡ R ⁡ N ∈ 1 … log 2 N 2
126 106 117 125 rspcdva ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → x ∈ 1 … log 2 N 2 ⟼ N x − 1 ⁡ odℤ ⁡ R ⁡ N ∥ ∏ k = 1 log 2 N 2 x ∈ 1 … log 2 N 2 ⟼ N x − 1 ⁡ k
127 eqidd ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → x ∈ 1 … log 2 N 2 ⟼ N x − 1 = x ∈ 1 … log 2 N 2 ⟼ N x − 1
128 simpr ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 ∧ x = odℤ ⁡ R ⁡ N → x = odℤ ⁡ R ⁡ N
129 128 oveq2d ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 ∧ x = odℤ ⁡ R ⁡ N → N x = N odℤ ⁡ R ⁡ N
130 129 oveq1d ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 ∧ x = odℤ ⁡ R ⁡ N → N x − 1 = N odℤ ⁡ R ⁡ N − 1
131 127 130 125 47 fvmptd ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → x ∈ 1 … log 2 N 2 ⟼ N x − 1 ⁡ odℤ ⁡ R ⁡ N = N odℤ ⁡ R ⁡ N − 1
132 eqidd ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 ∧ k ∈ 1 … log 2 N 2 → x ∈ 1 … log 2 N 2 ⟼ N x − 1 = x ∈ 1 … log 2 N 2 ⟼ N x − 1
133 simpr ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 ∧ k ∈ 1 … log 2 N 2 ∧ x = k → x = k
134 133 oveq2d ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 ∧ k ∈ 1 … log 2 N 2 ∧ x = k → N x = N k
135 134 oveq1d ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 ∧ k ∈ 1 … log 2 N 2 ∧ x = k → N x − 1 = N k − 1
136 simpr ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 ∧ k ∈ 1 … log 2 N 2 → k ∈ 1 … log 2 N 2
137 132 135 136 103 fvmptd ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 ∧ k ∈ 1 … log 2 N 2 → x ∈ 1 … log 2 N 2 ⟼ N x − 1 ⁡ k = N k − 1
138 137 prodeq2dv ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → ∏ k = 1 log 2 N 2 x ∈ 1 … log 2 N 2 ⟼ N x − 1 ⁡ k = ∏ k = 1 log 2 N 2 N k − 1
139 131 138 breq12d ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → x ∈ 1 … log 2 N 2 ⟼ N x − 1 ⁡ odℤ ⁡ R ⁡ N ∥ ∏ k = 1 log 2 N 2 x ∈ 1 … log 2 N 2 ⟼ N x − 1 ⁡ k ↔ N odℤ ⁡ R ⁡ N − 1 ∥ ∏ k = 1 log 2 N 2 N k − 1
140 126 139 mpbid ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → N odℤ ⁡ R ⁡ N − 1 ∥ ∏ k = 1 log 2 N 2 N k − 1
141 47 96 104 140 dvdsmultr2d ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → N odℤ ⁡ R ⁡ N − 1 ∥ N log 2 B ⁢ ∏ k = 1 log 2 N 2 N k − 1
142 2 a1i ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → A = N log 2 B ⁢ ∏ k = 1 log 2 N 2 N k − 1
143 141 142 breqtrrd ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → N odℤ ⁡ R ⁡ N − 1 ∥ A
144 41 47 88 94 143 dvdstrd ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → R ∥ A
145 144 ex ⊢ φ → odℤ ⁡ R ⁡ N ≤ log 2 N 2 → R ∥ A
146 145 adantr ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → odℤ ⁡ R ⁡ N ≤ log 2 N 2 → R ∥ A
147 146 imp ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → R ∥ A
148 39 147 mpdan ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → R ∥ A
149 27 simprd ⊢ φ → ¬ R ∥ A
150 149 adantr ⊢ φ ∧ odℤ ⁡ R ⁡ N ≤ log 2 N 2 → ¬ R ∥ A
151 148 150 pm2.65da ⊢ φ → ¬ odℤ ⁡ R ⁡ N ≤ log 2 N 2
152 34 nnred ⊢ φ → odℤ ⁡ R ⁡ N ∈ ℝ
153 26 152 ltnled ⊢ φ → log 2 N 2 < odℤ ⁡ R ⁡ N ↔ ¬ odℤ ⁡ R ⁡ N ≤ log 2 N 2
154 151 153 mpbird ⊢ φ → log 2 N 2 < odℤ ⁡ R ⁡ N