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