Metamath Proof Explorer


Theorem aks4d1p6

Description: The maximal prime power exponent is smaller than the binary logarithm floor of B . (Contributed by metakunt, 30-Oct-2024)

Ref Expression
Hypotheses aks4d1p6.1 ⊢ φ → N ∈ ℤ ≥ 3
aks4d1p6.2 ⊢ A = N log 2 B ⁢ ∏ k = 1 log 2 N 2 N k − 1
aks4d1p6.3 ⊢ B = log 2 N 5
aks4d1p6.4 ⊢ R = inf r ∈ 1 … B | ¬ r ∥ A ℝ <
aks4d1p6.5 ⊢ φ → P ∈ ℙ
aks4d1p6.6 ⊢ φ → P ∥ R
aks4d1p6.7 ⊢ K = P pCnt R
Assertion aks4d1p6 ⊢ φ → K ≤ log 2 B

Proof

Step Hyp Ref Expression
1 aks4d1p6.1 ⊢ φ → N ∈ ℤ ≥ 3
2 aks4d1p6.2 ⊢ A = N log 2 B ⁢ ∏ k = 1 log 2 N 2 N k − 1
3 aks4d1p6.3 ⊢ B = log 2 N 5
4 aks4d1p6.4 ⊢ R = inf r ∈ 1 … B | ¬ r ∥ A ℝ <
5 aks4d1p6.5 ⊢ φ → P ∈ ℙ
6 aks4d1p6.6 ⊢ φ → P ∥ R
7 aks4d1p6.7 ⊢ K = P pCnt R
8 7 a1i ⊢ φ → K = P pCnt R
9 1 2 3 4 aks4d1p4 ⊢ φ → R ∈ 1 … B ∧ ¬ R ∥ A
10 9 simpld ⊢ φ → R ∈ 1 … B
11 elfznn ⊢ R ∈ 1 … B → R ∈ ℕ
12 10 11 syl ⊢ φ → R ∈ ℕ
13 5 12 pccld ⊢ φ → P pCnt R ∈ ℕ 0
14 8 13 eqeltrd ⊢ φ → K ∈ ℕ 0
15 14 nn0zd ⊢ φ → K ∈ ℤ
16 15 zred ⊢ φ → K ∈ ℝ
17 prmnn ⊢ P ∈ ℙ → P ∈ ℕ
18 5 17 syl ⊢ φ → P ∈ ℕ
19 18 nnred ⊢ φ → P ∈ ℝ
20 18 nngt0d ⊢ φ → 0 < P
21 3 a1i ⊢ φ → B = log 2 N 5
22 2re ⊢ 2 ∈ ℝ
23 22 a1i ⊢ φ → 2 ∈ ℝ
24 2pos ⊢ 0 < 2
25 24 a1i ⊢ φ → 0 < 2
26 eluzelz ⊢ N ∈ ℤ ≥ 3 → N ∈ ℤ
27 1 26 syl ⊢ φ → N ∈ ℤ
28 27 zred ⊢ φ → N ∈ ℝ
29 0red ⊢ φ → 0 ∈ ℝ
30 3re ⊢ 3 ∈ ℝ
31 30 a1i ⊢ φ → 3 ∈ ℝ
32 3pos ⊢ 0 < 3
33 32 a1i ⊢ φ → 0 < 3
34 eluzle ⊢ N ∈ ℤ ≥ 3 → 3 ≤ N
35 1 34 syl ⊢ φ → 3 ≤ N
36 29 31 28 33 35 ltletrd ⊢ φ → 0 < N
37 1red ⊢ φ → 1 ∈ ℝ
38 1lt2 ⊢ 1 < 2
39 38 a1i ⊢ φ → 1 < 2
40 37 39 ltned ⊢ φ → 1 ≠ 2
41 40 necomd ⊢ φ → 2 ≠ 1
42 23 25 28 36 41 relogbcld ⊢ φ → log 2 N ∈ ℝ
43 5nn0 ⊢ 5 ∈ ℕ 0
44 43 a1i ⊢ φ → 5 ∈ ℕ 0
45 42 44 reexpcld ⊢ φ → log 2 N 5 ∈ ℝ
46 ceilcl ⊢ log 2 N 5 ∈ ℝ → log 2 N 5 ∈ ℤ
47 45 46 syl ⊢ φ → log 2 N 5 ∈ ℤ
48 21 47 eqeltrd ⊢ φ → B ∈ ℤ
49 48 zred ⊢ φ → B ∈ ℝ
50 9re ⊢ 9 ∈ ℝ
51 50 a1i ⊢ φ → 9 ∈ ℝ
52 9pos ⊢ 0 < 9
53 52 a1i ⊢ φ → 0 < 9
54 28 35 3lexlogpow5ineq4 ⊢ φ → 9 < log 2 N 5
55 29 51 45 53 54 lttrd ⊢ φ → 0 < log 2 N 5
56 ceilge ⊢ log 2 N 5 ∈ ℝ → log 2 N 5 ≤ log 2 N 5
57 45 56 syl ⊢ φ → log 2 N 5 ≤ log 2 N 5
58 57 21 breqtrrd ⊢ φ → log 2 N 5 ≤ B
59 29 45 49 55 58 ltletrd ⊢ φ → 0 < B
60 48 59 jca ⊢ φ → B ∈ ℤ ∧ 0 < B
61 elnnz ⊢ B ∈ ℕ ↔ B ∈ ℤ ∧ 0 < B
62 60 61 sylibr ⊢ φ → B ∈ ℕ
63 62 nnred ⊢ φ → B ∈ ℝ
64 62 nngt0d ⊢ φ → 0 < B
65 2z ⊢ 2 ∈ ℤ
66 65 a1i ⊢ φ → 2 ∈ ℤ
67 66 zred ⊢ φ → 2 ∈ ℝ
68 prmuz2 ⊢ P ∈ ℙ → P ∈ ℤ ≥ 2
69 5 68 syl ⊢ φ → P ∈ ℤ ≥ 2
70 eluzle ⊢ P ∈ ℤ ≥ 2 → 2 ≤ P
71 69 70 syl ⊢ φ → 2 ≤ P
72 37 67 19 39 71 ltletrd ⊢ φ → 1 < P
73 37 72 ltned ⊢ φ → 1 ≠ P
74 73 necomd ⊢ φ → P ≠ 1
75 19 20 63 64 74 relogbcld ⊢ φ → log P B ∈ ℝ
76 67 25 63 64 41 relogbcld ⊢ φ → log 2 B ∈ ℝ
77 18 nnrpd ⊢ φ → P ∈ ℝ +
78 77 rpcnd ⊢ φ → P ∈ ℂ
79 77 rpne0d ⊢ φ → P ≠ 0
80 78 79 15 cxpexpzd ⊢ φ → P K = P K
81 19 14 reexpcld ⊢ φ → P K ∈ ℝ
82 12 nnred ⊢ φ → R ∈ ℝ
83 8 oveq2d ⊢ φ → P K = P P pCnt R
84 pcdvds ⊢ P ∈ ℙ ∧ R ∈ ℕ → P P pCnt R ∥ R
85 5 12 84 syl2anc ⊢ φ → P P pCnt R ∥ R
86 18 nnzd ⊢ φ → P ∈ ℤ
87 zexpcl ⊢ P ∈ ℤ ∧ P pCnt R ∈ ℕ 0 → P P pCnt R ∈ ℤ
88 86 13 87 syl2anc ⊢ φ → P P pCnt R ∈ ℤ
89 dvdsle ⊢ P P pCnt R ∈ ℤ ∧ R ∈ ℕ → P P pCnt R ∥ R → P P pCnt R ≤ R
90 88 12 89 syl2anc ⊢ φ → P P pCnt R ∥ R → P P pCnt R ≤ R
91 85 90 mpd ⊢ φ → P P pCnt R ≤ R
92 83 91 eqbrtrd ⊢ φ → P K ≤ R
93 elfzle2 ⊢ R ∈ 1 … B → R ≤ B
94 10 93 syl ⊢ φ → R ≤ B
95 81 82 63 92 94 letrd ⊢ φ → P K ≤ B
96 79 74 nelprd ⊢ φ → ¬ P ∈ 0 1
97 78 96 eldifd ⊢ φ → P ∈ ℂ ∖ 0 1
98 63 recnd ⊢ φ → B ∈ ℂ
99 29 64 ltned ⊢ φ → 0 ≠ B
100 99 necomd ⊢ φ → B ≠ 0
101 100 neneqd ⊢ φ → ¬ B = 0
102 elsng ⊢ B ∈ ℕ → B ∈ 0 ↔ B = 0
103 62 102 syl ⊢ φ → B ∈ 0 ↔ B = 0
104 101 103 mtbird ⊢ φ → ¬ B ∈ 0
105 98 104 eldifd ⊢ φ → B ∈ ℂ ∖ 0
106 cxplogb ⊢ P ∈ ℂ ∖ 0 1 ∧ B ∈ ℂ ∖ 0 → P log P B = B
107 97 105 106 syl2anc ⊢ φ → P log P B = B
108 95 107 breqtrrd ⊢ φ → P K ≤ P log P B
109 80 108 eqbrtrd ⊢ φ → P K ≤ P log P B
110 77 rpred ⊢ φ → P ∈ ℝ
111 37 67 110 39 71 ltletrd ⊢ φ → 1 < P
112 110 111 16 75 cxpled ⊢ φ → K ≤ log P B ↔ P K ≤ P log P B
113 109 112 mpbird ⊢ φ → K ≤ log P B
114 23 39 rplogcld ⊢ φ → log ⁡ 2 ∈ ℝ +
115 110 111 rplogcld ⊢ φ → log ⁡ P ∈ ℝ +
116 62 nnrpd ⊢ φ → B ∈ ℝ +
117 116 relogcld ⊢ φ → log ⁡ B ∈ ℝ
118 62 nnge1d ⊢ φ → 1 ≤ B
119 63 118 logge0d ⊢ φ → 0 ≤ log ⁡ B
120 2rp ⊢ 2 ∈ ℝ +
121 120 a1i ⊢ φ → 2 ∈ ℝ +
122 121 77 logled ⊢ φ → 2 ≤ P ↔ log ⁡ 2 ≤ log ⁡ P
123 71 122 mpbid ⊢ φ → log ⁡ 2 ≤ log ⁡ P
124 114 115 117 119 123 lediv2ad ⊢ φ → log ⁡ B log ⁡ P ≤ log ⁡ B log ⁡ 2
125 relogbval ⊢ P ∈ ℤ ≥ 2 ∧ B ∈ ℝ + → log P B = log ⁡ B log ⁡ P
126 69 116 125 syl2anc ⊢ φ → log P B = log ⁡ B log ⁡ P
127 126 eqcomd ⊢ φ → log ⁡ B log ⁡ P = log P B
128 66 uzidd ⊢ φ → 2 ∈ ℤ ≥ 2
129 relogbval ⊢ 2 ∈ ℤ ≥ 2 ∧ B ∈ ℝ + → log 2 B = log ⁡ B log ⁡ 2
130 128 116 129 syl2anc ⊢ φ → log 2 B = log ⁡ B log ⁡ 2
131 130 eqcomd ⊢ φ → log ⁡ B log ⁡ 2 = log 2 B
132 124 127 131 3brtr3d ⊢ φ → log P B ≤ log 2 B
133 16 75 76 113 132 letrd ⊢ φ → K ≤ log 2 B
134 flge ⊢ log 2 B ∈ ℝ ∧ K ∈ ℤ → K ≤ log 2 B ↔ K ≤ log 2 B
135 76 15 134 syl2anc ⊢ φ → K ≤ log 2 B ↔ K ≤ log 2 B
136 133 135 mpbid ⊢ φ → K ≤ log 2 B