Metamath Proof Explorer


Theorem prmgaplem7

Description: Lemma for prmgap . (Contributed by AV, 12-Aug-2020) (Proof shortened by AV, 10-Jul-2022)

Ref Expression
Hypotheses prmgaplem7.n φ N
prmgaplem7.f φ F
prmgaplem7.i φ i 2 N 1 < F N + i gcd i
Assertion prmgaplem7 φ p q p < F N + 2 F N + N < q z p + 1 ..^ q z

Proof

Step Hyp Ref Expression
1 prmgaplem7.n φ N
2 prmgaplem7.f φ F
3 prmgaplem7.i φ i 2 N 1 < F N + i gcd i
4 elmapi F F :
5 2 4 syl φ F :
6 5 1 ffvelrnd φ F N
7 simpr φ F N F N
8 elnnuz F N F N 1
9 7 8 sylib φ F N F N 1
10 1z 1
11 2z 2
12 10 11 eluzaddi F N 1 F N + 2 1 + 2
13 9 12 syl φ F N F N + 2 1 + 2
14 1p2e3 1 + 2 = 3
15 14 eqcomi 3 = 1 + 2
16 15 fveq2i 3 = 1 + 2
17 13 16 eleqtrrdi φ F N F N + 2 3
18 prmgaplem5 F N + 2 3 p p < F N + 2 r p + 1 ..^ F N + 2 r
19 17 18 syl φ F N p p < F N + 2 r p + 1 ..^ F N + 2 r
20 1 anim1ci φ F N F N N
21 nnaddcl F N N F N + N
22 20 21 syl φ F N F N + N
23 prmgaplem6 F N + N q F N + N < q s F N + N + 1 ..^ q s
24 22 23 syl φ F N q F N + N < q s F N + N + 1 ..^ q s
25 reeanv p q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s p p < F N + 2 r p + 1 ..^ F N + 2 r q F N + N < q s F N + N + 1 ..^ q s
26 simprll φ F N p q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s p < F N + 2
27 simprrl φ F N p q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s F N + N < q
28 nnz F N F N
29 28 adantl φ F N F N
30 11 a1i φ F N 2
31 29 30 zaddcld φ F N F N + 2
32 31 ad2antrr φ F N p q F N + 2
33 32 anim1ci φ F N p q z p + 1 ..^ q z p + 1 ..^ q F N + 2
34 fzospliti z p + 1 ..^ q F N + 2 z p + 1 ..^ F N + 2 z F N + 2 ..^ q
35 33 34 syl φ F N p q z p + 1 ..^ q z p + 1 ..^ F N + 2 z F N + 2 ..^ q
36 35 ex φ F N p q z p + 1 ..^ q z p + 1 ..^ F N + 2 z F N + 2 ..^ q
37 neleq1 r = z r z
38 37 rspcv z p + 1 ..^ F N + 2 r p + 1 ..^ F N + 2 r z
39 38 adantld z p + 1 ..^ F N + 2 p < F N + 2 r p + 1 ..^ F N + 2 r z
40 39 adantrd z p + 1 ..^ F N + 2 p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s z
41 40 a1d z p + 1 ..^ F N + 2 φ F N p q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s z
42 22 nnzd φ F N F N + N
43 42 peano2zd φ F N F N + N + 1
44 43 ad2antrr φ F N p q F N + N + 1
45 44 anim1ci φ F N p q z F N + 2 ..^ q z F N + 2 ..^ q F N + N + 1
46 fzospliti z F N + 2 ..^ q F N + N + 1 z F N + 2 ..^ F N + N + 1 z F N + N + 1 ..^ q
47 45 46 syl φ F N p q z F N + 2 ..^ q z F N + 2 ..^ F N + N + 1 z F N + N + 1 ..^ q
48 47 ex φ F N p q z F N + 2 ..^ q z F N + 2 ..^ F N + N + 1 z F N + N + 1 ..^ q
49 1 nnzd φ N
50 fzshftral 2 N F N i 2 N 1 < F N + i gcd i j 2 + F N N + F N [˙j F N / i]˙ 1 < F N + i gcd i
51 11 49 28 50 mp3an3an φ F N i 2 N 1 < F N + i gcd i j 2 + F N N + F N [˙j F N / i]˙ 1 < F N + i gcd i
52 2cnd φ 2
53 nncn F N F N
54 addcom 2 F N 2 + F N = F N + 2
55 52 53 54 syl2an φ F N 2 + F N = F N + 2
56 1 nncnd φ N
57 addcom N F N N + F N = F N + N
58 56 53 57 syl2an φ F N N + F N = F N + N
59 55 58 oveq12d φ F N 2 + F N N + F N = F N + 2 F N + N
60 ovex j F N V
61 sbcbr2g j F N V [˙j F N / i]˙ 1 < F N + i gcd i 1 < j F N / i F N + i gcd i
62 60 61 mp1i φ F N [˙j F N / i]˙ 1 < F N + i gcd i 1 < j F N / i F N + i gcd i
63 csbov12g j F N V j F N / i F N + i gcd i = j F N / i F N + i gcd j F N / i i
64 60 63 mp1i φ F N j F N / i F N + i gcd i = j F N / i F N + i gcd j F N / i i
65 csbov2g j F N V j F N / i F N + i = F N + j F N / i i
66 60 65 mp1i φ F N j F N / i F N + i = F N + j F N / i i
67 csbvarg j F N V j F N / i i = j F N
68 67 oveq2d j F N V F N + j F N / i i = F N + j - F N
69 60 68 mp1i φ F N F N + j F N / i i = F N + j - F N
70 66 69 eqtrd φ F N j F N / i F N + i = F N + j - F N
71 60 67 mp1i φ F N j F N / i i = j F N
72 70 71 oveq12d φ F N j F N / i F N + i gcd j F N / i i = F N + j - F N gcd j F N
73 64 72 eqtrd φ F N j F N / i F N + i gcd i = F N + j - F N gcd j F N
74 73 breq2d φ F N 1 < j F N / i F N + i gcd i 1 < F N + j - F N gcd j F N
75 62 74 bitrd φ F N [˙j F N / i]˙ 1 < F N + i gcd i 1 < F N + j - F N gcd j F N
76 59 75 raleqbidv φ F N j 2 + F N N + F N [˙j F N / i]˙ 1 < F N + i gcd i j F N + 2 F N + N 1 < F N + j - F N gcd j F N
77 fzval3 F N + N F N + 2 F N + N = F N + 2 ..^ F N + N + 1
78 77 eqcomd F N + N F N + 2 ..^ F N + N + 1 = F N + 2 F N + N
79 42 78 syl φ F N F N + 2 ..^ F N + N + 1 = F N + 2 F N + N
80 79 eleq2d φ F N z F N + 2 ..^ F N + N + 1 z F N + 2 F N + N
81 80 biimpa φ F N z F N + 2 ..^ F N + N + 1 z F N + 2 F N + N
82 oveq1 j = z j F N = z F N
83 82 oveq2d j = z F N + j - F N = F N + z - F N
84 83 82 oveq12d j = z F N + j - F N gcd j F N = F N + z - F N gcd z F N
85 84 breq2d j = z 1 < F N + j - F N gcd j F N 1 < F N + z - F N gcd z F N
86 85 rspcv z F N + 2 F N + N j F N + 2 F N + N 1 < F N + j - F N gcd j F N 1 < F N + z - F N gcd z F N
87 81 86 syl φ F N z F N + 2 ..^ F N + N + 1 j F N + 2 F N + N 1 < F N + j - F N gcd j F N 1 < F N + z - F N gcd z F N
88 53 adantl φ F N F N
89 elfzoelz z F N + 2 ..^ F N + N + 1 z
90 89 zcnd z F N + 2 ..^ F N + N + 1 z
91 pncan3 F N z F N + z - F N = z
92 88 90 91 syl2an φ F N z F N + 2 ..^ F N + N + 1 F N + z - F N = z
93 92 oveq1d φ F N z F N + 2 ..^ F N + N + 1 F N + z - F N gcd z F N = z gcd z F N
94 89 adantl φ F N z F N + 2 ..^ F N + N + 1 z
95 zsubcl z F N z F N
96 89 29 95 syl2anr φ F N z F N + 2 ..^ F N + N + 1 z F N
97 94 96 gcdcomd φ F N z F N + 2 ..^ F N + N + 1 z gcd z F N = z F N gcd z
98 93 97 eqtrd φ F N z F N + 2 ..^ F N + N + 1 F N + z - F N gcd z F N = z F N gcd z
99 98 breq2d φ F N z F N + 2 ..^ F N + N + 1 1 < F N + z - F N gcd z F N 1 < z F N gcd z
100 elfzo2 z F N + 2 ..^ F N + N + 1 z F N + 2 F N + N + 1 z < F N + N + 1
101 eluz2 z F N + 2 F N + 2 z F N + 2 z
102 nnre F N F N
103 102 ad2antll z φ F N F N
104 2rp 2 +
105 104 a1i z φ F N 2 +
106 103 105 ltaddrpd z φ F N F N < F N + 2
107 2re 2
108 107 a1i F N 2
109 102 108 readdcld F N F N + 2
110 109 ad2antll z φ F N F N + 2
111 zre z z
112 111 adantr z φ F N z
113 ltletr F N F N + 2 z F N < F N + 2 F N + 2 z F N < z
114 103 110 112 113 syl3anc z φ F N F N < F N + 2 F N + 2 z F N < z
115 106 114 mpand z φ F N F N + 2 z F N < z
116 115 impancom z F N + 2 z φ F N F N < z
117 116 3adant1 F N + 2 z F N + 2 z φ F N F N < z
118 101 117 sylbi z F N + 2 φ F N F N < z
119 118 3ad2ant1 z F N + 2 F N + N + 1 z < F N + N + 1 φ F N F N < z
120 100 119 sylbi z F N + 2 ..^ F N + N + 1 φ F N F N < z
121 120 impcom φ F N z F N + 2 ..^ F N + N + 1 F N < z
122 102 adantl φ F N F N
123 89 zred z F N + 2 ..^ F N + N + 1 z
124 posdif F N z F N < z 0 < z F N
125 122 123 124 syl2an φ F N z F N + 2 ..^ F N + N + 1 F N < z 0 < z F N
126 121 125 mpbid φ F N z F N + 2 ..^ F N + N + 1 0 < z F N
127 elnnz z F N z F N 0 < z F N
128 96 126 127 sylanbrc φ F N z F N + 2 ..^ F N + N + 1 z F N
129 107 a1i z φ F N 2
130 nngt0 F N 0 < F N
131 130 ad2antll z φ F N 0 < F N
132 2pos 0 < 2
133 132 a1i z φ F N 0 < 2
134 103 129 131 133 addgt0d z φ F N 0 < F N + 2
135 0red z φ F N 0
136 ltletr 0 F N + 2 z 0 < F N + 2 F N + 2 z 0 < z
137 135 110 112 136 syl3anc z φ F N 0 < F N + 2 F N + 2 z 0 < z
138 134 137 mpand z φ F N F N + 2 z 0 < z
139 138 impancom z F N + 2 z φ F N 0 < z
140 139 3adant1 F N + 2 z F N + 2 z φ F N 0 < z
141 101 140 sylbi z F N + 2 φ F N 0 < z
142 141 3ad2ant1 z F N + 2 F N + N + 1 z < F N + N + 1 φ F N 0 < z
143 100 142 sylbi z F N + 2 ..^ F N + N + 1 φ F N 0 < z
144 143 impcom φ F N z F N + 2 ..^ F N + N + 1 0 < z
145 elnnz z z 0 < z
146 94 144 145 sylanbrc φ F N z F N + 2 ..^ F N + N + 1 z
147 130 adantl φ F N 0 < F N
148 147 adantr φ F N z F N + 2 ..^ F N + N + 1 0 < F N
149 ltsubpos F N z 0 < F N z F N < z
150 122 123 149 syl2an φ F N z F N + 2 ..^ F N + N + 1 0 < F N z F N < z
151 148 150 mpbid φ F N z F N + 2 ..^ F N + N + 1 z F N < z
152 ncoprmlnprm z F N z z F N < z 1 < z F N gcd z z
153 128 146 151 152 syl3anc φ F N z F N + 2 ..^ F N + N + 1 1 < z F N gcd z z
154 99 153 sylbid φ F N z F N + 2 ..^ F N + N + 1 1 < F N + z - F N gcd z F N z
155 87 154 syld φ F N z F N + 2 ..^ F N + N + 1 j F N + 2 F N + N 1 < F N + j - F N gcd j F N z
156 155 ex φ F N z F N + 2 ..^ F N + N + 1 j F N + 2 F N + N 1 < F N + j - F N gcd j F N z
157 156 com23 φ F N j F N + 2 F N + N 1 < F N + j - F N gcd j F N z F N + 2 ..^ F N + N + 1 z
158 76 157 sylbid φ F N j 2 + F N N + F N [˙j F N / i]˙ 1 < F N + i gcd i z F N + 2 ..^ F N + N + 1 z
159 51 158 sylbid φ F N i 2 N 1 < F N + i gcd i z F N + 2 ..^ F N + N + 1 z
160 159 ex φ F N i 2 N 1 < F N + i gcd i z F N + 2 ..^ F N + N + 1 z
161 3 160 mpid φ F N z F N + 2 ..^ F N + N + 1 z
162 161 imp φ F N z F N + 2 ..^ F N + N + 1 z
163 162 ad2antrr φ F N p q z F N + 2 ..^ F N + N + 1 z
164 163 impcom z F N + 2 ..^ F N + N + 1 φ F N p q z
165 164 a1d z F N + 2 ..^ F N + N + 1 φ F N p q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s z
166 165 ex z F N + 2 ..^ F N + N + 1 φ F N p q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s z
167 neleq1 s = z s z
168 167 rspcv z F N + N + 1 ..^ q s F N + N + 1 ..^ q s z
169 168 adantld z F N + N + 1 ..^ q F N + N < q s F N + N + 1 ..^ q s z
170 169 adantld z F N + N + 1 ..^ q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s z
171 170 a1d z F N + N + 1 ..^ q φ F N p q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s z
172 166 171 jaoi z F N + 2 ..^ F N + N + 1 z F N + N + 1 ..^ q φ F N p q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s z
173 172 com12 φ F N p q z F N + 2 ..^ F N + N + 1 z F N + N + 1 ..^ q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s z
174 48 173 syldc z F N + 2 ..^ q φ F N p q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s z
175 41 174 jaoi z p + 1 ..^ F N + 2 z F N + 2 ..^ q φ F N p q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s z
176 175 com12 φ F N p q z p + 1 ..^ F N + 2 z F N + 2 ..^ q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s z
177 36 176 syld φ F N p q z p + 1 ..^ q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s z
178 177 com23 φ F N p q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s z p + 1 ..^ q z
179 178 imp31 φ F N p q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s z p + 1 ..^ q z
180 179 ralrimiva φ F N p q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s z p + 1 ..^ q z
181 26 27 180 3jca φ F N p q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s p < F N + 2 F N + N < q z p + 1 ..^ q z
182 181 ex φ F N p q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s p < F N + 2 F N + N < q z p + 1 ..^ q z
183 182 reximdva φ F N p q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s q p < F N + 2 F N + N < q z p + 1 ..^ q z
184 183 reximdva φ F N p q p < F N + 2 r p + 1 ..^ F N + 2 r F N + N < q s F N + N + 1 ..^ q s p q p < F N + 2 F N + N < q z p + 1 ..^ q z
185 25 184 syl5bir φ F N p p < F N + 2 r p + 1 ..^ F N + 2 r q F N + N < q s F N + N + 1 ..^ q s p q p < F N + 2 F N + N < q z p + 1 ..^ q z
186 19 24 185 mp2and φ F N p q p < F N + 2 F N + N < q z p + 1 ..^ q z
187 6 186 mpdan φ p q p < F N + 2 F N + N < q z p + 1 ..^ q z