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