Metamath Proof Explorer


Theorem eulerthlem2

Description: Lemma for eulerth . (Contributed by Mario Carneiro, 28-Feb-2014)

Ref Expression
Hypotheses eulerth.1 φNAAgcdN=1
eulerth.2 S=y0..^N|ygcdN=1
eulerth.3 T=1ϕN
eulerth.4 φF:T1-1 ontoS
eulerth.5 G=xTAFxmodN
Assertion eulerthlem2 φAϕNmodN=1modN

Proof

Step Hyp Ref Expression
1 eulerth.1 φNAAgcdN=1
2 eulerth.2 S=y0..^N|ygcdN=1
3 eulerth.3 T=1ϕN
4 eulerth.4 φF:T1-1 ontoS
5 eulerth.5 G=xTAFxmodN
6 1 simp1d φN
7 6 phicld φϕN
8 7 nnred φϕN
9 8 leidd φϕNϕN
10 7 adantr φϕNϕNϕN
11 breq1 x=1xϕN1ϕN
12 11 anbi2d x=1φxϕNφ1ϕN
13 oveq2 x=1Ax=A1
14 fveq2 x=1seq1×Fx=seq1×F1
15 13 14 oveq12d x=1Axseq1×Fx=A1seq1×F1
16 15 oveq1d x=1Axseq1×FxmodN=A1seq1×F1modN
17 fveq2 x=1seq1×Gx=seq1×G1
18 17 oveq1d x=1seq1×GxmodN=seq1×G1modN
19 16 18 eqeq12d x=1Axseq1×FxmodN=seq1×GxmodNA1seq1×F1modN=seq1×G1modN
20 14 oveq2d x=1Ngcdseq1×Fx=Ngcdseq1×F1
21 20 eqeq1d x=1Ngcdseq1×Fx=1Ngcdseq1×F1=1
22 19 21 anbi12d x=1Axseq1×FxmodN=seq1×GxmodNNgcdseq1×Fx=1A1seq1×F1modN=seq1×G1modNNgcdseq1×F1=1
23 12 22 imbi12d x=1φxϕNAxseq1×FxmodN=seq1×GxmodNNgcdseq1×Fx=1φ1ϕNA1seq1×F1modN=seq1×G1modNNgcdseq1×F1=1
24 breq1 x=zxϕNzϕN
25 24 anbi2d x=zφxϕNφzϕN
26 oveq2 x=zAx=Az
27 fveq2 x=zseq1×Fx=seq1×Fz
28 26 27 oveq12d x=zAxseq1×Fx=Azseq1×Fz
29 28 oveq1d x=zAxseq1×FxmodN=Azseq1×FzmodN
30 fveq2 x=zseq1×Gx=seq1×Gz
31 30 oveq1d x=zseq1×GxmodN=seq1×GzmodN
32 29 31 eqeq12d x=zAxseq1×FxmodN=seq1×GxmodNAzseq1×FzmodN=seq1×GzmodN
33 27 oveq2d x=zNgcdseq1×Fx=Ngcdseq1×Fz
34 33 eqeq1d x=zNgcdseq1×Fx=1Ngcdseq1×Fz=1
35 32 34 anbi12d x=zAxseq1×FxmodN=seq1×GxmodNNgcdseq1×Fx=1Azseq1×FzmodN=seq1×GzmodNNgcdseq1×Fz=1
36 25 35 imbi12d x=zφxϕNAxseq1×FxmodN=seq1×GxmodNNgcdseq1×Fx=1φzϕNAzseq1×FzmodN=seq1×GzmodNNgcdseq1×Fz=1
37 breq1 x=z+1xϕNz+1ϕN
38 37 anbi2d x=z+1φxϕNφz+1ϕN
39 oveq2 x=z+1Ax=Az+1
40 fveq2 x=z+1seq1×Fx=seq1×Fz+1
41 39 40 oveq12d x=z+1Axseq1×Fx=Az+1seq1×Fz+1
42 41 oveq1d x=z+1Axseq1×FxmodN=Az+1seq1×Fz+1modN
43 fveq2 x=z+1seq1×Gx=seq1×Gz+1
44 43 oveq1d x=z+1seq1×GxmodN=seq1×Gz+1modN
45 42 44 eqeq12d x=z+1Axseq1×FxmodN=seq1×GxmodNAz+1seq1×Fz+1modN=seq1×Gz+1modN
46 40 oveq2d x=z+1Ngcdseq1×Fx=Ngcdseq1×Fz+1
47 46 eqeq1d x=z+1Ngcdseq1×Fx=1Ngcdseq1×Fz+1=1
48 45 47 anbi12d x=z+1Axseq1×FxmodN=seq1×GxmodNNgcdseq1×Fx=1Az+1seq1×Fz+1modN=seq1×Gz+1modNNgcdseq1×Fz+1=1
49 38 48 imbi12d x=z+1φxϕNAxseq1×FxmodN=seq1×GxmodNNgcdseq1×Fx=1φz+1ϕNAz+1seq1×Fz+1modN=seq1×Gz+1modNNgcdseq1×Fz+1=1
50 breq1 x=ϕNxϕNϕNϕN
51 50 anbi2d x=ϕNφxϕNφϕNϕN
52 oveq2 x=ϕNAx=AϕN
53 fveq2 x=ϕNseq1×Fx=seq1×FϕN
54 52 53 oveq12d x=ϕNAxseq1×Fx=AϕNseq1×FϕN
55 54 oveq1d x=ϕNAxseq1×FxmodN=AϕNseq1×FϕNmodN
56 fveq2 x=ϕNseq1×Gx=seq1×GϕN
57 56 oveq1d x=ϕNseq1×GxmodN=seq1×GϕNmodN
58 55 57 eqeq12d x=ϕNAxseq1×FxmodN=seq1×GxmodNAϕNseq1×FϕNmodN=seq1×GϕNmodN
59 53 oveq2d x=ϕNNgcdseq1×Fx=Ngcdseq1×FϕN
60 59 eqeq1d x=ϕNNgcdseq1×Fx=1Ngcdseq1×FϕN=1
61 58 60 anbi12d x=ϕNAxseq1×FxmodN=seq1×GxmodNNgcdseq1×Fx=1AϕNseq1×FϕNmodN=seq1×GϕNmodNNgcdseq1×FϕN=1
62 51 61 imbi12d x=ϕNφxϕNAxseq1×FxmodN=seq1×GxmodNNgcdseq1×Fx=1φϕNϕNAϕNseq1×FϕNmodN=seq1×GϕNmodNNgcdseq1×FϕN=1
63 1 simp2d φA
64 f1of F:T1-1 ontoSF:TS
65 4 64 syl φF:TS
66 nnuz =1
67 7 66 eleqtrdi φϕN1
68 eluzfz1 ϕN111ϕN
69 67 68 syl φ11ϕN
70 69 3 eleqtrrdi φ1T
71 65 70 ffvelcdmd φF1S
72 oveq1 y=F1ygcdN=F1gcdN
73 72 eqeq1d y=F1ygcdN=1F1gcdN=1
74 73 2 elrab2 F1SF10..^NF1gcdN=1
75 71 74 sylib φF10..^NF1gcdN=1
76 75 simpld φF10..^N
77 elfzoelz F10..^NF1
78 76 77 syl φF1
79 63 78 zmulcld φAF1
80 79 zred φAF1
81 6 nnrpd φN+
82 modabs2 AF1N+AF1modNmodN=AF1modN
83 80 81 82 syl2anc φAF1modNmodN=AF1modN
84 1z 1
85 fveq2 x=1Fx=F1
86 85 oveq2d x=1AFx=AF1
87 86 oveq1d x=1AFxmodN=AF1modN
88 ovex AF1modNV
89 87 5 88 fvmpt 1TG1=AF1modN
90 70 89 syl φG1=AF1modN
91 84 90 seq1i φseq1×G1=AF1modN
92 91 oveq1d φseq1×G1modN=AF1modNmodN
93 63 zcnd φA
94 93 exp1d φA1=A
95 seq1 1seq1×F1=F1
96 84 95 ax-mp seq1×F1=F1
97 96 a1i φseq1×F1=F1
98 94 97 oveq12d φA1seq1×F1=AF1
99 98 oveq1d φA1seq1×F1modN=AF1modN
100 83 92 99 3eqtr4rd φA1seq1×F1modN=seq1×G1modN
101 96 oveq2i Ngcdseq1×F1=NgcdF1
102 6 nnzd φN
103 102 78 gcdcomd φNgcdF1=F1gcdN
104 75 simprd φF1gcdN=1
105 103 104 eqtrd φNgcdF1=1
106 101 105 eqtrid φNgcdseq1×F1=1
107 100 106 jca φA1seq1×F1modN=seq1×G1modNNgcdseq1×F1=1
108 107 adantr φ1ϕNA1seq1×F1modN=seq1×G1modNNgcdseq1×F1=1
109 nnre zz
110 109 adantr zφz
111 110 lep1d zφzz+1
112 peano2re zz+1
113 110 112 syl zφz+1
114 8 adantl zφϕN
115 letr zz+1ϕNzz+1z+1ϕNzϕN
116 110 113 114 115 syl3anc zφzz+1z+1ϕNzϕN
117 111 116 mpand zφz+1ϕNzϕN
118 117 imdistanda zφz+1ϕNφzϕN
119 118 imim1d zφzϕNAzseq1×FzmodN=seq1×GzmodNNgcdseq1×Fz=1φz+1ϕNAzseq1×FzmodN=seq1×GzmodNNgcdseq1×Fz=1
120 63 adantr φzz+1ϕNA
121 nnnn0 zz0
122 121 ad2antrl φzz+1ϕNz0
123 zexpcl Az0Az
124 120 122 123 syl2anc φzz+1ϕNAz
125 simprl φzz+1ϕNz
126 125 66 eleqtrdi φzz+1ϕNz1
127 109 ad2antrl φzz+1ϕNz
128 127 112 syl φzz+1ϕNz+1
129 8 adantr φzz+1ϕNϕN
130 127 lep1d φzz+1ϕNzz+1
131 simprr φzz+1ϕNz+1ϕN
132 127 128 129 130 131 letrd φzz+1ϕNzϕN
133 nnz zz
134 133 ad2antrl φzz+1ϕNz
135 7 nnzd φϕN
136 135 adantr φzz+1ϕNϕN
137 eluz zϕNϕNzzϕN
138 134 136 137 syl2anc φzz+1ϕNϕNzzϕN
139 132 138 mpbird φzz+1ϕNϕNz
140 fzss2 ϕNz1z1ϕN
141 139 140 syl φzz+1ϕN1z1ϕN
142 141 3 sseqtrrdi φzz+1ϕN1zT
143 142 sselda φzz+1ϕNx1zxT
144 65 ffvelcdmda φxTFxS
145 oveq1 y=FxygcdN=FxgcdN
146 145 eqeq1d y=FxygcdN=1FxgcdN=1
147 146 2 elrab2 FxSFx0..^NFxgcdN=1
148 144 147 sylib φxTFx0..^NFxgcdN=1
149 148 simpld φxTFx0..^N
150 elfzoelz Fx0..^NFx
151 149 150 syl φxTFx
152 151 adantlr φzz+1ϕNxTFx
153 143 152 syldan φzz+1ϕNx1zFx
154 zmulcl xyxy
155 154 adantl φzz+1ϕNxyxy
156 126 153 155 seqcl φzz+1ϕNseq1×Fz
157 124 156 zmulcld φzz+1ϕNAzseq1×Fz
158 157 zred φzz+1ϕNAzseq1×Fz
159 2 ssrab3 S0..^N
160 1 2 3 4 5 eulerthlem1 φG:TS
161 160 ffvelcdmda φxTGxS
162 159 161 sselid φxTGx0..^N
163 elfzoelz Gx0..^NGx
164 162 163 syl φxTGx
165 164 adantlr φzz+1ϕNxTGx
166 143 165 syldan φzz+1ϕNx1zGx
167 126 166 155 seqcl φzz+1ϕNseq1×Gz
168 167 zred φzz+1ϕNseq1×Gz
169 65 adantr φzz+1ϕNF:TS
170 peano2nn zz+1
171 170 ad2antrl φzz+1ϕNz+1
172 171 nnge1d φzz+1ϕN1z+1
173 171 nnzd φzz+1ϕNz+1
174 elfz z+11ϕNz+11ϕN1z+1z+1ϕN
175 84 174 mp3an2 z+1ϕNz+11ϕN1z+1z+1ϕN
176 173 136 175 syl2anc φzz+1ϕNz+11ϕN1z+1z+1ϕN
177 172 131 176 mpbir2and φzz+1ϕNz+11ϕN
178 177 3 eleqtrrdi φzz+1ϕNz+1T
179 169 178 ffvelcdmd φzz+1ϕNFz+1S
180 oveq1 y=Fz+1ygcdN=Fz+1gcdN
181 180 eqeq1d y=Fz+1ygcdN=1Fz+1gcdN=1
182 181 2 elrab2 Fz+1SFz+10..^NFz+1gcdN=1
183 179 182 sylib φzz+1ϕNFz+10..^NFz+1gcdN=1
184 183 simpld φzz+1ϕNFz+10..^N
185 elfzoelz Fz+10..^NFz+1
186 184 185 syl φzz+1ϕNFz+1
187 120 186 zmulcld φzz+1ϕNAFz+1
188 81 adantr φzz+1ϕNN+
189 modmul1 Azseq1×Fzseq1×GzAFz+1N+Azseq1×FzmodN=seq1×GzmodNAzseq1×FzAFz+1modN=seq1×GzAFz+1modN
190 189 3expia Azseq1×Fzseq1×GzAFz+1N+Azseq1×FzmodN=seq1×GzmodNAzseq1×FzAFz+1modN=seq1×GzAFz+1modN
191 158 168 187 188 190 syl22anc φzz+1ϕNAzseq1×FzmodN=seq1×GzmodNAzseq1×FzAFz+1modN=seq1×GzAFz+1modN
192 124 zcnd φzz+1ϕNAz
193 156 zcnd φzz+1ϕNseq1×Fz
194 93 adantr φzz+1ϕNA
195 186 zcnd φzz+1ϕNFz+1
196 192 193 194 195 mul4d φzz+1ϕNAzseq1×FzAFz+1=AzAseq1×FzFz+1
197 194 122 expp1d φzz+1ϕNAz+1=AzA
198 seqp1 z1seq1×Fz+1=seq1×FzFz+1
199 126 198 syl φzz+1ϕNseq1×Fz+1=seq1×FzFz+1
200 197 199 oveq12d φzz+1ϕNAz+1seq1×Fz+1=AzAseq1×FzFz+1
201 196 200 eqtr4d φzz+1ϕNAzseq1×FzAFz+1=Az+1seq1×Fz+1
202 201 oveq1d φzz+1ϕNAzseq1×FzAFz+1modN=Az+1seq1×Fz+1modN
203 187 zred φzz+1ϕNAFz+1
204 203 188 modcld φzz+1ϕNAFz+1modN
205 modabs2 AFz+1N+AFz+1modNmodN=AFz+1modN
206 203 188 205 syl2anc φzz+1ϕNAFz+1modNmodN=AFz+1modN
207 modmul1 AFz+1modNAFz+1seq1×GzN+AFz+1modNmodN=AFz+1modNAFz+1modNseq1×GzmodN=AFz+1seq1×GzmodN
208 204 203 167 188 206 207 syl221anc φzz+1ϕNAFz+1modNseq1×GzmodN=AFz+1seq1×GzmodN
209 fveq2 x=z+1Fx=Fz+1
210 209 oveq2d x=z+1AFx=AFz+1
211 210 oveq1d x=z+1AFxmodN=AFz+1modN
212 ovex AFz+1modNV
213 211 5 212 fvmpt z+1TGz+1=AFz+1modN
214 178 213 syl φzz+1ϕNGz+1=AFz+1modN
215 214 oveq2d φzz+1ϕNseq1×GzGz+1=seq1×GzAFz+1modN
216 seqp1 z1seq1×Gz+1=seq1×GzGz+1
217 126 216 syl φzz+1ϕNseq1×Gz+1=seq1×GzGz+1
218 204 recnd φzz+1ϕNAFz+1modN
219 167 zcnd φzz+1ϕNseq1×Gz
220 218 219 mulcomd φzz+1ϕNAFz+1modNseq1×Gz=seq1×GzAFz+1modN
221 215 217 220 3eqtr4d φzz+1ϕNseq1×Gz+1=AFz+1modNseq1×Gz
222 221 oveq1d φzz+1ϕNseq1×Gz+1modN=AFz+1modNseq1×GzmodN
223 187 zcnd φzz+1ϕNAFz+1
224 219 223 mulcomd φzz+1ϕNseq1×GzAFz+1=AFz+1seq1×Gz
225 224 oveq1d φzz+1ϕNseq1×GzAFz+1modN=AFz+1seq1×GzmodN
226 208 222 225 3eqtr4rd φzz+1ϕNseq1×GzAFz+1modN=seq1×Gz+1modN
227 202 226 eqeq12d φzz+1ϕNAzseq1×FzAFz+1modN=seq1×GzAFz+1modNAz+1seq1×Fz+1modN=seq1×Gz+1modN
228 191 227 sylibd φzz+1ϕNAzseq1×FzmodN=seq1×GzmodNAz+1seq1×Fz+1modN=seq1×Gz+1modN
229 102 adantr φzz+1ϕNN
230 229 186 gcdcomd φzz+1ϕNNgcdFz+1=Fz+1gcdN
231 183 simprd φzz+1ϕNFz+1gcdN=1
232 230 231 eqtrd φzz+1ϕNNgcdFz+1=1
233 rpmul Nseq1×FzFz+1Ngcdseq1×Fz=1NgcdFz+1=1Ngcdseq1×FzFz+1=1
234 229 156 186 233 syl3anc φzz+1ϕNNgcdseq1×Fz=1NgcdFz+1=1Ngcdseq1×FzFz+1=1
235 232 234 mpan2d φzz+1ϕNNgcdseq1×Fz=1Ngcdseq1×FzFz+1=1
236 199 oveq2d φzz+1ϕNNgcdseq1×Fz+1=Ngcdseq1×FzFz+1
237 236 eqeq1d φzz+1ϕNNgcdseq1×Fz+1=1Ngcdseq1×FzFz+1=1
238 235 237 sylibrd φzz+1ϕNNgcdseq1×Fz=1Ngcdseq1×Fz+1=1
239 228 238 anim12d φzz+1ϕNAzseq1×FzmodN=seq1×GzmodNNgcdseq1×Fz=1Az+1seq1×Fz+1modN=seq1×Gz+1modNNgcdseq1×Fz+1=1
240 239 an12s zφz+1ϕNAzseq1×FzmodN=seq1×GzmodNNgcdseq1×Fz=1Az+1seq1×Fz+1modN=seq1×Gz+1modNNgcdseq1×Fz+1=1
241 240 ex zφz+1ϕNAzseq1×FzmodN=seq1×GzmodNNgcdseq1×Fz=1Az+1seq1×Fz+1modN=seq1×Gz+1modNNgcdseq1×Fz+1=1
242 241 a2d zφz+1ϕNAzseq1×FzmodN=seq1×GzmodNNgcdseq1×Fz=1φz+1ϕNAz+1seq1×Fz+1modN=seq1×Gz+1modNNgcdseq1×Fz+1=1
243 119 242 syld zφzϕNAzseq1×FzmodN=seq1×GzmodNNgcdseq1×Fz=1φz+1ϕNAz+1seq1×Fz+1modN=seq1×Gz+1modNNgcdseq1×Fz+1=1
244 23 36 49 62 108 243 nnind ϕNφϕNϕNAϕNseq1×FϕNmodN=seq1×GϕNmodNNgcdseq1×FϕN=1
245 10 244 mpcom φϕNϕNAϕNseq1×FϕNmodN=seq1×GϕNmodNNgcdseq1×FϕN=1
246 9 245 mpdan φAϕNseq1×FϕNmodN=seq1×GϕNmodNNgcdseq1×FϕN=1
247 246 simpld φAϕNseq1×FϕNmodN=seq1×GϕNmodN
248 7 nnnn0d φϕN0
249 zexpcl AϕN0AϕN
250 63 248 249 syl2anc φAϕN
251 3 eleq2i xTx1ϕN
252 251 151 sylan2br φx1ϕNFx
253 154 adantl φxyxy
254 67 252 253 seqcl φseq1×FϕN
255 250 254 zmulcld φAϕNseq1×FϕN
256 mulcl xyxy
257 256 adantl φxyxy
258 mulcom xyxy=yx
259 258 adantl φxyxy=yx
260 mulass xyzxyz=xyz
261 260 adantl φxyzxyz=xyz
262 ssidd φ
263 f1ocnv F:T1-1 ontoSF-1:S1-1 ontoT
264 4 263 syl φF-1:S1-1 ontoT
265 6 adantr φyTzTN
266 63 adantr φyTzTA
267 65 ffvelcdmda φyTFyS
268 267 adantrr φyTzTFyS
269 159 268 sselid φyTzTFy0..^N
270 elfzoelz Fy0..^NFy
271 269 270 syl φyTzTFy
272 266 271 zmulcld φyTzTAFy
273 65 ffvelcdmda φzTFzS
274 273 adantrl φyTzTFzS
275 159 274 sselid φyTzTFz0..^N
276 elfzoelz Fz0..^NFz
277 275 276 syl φyTzTFz
278 266 277 zmulcld φyTzTAFz
279 moddvds NAFyAFzAFymodN=AFzmodNNAFyAFz
280 265 272 278 279 syl3anc φyTzTAFymodN=AFzmodNNAFyAFz
281 fveq2 x=yFx=Fy
282 281 oveq2d x=yAFx=AFy
283 282 oveq1d x=yAFxmodN=AFymodN
284 ovex AFymodNV
285 283 5 284 fvmpt yTGy=AFymodN
286 fveq2 x=zFx=Fz
287 286 oveq2d x=zAFx=AFz
288 287 oveq1d x=zAFxmodN=AFzmodN
289 ovex AFzmodNV
290 288 5 289 fvmpt zTGz=AFzmodN
291 285 290 eqeqan12d yTzTGy=GzAFymodN=AFzmodN
292 291 adantl φyTzTGy=GzAFymodN=AFzmodN
293 93 adantr φyTzTA
294 271 zcnd φyTzTFy
295 277 zcnd φyTzTFz
296 293 294 295 subdid φyTzTAFyFz=AFyAFz
297 296 breq2d φyTzTNAFyFzNAFyAFz
298 280 292 297 3bitr4d φyTzTGy=GzNAFyFz
299 102 63 gcdcomd φNgcdA=AgcdN
300 1 simp3d φAgcdN=1
301 299 300 eqtrd φNgcdA=1
302 301 adantr φyTzTNgcdA=1
303 102 adantr φyTzTN
304 271 277 zsubcld φyTzTFyFz
305 coprmdvds NAFyFzNAFyFzNgcdA=1NFyFz
306 303 266 304 305 syl3anc φyTzTNAFyFzNgcdA=1NFyFz
307 271 zred φyTzTFy
308 81 adantr φyTzTN+
309 elfzole1 Fy0..^N0Fy
310 269 309 syl φyTzT0Fy
311 elfzolt2 Fy0..^NFy<N
312 269 311 syl φyTzTFy<N
313 modid FyN+0FyFy<NFymodN=Fy
314 307 308 310 312 313 syl22anc φyTzTFymodN=Fy
315 277 zred φyTzTFz
316 elfzole1 Fz0..^N0Fz
317 275 316 syl φyTzT0Fz
318 elfzolt2 Fz0..^NFz<N
319 275 318 syl φyTzTFz<N
320 modid FzN+0FzFz<NFzmodN=Fz
321 315 308 317 319 320 syl22anc φyTzTFzmodN=Fz
322 314 321 eqeq12d φyTzTFymodN=FzmodNFy=Fz
323 moddvds NFyFzFymodN=FzmodNNFyFz
324 265 271 277 323 syl3anc φyTzTFymodN=FzmodNNFyFz
325 f1of1 F:T1-1 ontoSF:T1-1S
326 4 325 syl φF:T1-1S
327 f1fveq F:T1-1SyTzTFy=Fzy=z
328 326 327 sylan φyTzTFy=Fzy=z
329 322 324 328 3bitr3d φyTzTNFyFzy=z
330 306 329 sylibd φyTzTNAFyFzNgcdA=1y=z
331 302 330 mpan2d φyTzTNAFyFzy=z
332 298 331 sylbid φyTzTGy=Gzy=z
333 332 ralrimivva φyTzTGy=Gzy=z
334 dff13 G:T1-1SG:TSyTzTGy=Gzy=z
335 160 333 334 sylanbrc φG:T1-1S
336 3 ovexi TV
337 336 f1oen F:T1-1 ontoSTS
338 4 337 syl φTS
339 fzofi 0..^NFin
340 ssfi 0..^NFinS0..^NSFin
341 339 159 340 mp2an SFin
342 f1finf1o TSSFinG:T1-1SG:T1-1 ontoS
343 338 341 342 sylancl φG:T1-1SG:T1-1 ontoS
344 335 343 mpbid φG:T1-1 ontoS
345 f1oco F-1:S1-1 ontoTG:T1-1 ontoSF-1G:T1-1 ontoT
346 264 344 345 syl2anc φF-1G:T1-1 ontoT
347 f1oeq23 T=1ϕNT=1ϕNF-1G:T1-1 ontoTF-1G:1ϕN1-1 onto1ϕN
348 3 3 347 mp2an F-1G:T1-1 ontoTF-1G:1ϕN1-1 onto1ϕN
349 346 348 sylib φF-1G:1ϕN1-1 onto1ϕN
350 252 zcnd φx1ϕNFx
351 3 eleq2i wTw1ϕN
352 fvco3 G:TSwTF-1Gw=F-1Gw
353 160 352 sylan φwTF-1Gw=F-1Gw
354 353 fveq2d φwTFF-1Gw=FF-1Gw
355 4 adantr φwTF:T1-1 ontoS
356 160 ffvelcdmda φwTGwS
357 f1ocnvfv2 F:T1-1 ontoSGwSFF-1Gw=Gw
358 355 356 357 syl2anc φwTFF-1Gw=Gw
359 354 358 eqtr2d φwTGw=FF-1Gw
360 351 359 sylan2br φw1ϕNGw=FF-1Gw
361 257 259 261 67 262 349 350 360 seqf1o φseq1×GϕN=seq1×FϕN
362 361 254 eqeltrd φseq1×GϕN
363 moddvds NAϕNseq1×FϕNseq1×GϕNAϕNseq1×FϕNmodN=seq1×GϕNmodNNAϕNseq1×FϕNseq1×GϕN
364 6 255 362 363 syl3anc φAϕNseq1×FϕNmodN=seq1×GϕNmodNNAϕNseq1×FϕNseq1×GϕN
365 247 364 mpbid φNAϕNseq1×FϕNseq1×GϕN
366 254 zcnd φseq1×FϕN
367 366 mullidd φ1seq1×FϕN=seq1×FϕN
368 361 367 eqtr4d φseq1×GϕN=1seq1×FϕN
369 368 oveq2d φAϕNseq1×FϕNseq1×GϕN=AϕNseq1×FϕN1seq1×FϕN
370 250 zcnd φAϕN
371 ax-1cn 1
372 subdir AϕN1seq1×FϕNAϕN1seq1×FϕN=AϕNseq1×FϕN1seq1×FϕN
373 371 372 mp3an2 AϕNseq1×FϕNAϕN1seq1×FϕN=AϕNseq1×FϕN1seq1×FϕN
374 370 366 373 syl2anc φAϕN1seq1×FϕN=AϕNseq1×FϕN1seq1×FϕN
375 zsubcl AϕN1AϕN1
376 250 84 375 sylancl φAϕN1
377 376 zcnd φAϕN1
378 377 366 mulcomd φAϕN1seq1×FϕN=seq1×FϕNAϕN1
379 369 374 378 3eqtr2d φAϕNseq1×FϕNseq1×GϕN=seq1×FϕNAϕN1
380 365 379 breqtrd φNseq1×FϕNAϕN1
381 246 simprd φNgcdseq1×FϕN=1
382 coprmdvds Nseq1×FϕNAϕN1Nseq1×FϕNAϕN1Ngcdseq1×FϕN=1NAϕN1
383 102 254 376 382 syl3anc φNseq1×FϕNAϕN1Ngcdseq1×FϕN=1NAϕN1
384 380 381 383 mp2and φNAϕN1
385 moddvds NAϕN1AϕNmodN=1modNNAϕN1
386 84 385 mp3an3 NAϕNAϕNmodN=1modNNAϕN1
387 6 250 386 syl2anc φAϕNmodN=1modNNAϕN1
388 384 387 mpbird φAϕNmodN=1modN