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

Theorem phimullem 11693
Description: Lemma for phimul 11694. (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 5713 . . . . . . . . . . . . . 14  |-  ( y  =  w  ->  (
y  gcd  ( M  x.  N ) )  =  ( w  gcd  ( M  x.  N )
) )
21eqeq1d 2108 . . . . . . . . . . . . 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 2796 . . . . . . . . . . . 12  |-  ( w  e.  W  <->  ( w  e.  S  /\  (
w  gcd  ( M  x.  N ) )  =  1 ) )
54simplbi 270 . . . . . . . . . . 11  |-  ( w  e.  W  ->  w  e.  S )
65adantl 273 . . . . . . . . . 10  |-  ( (
ph  /\  w  e.  W )  ->  w  e.  S )
7 elfzoelz 9765 . . . . . . . . . . . . . . 15  |-  ( w  e.  ( 0..^ ( M  x.  N ) )  ->  w  e.  ZZ )
8 crth.1 . . . . . . . . . . . . . . 15  |-  S  =  ( 0..^ ( M  x.  N ) )
97, 8eleq2s 2194 . . . . . . . . . . . . . 14  |-  ( w  e.  S  ->  w  e.  ZZ )
106, 9syl 14 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  w  e.  ZZ )
11 zq 9268 . . . . . . . . . . . . 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 961 . . . . . . . . . . . . . 14  |-  ( ph  ->  M  e.  NN )
1514adantr 272 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  M  e.  NN )
16 nnq 9275 . . . . . . . . . . . . 13  |-  ( M  e.  NN  ->  M  e.  QQ )
1715, 16syl 14 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  M  e.  QQ )
1815nngt0d 8622 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  0  <  M )
1912, 17, 18modqcld 9942 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  W )  ->  (
w  mod  M )  e.  QQ )
2013simp2d 962 . . . . . . . . . . . . . 14  |-  ( ph  ->  N  e.  NN )
2120adantr 272 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  N  e.  NN )
22 nnq 9275 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  N  e.  QQ )
2321, 22syl 14 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  N  e.  QQ )
2421nngt0d 8622 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  0  <  N )
2512, 23, 24modqcld 9942 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  W )  ->  (
w  mod  N )  e.  QQ )
26 opexg 4088 . . . . . . . . . . 11  |-  ( ( ( w  mod  M
)  e.  QQ  /\  ( w  mod  N )  e.  QQ )  ->  <. ( w  mod  M
) ,  ( w  mod  N ) >.  e.  _V )
2719, 25, 26syl2anc 406 . . . . . . . . . 10  |-  ( (
ph  /\  w  e.  W )  ->  <. (
w  mod  M ) ,  ( w  mod  N ) >.  e.  _V )
28 oveq1 5713 . . . . . . . . . . . 12  |-  ( x  =  w  ->  (
x  mod  M )  =  ( w  mod  M ) )
29 oveq1 5713 . . . . . . . . . . . 12  |-  ( x  =  w  ->  (
x  mod  N )  =  ( w  mod  N ) )
3028, 29opeq12d 3660 . . . . . . . . . . 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 5429 . . . . . . . . . 10  |-  ( ( w  e.  S  /\  <.
( w  mod  M
) ,  ( w  mod  N ) >.  e.  _V )  ->  ( F `  w )  =  <. ( w  mod  M ) ,  ( w  mod  N ) >.
)
336, 27, 32syl2anc 406 . . . . . . . . 9  |-  ( (
ph  /\  w  e.  W )  ->  ( F `  w )  =  <. ( w  mod  M ) ,  ( w  mod  N ) >.
)
345, 8syl6eleq 2192 . . . . . . . . . . . . . 14  |-  ( w  e.  W  ->  w  e.  ( 0..^ ( M  x.  N ) ) )
3534adantl 273 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  w  e.  ( 0..^ ( M  x.  N ) ) )
3635, 7syl 14 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  w  e.  ZZ )
37 zmodfzo 9961 . . . . . . . . . . . 12  |-  ( ( w  e.  ZZ  /\  M  e.  NN )  ->  ( w  mod  M
)  e.  ( 0..^ M ) )
3836, 15, 37syl2anc 406 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  W )  ->  (
w  mod  M )  e.  ( 0..^ M ) )
39 modgcd 11474 . . . . . . . . . . . . 13  |-  ( ( w  e.  ZZ  /\  M  e.  NN )  ->  ( ( w  mod  M )  gcd  M )  =  ( w  gcd  M ) )
4036, 15, 39syl2anc 406 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  (
( w  mod  M
)  gcd  M )  =  ( w  gcd  M ) )
4115nnzd 9024 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  w  e.  W )  ->  M  e.  ZZ )
42 gcddvds 11447 . . . . . . . . . . . . . . . . 17  |-  ( ( w  e.  ZZ  /\  M  e.  ZZ )  ->  ( ( w  gcd  M )  ||  w  /\  ( w  gcd  M ) 
||  M ) )
4336, 41, 42syl2anc 406 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  (
( w  gcd  M
)  ||  w  /\  ( w  gcd  M ) 
||  M ) )
4443simpld 111 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  ||  w )
45 nnne0 8606 . . . . . . . . . . . . . . . . . . 19  |-  ( M  e.  NN  ->  M  =/=  0 )
46 simpr 109 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( w  =  0  /\  M  =  0 )  ->  M  =  0 )
4746necon3ai 2316 . . . . . . . . . . . . . . . . . . 19  |-  ( M  =/=  0  ->  -.  ( w  =  0  /\  M  =  0
) )
4815, 45, 473syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  w  e.  W )  ->  -.  ( w  =  0  /\  M  =  0
) )
49 gcdn0cl 11446 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( w  e.  ZZ  /\  M  e.  ZZ )  /\  -.  ( w  =  0  /\  M  =  0 ) )  ->  ( w  gcd  M )  e.  NN )
5036, 41, 48, 49syl21anc 1183 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  e.  NN )
5150nnzd 9024 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  e.  ZZ )
5221nnzd 9024 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  N  e.  ZZ )
5343simprd 113 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  ||  M )
5451, 41, 52, 53dvdsmultr1d 11327 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  ||  ( M  x.  N
) )
5515, 21nnmulcld 8627 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  w  e.  W )  ->  ( M  x.  N )  e.  NN )
5655nnzd 9024 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  ( M  x.  N )  e.  ZZ )
57 nnne0 8606 . . . . . . . . . . . . . . . . 17  |-  ( ( M  x.  N )  e.  NN  ->  ( M  x.  N )  =/=  0 )
58 simpr 109 . . . . . . . . . . . . . . . . . 18  |-  ( ( w  =  0  /\  ( M  x.  N
)  =  0 )  ->  ( M  x.  N )  =  0 )
5958necon3ai 2316 . . . . . . . . . . . . . . . . 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 11448 . . . . . . . . . . . . . . . 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 1187 . . . . . . . . . . . . . . 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 427 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  <_  ( w  gcd  ( M  x.  N )
) )
644simprbi 271 . . . . . . . . . . . . . . 15  |-  ( w  e.  W  ->  (
w  gcd  ( M  x.  N ) )  =  1 )
6564adantl 273 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  ( M  x.  N ) )  =  1 )
6663, 65breqtrd 3899 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  <_  1 )
67 nnle1eq1 8602 . . . . . . . . . . . . . 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 146 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  =  1 )
7040, 69eqtrd 2132 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  W )  ->  (
( w  mod  M
)  gcd  M )  =  1 )
71 oveq1 5713 . . . . . . . . . . . . 13  |-  ( y  =  ( w  mod  M )  ->  ( y  gcd  M )  =  ( ( w  mod  M
)  gcd  M )
)
7271eqeq1d 2108 . . . . . . . . . . . 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 2796 . . . . . . . . . . 11  |-  ( ( w  mod  M )  e.  U  <->  ( (
w  mod  M )  e.  ( 0..^ M )  /\  ( ( w  mod  M )  gcd 
M )  =  1 ) )
7538, 70, 74sylanbrc 411 . . . . . . . . . 10  |-  ( (
ph  /\  w  e.  W )  ->  (
w  mod  M )  e.  U )
76 zmodfzo 9961 . . . . . . . . . . . 12  |-  ( ( w  e.  ZZ  /\  N  e.  NN )  ->  ( w  mod  N
)  e.  ( 0..^ N ) )
7736, 21, 76syl2anc 406 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  W )  ->  (
w  mod  N )  e.  ( 0..^ N ) )
78 modgcd 11474 . . . . . . . . . . . . 13  |-  ( ( w  e.  ZZ  /\  N  e.  NN )  ->  ( ( w  mod  N )  gcd  N )  =  ( w  gcd  N ) )
7936, 21, 78syl2anc 406 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  (
( w  mod  N
)  gcd  N )  =  ( w  gcd  N ) )
80 gcddvds 11447 . . . . . . . . . . . . . . . . 17  |-  ( ( w  e.  ZZ  /\  N  e.  ZZ )  ->  ( ( w  gcd  N )  ||  w  /\  ( w  gcd  N ) 
||  N ) )
8136, 52, 80syl2anc 406 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  (
( w  gcd  N
)  ||  w  /\  ( w  gcd  N ) 
||  N ) )
8281simpld 111 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  ||  w )
8381simprd 113 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  ||  N )
84 dvdsmul2 11311 . . . . . . . . . . . . . . . . 17  |-  ( ( M  e.  ZZ  /\  N  e.  ZZ )  ->  N  ||  ( M  x.  N ) )
8541, 52, 84syl2anc 406 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  N  ||  ( M  x.  N
) )
86 nnne0 8606 . . . . . . . . . . . . . . . . . . . 20  |-  ( N  e.  NN  ->  N  =/=  0 )
87 simpr 109 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( w  =  0  /\  N  =  0 )  ->  N  =  0 )
8887necon3ai 2316 . . . . . . . . . . . . . . . . . . . 20  |-  ( N  =/=  0  ->  -.  ( w  =  0  /\  N  =  0
) )
8921, 86, 883syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  w  e.  W )  ->  -.  ( w  =  0  /\  N  =  0
) )
90 gcdn0cl 11446 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( w  e.  ZZ  /\  N  e.  ZZ )  /\  -.  ( w  =  0  /\  N  =  0 ) )  ->  ( w  gcd  N )  e.  NN )
9136, 52, 89, 90syl21anc 1183 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  e.  NN )
9291nnzd 9024 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  e.  ZZ )
93 dvdstr 11325 . . . . . . . . . . . . . . . . 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 1184 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  (
( ( w  gcd  N )  ||  N  /\  N  ||  ( M  x.  N ) )  -> 
( w  gcd  N
)  ||  ( M  x.  N ) ) )
9583, 85, 94mp2and 427 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  ||  ( M  x.  N
) )
96 dvdslegcd 11448 . . . . . . . . . . . . . . . 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 1187 . . . . . . . . . . . . . . 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 427 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  <_  ( w  gcd  ( M  x.  N )
) )
9998, 65breqtrd 3899 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  <_  1 )
100 nnle1eq1 8602 . . . . . . . . . . . . . 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 146 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  =  1 )
10379, 102eqtrd 2132 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  W )  ->  (
( w  mod  N
)  gcd  N )  =  1 )
104 oveq1 5713 . . . . . . . . . . . . 13  |-  ( y  =  ( w  mod  N )  ->  ( y  gcd  N )  =  ( ( w  mod  N
)  gcd  N )
)
105104eqeq1d 2108 . . . . . . . . . . . 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 2796 . . . . . . . . . . 11  |-  ( ( w  mod  N )  e.  V  <->  ( (
w  mod  N )  e.  ( 0..^ N )  /\  ( ( w  mod  N )  gcd 
N )  =  1 ) )
10877, 103, 107sylanbrc 411 . . . . . . . . . 10  |-  ( (
ph  /\  w  e.  W )  ->  (
w  mod  N )  e.  V )
109 opelxpi 4509 . . . . . . . . . 10  |-  ( ( ( w  mod  M
)  e.  U  /\  ( w  mod  N )  e.  V )  ->  <. ( w  mod  M
) ,  ( w  mod  N ) >.  e.  ( U  X.  V
) )
11075, 108, 109syl2anc 406 . . . . . . . . 9  |-  ( (
ph  /\  w  e.  W )  ->  <. (
w  mod  M ) ,  ( w  mod  N ) >.  e.  ( U  X.  V ) )
11133, 110eqeltrd 2176 . . . . . . . 8  |-  ( (
ph  /\  w  e.  W )  ->  ( F `  w )  e.  ( U  X.  V
) )
112111ralrimiva 2464 . . . . . . 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 11692 . . . . . . . . 9  |-  ( ph  ->  F : S -1-1-onto-> T )
115 f1ofn 5302 . . . . . . . . 9  |-  ( F : S -1-1-onto-> T  ->  F  Fn  S )
116 fnfun 5156 . . . . . . . . 9  |-  ( F  Fn  S  ->  Fun  F )
117114, 115, 1163syl 17 . . . . . . . 8  |-  ( ph  ->  Fun  F )
118 ssrab2 3129 . . . . . . . . . 10  |-  { y  e.  S  |  ( y  gcd  ( M  x.  N ) )  =  1 }  C_  S
1193, 118eqsstri 3079 . . . . . . . . 9  |-  W  C_  S
120 fndm 5158 . . . . . . . . . 10  |-  ( F  Fn  S  ->  dom  F  =  S )
121114, 115, 1203syl 17 . . . . . . . . 9  |-  ( ph  ->  dom  F  =  S )
122119, 121syl5sseqr 3098 . . . . . . . 8  |-  ( ph  ->  W  C_  dom  F )
123 funimass4 5404 . . . . . . . 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 406 . . . . . . 7  |-  ( ph  ->  ( ( F " W )  C_  ( U  X.  V )  <->  A. w  e.  W  ( F `  w )  e.  ( U  X.  V ) ) )
125112, 124mpbird 166 . . . . . 6  |-  ( ph  ->  ( F " W
)  C_  ( U  X.  V ) )
126 ssrab2 3129 . . . . . . . . . . . . . 14  |-  { y  e.  ( 0..^ M )  |  ( y  gcd  M )  =  1 }  C_  (
0..^ M )
12773, 126eqsstri 3079 . . . . . . . . . . . . 13  |-  U  C_  ( 0..^ M )
128 ssrab2 3129 . . . . . . . . . . . . . 14  |-  { y  e.  ( 0..^ N )  |  ( y  gcd  N )  =  1 }  C_  (
0..^ N )
129106, 128eqsstri 3079 . . . . . . . . . . . . 13  |-  V  C_  ( 0..^ N )
130 xpss12 4584 . . . . . . . . . . . . 13  |-  ( ( U  C_  ( 0..^ M )  /\  V  C_  ( 0..^ N ) )  ->  ( U  X.  V )  C_  (
( 0..^ M )  X.  ( 0..^ N ) ) )
131127, 129, 130mp2an 420 . . . . . . . . . . . 12  |-  ( U  X.  V )  C_  ( ( 0..^ M )  X.  ( 0..^ N ) )
132131, 113sseqtr4i 3082 . . . . . . . . . . 11  |-  ( U  X.  V )  C_  T
133132sseli 3043 . . . . . . . . . 10  |-  ( z  e.  ( U  X.  V )  ->  z  e.  T )
134 f1ocnvfv2 5611 . . . . . . . . . 10  |-  ( ( F : S -1-1-onto-> T  /\  z  e.  T )  ->  ( F `  ( `' F `  z ) )  =  z )
135114, 133, 134syl2an 285 . . . . . . . . 9  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( F `  ( `' F `  z )
)  =  z )
136 f1ocnv 5314 . . . . . . . . . . . . 13  |-  ( F : S -1-1-onto-> T  ->  `' F : T -1-1-onto-> S )
137 f1of 5301 . . . . . . . . . . . . 13  |-  ( `' F : T -1-1-onto-> S  ->  `' F : T --> S )
138114, 136, 1373syl 17 . . . . . . . . . . . 12  |-  ( ph  ->  `' F : T --> S )
139 ffvelrn 5485 . . . . . . . . . . . 12  |-  ( ( `' F : T --> S  /\  z  e.  T )  ->  ( `' F `  z )  e.  S
)
140138, 133, 139syl2an 285 . . . . . . . . . . 11  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( `' F `  z )  e.  S )
141140, 8syl6eleq 2192 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( `' F `  z )  e.  ( 0..^ ( M  x.  N ) ) )
142 elfzoelz 9765 . . . . . . . . . . . . . . 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 272 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  M  e.  NN )
145 modgcd 11474 . . . . . . . . . . . . . 14  |-  ( ( ( `' F `  z )  e.  ZZ  /\  M  e.  NN )  ->  ( ( ( `' F `  z )  mod  M )  gcd 
M )  =  ( ( `' F `  z )  gcd  M
) )
146143, 144, 145syl2anc 406 . . . . . . . . . . . . 13  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( ( `' F `  z )  mod  M
)  gcd  M )  =  ( ( `' F `  z )  gcd  M ) )
147 zq 9268 . . . . . . . . . . . . . . . . . . . . . . 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 8622 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  0  <  M )
151148, 149, 150modqcld 9942 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  mod  M
)  e.  QQ )
15220adantr 272 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  N  e.  NN )
153152, 22syl 14 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  N  e.  QQ )
154152nngt0d 8622 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  0  <  N )
155148, 153, 154modqcld 9942 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  mod  N
)  e.  QQ )
156 opexg 4088 . . . . . . . . . . . . . . . . . . . . 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 406 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  <. (
( `' F `  z )  mod  M
) ,  ( ( `' F `  z )  mod  N ) >.  e.  _V )
158 oveq1 5713 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( w  =  ( `' F `  z )  ->  (
w  mod  M )  =  ( ( `' F `  z )  mod  M ) )
159 oveq1 5713 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( w  =  ( `' F `  z )  ->  (
w  mod  N )  =  ( ( `' F `  z )  mod  N ) )
160158, 159opeq12d 3660 . . . . . . . . . . . . . . . . . . . . 21  |-  ( w  =  ( `' F `  z )  ->  <. (
w  mod  M ) ,  ( w  mod  N ) >.  =  <. ( ( `' F `  z )  mod  M
) ,  ( ( `' F `  z )  mod  N ) >.
)
16130cbvmptv 3964 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( x  e.  S  |->  <. (
x  mod  M ) ,  ( x  mod  N ) >. )  =  ( w  e.  S  |->  <.
( w  mod  M
) ,  ( w  mod  N ) >.
)
16231, 161eqtri 2120 . . . . . . . . . . . . . . . . . . . . 21  |-  F  =  ( w  e.  S  |-> 
<. ( w  mod  M
) ,  ( w  mod  N ) >.
)
163160, 162fvmptg 5429 . . . . . . . . . . . . . . . . . . . 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 406 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( F `  ( `' F `  z )
)  =  <. (
( `' F `  z )  mod  M
) ,  ( ( `' F `  z )  mod  N ) >.
)
165135, 164eqtr3d 2134 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  z  =  <. ( ( `' F `  z )  mod  M ) ,  ( ( `' F `  z )  mod  N
) >. )
166 simpr 109 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  z  e.  ( U  X.  V
) )
167165, 166eqeltrrd 2177 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  <. (
( `' F `  z )  mod  M
) ,  ( ( `' F `  z )  mod  N ) >.  e.  ( U  X.  V
) )
168 opelxp 4507 . . . . . . . . . . . . . . . . 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 121 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( ( `' F `  z )  mod  M
)  e.  U  /\  ( ( `' F `  z )  mod  N
)  e.  V ) )
170169simpld 111 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  mod  M
)  e.  U )
171 oveq1 5713 . . . . . . . . . . . . . . . . 17  |-  ( y  =  ( ( `' F `  z )  mod  M )  -> 
( y  gcd  M
)  =  ( ( ( `' F `  z )  mod  M
)  gcd  M )
)
172171eqeq1d 2108 . . . . . . . . . . . . . . . 16  |-  ( y  =  ( ( `' F `  z )  mod  M )  -> 
( ( y  gcd 
M )  =  1  <-> 
( ( ( `' F `  z )  mod  M )  gcd 
M )  =  1 ) )
173172, 73elrab2 2796 . . . . . . . . . . . . . . 15  |-  ( ( ( `' F `  z )  mod  M
)  e.  U  <->  ( (
( `' F `  z )  mod  M
)  e.  ( 0..^ M )  /\  (
( ( `' F `  z )  mod  M
)  gcd  M )  =  1 ) )
174170, 173sylib 121 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( ( `' F `  z )  mod  M
)  e.  ( 0..^ M )  /\  (
( ( `' F `  z )  mod  M
)  gcd  M )  =  1 ) )
175174simprd 113 . . . . . . . . . . . . 13  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( ( `' F `  z )  mod  M
)  gcd  M )  =  1 )
176146, 175eqtr3d 2134 . . . . . . . . . . . 12  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  gcd  M
)  =  1 )
177 modgcd 11474 . . . . . . . . . . . . . 14  |-  ( ( ( `' F `  z )  e.  ZZ  /\  N  e.  NN )  ->  ( ( ( `' F `  z )  mod  N )  gcd 
N )  =  ( ( `' F `  z )  gcd  N
) )
178143, 152, 177syl2anc 406 . . . . . . . . . . . . 13  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( ( `' F `  z )  mod  N
)  gcd  N )  =  ( ( `' F `  z )  gcd  N ) )
179169simprd 113 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  mod  N
)  e.  V )
180 oveq1 5713 . . . . . . . . . . . . . . . . 17  |-  ( y  =  ( ( `' F `  z )  mod  N )  -> 
( y  gcd  N
)  =  ( ( ( `' F `  z )  mod  N
)  gcd  N )
)
181180eqeq1d 2108 . . . . . . . . . . . . . . . 16  |-  ( y  =  ( ( `' F `  z )  mod  N )  -> 
( ( y  gcd 
N )  =  1  <-> 
( ( ( `' F `  z )  mod  N )  gcd 
N )  =  1 ) )
182181, 106elrab2 2796 . . . . . . . . . . . . . . 15  |-  ( ( ( `' F `  z )  mod  N
)  e.  V  <->  ( (
( `' F `  z )  mod  N
)  e.  ( 0..^ N )  /\  (
( ( `' F `  z )  mod  N
)  gcd  N )  =  1 ) )
183179, 182sylib 121 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( ( `' F `  z )  mod  N
)  e.  ( 0..^ N )  /\  (
( ( `' F `  z )  mod  N
)  gcd  N )  =  1 ) )
184183simprd 113 . . . . . . . . . . . . 13  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( ( `' F `  z )  mod  N
)  gcd  N )  =  1 )
185178, 184eqtr3d 2134 . . . . . . . . . . . 12  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  gcd  N
)  =  1 )
18614nnzd 9024 . . . . . . . . . . . . . 14  |-  ( ph  ->  M  e.  ZZ )
187186adantr 272 . . . . . . . . . . . . 13  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  M  e.  ZZ )
18820nnzd 9024 . . . . . . . . . . . . . 14  |-  ( ph  ->  N  e.  ZZ )
189188adantr 272 . . . . . . . . . . . . 13  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  N  e.  ZZ )
190 rpmul 11572 . . . . . . . . . . . . 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 1184 . . . . . . . . . . . 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 427 . . . . . . . . . . 11  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  gcd  ( M  x.  N )
)  =  1 )
193 oveq1 5713 . . . . . . . . . . . . 13  |-  ( y  =  ( `' F `  z )  ->  (
y  gcd  ( M  x.  N ) )  =  ( ( `' F `  z )  gcd  ( M  x.  N )
) )
194193eqeq1d 2108 . . . . . . . . . . . 12  |-  ( y  =  ( `' F `  z )  ->  (
( y  gcd  ( M  x.  N )
)  =  1  <->  (
( `' F `  z )  gcd  ( M  x.  N )
)  =  1 ) )
195194, 3elrab2 2796 . . . . . . . . . . 11  |-  ( ( `' F `  z )  e.  W  <->  ( ( `' F `  z )  e.  S  /\  (
( `' F `  z )  gcd  ( M  x.  N )
)  =  1 ) )
196140, 192, 195sylanbrc 411 . . . . . . . . . 10  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( `' F `  z )  e.  W )
197 funfvima2 5582 . . . . . . . . . . . 12  |-  ( ( Fun  F  /\  W  C_ 
dom  F )  -> 
( ( `' F `  z )  e.  W  ->  ( F `  ( `' F `  z ) )  e.  ( F
" W ) ) )
198117, 122, 197syl2anc 406 . . . . . . . . . . 11  |-  ( ph  ->  ( ( `' F `  z )  e.  W  ->  ( F `  ( `' F `  z ) )  e.  ( F
" W ) ) )
199198imp 123 . . . . . . . . . 10  |-  ( (
ph  /\  ( `' F `  z )  e.  W )  ->  ( F `  ( `' F `  z )
)  e.  ( F
" W ) )
200196, 199syldan 278 . . . . . . . . 9  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( F `  ( `' F `  z )
)  e.  ( F
" W ) )
201135, 200eqeltrrd 2177 . . . . . . . 8  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  z  e.  ( F " W
) )
202201ex 114 . . . . . . 7  |-  ( ph  ->  ( z  e.  ( U  X.  V )  ->  z  e.  ( F " W ) ) )
203202ssrdv 3053 . . . . . 6  |-  ( ph  ->  ( U  X.  V
)  C_  ( F " W ) )
204125, 203eqssd 3064 . . . . 5  |-  ( ph  ->  ( F " W
)  =  ( U  X.  V ) )
205 f1of1 5300 . . . . . . 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 8917 . . . . . . . . . 10  |-  0  e.  ZZ
209186, 188zmulcld 9031 . . . . . . . . . 10  |-  ( ph  ->  ( M  x.  N
)  e.  ZZ )
210 fzofig 10046 . . . . . . . . . 10  |-  ( ( 0  e.  ZZ  /\  ( M  x.  N
)  e.  ZZ )  ->  ( 0..^ ( M  x.  N ) )  e.  Fin )
211208, 209, 210sylancr 408 . . . . . . . . 9  |-  ( ph  ->  ( 0..^ ( M  x.  N ) )  e.  Fin )
2128, 211syl5eqel 2186 . . . . . . . 8  |-  ( ph  ->  S  e.  Fin )
213 elfzoelz 9765 . . . . . . . . . . . . . 14  |-  ( y  e.  ( 0..^ ( M  x.  N ) )  ->  y  e.  ZZ )
214213, 8eleq2s 2194 . . . . . . . . . . . . 13  |-  ( y  e.  S  ->  y  e.  ZZ )
215214adantl 273 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  S )  ->  y  e.  ZZ )
216209adantr 272 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  S )  ->  ( M  x.  N )  e.  ZZ )
217215, 216gcdcld 11452 . . . . . . . . . . 11  |-  ( (
ph  /\  y  e.  S )  ->  (
y  gcd  ( M  x.  N ) )  e. 
NN0 )
218217nn0zd 9023 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  S )  ->  (
y  gcd  ( M  x.  N ) )  e.  ZZ )
219 1zzd 8933 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  S )  ->  1  e.  ZZ )
220 zdceq 8978 . . . . . . . . . 10  |-  ( ( ( y  gcd  ( M  x.  N )
)  e.  ZZ  /\  1  e.  ZZ )  -> DECID  ( y  gcd  ( M  x.  N ) )  =  1 )
221218, 219, 220syl2anc 406 . . . . . . . . 9  |-  ( (
ph  /\  y  e.  S )  -> DECID  ( y  gcd  ( M  x.  N )
)  =  1 )
222221ralrimiva 2464 . . . . . . . 8  |-  ( ph  ->  A. y  e.  S DECID  (
y  gcd  ( M  x.  N ) )  =  1 )
223212, 222ssfirab 6750 . . . . . . 7  |-  ( ph  ->  { y  e.  S  |  ( y  gcd  ( M  x.  N
) )  =  1 }  e.  Fin )
2243, 223syl5eqel 2186 . . . . . 6  |-  ( ph  ->  W  e.  Fin )
225 f1imaeng 6616 . . . . . 6  |-  ( ( F : S -1-1-> T  /\  W  C_  S  /\  W  e.  Fin )  ->  ( F " W
)  ~~  W )
226206, 207, 224, 225syl3anc 1184 . . . . 5  |-  ( ph  ->  ( F " W
)  ~~  W )
227204, 226eqbrtrrd 3897 . . . 4  |-  ( ph  ->  ( U  X.  V
)  ~~  W )
228 fzofig 10046 . . . . . . . . 9  |-  ( ( 0  e.  ZZ  /\  M  e.  ZZ )  ->  ( 0..^ M )  e.  Fin )
229208, 186, 228sylancr 408 . . . . . . . 8  |-  ( ph  ->  ( 0..^ M )  e.  Fin )
230 elfzoelz 9765 . . . . . . . . . . . . 13  |-  ( y  e.  ( 0..^ M )  ->  y  e.  ZZ )
231230adantl 273 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  ( 0..^ M ) )  ->  y  e.  ZZ )
232186adantr 272 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  ( 0..^ M ) )  ->  M  e.  ZZ )
233231, 232gcdcld 11452 . . . . . . . . . . 11  |-  ( (
ph  /\  y  e.  ( 0..^ M ) )  ->  ( y  gcd 
M )  e.  NN0 )
234233nn0zd 9023 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  ( 0..^ M ) )  ->  ( y  gcd 
M )  e.  ZZ )
235 1z 8932 . . . . . . . . . 10  |-  1  e.  ZZ
236 zdceq 8978 . . . . . . . . . 10  |-  ( ( ( y  gcd  M
)  e.  ZZ  /\  1  e.  ZZ )  -> DECID  ( y  gcd  M )  =  1 )
237234, 235, 236sylancl 407 . . . . . . . . 9  |-  ( (
ph  /\  y  e.  ( 0..^ M ) )  -> DECID 
( y  gcd  M
)  =  1 )
238237ralrimiva 2464 . . . . . . . 8  |-  ( ph  ->  A. y  e.  ( 0..^ M )DECID  ( y  gcd  M )  =  1 )
239229, 238ssfirab 6750 . . . . . . 7  |-  ( ph  ->  { y  e.  ( 0..^ M )  |  ( y  gcd  M
)  =  1 }  e.  Fin )
24073, 239syl5eqel 2186 . . . . . 6  |-  ( ph  ->  U  e.  Fin )
241 fzofig 10046 . . . . . . . . 9  |-  ( ( 0  e.  ZZ  /\  N  e.  ZZ )  ->  ( 0..^ N )  e.  Fin )
242208, 188, 241sylancr 408 . . . . . . . 8  |-  ( ph  ->  ( 0..^ N )  e.  Fin )
243 elfzoelz 9765 . . . . . . . . . . . . 13  |-  ( y  e.  ( 0..^ N )  ->  y  e.  ZZ )
244243adantl 273 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  ( 0..^ N ) )  ->  y  e.  ZZ )
245188adantr 272 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  ( 0..^ N ) )  ->  N  e.  ZZ )
246244, 245gcdcld 11452 . . . . . . . . . . 11  |-  ( (
ph  /\  y  e.  ( 0..^ N ) )  ->  ( y  gcd 
N )  e.  NN0 )
247246nn0zd 9023 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  ( 0..^ N ) )  ->  ( y  gcd 
N )  e.  ZZ )
248 1zzd 8933 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  ( 0..^ N ) )  ->  1  e.  ZZ )
249 zdceq 8978 . . . . . . . . . 10  |-  ( ( ( y  gcd  N
)  e.  ZZ  /\  1  e.  ZZ )  -> DECID  ( y  gcd  N )  =  1 )
250247, 248, 249syl2anc 406 . . . . . . . . 9  |-  ( (
ph  /\  y  e.  ( 0..^ N ) )  -> DECID 
( y  gcd  N
)  =  1 )
251250ralrimiva 2464 . . . . . . . 8  |-  ( ph  ->  A. y  e.  ( 0..^ N )DECID  ( y  gcd  N )  =  1 )
252242, 251ssfirab 6750 . . . . . . 7  |-  ( ph  ->  { y  e.  ( 0..^ N )  |  ( y  gcd  N
)  =  1 }  e.  Fin )
253106, 252syl5eqel 2186 . . . . . 6  |-  ( ph  ->  V  e.  Fin )
254 xpfi 6747 . . . . . 6  |-  ( ( U  e.  Fin  /\  V  e.  Fin )  ->  ( U  X.  V
)  e.  Fin )
255240, 253, 254syl2anc 406 . . . . 5  |-  ( ph  ->  ( U  X.  V
)  e.  Fin )
256 hashen 10371 . . . . 5  |-  ( ( ( U  X.  V
)  e.  Fin  /\  W  e.  Fin )  ->  ( ( `  ( U  X.  V ) )  =  ( `  W
)  <->  ( U  X.  V )  ~~  W
) )
257255, 224, 256syl2anc 406 . . . 4  |-  ( ph  ->  ( ( `  ( U  X.  V ) )  =  ( `  W
)  <->  ( U  X.  V )  ~~  W
) )
258227, 257mpbird 166 . . 3  |-  ( ph  ->  ( `  ( U  X.  V ) )  =  ( `  W )
)
259 hashxp 10413 . . . 4  |-  ( ( U  e.  Fin  /\  V  e.  Fin )  ->  ( `  ( U  X.  V ) )  =  ( ( `  U
)  x.  ( `  V
) ) )
260240, 253, 259syl2anc 406 . . 3  |-  ( ph  ->  ( `  ( U  X.  V ) )  =  ( ( `  U
)  x.  ( `  V
) ) )
261258, 260eqtr3d 2134 . 2  |-  ( ph  ->  ( `  W )  =  ( ( `  U
)  x.  ( `  V
) ) )
26214, 20nnmulcld 8627 . . 3  |-  ( ph  ->  ( M  x.  N
)  e.  NN )
263 dfphi2 11688 . . . 4  |-  ( ( M  x.  N )  e.  NN  ->  ( phi `  ( M  x.  N ) )  =  ( `  { y  e.  ( 0..^ ( M  x.  N ) )  |  ( y  gcd  ( M  x.  N
) )  =  1 } ) )
2648rabeqi 2634 . . . . . 6  |-  { y  e.  S  |  ( y  gcd  ( M  x.  N ) )  =  1 }  =  { y  e.  ( 0..^ ( M  x.  N ) )  |  ( y  gcd  ( M  x.  N )
)  =  1 }
2653, 264eqtri 2120 . . . . 5  |-  W  =  { y  e.  ( 0..^ ( M  x.  N ) )  |  ( y  gcd  ( M  x.  N )
)  =  1 }
266265fveq2i 5356 . . . 4  |-  ( `  W
)  =  ( `  {
y  e.  ( 0..^ ( M  x.  N
) )  |  ( y  gcd  ( M  x.  N ) )  =  1 } )
267263, 266syl6eqr 2150 . . 3  |-  ( ( M  x.  N )  e.  NN  ->  ( phi `  ( M  x.  N ) )  =  ( `  W )
)
268262, 267syl 14 . 2  |-  ( ph  ->  ( phi `  ( M  x.  N )
)  =  ( `  W
) )
269 dfphi2 11688 . . . . 5  |-  ( M  e.  NN  ->  ( phi `  M )  =  ( `  { y  e.  ( 0..^ M )  |  ( y  gcd 
M )  =  1 } ) )
27073fveq2i 5356 . . . . 5  |-  ( `  U
)  =  ( `  {
y  e.  ( 0..^ M )  |  ( y  gcd  M )  =  1 } )
271269, 270syl6eqr 2150 . . . 4  |-  ( M  e.  NN  ->  ( phi `  M )  =  ( `  U )
)
27214, 271syl 14 . . 3  |-  ( ph  ->  ( phi `  M
)  =  ( `  U
) )
273 dfphi2 11688 . . . . 5  |-  ( N  e.  NN  ->  ( phi `  N )  =  ( `  { y  e.  ( 0..^ N )  |  ( y  gcd 
N )  =  1 } ) )
274106fveq2i 5356 . . . . 5  |-  ( `  V
)  =  ( `  {
y  e.  ( 0..^ N )  |  ( y  gcd  N )  =  1 } )
275273, 274syl6eqr 2150 . . . 4  |-  ( N  e.  NN  ->  ( phi `  N )  =  ( `  V )
)
27620, 275syl 14 . . 3  |-  ( ph  ->  ( phi `  N
)  =  ( `  V
) )
277272, 276oveq12d 5724 . 2  |-  ( ph  ->  ( ( phi `  M )  x.  ( phi `  N ) )  =  ( ( `  U
)  x.  ( `  V
) ) )
278261, 268, 2773eqtr4d 2142 1  |-  ( ph  ->  ( phi `  ( M  x.  N )
)  =  ( ( phi `  M )  x.  ( phi `  N ) ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 103    <-> wb 104  DECID wdc 786    /\ w3a 930    = wceq 1299    e. wcel 1448    =/= wne 2267   A.wral 2375   {crab 2379   _Vcvv 2641    C_ wss 3021   <.cop 3477   class class class wbr 3875    |-> cmpt 3929    X. cxp 4475   `'ccnv 4476   dom cdm 4477   "cima 4480   Fun wfun 5053    Fn wfn 5054   -->wf 5055   -1-1->wf1 5056   -1-1-onto->wf1o 5058   ` cfv 5059  (class class class)co 5706    ~~ cen 6562   Fincfn 6564   0cc0 7500   1c1 7501    x. cmul 7505    <_ cle 7673   NNcn 8578   ZZcz 8906   QQcq 9261  ..^cfzo 9760    mod cmo 9936  ♯chash 10362    || cdvds 11288    gcd cgcd 11430   phicphi 11678
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-mp 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 584  ax-in2 585  ax-io 671  ax-5 1391  ax-7 1392  ax-gen 1393  ax-ie1 1437  ax-ie2 1438  ax-8 1450  ax-10 1451  ax-11 1452  ax-i12 1453  ax-bndl 1454  ax-4 1455  ax-13 1459  ax-14 1460  ax-17 1474  ax-i9 1478  ax-ial 1482  ax-i5r 1483  ax-ext 2082  ax-coll 3983  ax-sep 3986  ax-nul 3994  ax-pow 4038  ax-pr 4069  ax-un 4293  ax-setind 4390  ax-iinf 4440  ax-cnex 7586  ax-resscn 7587  ax-1cn 7588  ax-1re 7589  ax-icn 7590  ax-addcl 7591  ax-addrcl 7592  ax-mulcl 7593  ax-mulrcl 7594  ax-addcom 7595  ax-mulcom 7596  ax-addass 7597  ax-mulass 7598  ax-distr 7599  ax-i2m1 7600  ax-0lt1 7601  ax-1rid 7602  ax-0id 7603  ax-rnegex 7604  ax-precex 7605  ax-cnre 7606  ax-pre-ltirr 7607  ax-pre-ltwlin 7608  ax-pre-lttrn 7609  ax-pre-apti 7610  ax-pre-ltadd 7611  ax-pre-mulgt0 7612  ax-pre-mulext 7613  ax-arch 7614  ax-caucvg 7615
This theorem depends on definitions:  df-bi 116  df-dc 787  df-3or 931  df-3an 932  df-tru 1302  df-fal 1305  df-nf 1405  df-sb 1704  df-eu 1963  df-mo 1964  df-clab 2087  df-cleq 2093  df-clel 2096  df-nfc 2229  df-ne 2268  df-nel 2363  df-ral 2380  df-rex 2381  df-reu 2382  df-rmo 2383  df-rab 2384  df-v 2643  df-sbc 2863  df-csb 2956  df-dif 3023  df-un 3025  df-in 3027  df-ss 3034  df-nul 3311  df-if 3422  df-pw 3459  df-sn 3480  df-pr 3481  df-op 3483  df-uni 3684  df-int 3719  df-iun 3762  df-br 3876  df-opab 3930  df-mpt 3931  df-tr 3967  df-id 4153  df-po 4156  df-iso 4157  df-iord 4226  df-on 4228  df-ilim 4229  df-suc 4231  df-iom 4443  df-xp 4483  df-rel 4484  df-cnv 4485  df-co 4486  df-dm 4487  df-rn 4488  df-res 4489  df-ima 4490  df-iota 5024  df-fun 5061  df-fn 5062  df-f 5063  df-f1 5064  df-fo 5065  df-f1o 5066  df-fv 5067  df-riota 5662  df-ov 5709  df-oprab 5710  df-mpo 5711  df-1st 5969  df-2nd 5970  df-recs 6132  df-irdg 6197  df-frec 6218  df-1o 6243  df-oadd 6247  df-er 6359  df-en 6565  df-dom 6566  df-fin 6567  df-sup 6786  df-pnf 7674  df-mnf 7675  df-xr 7676  df-ltxr 7677  df-le 7678  df-sub 7806  df-neg 7807  df-reap 8203  df-ap 8210  df-div 8294  df-inn 8579  df-2 8637  df-3 8638  df-4 8639  df-n0 8830  df-z 8907  df-uz 9177  df-q 9262  df-rp 9292  df-fz 9632  df-fzo 9761  df-fl 9884  df-mod 9937  df-seqfrec 10060  df-exp 10134  df-ihash 10363  df-cj 10455  df-re 10456  df-im 10457  df-rsqrt 10610  df-abs 10611  df-dvds 11289  df-gcd 11431  df-phi 11679
This theorem is referenced by:  phimul  11694
  Copyright terms: Public domain W3C validator