ILE Home Intuitionistic Logic Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  ILE Home  >  Th. List  >  phimullem Unicode version

Theorem phimullem 12208
Description: Lemma for phimul 12209. (Contributed by Mario Carneiro, 24-Feb-2014.)
Hypotheses
Ref Expression
crth.1  |-  S  =  ( 0..^ ( M  x.  N ) )
crth.2  |-  T  =  ( ( 0..^ M )  X.  ( 0..^ N ) )
crth.3  |-  F  =  ( x  e.  S  |-> 
<. ( x  mod  M
) ,  ( x  mod  N ) >.
)
crth.4  |-  ( ph  ->  ( M  e.  NN  /\  N  e.  NN  /\  ( M  gcd  N )  =  1 ) )
phimul.4  |-  U  =  { y  e.  ( 0..^ M )  |  ( y  gcd  M
)  =  1 }
phimul.5  |-  V  =  { y  e.  ( 0..^ N )  |  ( y  gcd  N
)  =  1 }
phimul.6  |-  W  =  { y  e.  S  |  ( y  gcd  ( M  x.  N
) )  =  1 }
Assertion
Ref Expression
phimullem  |-  ( ph  ->  ( phi `  ( M  x.  N )
)  =  ( ( phi `  M )  x.  ( phi `  N ) ) )
Distinct variable groups:    y, F    x, M    x, N    x, S, y    x, T    ph, x, y   
y, M    y, N
Allowed substitution hints:    T( y)    U( x, y)    F( x)    V( x, y)    W( x, y)

Proof of Theorem phimullem
Dummy variables  z  w are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 oveq1 5876 . . . . . . . . . . . . . 14  |-  ( y  =  w  ->  (
y  gcd  ( M  x.  N ) )  =  ( w  gcd  ( M  x.  N )
) )
21eqeq1d 2186 . . . . . . . . . . . . 13  |-  ( y  =  w  ->  (
( y  gcd  ( M  x.  N )
)  =  1  <->  (
w  gcd  ( M  x.  N ) )  =  1 ) )
3 phimul.6 . . . . . . . . . . . . 13  |-  W  =  { y  e.  S  |  ( y  gcd  ( M  x.  N
) )  =  1 }
42, 3elrab2 2896 . . . . . . . . . . . 12  |-  ( w  e.  W  <->  ( w  e.  S  /\  (
w  gcd  ( M  x.  N ) )  =  1 ) )
54simplbi 274 . . . . . . . . . . 11  |-  ( w  e.  W  ->  w  e.  S )
65adantl 277 . . . . . . . . . 10  |-  ( (
ph  /\  w  e.  W )  ->  w  e.  S )
7 elfzoelz 10133 . . . . . . . . . . . . . . 15  |-  ( w  e.  ( 0..^ ( M  x.  N ) )  ->  w  e.  ZZ )
8 crth.1 . . . . . . . . . . . . . . 15  |-  S  =  ( 0..^ ( M  x.  N ) )
97, 8eleq2s 2272 . . . . . . . . . . . . . 14  |-  ( w  e.  S  ->  w  e.  ZZ )
106, 9syl 14 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  w  e.  ZZ )
11 zq 9615 . . . . . . . . . . . . 13  |-  ( w  e.  ZZ  ->  w  e.  QQ )
1210, 11syl 14 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  w  e.  QQ )
13 crth.4 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( M  e.  NN  /\  N  e.  NN  /\  ( M  gcd  N )  =  1 ) )
1413simp1d 1009 . . . . . . . . . . . . . 14  |-  ( ph  ->  M  e.  NN )
1514adantr 276 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  M  e.  NN )
16 nnq 9622 . . . . . . . . . . . . 13  |-  ( M  e.  NN  ->  M  e.  QQ )
1715, 16syl 14 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  M  e.  QQ )
1815nngt0d 8952 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  0  <  M )
1912, 17, 18modqcld 10314 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  W )  ->  (
w  mod  M )  e.  QQ )
2013simp2d 1010 . . . . . . . . . . . . . 14  |-  ( ph  ->  N  e.  NN )
2120adantr 276 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  N  e.  NN )
22 nnq 9622 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  N  e.  QQ )
2321, 22syl 14 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  N  e.  QQ )
2421nngt0d 8952 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  0  <  N )
2512, 23, 24modqcld 10314 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  W )  ->  (
w  mod  N )  e.  QQ )
26 opexg 4225 . . . . . . . . . . 11  |-  ( ( ( w  mod  M
)  e.  QQ  /\  ( w  mod  N )  e.  QQ )  ->  <. ( w  mod  M
) ,  ( w  mod  N ) >.  e.  _V )
2719, 25, 26syl2anc 411 . . . . . . . . . 10  |-  ( (
ph  /\  w  e.  W )  ->  <. (
w  mod  M ) ,  ( w  mod  N ) >.  e.  _V )
28 oveq1 5876 . . . . . . . . . . . 12  |-  ( x  =  w  ->  (
x  mod  M )  =  ( w  mod  M ) )
29 oveq1 5876 . . . . . . . . . . . 12  |-  ( x  =  w  ->  (
x  mod  N )  =  ( w  mod  N ) )
3028, 29opeq12d 3784 . . . . . . . . . . 11  |-  ( x  =  w  ->  <. (
x  mod  M ) ,  ( x  mod  N ) >.  =  <. ( w  mod  M ) ,  ( w  mod  N ) >. )
31 crth.3 . . . . . . . . . . 11  |-  F  =  ( x  e.  S  |-> 
<. ( x  mod  M
) ,  ( x  mod  N ) >.
)
3230, 31fvmptg 5588 . . . . . . . . . 10  |-  ( ( w  e.  S  /\  <.
( w  mod  M
) ,  ( w  mod  N ) >.  e.  _V )  ->  ( F `  w )  =  <. ( w  mod  M ) ,  ( w  mod  N ) >.
)
336, 27, 32syl2anc 411 . . . . . . . . 9  |-  ( (
ph  /\  w  e.  W )  ->  ( F `  w )  =  <. ( w  mod  M ) ,  ( w  mod  N ) >.
)
345, 8eleqtrdi 2270 . . . . . . . . . . . . . 14  |-  ( w  e.  W  ->  w  e.  ( 0..^ ( M  x.  N ) ) )
3534adantl 277 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  w  e.  ( 0..^ ( M  x.  N ) ) )
3635, 7syl 14 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  w  e.  ZZ )
37 zmodfzo 10333 . . . . . . . . . . . 12  |-  ( ( w  e.  ZZ  /\  M  e.  NN )  ->  ( w  mod  M
)  e.  ( 0..^ M ) )
3836, 15, 37syl2anc 411 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  W )  ->  (
w  mod  M )  e.  ( 0..^ M ) )
39 modgcd 11975 . . . . . . . . . . . . 13  |-  ( ( w  e.  ZZ  /\  M  e.  NN )  ->  ( ( w  mod  M )  gcd  M )  =  ( w  gcd  M ) )
4036, 15, 39syl2anc 411 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  (
( w  mod  M
)  gcd  M )  =  ( w  gcd  M ) )
4115nnzd 9363 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  w  e.  W )  ->  M  e.  ZZ )
42 gcddvds 11947 . . . . . . . . . . . . . . . . 17  |-  ( ( w  e.  ZZ  /\  M  e.  ZZ )  ->  ( ( w  gcd  M )  ||  w  /\  ( w  gcd  M ) 
||  M ) )
4336, 41, 42syl2anc 411 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  (
( w  gcd  M
)  ||  w  /\  ( w  gcd  M ) 
||  M ) )
4443simpld 112 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  ||  w )
45 nnne0 8936 . . . . . . . . . . . . . . . . . . 19  |-  ( M  e.  NN  ->  M  =/=  0 )
46 simpr 110 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( w  =  0  /\  M  =  0 )  ->  M  =  0 )
4746necon3ai 2396 . . . . . . . . . . . . . . . . . . 19  |-  ( M  =/=  0  ->  -.  ( w  =  0  /\  M  =  0
) )
4815, 45, 473syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  w  e.  W )  ->  -.  ( w  =  0  /\  M  =  0
) )
49 gcdn0cl 11946 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( w  e.  ZZ  /\  M  e.  ZZ )  /\  -.  ( w  =  0  /\  M  =  0 ) )  ->  ( w  gcd  M )  e.  NN )
5036, 41, 48, 49syl21anc 1237 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  e.  NN )
5150nnzd 9363 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  e.  ZZ )
5221nnzd 9363 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  N  e.  ZZ )
5343simprd 114 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  ||  M )
5451, 41, 52, 53dvdsmultr1d 11823 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  ||  ( M  x.  N
) )
5515, 21nnmulcld 8957 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  w  e.  W )  ->  ( M  x.  N )  e.  NN )
5655nnzd 9363 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  ( M  x.  N )  e.  ZZ )
57 nnne0 8936 . . . . . . . . . . . . . . . . 17  |-  ( ( M  x.  N )  e.  NN  ->  ( M  x.  N )  =/=  0 )
58 simpr 110 . . . . . . . . . . . . . . . . . 18  |-  ( ( w  =  0  /\  ( M  x.  N
)  =  0 )  ->  ( M  x.  N )  =  0 )
5958necon3ai 2396 . . . . . . . . . . . . . . . . 17  |-  ( ( M  x.  N )  =/=  0  ->  -.  ( w  =  0  /\  ( M  x.  N
)  =  0 ) )
6055, 57, 593syl 17 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  -.  ( w  =  0  /\  ( M  x.  N
)  =  0 ) )
61 dvdslegcd 11948 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( w  gcd  M )  e.  ZZ  /\  w  e.  ZZ  /\  ( M  x.  N )  e.  ZZ )  /\  -.  ( w  =  0  /\  ( M  x.  N
)  =  0 ) )  ->  ( (
( w  gcd  M
)  ||  w  /\  ( w  gcd  M ) 
||  ( M  x.  N ) )  -> 
( w  gcd  M
)  <_  ( w  gcd  ( M  x.  N
) ) ) )
6251, 36, 56, 60, 61syl31anc 1241 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w  e.  W )  ->  (
( ( w  gcd  M )  ||  w  /\  ( w  gcd  M ) 
||  ( M  x.  N ) )  -> 
( w  gcd  M
)  <_  ( w  gcd  ( M  x.  N
) ) ) )
6344, 54, 62mp2and 433 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  <_  ( w  gcd  ( M  x.  N )
) )
644simprbi 275 . . . . . . . . . . . . . . 15  |-  ( w  e.  W  ->  (
w  gcd  ( M  x.  N ) )  =  1 )
6564adantl 277 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  ( M  x.  N ) )  =  1 )
6663, 65breqtrd 4026 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  <_  1 )
67 nnle1eq1 8932 . . . . . . . . . . . . . 14  |-  ( ( w  gcd  M )  e.  NN  ->  (
( w  gcd  M
)  <_  1  <->  ( w  gcd  M )  =  1 ) )
6850, 67syl 14 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  (
( w  gcd  M
)  <_  1  <->  ( w  gcd  M )  =  1 ) )
6966, 68mpbid 147 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  =  1 )
7040, 69eqtrd 2210 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  W )  ->  (
( w  mod  M
)  gcd  M )  =  1 )
71 oveq1 5876 . . . . . . . . . . . . 13  |-  ( y  =  ( w  mod  M )  ->  ( y  gcd  M )  =  ( ( w  mod  M
)  gcd  M )
)
7271eqeq1d 2186 . . . . . . . . . . . 12  |-  ( y  =  ( w  mod  M )  ->  ( (
y  gcd  M )  =  1  <->  ( (
w  mod  M )  gcd  M )  =  1 ) )
73 phimul.4 . . . . . . . . . . . 12  |-  U  =  { y  e.  ( 0..^ M )  |  ( y  gcd  M
)  =  1 }
7472, 73elrab2 2896 . . . . . . . . . . 11  |-  ( ( w  mod  M )  e.  U  <->  ( (
w  mod  M )  e.  ( 0..^ M )  /\  ( ( w  mod  M )  gcd 
M )  =  1 ) )
7538, 70, 74sylanbrc 417 . . . . . . . . . 10  |-  ( (
ph  /\  w  e.  W )  ->  (
w  mod  M )  e.  U )
76 zmodfzo 10333 . . . . . . . . . . . 12  |-  ( ( w  e.  ZZ  /\  N  e.  NN )  ->  ( w  mod  N
)  e.  ( 0..^ N ) )
7736, 21, 76syl2anc 411 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  W )  ->  (
w  mod  N )  e.  ( 0..^ N ) )
78 modgcd 11975 . . . . . . . . . . . . 13  |-  ( ( w  e.  ZZ  /\  N  e.  NN )  ->  ( ( w  mod  N )  gcd  N )  =  ( w  gcd  N ) )
7936, 21, 78syl2anc 411 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  (
( w  mod  N
)  gcd  N )  =  ( w  gcd  N ) )
80 gcddvds 11947 . . . . . . . . . . . . . . . . 17  |-  ( ( w  e.  ZZ  /\  N  e.  ZZ )  ->  ( ( w  gcd  N )  ||  w  /\  ( w  gcd  N ) 
||  N ) )
8136, 52, 80syl2anc 411 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  (
( w  gcd  N
)  ||  w  /\  ( w  gcd  N ) 
||  N ) )
8281simpld 112 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  ||  w )
8381simprd 114 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  ||  N )
84 dvdsmul2 11805 . . . . . . . . . . . . . . . . 17  |-  ( ( M  e.  ZZ  /\  N  e.  ZZ )  ->  N  ||  ( M  x.  N ) )
8541, 52, 84syl2anc 411 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  N  ||  ( M  x.  N
) )
86 nnne0 8936 . . . . . . . . . . . . . . . . . . . 20  |-  ( N  e.  NN  ->  N  =/=  0 )
87 simpr 110 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( w  =  0  /\  N  =  0 )  ->  N  =  0 )
8887necon3ai 2396 . . . . . . . . . . . . . . . . . . . 20  |-  ( N  =/=  0  ->  -.  ( w  =  0  /\  N  =  0
) )
8921, 86, 883syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  w  e.  W )  ->  -.  ( w  =  0  /\  N  =  0
) )
90 gcdn0cl 11946 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( w  e.  ZZ  /\  N  e.  ZZ )  /\  -.  ( w  =  0  /\  N  =  0 ) )  ->  ( w  gcd  N )  e.  NN )
9136, 52, 89, 90syl21anc 1237 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  e.  NN )
9291nnzd 9363 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  e.  ZZ )
93 dvdstr 11819 . . . . . . . . . . . . . . . . 17  |-  ( ( ( w  gcd  N
)  e.  ZZ  /\  N  e.  ZZ  /\  ( M  x.  N )  e.  ZZ )  ->  (
( ( w  gcd  N )  ||  N  /\  N  ||  ( M  x.  N ) )  -> 
( w  gcd  N
)  ||  ( M  x.  N ) ) )
9492, 52, 56, 93syl3anc 1238 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  (
( ( w  gcd  N )  ||  N  /\  N  ||  ( M  x.  N ) )  -> 
( w  gcd  N
)  ||  ( M  x.  N ) ) )
9583, 85, 94mp2and 433 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  ||  ( M  x.  N
) )
96 dvdslegcd 11948 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( w  gcd  N )  e.  ZZ  /\  w  e.  ZZ  /\  ( M  x.  N )  e.  ZZ )  /\  -.  ( w  =  0  /\  ( M  x.  N
)  =  0 ) )  ->  ( (
( w  gcd  N
)  ||  w  /\  ( w  gcd  N ) 
||  ( M  x.  N ) )  -> 
( w  gcd  N
)  <_  ( w  gcd  ( M  x.  N
) ) ) )
9792, 36, 56, 60, 96syl31anc 1241 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w  e.  W )  ->  (
( ( w  gcd  N )  ||  w  /\  ( w  gcd  N ) 
||  ( M  x.  N ) )  -> 
( w  gcd  N
)  <_  ( w  gcd  ( M  x.  N
) ) ) )
9882, 95, 97mp2and 433 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  <_  ( w  gcd  ( M  x.  N )
) )
9998, 65breqtrd 4026 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  <_  1 )
100 nnle1eq1 8932 . . . . . . . . . . . . . 14  |-  ( ( w  gcd  N )  e.  NN  ->  (
( w  gcd  N
)  <_  1  <->  ( w  gcd  N )  =  1 ) )
10191, 100syl 14 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  (
( w  gcd  N
)  <_  1  <->  ( w  gcd  N )  =  1 ) )
10299, 101mpbid 147 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  =  1 )
10379, 102eqtrd 2210 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  W )  ->  (
( w  mod  N
)  gcd  N )  =  1 )
104 oveq1 5876 . . . . . . . . . . . . 13  |-  ( y  =  ( w  mod  N )  ->  ( y  gcd  N )  =  ( ( w  mod  N
)  gcd  N )
)
105104eqeq1d 2186 . . . . . . . . . . . 12  |-  ( y  =  ( w  mod  N )  ->  ( (
y  gcd  N )  =  1  <->  ( (
w  mod  N )  gcd  N )  =  1 ) )
106 phimul.5 . . . . . . . . . . . 12  |-  V  =  { y  e.  ( 0..^ N )  |  ( y  gcd  N
)  =  1 }
107105, 106elrab2 2896 . . . . . . . . . . 11  |-  ( ( w  mod  N )  e.  V  <->  ( (
w  mod  N )  e.  ( 0..^ N )  /\  ( ( w  mod  N )  gcd 
N )  =  1 ) )
10877, 103, 107sylanbrc 417 . . . . . . . . . 10  |-  ( (
ph  /\  w  e.  W )  ->  (
w  mod  N )  e.  V )
109 opelxpi 4655 . . . . . . . . . 10  |-  ( ( ( w  mod  M
)  e.  U  /\  ( w  mod  N )  e.  V )  ->  <. ( w  mod  M
) ,  ( w  mod  N ) >.  e.  ( U  X.  V
) )
11075, 108, 109syl2anc 411 . . . . . . . . 9  |-  ( (
ph  /\  w  e.  W )  ->  <. (
w  mod  M ) ,  ( w  mod  N ) >.  e.  ( U  X.  V ) )
11133, 110eqeltrd 2254 . . . . . . . 8  |-  ( (
ph  /\  w  e.  W )  ->  ( F `  w )  e.  ( U  X.  V
) )
112111ralrimiva 2550 . . . . . . 7  |-  ( ph  ->  A. w  e.  W  ( F `  w )  e.  ( U  X.  V ) )
113 crth.2 . . . . . . . . . 10  |-  T  =  ( ( 0..^ M )  X.  ( 0..^ N ) )
1148, 113, 31, 13crth 12207 . . . . . . . . 9  |-  ( ph  ->  F : S -1-1-onto-> T )
115 f1ofn 5458 . . . . . . . . 9  |-  ( F : S -1-1-onto-> T  ->  F  Fn  S )
116 fnfun 5309 . . . . . . . . 9  |-  ( F  Fn  S  ->  Fun  F )
117114, 115, 1163syl 17 . . . . . . . 8  |-  ( ph  ->  Fun  F )
118 ssrab2 3240 . . . . . . . . . 10  |-  { y  e.  S  |  ( y  gcd  ( M  x.  N ) )  =  1 }  C_  S
1193, 118eqsstri 3187 . . . . . . . . 9  |-  W  C_  S
120 fndm 5311 . . . . . . . . . 10  |-  ( F  Fn  S  ->  dom  F  =  S )
121114, 115, 1203syl 17 . . . . . . . . 9  |-  ( ph  ->  dom  F  =  S )
122119, 121sseqtrrid 3206 . . . . . . . 8  |-  ( ph  ->  W  C_  dom  F )
123 funimass4 5562 . . . . . . . 8  |-  ( ( Fun  F  /\  W  C_ 
dom  F )  -> 
( ( F " W )  C_  ( U  X.  V )  <->  A. w  e.  W  ( F `  w )  e.  ( U  X.  V ) ) )
124117, 122, 123syl2anc 411 . . . . . . 7  |-  ( ph  ->  ( ( F " W )  C_  ( U  X.  V )  <->  A. w  e.  W  ( F `  w )  e.  ( U  X.  V ) ) )
125112, 124mpbird 167 . . . . . 6  |-  ( ph  ->  ( F " W
)  C_  ( U  X.  V ) )
126 ssrab2 3240 . . . . . . . . . . . . . 14  |-  { y  e.  ( 0..^ M )  |  ( y  gcd  M )  =  1 }  C_  (
0..^ M )
12773, 126eqsstri 3187 . . . . . . . . . . . . 13  |-  U  C_  ( 0..^ M )
128 ssrab2 3240 . . . . . . . . . . . . . 14  |-  { y  e.  ( 0..^ N )  |  ( y  gcd  N )  =  1 }  C_  (
0..^ N )
129106, 128eqsstri 3187 . . . . . . . . . . . . 13  |-  V  C_  ( 0..^ N )
130 xpss12 4730 . . . . . . . . . . . . 13  |-  ( ( U  C_  ( 0..^ M )  /\  V  C_  ( 0..^ N ) )  ->  ( U  X.  V )  C_  (
( 0..^ M )  X.  ( 0..^ N ) ) )
131127, 129, 130mp2an 426 . . . . . . . . . . . 12  |-  ( U  X.  V )  C_  ( ( 0..^ M )  X.  ( 0..^ N ) )
132131, 113sseqtrri 3190 . . . . . . . . . . 11  |-  ( U  X.  V )  C_  T
133132sseli 3151 . . . . . . . . . 10  |-  ( z  e.  ( U  X.  V )  ->  z  e.  T )
134 f1ocnvfv2 5773 . . . . . . . . . 10  |-  ( ( F : S -1-1-onto-> T  /\  z  e.  T )  ->  ( F `  ( `' F `  z ) )  =  z )
135114, 133, 134syl2an 289 . . . . . . . . 9  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( F `  ( `' F `  z )
)  =  z )
136 f1ocnv 5470 . . . . . . . . . . . . 13  |-  ( F : S -1-1-onto-> T  ->  `' F : T -1-1-onto-> S )
137 f1of 5457 . . . . . . . . . . . . 13  |-  ( `' F : T -1-1-onto-> S  ->  `' F : T --> S )
138114, 136, 1373syl 17 . . . . . . . . . . . 12  |-  ( ph  ->  `' F : T --> S )
139 ffvelcdm 5645 . . . . . . . . . . . 12  |-  ( ( `' F : T --> S  /\  z  e.  T )  ->  ( `' F `  z )  e.  S
)
140138, 133, 139syl2an 289 . . . . . . . . . . 11  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( `' F `  z )  e.  S )
141140, 8eleqtrdi 2270 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( `' F `  z )  e.  ( 0..^ ( M  x.  N ) ) )
142 elfzoelz 10133 . . . . . . . . . . . . . . 15  |-  ( ( `' F `  z )  e.  ( 0..^ ( M  x.  N ) )  ->  ( `' F `  z )  e.  ZZ )
143141, 142syl 14 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( `' F `  z )  e.  ZZ )
14414adantr 276 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  M  e.  NN )
145 modgcd 11975 . . . . . . . . . . . . . 14  |-  ( ( ( `' F `  z )  e.  ZZ  /\  M  e.  NN )  ->  ( ( ( `' F `  z )  mod  M )  gcd 
M )  =  ( ( `' F `  z )  gcd  M
) )
146143, 144, 145syl2anc 411 . . . . . . . . . . . . 13  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( ( `' F `  z )  mod  M
)  gcd  M )  =  ( ( `' F `  z )  gcd  M ) )
147 zq 9615 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( `' F `  z )  e.  ZZ  ->  ( `' F `  z )  e.  QQ )
148143, 147syl 14 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( `' F `  z )  e.  QQ )
149144, 16syl 14 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  M  e.  QQ )
150144nngt0d 8952 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  0  <  M )
151148, 149, 150modqcld 10314 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  mod  M
)  e.  QQ )
15220adantr 276 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  N  e.  NN )
153152, 22syl 14 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  N  e.  QQ )
154152nngt0d 8952 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  0  <  N )
155148, 153, 154modqcld 10314 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  mod  N
)  e.  QQ )
156 opexg 4225 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( `' F `  z )  mod  M
)  e.  QQ  /\  ( ( `' F `  z )  mod  N
)  e.  QQ )  ->  <. ( ( `' F `  z )  mod  M ) ,  ( ( `' F `  z )  mod  N
) >.  e.  _V )
157151, 155, 156syl2anc 411 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  <. (
( `' F `  z )  mod  M
) ,  ( ( `' F `  z )  mod  N ) >.  e.  _V )
158 oveq1 5876 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( w  =  ( `' F `  z )  ->  (
w  mod  M )  =  ( ( `' F `  z )  mod  M ) )
159 oveq1 5876 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( w  =  ( `' F `  z )  ->  (
w  mod  N )  =  ( ( `' F `  z )  mod  N ) )
160158, 159opeq12d 3784 . . . . . . . . . . . . . . . . . . . . 21  |-  ( w  =  ( `' F `  z )  ->  <. (
w  mod  M ) ,  ( w  mod  N ) >.  =  <. ( ( `' F `  z )  mod  M
) ,  ( ( `' F `  z )  mod  N ) >.
)
16130cbvmptv 4096 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( x  e.  S  |->  <. (
x  mod  M ) ,  ( x  mod  N ) >. )  =  ( w  e.  S  |->  <.
( w  mod  M
) ,  ( w  mod  N ) >.
)
16231, 161eqtri 2198 . . . . . . . . . . . . . . . . . . . . 21  |-  F  =  ( w  e.  S  |-> 
<. ( w  mod  M
) ,  ( w  mod  N ) >.
)
163160, 162fvmptg 5588 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( `' F `  z )  e.  S  /\  <. ( ( `' F `  z )  mod  M ) ,  ( ( `' F `  z )  mod  N
) >.  e.  _V )  ->  ( F `  ( `' F `  z ) )  =  <. (
( `' F `  z )  mod  M
) ,  ( ( `' F `  z )  mod  N ) >.
)
164140, 157, 163syl2anc 411 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( F `  ( `' F `  z )
)  =  <. (
( `' F `  z )  mod  M
) ,  ( ( `' F `  z )  mod  N ) >.
)
165135, 164eqtr3d 2212 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  z  =  <. ( ( `' F `  z )  mod  M ) ,  ( ( `' F `  z )  mod  N
) >. )
166 simpr 110 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  z  e.  ( U  X.  V
) )
167165, 166eqeltrrd 2255 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  <. (
( `' F `  z )  mod  M
) ,  ( ( `' F `  z )  mod  N ) >.  e.  ( U  X.  V
) )
168 opelxp 4653 . . . . . . . . . . . . . . . . 17  |-  ( <.
( ( `' F `  z )  mod  M
) ,  ( ( `' F `  z )  mod  N ) >.  e.  ( U  X.  V
)  <->  ( ( ( `' F `  z )  mod  M )  e.  U  /\  ( ( `' F `  z )  mod  N )  e.  V ) )
169167, 168sylib 122 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( ( `' F `  z )  mod  M
)  e.  U  /\  ( ( `' F `  z )  mod  N
)  e.  V ) )
170169simpld 112 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  mod  M
)  e.  U )
171 oveq1 5876 . . . . . . . . . . . . . . . . 17  |-  ( y  =  ( ( `' F `  z )  mod  M )  -> 
( y  gcd  M
)  =  ( ( ( `' F `  z )  mod  M
)  gcd  M )
)
172171eqeq1d 2186 . . . . . . . . . . . . . . . 16  |-  ( y  =  ( ( `' F `  z )  mod  M )  -> 
( ( y  gcd 
M )  =  1  <-> 
( ( ( `' F `  z )  mod  M )  gcd 
M )  =  1 ) )
173172, 73elrab2 2896 . . . . . . . . . . . . . . 15  |-  ( ( ( `' F `  z )  mod  M
)  e.  U  <->  ( (
( `' F `  z )  mod  M
)  e.  ( 0..^ M )  /\  (
( ( `' F `  z )  mod  M
)  gcd  M )  =  1 ) )
174170, 173sylib 122 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( ( `' F `  z )  mod  M
)  e.  ( 0..^ M )  /\  (
( ( `' F `  z )  mod  M
)  gcd  M )  =  1 ) )
175174simprd 114 . . . . . . . . . . . . 13  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( ( `' F `  z )  mod  M
)  gcd  M )  =  1 )
176146, 175eqtr3d 2212 . . . . . . . . . . . 12  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  gcd  M
)  =  1 )
177 modgcd 11975 . . . . . . . . . . . . . 14  |-  ( ( ( `' F `  z )  e.  ZZ  /\  N  e.  NN )  ->  ( ( ( `' F `  z )  mod  N )  gcd 
N )  =  ( ( `' F `  z )  gcd  N
) )
178143, 152, 177syl2anc 411 . . . . . . . . . . . . 13  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( ( `' F `  z )  mod  N
)  gcd  N )  =  ( ( `' F `  z )  gcd  N ) )
179169simprd 114 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  mod  N
)  e.  V )
180 oveq1 5876 . . . . . . . . . . . . . . . . 17  |-  ( y  =  ( ( `' F `  z )  mod  N )  -> 
( y  gcd  N
)  =  ( ( ( `' F `  z )  mod  N
)  gcd  N )
)
181180eqeq1d 2186 . . . . . . . . . . . . . . . 16  |-  ( y  =  ( ( `' F `  z )  mod  N )  -> 
( ( y  gcd 
N )  =  1  <-> 
( ( ( `' F `  z )  mod  N )  gcd 
N )  =  1 ) )
182181, 106elrab2 2896 . . . . . . . . . . . . . . 15  |-  ( ( ( `' F `  z )  mod  N
)  e.  V  <->  ( (
( `' F `  z )  mod  N
)  e.  ( 0..^ N )  /\  (
( ( `' F `  z )  mod  N
)  gcd  N )  =  1 ) )
183179, 182sylib 122 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( ( `' F `  z )  mod  N
)  e.  ( 0..^ N )  /\  (
( ( `' F `  z )  mod  N
)  gcd  N )  =  1 ) )
184183simprd 114 . . . . . . . . . . . . 13  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( ( `' F `  z )  mod  N
)  gcd  N )  =  1 )
185178, 184eqtr3d 2212 . . . . . . . . . . . 12  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  gcd  N
)  =  1 )
18614nnzd 9363 . . . . . . . . . . . . . 14  |-  ( ph  ->  M  e.  ZZ )
187186adantr 276 . . . . . . . . . . . . 13  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  M  e.  ZZ )
18820nnzd 9363 . . . . . . . . . . . . . 14  |-  ( ph  ->  N  e.  ZZ )
189188adantr 276 . . . . . . . . . . . . 13  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  N  e.  ZZ )
190 rpmul 12081 . . . . . . . . . . . . 13  |-  ( ( ( `' F `  z )  e.  ZZ  /\  M  e.  ZZ  /\  N  e.  ZZ )  ->  ( ( ( ( `' F `  z )  gcd  M )  =  1  /\  ( ( `' F `  z )  gcd  N )  =  1 )  ->  (
( `' F `  z )  gcd  ( M  x.  N )
)  =  1 ) )
191143, 187, 189, 190syl3anc 1238 . . . . . . . . . . . 12  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( ( ( `' F `  z )  gcd  M )  =  1  /\  ( ( `' F `  z )  gcd  N )  =  1 )  ->  (
( `' F `  z )  gcd  ( M  x.  N )
)  =  1 ) )
192176, 185, 191mp2and 433 . . . . . . . . . . 11  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  gcd  ( M  x.  N )
)  =  1 )
193 oveq1 5876 . . . . . . . . . . . . 13  |-  ( y  =  ( `' F `  z )  ->  (
y  gcd  ( M  x.  N ) )  =  ( ( `' F `  z )  gcd  ( M  x.  N )
) )
194193eqeq1d 2186 . . . . . . . . . . . 12  |-  ( y  =  ( `' F `  z )  ->  (
( y  gcd  ( M  x.  N )
)  =  1  <->  (
( `' F `  z )  gcd  ( M  x.  N )
)  =  1 ) )
195194, 3elrab2 2896 . . . . . . . . . . 11  |-  ( ( `' F `  z )  e.  W  <->  ( ( `' F `  z )  e.  S  /\  (
( `' F `  z )  gcd  ( M  x.  N )
)  =  1 ) )
196140, 192, 195sylanbrc 417 . . . . . . . . . 10  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( `' F `  z )  e.  W )
197 funfvima2 5744 . . . . . . . . . . . 12  |-  ( ( Fun  F  /\  W  C_ 
dom  F )  -> 
( ( `' F `  z )  e.  W  ->  ( F `  ( `' F `  z ) )  e.  ( F
" W ) ) )
198117, 122, 197syl2anc 411 . . . . . . . . . . 11  |-  ( ph  ->  ( ( `' F `  z )  e.  W  ->  ( F `  ( `' F `  z ) )  e.  ( F
" W ) ) )
199198imp 124 . . . . . . . . . 10  |-  ( (
ph  /\  ( `' F `  z )  e.  W )  ->  ( F `  ( `' F `  z )
)  e.  ( F
" W ) )
200196, 199syldan 282 . . . . . . . . 9  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( F `  ( `' F `  z )
)  e.  ( F
" W ) )
201135, 200eqeltrrd 2255 . . . . . . . 8  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  z  e.  ( F " W
) )
202201ex 115 . . . . . . 7  |-  ( ph  ->  ( z  e.  ( U  X.  V )  ->  z  e.  ( F " W ) ) )
203202ssrdv 3161 . . . . . 6  |-  ( ph  ->  ( U  X.  V
)  C_  ( F " W ) )
204125, 203eqssd 3172 . . . . 5  |-  ( ph  ->  ( F " W
)  =  ( U  X.  V ) )
205 f1of1 5456 . . . . . . 7  |-  ( F : S -1-1-onto-> T  ->  F : S -1-1-> T )
206114, 205syl 14 . . . . . 6  |-  ( ph  ->  F : S -1-1-> T
)
207119a1i 9 . . . . . 6  |-  ( ph  ->  W  C_  S )
208 0z 9253 . . . . . . . . . 10  |-  0  e.  ZZ
209186, 188zmulcld 9370 . . . . . . . . . 10  |-  ( ph  ->  ( M  x.  N
)  e.  ZZ )
210 fzofig 10418 . . . . . . . . . 10  |-  ( ( 0  e.  ZZ  /\  ( M  x.  N
)  e.  ZZ )  ->  ( 0..^ ( M  x.  N ) )  e.  Fin )
211208, 209, 210sylancr 414 . . . . . . . . 9  |-  ( ph  ->  ( 0..^ ( M  x.  N ) )  e.  Fin )
2128, 211eqeltrid 2264 . . . . . . . 8  |-  ( ph  ->  S  e.  Fin )
213 elfzoelz 10133 . . . . . . . . . . . . . 14  |-  ( y  e.  ( 0..^ ( M  x.  N ) )  ->  y  e.  ZZ )
214213, 8eleq2s 2272 . . . . . . . . . . . . 13  |-  ( y  e.  S  ->  y  e.  ZZ )
215214adantl 277 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  S )  ->  y  e.  ZZ )
216209adantr 276 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  S )  ->  ( M  x.  N )  e.  ZZ )
217215, 216gcdcld 11952 . . . . . . . . . . 11  |-  ( (
ph  /\  y  e.  S )  ->  (
y  gcd  ( M  x.  N ) )  e. 
NN0 )
218217nn0zd 9362 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  S )  ->  (
y  gcd  ( M  x.  N ) )  e.  ZZ )
219 1zzd 9269 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  S )  ->  1  e.  ZZ )
220 zdceq 9317 . . . . . . . . . 10  |-  ( ( ( y  gcd  ( M  x.  N )
)  e.  ZZ  /\  1  e.  ZZ )  -> DECID  ( y  gcd  ( M  x.  N ) )  =  1 )
221218, 219, 220syl2anc 411 . . . . . . . . 9  |-  ( (
ph  /\  y  e.  S )  -> DECID  ( y  gcd  ( M  x.  N )
)  =  1 )
222221ralrimiva 2550 . . . . . . . 8  |-  ( ph  ->  A. y  e.  S DECID  (
y  gcd  ( M  x.  N ) )  =  1 )
223212, 222ssfirab 6927 . . . . . . 7  |-  ( ph  ->  { y  e.  S  |  ( y  gcd  ( M  x.  N
) )  =  1 }  e.  Fin )
2243, 223eqeltrid 2264 . . . . . 6  |-  ( ph  ->  W  e.  Fin )
225 f1imaeng 6786 . . . . . 6  |-  ( ( F : S -1-1-> T  /\  W  C_  S  /\  W  e.  Fin )  ->  ( F " W
)  ~~  W )
226206, 207, 224, 225syl3anc 1238 . . . . 5  |-  ( ph  ->  ( F " W
)  ~~  W )
227204, 226eqbrtrrd 4024 . . . 4  |-  ( ph  ->  ( U  X.  V
)  ~~  W )
228 fzofig 10418 . . . . . . . . 9  |-  ( ( 0  e.  ZZ  /\  M  e.  ZZ )  ->  ( 0..^ M )  e.  Fin )
229208, 186, 228sylancr 414 . . . . . . . 8  |-  ( ph  ->  ( 0..^ M )  e.  Fin )
230 elfzoelz 10133 . . . . . . . . . . . . 13  |-  ( y  e.  ( 0..^ M )  ->  y  e.  ZZ )
231230adantl 277 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  ( 0..^ M ) )  ->  y  e.  ZZ )
232186adantr 276 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  ( 0..^ M ) )  ->  M  e.  ZZ )
233231, 232gcdcld 11952 . . . . . . . . . . 11  |-  ( (
ph  /\  y  e.  ( 0..^ M ) )  ->  ( y  gcd 
M )  e.  NN0 )
234233nn0zd 9362 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  ( 0..^ M ) )  ->  ( y  gcd 
M )  e.  ZZ )
235 1z 9268 . . . . . . . . . 10  |-  1  e.  ZZ
236 zdceq 9317 . . . . . . . . . 10  |-  ( ( ( y  gcd  M
)  e.  ZZ  /\  1  e.  ZZ )  -> DECID  ( y  gcd  M )  =  1 )
237234, 235, 236sylancl 413 . . . . . . . . 9  |-  ( (
ph  /\  y  e.  ( 0..^ M ) )  -> DECID 
( y  gcd  M
)  =  1 )
238237ralrimiva 2550 . . . . . . . 8  |-  ( ph  ->  A. y  e.  ( 0..^ M )DECID  ( y  gcd  M )  =  1 )
239229, 238ssfirab 6927 . . . . . . 7  |-  ( ph  ->  { y  e.  ( 0..^ M )  |  ( y  gcd  M
)  =  1 }  e.  Fin )
24073, 239eqeltrid 2264 . . . . . 6  |-  ( ph  ->  U  e.  Fin )
241 fzofig 10418 . . . . . . . . 9  |-  ( ( 0  e.  ZZ  /\  N  e.  ZZ )  ->  ( 0..^ N )  e.  Fin )
242208, 188, 241sylancr 414 . . . . . . . 8  |-  ( ph  ->  ( 0..^ N )  e.  Fin )
243 elfzoelz 10133 . . . . . . . . . . . . 13  |-  ( y  e.  ( 0..^ N )  ->  y  e.  ZZ )
244243adantl 277 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  ( 0..^ N ) )  ->  y  e.  ZZ )
245188adantr 276 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  ( 0..^ N ) )  ->  N  e.  ZZ )
246244, 245gcdcld 11952 . . . . . . . . . . 11  |-  ( (
ph  /\  y  e.  ( 0..^ N ) )  ->  ( y  gcd 
N )  e.  NN0 )
247246nn0zd 9362 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  ( 0..^ N ) )  ->  ( y  gcd 
N )  e.  ZZ )
248 1zzd 9269 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  ( 0..^ N ) )  ->  1  e.  ZZ )
249 zdceq 9317 . . . . . . . . . 10  |-  ( ( ( y  gcd  N
)  e.  ZZ  /\  1  e.  ZZ )  -> DECID  ( y  gcd  N )  =  1 )
250247, 248, 249syl2anc 411 . . . . . . . . 9  |-  ( (
ph  /\  y  e.  ( 0..^ N ) )  -> DECID 
( y  gcd  N
)  =  1 )
251250ralrimiva 2550 . . . . . . . 8  |-  ( ph  ->  A. y  e.  ( 0..^ N )DECID  ( y  gcd  N )  =  1 )
252242, 251ssfirab 6927 . . . . . . 7  |-  ( ph  ->  { y  e.  ( 0..^ N )  |  ( y  gcd  N
)  =  1 }  e.  Fin )
253106, 252eqeltrid 2264 . . . . . 6  |-  ( ph  ->  V  e.  Fin )
254 xpfi 6923 . . . . . 6  |-  ( ( U  e.  Fin  /\  V  e.  Fin )  ->  ( U  X.  V
)  e.  Fin )
255240, 253, 254syl2anc 411 . . . . 5  |-  ( ph  ->  ( U  X.  V
)  e.  Fin )
256 hashen 10748 . . . . 5  |-  ( ( ( U  X.  V
)  e.  Fin  /\  W  e.  Fin )  ->  ( ( `  ( U  X.  V ) )  =  ( `  W
)  <->  ( U  X.  V )  ~~  W
) )
257255, 224, 256syl2anc 411 . . . 4  |-  ( ph  ->  ( ( `  ( U  X.  V ) )  =  ( `  W
)  <->  ( U  X.  V )  ~~  W
) )
258227, 257mpbird 167 . . 3  |-  ( ph  ->  ( `  ( U  X.  V ) )  =  ( `  W )
)
259 hashxp 10790 . . . 4  |-  ( ( U  e.  Fin  /\  V  e.  Fin )  ->  ( `  ( U  X.  V ) )  =  ( ( `  U
)  x.  ( `  V
) ) )
260240, 253, 259syl2anc 411 . . 3  |-  ( ph  ->  ( `  ( U  X.  V ) )  =  ( ( `  U
)  x.  ( `  V
) ) )
261258, 260eqtr3d 2212 . 2  |-  ( ph  ->  ( `  W )  =  ( ( `  U
)  x.  ( `  V
) ) )
26214, 20nnmulcld 8957 . . 3  |-  ( ph  ->  ( M  x.  N
)  e.  NN )
263 dfphi2 12203 . . . 4  |-  ( ( M  x.  N )  e.  NN  ->  ( phi `  ( M  x.  N ) )  =  ( `  { y  e.  ( 0..^ ( M  x.  N ) )  |  ( y  gcd  ( M  x.  N
) )  =  1 } ) )
2648rabeqi 2730 . . . . . 6  |-  { y  e.  S  |  ( y  gcd  ( M  x.  N ) )  =  1 }  =  { y  e.  ( 0..^ ( M  x.  N ) )  |  ( y  gcd  ( M  x.  N )
)  =  1 }
2653, 264eqtri 2198 . . . . 5  |-  W  =  { y  e.  ( 0..^ ( M  x.  N ) )  |  ( y  gcd  ( M  x.  N )
)  =  1 }
266265fveq2i 5514 . . . 4  |-  ( `  W
)  =  ( `  {
y  e.  ( 0..^ ( M  x.  N
) )  |  ( y  gcd  ( M  x.  N ) )  =  1 } )
267263, 266eqtr4di 2228 . . 3  |-  ( ( M  x.  N )  e.  NN  ->  ( phi `  ( M  x.  N ) )  =  ( `  W )
)
268262, 267syl 14 . 2  |-  ( ph  ->  ( phi `  ( M  x.  N )
)  =  ( `  W
) )
269 dfphi2 12203 . . . . 5  |-  ( M  e.  NN  ->  ( phi `  M )  =  ( `  { y  e.  ( 0..^ M )  |  ( y  gcd 
M )  =  1 } ) )
27073fveq2i 5514 . . . . 5  |-  ( `  U
)  =  ( `  {
y  e.  ( 0..^ M )  |  ( y  gcd  M )  =  1 } )
271269, 270eqtr4di 2228 . . . 4  |-  ( M  e.  NN  ->  ( phi `  M )  =  ( `  U )
)
27214, 271syl 14 . . 3  |-  ( ph  ->  ( phi `  M
)  =  ( `  U
) )
273 dfphi2 12203 . . . . 5  |-  ( N  e.  NN  ->  ( phi `  N )  =  ( `  { y  e.  ( 0..^ N )  |  ( y  gcd 
N )  =  1 } ) )
274106fveq2i 5514 . . . . 5  |-  ( `  V
)  =  ( `  {
y  e.  ( 0..^ N )  |  ( y  gcd  N )  =  1 } )
275273, 274eqtr4di 2228 . . . 4  |-  ( N  e.  NN  ->  ( phi `  N )  =  ( `  V )
)
27620, 275syl 14 . . 3  |-  ( ph  ->  ( phi `  N
)  =  ( `  V
) )
277272, 276oveq12d 5887 . 2  |-  ( ph  ->  ( ( phi `  M )  x.  ( phi `  N ) )  =  ( ( `  U
)  x.  ( `  V
) ) )
278261, 268, 2773eqtr4d 2220 1  |-  ( ph  ->  ( phi `  ( M  x.  N )
)  =  ( ( phi `  M )  x.  ( phi `  N ) ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 104    <-> wb 105  DECID wdc 834    /\ w3a 978    = wceq 1353    e. wcel 2148    =/= wne 2347   A.wral 2455   {crab 2459   _Vcvv 2737    C_ wss 3129   <.cop 3594   class class class wbr 4000    |-> cmpt 4061    X. cxp 4621   `'ccnv 4622   dom cdm 4623   "cima 4626   Fun wfun 5206    Fn wfn 5207   -->wf 5208   -1-1->wf1 5209   -1-1-onto->wf1o 5211   ` cfv 5212  (class class class)co 5869    ~~ cen 6732   Fincfn 6734   0cc0 7802   1c1 7803    x. cmul 7807    <_ cle 7983   NNcn 8908   ZZcz 9242   QQcq 9608  ..^cfzo 10128    mod cmo 10308  ♯chash 10739    || cdvds 11778    gcd cgcd 11926   phicphi 12192
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 106  ax-ia2 107  ax-ia3 108  ax-in1 614  ax-in2 615  ax-io 709  ax-5 1447  ax-7 1448  ax-gen 1449  ax-ie1 1493  ax-ie2 1494  ax-8 1504  ax-10 1505  ax-11 1506  ax-i12 1507  ax-bndl 1509  ax-4 1510  ax-17 1526  ax-i9 1530  ax-ial 1534  ax-i5r 1535  ax-13 2150  ax-14 2151  ax-ext 2159  ax-coll 4115  ax-sep 4118  ax-nul 4126  ax-pow 4171  ax-pr 4206  ax-un 4430  ax-setind 4533  ax-iinf 4584  ax-cnex 7893  ax-resscn 7894  ax-1cn 7895  ax-1re 7896  ax-icn 7897  ax-addcl 7898  ax-addrcl 7899  ax-mulcl 7900  ax-mulrcl 7901  ax-addcom 7902  ax-mulcom 7903  ax-addass 7904  ax-mulass 7905  ax-distr 7906  ax-i2m1 7907  ax-0lt1 7908  ax-1rid 7909  ax-0id 7910  ax-rnegex 7911  ax-precex 7912  ax-cnre 7913  ax-pre-ltirr 7914  ax-pre-ltwlin 7915  ax-pre-lttrn 7916  ax-pre-apti 7917  ax-pre-ltadd 7918  ax-pre-mulgt0 7919  ax-pre-mulext 7920  ax-arch 7921  ax-caucvg 7922
This theorem depends on definitions:  df-bi 117  df-stab 831  df-dc 835  df-3or 979  df-3an 980  df-tru 1356  df-fal 1359  df-nf 1461  df-sb 1763  df-eu 2029  df-mo 2030  df-clab 2164  df-cleq 2170  df-clel 2173  df-nfc 2308  df-ne 2348  df-nel 2443  df-ral 2460  df-rex 2461  df-reu 2462  df-rmo 2463  df-rab 2464  df-v 2739  df-sbc 2963  df-csb 3058  df-dif 3131  df-un 3133  df-in 3135  df-ss 3142  df-nul 3423  df-if 3535  df-pw 3576  df-sn 3597  df-pr 3598  df-op 3600  df-uni 3808  df-int 3843  df-iun 3886  df-br 4001  df-opab 4062  df-mpt 4063  df-tr 4099  df-id 4290  df-po 4293  df-iso 4294  df-iord 4363  df-on 4365  df-ilim 4366  df-suc 4368  df-iom 4587  df-xp 4629  df-rel 4630  df-cnv 4631  df-co 4632  df-dm 4633  df-rn 4634  df-res 4635  df-ima 4636  df-iota 5174  df-fun 5214  df-fn 5215  df-f 5216  df-f1 5217  df-fo 5218  df-f1o 5219  df-fv 5220  df-riota 5825  df-ov 5872  df-oprab 5873  df-mpo 5874  df-1st 6135  df-2nd 6136  df-recs 6300  df-irdg 6365  df-frec 6386  df-1o 6411  df-oadd 6415  df-er 6529  df-en 6735  df-dom 6736  df-fin 6737  df-sup 6977  df-pnf 7984  df-mnf 7985  df-xr 7986  df-ltxr 7987  df-le 7988  df-sub 8120  df-neg 8121  df-reap 8522  df-ap 8529  df-div 8619  df-inn 8909  df-2 8967  df-3 8968  df-4 8969  df-n0 9166  df-z 9243  df-uz 9518  df-q 9609  df-rp 9641  df-fz 9996  df-fzo 10129  df-fl 10256  df-mod 10309  df-seqfrec 10432  df-exp 10506  df-ihash 10740  df-cj 10835  df-re 10836  df-im 10837  df-rsqrt 10991  df-abs 10992  df-dvds 11779  df-gcd 11927  df-phi 12194
This theorem is referenced by:  phimul  12209
  Copyright terms: Public domain W3C validator