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