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 gcdcom z z F N z gcd z F N = z F N gcd z
98 94 96 97 syl2anc φ F N z F N + 2 ..^ F N + N + 1 z gcd z F N = z F N gcd z
99 93 98 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
100 99 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
101 elfzo2 z F N + 2 ..^ F N + N + 1 z F N + 2 F N + N + 1 z < F N + N + 1
102 eluz2 z F N + 2 F N + 2 z F N + 2 z
103 nnre F N F N
104 103 ad2antll z φ F N F N
105 2rp 2 +
106 105 a1i z φ F N 2 +
107 104 106 ltaddrpd z φ F N F N < F N + 2
108 2re 2
109 108 a1i F N 2
110 103 109 readdcld F N F N + 2
111 110 ad2antll z φ F N F N + 2
112 zre z z
113 112 adantr z φ F N z
114 ltletr F N F N + 2 z F N < F N + 2 F N + 2 z F N < z
115 104 111 113 114 syl3anc z φ F N F N < F N + 2 F N + 2 z F N < z
116 107 115 mpand z φ F N F N + 2 z F N < z
117 116 impancom z F N + 2 z φ F N F N < z
118 117 3adant1 F N + 2 z F N + 2 z φ F N F N < z
119 102 118 sylbi z F N + 2 φ F N F N < z
120 119 3ad2ant1 z F N + 2 F N + N + 1 z < F N + N + 1 φ F N F N < z
121 101 120 sylbi z F N + 2 ..^ F N + N + 1 φ F N F N < z
122 121 impcom φ F N z F N + 2 ..^ F N + N + 1 F N < z
123 103 adantl φ F N F N
124 89 zred z F N + 2 ..^ F N + N + 1 z
125 posdif F N z F N < z 0 < z F N
126 123 124 125 syl2an φ F N z F N + 2 ..^ F N + N + 1 F N < z 0 < z F N
127 122 126 mpbid φ F N z F N + 2 ..^ F N + N + 1 0 < z F N
128 elnnz z F N z F N 0 < z F N
129 96 127 128 sylanbrc φ F N z F N + 2 ..^ F N + N + 1 z F N
130 108 a1i z φ F N 2
131 nngt0 F N 0 < F N
132 131 ad2antll z φ F N 0 < F N
133 2pos 0 < 2
134 133 a1i z φ F N 0 < 2
135 104 130 132 134 addgt0d z φ F N 0 < F N + 2
136 0red z φ F N 0
137 ltletr 0 F N + 2 z 0 < F N + 2 F N + 2 z 0 < z
138 136 111 113 137 syl3anc z φ F N 0 < F N + 2 F N + 2 z 0 < z
139 135 138 mpand z φ F N F N + 2 z 0 < z
140 139 impancom z F N + 2 z φ F N 0 < z
141 140 3adant1 F N + 2 z F N + 2 z φ F N 0 < z
142 102 141 sylbi z F N + 2 φ F N 0 < z
143 142 3ad2ant1 z F N + 2 F N + N + 1 z < F N + N + 1 φ F N 0 < z
144 101 143 sylbi z F N + 2 ..^ F N + N + 1 φ F N 0 < z
145 144 impcom φ F N z F N + 2 ..^ F N + N + 1 0 < z
146 elnnz z z 0 < z
147 94 145 146 sylanbrc φ F N z F N + 2 ..^ F N + N + 1 z
148 131 adantl φ F N 0 < F N
149 148 adantr φ F N z F N + 2 ..^ F N + N + 1 0 < F N
150 ltsubpos F N z 0 < F N z F N < z
151 123 124 150 syl2an φ F N z F N + 2 ..^ F N + N + 1 0 < F N z F N < z
152 149 151 mpbid φ F N z F N + 2 ..^ F N + N + 1 z F N < z
153 ncoprmlnprm z F N z z F N < z 1 < z F N gcd z z
154 129 147 152 153 syl3anc φ F N z F N + 2 ..^ F N + N + 1 1 < z F N gcd z z
155 100 154 sylbid φ F N z F N + 2 ..^ F N + N + 1 1 < F N + z - F N gcd z F N z
156 87 155 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
157 156 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
158 157 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
159 76 158 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
160 51 159 sylbid φ F N i 2 N 1 < F N + i gcd i z F N + 2 ..^ F N + N + 1 z
161 160 ex φ F N i 2 N 1 < F N + i gcd i z F N + 2 ..^ F N + N + 1 z
162 3 161 mpid φ F N z F N + 2 ..^ F N + N + 1 z
163 162 imp φ F N z F N + 2 ..^ F N + N + 1 z
164 163 ad2antrr φ F N p q z F N + 2 ..^ F N + N + 1 z
165 164 impcom z F N + 2 ..^ F N + N + 1 φ F N p q z
166 165 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
167 166 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
168 neleq1 s = z s z
169 168 rspcv z F N + N + 1 ..^ q s F N + N + 1 ..^ q s z
170 169 adantld z F N + N + 1 ..^ q F N + N < q s F N + N + 1 ..^ q s z
171 170 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
172 171 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
173 167 172 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
174 173 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
175 48 174 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
176 41 175 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
177 176 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
178 36 177 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
179 178 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
180 179 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
181 180 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
182 26 27 181 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
183 182 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
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 q p < F N + 2 F N + N < q z p + 1 ..^ q z
185 184 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
186 25 185 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
187 19 24 186 mp2and φ F N p q p < F N + 2 F N + N < q z p + 1 ..^ q z
188 6 187 mpdan φ p q p < F N + 2 F N + N < q z p + 1 ..^ q z