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

Theorem phimullem 11828
Description: Lemma for phimul 11829. (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 5749 . . . . . . . . . . . . . 14  |-  ( y  =  w  ->  (
y  gcd  ( M  x.  N ) )  =  ( w  gcd  ( M  x.  N )
) )
21eqeq1d 2126 . . . . . . . . . . . . 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 2816 . . . . . . . . . . . 12  |-  ( w  e.  W  <->  ( w  e.  S  /\  (
w  gcd  ( M  x.  N ) )  =  1 ) )
54simplbi 272 . . . . . . . . . . 11  |-  ( w  e.  W  ->  w  e.  S )
65adantl 275 . . . . . . . . . 10  |-  ( (
ph  /\  w  e.  W )  ->  w  e.  S )
7 elfzoelz 9892 . . . . . . . . . . . . . . 15  |-  ( w  e.  ( 0..^ ( M  x.  N ) )  ->  w  e.  ZZ )
8 crth.1 . . . . . . . . . . . . . . 15  |-  S  =  ( 0..^ ( M  x.  N ) )
97, 8eleq2s 2212 . . . . . . . . . . . . . 14  |-  ( w  e.  S  ->  w  e.  ZZ )
106, 9syl 14 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  w  e.  ZZ )
11 zq 9386 . . . . . . . . . . . . 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 978 . . . . . . . . . . . . . 14  |-  ( ph  ->  M  e.  NN )
1514adantr 274 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  M  e.  NN )
16 nnq 9393 . . . . . . . . . . . . 13  |-  ( M  e.  NN  ->  M  e.  QQ )
1715, 16syl 14 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  M  e.  QQ )
1815nngt0d 8732 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  0  <  M )
1912, 17, 18modqcld 10069 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  W )  ->  (
w  mod  M )  e.  QQ )
2013simp2d 979 . . . . . . . . . . . . . 14  |-  ( ph  ->  N  e.  NN )
2120adantr 274 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  N  e.  NN )
22 nnq 9393 . . . . . . . . . . . . 13  |-  ( N  e.  NN  ->  N  e.  QQ )
2321, 22syl 14 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  N  e.  QQ )
2421nngt0d 8732 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  0  <  N )
2512, 23, 24modqcld 10069 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  W )  ->  (
w  mod  N )  e.  QQ )
26 opexg 4120 . . . . . . . . . . 11  |-  ( ( ( w  mod  M
)  e.  QQ  /\  ( w  mod  N )  e.  QQ )  ->  <. ( w  mod  M
) ,  ( w  mod  N ) >.  e.  _V )
2719, 25, 26syl2anc 408 . . . . . . . . . 10  |-  ( (
ph  /\  w  e.  W )  ->  <. (
w  mod  M ) ,  ( w  mod  N ) >.  e.  _V )
28 oveq1 5749 . . . . . . . . . . . 12  |-  ( x  =  w  ->  (
x  mod  M )  =  ( w  mod  M ) )
29 oveq1 5749 . . . . . . . . . . . 12  |-  ( x  =  w  ->  (
x  mod  N )  =  ( w  mod  N ) )
3028, 29opeq12d 3683 . . . . . . . . . . 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 5465 . . . . . . . . . 10  |-  ( ( w  e.  S  /\  <.
( w  mod  M
) ,  ( w  mod  N ) >.  e.  _V )  ->  ( F `  w )  =  <. ( w  mod  M ) ,  ( w  mod  N ) >.
)
336, 27, 32syl2anc 408 . . . . . . . . 9  |-  ( (
ph  /\  w  e.  W )  ->  ( F `  w )  =  <. ( w  mod  M ) ,  ( w  mod  N ) >.
)
345, 8eleqtrdi 2210 . . . . . . . . . . . . . 14  |-  ( w  e.  W  ->  w  e.  ( 0..^ ( M  x.  N ) ) )
3534adantl 275 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  w  e.  ( 0..^ ( M  x.  N ) ) )
3635, 7syl 14 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  w  e.  ZZ )
37 zmodfzo 10088 . . . . . . . . . . . 12  |-  ( ( w  e.  ZZ  /\  M  e.  NN )  ->  ( w  mod  M
)  e.  ( 0..^ M ) )
3836, 15, 37syl2anc 408 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  W )  ->  (
w  mod  M )  e.  ( 0..^ M ) )
39 modgcd 11606 . . . . . . . . . . . . 13  |-  ( ( w  e.  ZZ  /\  M  e.  NN )  ->  ( ( w  mod  M )  gcd  M )  =  ( w  gcd  M ) )
4036, 15, 39syl2anc 408 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  (
( w  mod  M
)  gcd  M )  =  ( w  gcd  M ) )
4115nnzd 9140 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  w  e.  W )  ->  M  e.  ZZ )
42 gcddvds 11579 . . . . . . . . . . . . . . . . 17  |-  ( ( w  e.  ZZ  /\  M  e.  ZZ )  ->  ( ( w  gcd  M )  ||  w  /\  ( w  gcd  M ) 
||  M ) )
4336, 41, 42syl2anc 408 . . . . . . . . . . . . . . . 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 8716 . . . . . . . . . . . . . . . . . . 19  |-  ( M  e.  NN  ->  M  =/=  0 )
46 simpr 109 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( w  =  0  /\  M  =  0 )  ->  M  =  0 )
4746necon3ai 2334 . . . . . . . . . . . . . . . . . . 19  |-  ( M  =/=  0  ->  -.  ( w  =  0  /\  M  =  0
) )
4815, 45, 473syl 17 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  w  e.  W )  ->  -.  ( w  =  0  /\  M  =  0
) )
49 gcdn0cl 11578 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( w  e.  ZZ  /\  M  e.  ZZ )  /\  -.  ( w  =  0  /\  M  =  0 ) )  ->  ( w  gcd  M )  e.  NN )
5036, 41, 48, 49syl21anc 1200 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  e.  NN )
5150nnzd 9140 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  e.  ZZ )
5221nnzd 9140 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  N  e.  ZZ )
5343simprd 113 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  ||  M )
5451, 41, 52, 53dvdsmultr1d 11459 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  ||  ( M  x.  N
) )
5515, 21nnmulcld 8737 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  w  e.  W )  ->  ( M  x.  N )  e.  NN )
5655nnzd 9140 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  ( M  x.  N )  e.  ZZ )
57 nnne0 8716 . . . . . . . . . . . . . . . . 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 2334 . . . . . . . . . . . . . . . . 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 11580 . . . . . . . . . . . . . . . 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 1204 . . . . . . . . . . . . . . 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 429 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  <_  ( w  gcd  ( M  x.  N )
) )
644simprbi 273 . . . . . . . . . . . . . . 15  |-  ( w  e.  W  ->  (
w  gcd  ( M  x.  N ) )  =  1 )
6564adantl 275 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  ( M  x.  N ) )  =  1 )
6663, 65breqtrd 3924 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  M )  <_  1 )
67 nnle1eq1 8712 . . . . . . . . . . . . . 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 2150 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  W )  ->  (
( w  mod  M
)  gcd  M )  =  1 )
71 oveq1 5749 . . . . . . . . . . . . 13  |-  ( y  =  ( w  mod  M )  ->  ( y  gcd  M )  =  ( ( w  mod  M
)  gcd  M )
)
7271eqeq1d 2126 . . . . . . . . . . . 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 2816 . . . . . . . . . . 11  |-  ( ( w  mod  M )  e.  U  <->  ( (
w  mod  M )  e.  ( 0..^ M )  /\  ( ( w  mod  M )  gcd 
M )  =  1 ) )
7538, 70, 74sylanbrc 413 . . . . . . . . . 10  |-  ( (
ph  /\  w  e.  W )  ->  (
w  mod  M )  e.  U )
76 zmodfzo 10088 . . . . . . . . . . . 12  |-  ( ( w  e.  ZZ  /\  N  e.  NN )  ->  ( w  mod  N
)  e.  ( 0..^ N ) )
7736, 21, 76syl2anc 408 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  W )  ->  (
w  mod  N )  e.  ( 0..^ N ) )
78 modgcd 11606 . . . . . . . . . . . . 13  |-  ( ( w  e.  ZZ  /\  N  e.  NN )  ->  ( ( w  mod  N )  gcd  N )  =  ( w  gcd  N ) )
7936, 21, 78syl2anc 408 . . . . . . . . . . . 12  |-  ( (
ph  /\  w  e.  W )  ->  (
( w  mod  N
)  gcd  N )  =  ( w  gcd  N ) )
80 gcddvds 11579 . . . . . . . . . . . . . . . . 17  |-  ( ( w  e.  ZZ  /\  N  e.  ZZ )  ->  ( ( w  gcd  N )  ||  w  /\  ( w  gcd  N ) 
||  N ) )
8136, 52, 80syl2anc 408 . . . . . . . . . . . . . . . 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 11443 . . . . . . . . . . . . . . . . 17  |-  ( ( M  e.  ZZ  /\  N  e.  ZZ )  ->  N  ||  ( M  x.  N ) )
8541, 52, 84syl2anc 408 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  N  ||  ( M  x.  N
) )
86 nnne0 8716 . . . . . . . . . . . . . . . . . . . 20  |-  ( N  e.  NN  ->  N  =/=  0 )
87 simpr 109 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( w  =  0  /\  N  =  0 )  ->  N  =  0 )
8887necon3ai 2334 . . . . . . . . . . . . . . . . . . . 20  |-  ( N  =/=  0  ->  -.  ( w  =  0  /\  N  =  0
) )
8921, 86, 883syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  w  e.  W )  ->  -.  ( w  =  0  /\  N  =  0
) )
90 gcdn0cl 11578 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( w  e.  ZZ  /\  N  e.  ZZ )  /\  -.  ( w  =  0  /\  N  =  0 ) )  ->  ( w  gcd  N )  e.  NN )
9136, 52, 89, 90syl21anc 1200 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  e.  NN )
9291nnzd 9140 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  e.  ZZ )
93 dvdstr 11457 . . . . . . . . . . . . . . . . 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 1201 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  w  e.  W )  ->  (
( ( w  gcd  N )  ||  N  /\  N  ||  ( M  x.  N ) )  -> 
( w  gcd  N
)  ||  ( M  x.  N ) ) )
9583, 85, 94mp2and 429 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  ||  ( M  x.  N
) )
96 dvdslegcd 11580 . . . . . . . . . . . . . . . 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 1204 . . . . . . . . . . . . . . 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 429 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  <_  ( w  gcd  ( M  x.  N )
) )
9998, 65breqtrd 3924 . . . . . . . . . . . . 13  |-  ( (
ph  /\  w  e.  W )  ->  (
w  gcd  N )  <_  1 )
100 nnle1eq1 8712 . . . . . . . . . . . . . 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 2150 . . . . . . . . . . 11  |-  ( (
ph  /\  w  e.  W )  ->  (
( w  mod  N
)  gcd  N )  =  1 )
104 oveq1 5749 . . . . . . . . . . . . 13  |-  ( y  =  ( w  mod  N )  ->  ( y  gcd  N )  =  ( ( w  mod  N
)  gcd  N )
)
105104eqeq1d 2126 . . . . . . . . . . . 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 2816 . . . . . . . . . . 11  |-  ( ( w  mod  N )  e.  V  <->  ( (
w  mod  N )  e.  ( 0..^ N )  /\  ( ( w  mod  N )  gcd 
N )  =  1 ) )
10877, 103, 107sylanbrc 413 . . . . . . . . . 10  |-  ( (
ph  /\  w  e.  W )  ->  (
w  mod  N )  e.  V )
109 opelxpi 4541 . . . . . . . . . 10  |-  ( ( ( w  mod  M
)  e.  U  /\  ( w  mod  N )  e.  V )  ->  <. ( w  mod  M
) ,  ( w  mod  N ) >.  e.  ( U  X.  V
) )
11075, 108, 109syl2anc 408 . . . . . . . . 9  |-  ( (
ph  /\  w  e.  W )  ->  <. (
w  mod  M ) ,  ( w  mod  N ) >.  e.  ( U  X.  V ) )
11133, 110eqeltrd 2194 . . . . . . . 8  |-  ( (
ph  /\  w  e.  W )  ->  ( F `  w )  e.  ( U  X.  V
) )
112111ralrimiva 2482 . . . . . . 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 11827 . . . . . . . . 9  |-  ( ph  ->  F : S -1-1-onto-> T )
115 f1ofn 5336 . . . . . . . . 9  |-  ( F : S -1-1-onto-> T  ->  F  Fn  S )
116 fnfun 5190 . . . . . . . . 9  |-  ( F  Fn  S  ->  Fun  F )
117114, 115, 1163syl 17 . . . . . . . 8  |-  ( ph  ->  Fun  F )
118 ssrab2 3152 . . . . . . . . . 10  |-  { y  e.  S  |  ( y  gcd  ( M  x.  N ) )  =  1 }  C_  S
1193, 118eqsstri 3099 . . . . . . . . 9  |-  W  C_  S
120 fndm 5192 . . . . . . . . . 10  |-  ( F  Fn  S  ->  dom  F  =  S )
121114, 115, 1203syl 17 . . . . . . . . 9  |-  ( ph  ->  dom  F  =  S )
122119, 121sseqtrrid 3118 . . . . . . . 8  |-  ( ph  ->  W  C_  dom  F )
123 funimass4 5440 . . . . . . . 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 408 . . . . . . 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 3152 . . . . . . . . . . . . . 14  |-  { y  e.  ( 0..^ M )  |  ( y  gcd  M )  =  1 }  C_  (
0..^ M )
12773, 126eqsstri 3099 . . . . . . . . . . . . 13  |-  U  C_  ( 0..^ M )
128 ssrab2 3152 . . . . . . . . . . . . . 14  |-  { y  e.  ( 0..^ N )  |  ( y  gcd  N )  =  1 }  C_  (
0..^ N )
129106, 128eqsstri 3099 . . . . . . . . . . . . 13  |-  V  C_  ( 0..^ N )
130 xpss12 4616 . . . . . . . . . . . . 13  |-  ( ( U  C_  ( 0..^ M )  /\  V  C_  ( 0..^ N ) )  ->  ( U  X.  V )  C_  (
( 0..^ M )  X.  ( 0..^ N ) ) )
131127, 129, 130mp2an 422 . . . . . . . . . . . 12  |-  ( U  X.  V )  C_  ( ( 0..^ M )  X.  ( 0..^ N ) )
132131, 113sseqtrri 3102 . . . . . . . . . . 11  |-  ( U  X.  V )  C_  T
133132sseli 3063 . . . . . . . . . 10  |-  ( z  e.  ( U  X.  V )  ->  z  e.  T )
134 f1ocnvfv2 5647 . . . . . . . . . 10  |-  ( ( F : S -1-1-onto-> T  /\  z  e.  T )  ->  ( F `  ( `' F `  z ) )  =  z )
135114, 133, 134syl2an 287 . . . . . . . . 9  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( F `  ( `' F `  z )
)  =  z )
136 f1ocnv 5348 . . . . . . . . . . . . 13  |-  ( F : S -1-1-onto-> T  ->  `' F : T -1-1-onto-> S )
137 f1of 5335 . . . . . . . . . . . . 13  |-  ( `' F : T -1-1-onto-> S  ->  `' F : T --> S )
138114, 136, 1373syl 17 . . . . . . . . . . . 12  |-  ( ph  ->  `' F : T --> S )
139 ffvelrn 5521 . . . . . . . . . . . 12  |-  ( ( `' F : T --> S  /\  z  e.  T )  ->  ( `' F `  z )  e.  S
)
140138, 133, 139syl2an 287 . . . . . . . . . . 11  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( `' F `  z )  e.  S )
141140, 8eleqtrdi 2210 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( `' F `  z )  e.  ( 0..^ ( M  x.  N ) ) )
142 elfzoelz 9892 . . . . . . . . . . . . . . 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 274 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  M  e.  NN )
145 modgcd 11606 . . . . . . . . . . . . . 14  |-  ( ( ( `' F `  z )  e.  ZZ  /\  M  e.  NN )  ->  ( ( ( `' F `  z )  mod  M )  gcd 
M )  =  ( ( `' F `  z )  gcd  M
) )
146143, 144, 145syl2anc 408 . . . . . . . . . . . . 13  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( ( `' F `  z )  mod  M
)  gcd  M )  =  ( ( `' F `  z )  gcd  M ) )
147 zq 9386 . . . . . . . . . . . . . . . . . . . . . . 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 8732 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  0  <  M )
151148, 149, 150modqcld 10069 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  mod  M
)  e.  QQ )
15220adantr 274 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  N  e.  NN )
153152, 22syl 14 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  N  e.  QQ )
154152nngt0d 8732 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  0  <  N )
155148, 153, 154modqcld 10069 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  mod  N
)  e.  QQ )
156 opexg 4120 . . . . . . . . . . . . . . . . . . . . 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 408 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  <. (
( `' F `  z )  mod  M
) ,  ( ( `' F `  z )  mod  N ) >.  e.  _V )
158 oveq1 5749 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( w  =  ( `' F `  z )  ->  (
w  mod  M )  =  ( ( `' F `  z )  mod  M ) )
159 oveq1 5749 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( w  =  ( `' F `  z )  ->  (
w  mod  N )  =  ( ( `' F `  z )  mod  N ) )
160158, 159opeq12d 3683 . . . . . . . . . . . . . . . . . . . . 21  |-  ( w  =  ( `' F `  z )  ->  <. (
w  mod  M ) ,  ( w  mod  N ) >.  =  <. ( ( `' F `  z )  mod  M
) ,  ( ( `' F `  z )  mod  N ) >.
)
16130cbvmptv 3994 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( x  e.  S  |->  <. (
x  mod  M ) ,  ( x  mod  N ) >. )  =  ( w  e.  S  |->  <.
( w  mod  M
) ,  ( w  mod  N ) >.
)
16231, 161eqtri 2138 . . . . . . . . . . . . . . . . . . . . 21  |-  F  =  ( w  e.  S  |-> 
<. ( w  mod  M
) ,  ( w  mod  N ) >.
)
163160, 162fvmptg 5465 . . . . . . . . . . . . . . . . . . . 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 408 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( F `  ( `' F `  z )
)  =  <. (
( `' F `  z )  mod  M
) ,  ( ( `' F `  z )  mod  N ) >.
)
165135, 164eqtr3d 2152 . . . . . . . . . . . . . . . . . 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 2195 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  <. (
( `' F `  z )  mod  M
) ,  ( ( `' F `  z )  mod  N ) >.  e.  ( U  X.  V
) )
168 opelxp 4539 . . . . . . . . . . . . . . . . 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 5749 . . . . . . . . . . . . . . . . 17  |-  ( y  =  ( ( `' F `  z )  mod  M )  -> 
( y  gcd  M
)  =  ( ( ( `' F `  z )  mod  M
)  gcd  M )
)
172171eqeq1d 2126 . . . . . . . . . . . . . . . 16  |-  ( y  =  ( ( `' F `  z )  mod  M )  -> 
( ( y  gcd 
M )  =  1  <-> 
( ( ( `' F `  z )  mod  M )  gcd 
M )  =  1 ) )
173172, 73elrab2 2816 . . . . . . . . . . . . . . 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 2152 . . . . . . . . . . . 12  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  gcd  M
)  =  1 )
177 modgcd 11606 . . . . . . . . . . . . . 14  |-  ( ( ( `' F `  z )  e.  ZZ  /\  N  e.  NN )  ->  ( ( ( `' F `  z )  mod  N )  gcd 
N )  =  ( ( `' F `  z )  gcd  N
) )
178143, 152, 177syl2anc 408 . . . . . . . . . . . . 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 5749 . . . . . . . . . . . . . . . . 17  |-  ( y  =  ( ( `' F `  z )  mod  N )  -> 
( y  gcd  N
)  =  ( ( ( `' F `  z )  mod  N
)  gcd  N )
)
181180eqeq1d 2126 . . . . . . . . . . . . . . . 16  |-  ( y  =  ( ( `' F `  z )  mod  N )  -> 
( ( y  gcd 
N )  =  1  <-> 
( ( ( `' F `  z )  mod  N )  gcd 
N )  =  1 ) )
182181, 106elrab2 2816 . . . . . . . . . . . . . . 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 2152 . . . . . . . . . . . 12  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  gcd  N
)  =  1 )
18614nnzd 9140 . . . . . . . . . . . . . 14  |-  ( ph  ->  M  e.  ZZ )
187186adantr 274 . . . . . . . . . . . . 13  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  M  e.  ZZ )
18820nnzd 9140 . . . . . . . . . . . . . 14  |-  ( ph  ->  N  e.  ZZ )
189188adantr 274 . . . . . . . . . . . . 13  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  N  e.  ZZ )
190 rpmul 11706 . . . . . . . . . . . . 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 1201 . . . . . . . . . . . 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 429 . . . . . . . . . . 11  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  (
( `' F `  z )  gcd  ( M  x.  N )
)  =  1 )
193 oveq1 5749 . . . . . . . . . . . . 13  |-  ( y  =  ( `' F `  z )  ->  (
y  gcd  ( M  x.  N ) )  =  ( ( `' F `  z )  gcd  ( M  x.  N )
) )
194193eqeq1d 2126 . . . . . . . . . . . 12  |-  ( y  =  ( `' F `  z )  ->  (
( y  gcd  ( M  x.  N )
)  =  1  <->  (
( `' F `  z )  gcd  ( M  x.  N )
)  =  1 ) )
195194, 3elrab2 2816 . . . . . . . . . . 11  |-  ( ( `' F `  z )  e.  W  <->  ( ( `' F `  z )  e.  S  /\  (
( `' F `  z )  gcd  ( M  x.  N )
)  =  1 ) )
196140, 192, 195sylanbrc 413 . . . . . . . . . 10  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( `' F `  z )  e.  W )
197 funfvima2 5618 . . . . . . . . . . . 12  |-  ( ( Fun  F  /\  W  C_ 
dom  F )  -> 
( ( `' F `  z )  e.  W  ->  ( F `  ( `' F `  z ) )  e.  ( F
" W ) ) )
198117, 122, 197syl2anc 408 . . . . . . . . . . 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 280 . . . . . . . . 9  |-  ( (
ph  /\  z  e.  ( U  X.  V
) )  ->  ( F `  ( `' F `  z )
)  e.  ( F
" W ) )
201135, 200eqeltrrd 2195 . . . . . . . 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 3073 . . . . . 6  |-  ( ph  ->  ( U  X.  V
)  C_  ( F " W ) )
204125, 203eqssd 3084 . . . . 5  |-  ( ph  ->  ( F " W
)  =  ( U  X.  V ) )
205 f1of1 5334 . . . . . . 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 9033 . . . . . . . . . 10  |-  0  e.  ZZ
209186, 188zmulcld 9147 . . . . . . . . . 10  |-  ( ph  ->  ( M  x.  N
)  e.  ZZ )
210 fzofig 10173 . . . . . . . . . 10  |-  ( ( 0  e.  ZZ  /\  ( M  x.  N
)  e.  ZZ )  ->  ( 0..^ ( M  x.  N ) )  e.  Fin )
211208, 209, 210sylancr 410 . . . . . . . . 9  |-  ( ph  ->  ( 0..^ ( M  x.  N ) )  e.  Fin )
2128, 211eqeltrid 2204 . . . . . . . 8  |-  ( ph  ->  S  e.  Fin )
213 elfzoelz 9892 . . . . . . . . . . . . . 14  |-  ( y  e.  ( 0..^ ( M  x.  N ) )  ->  y  e.  ZZ )
214213, 8eleq2s 2212 . . . . . . . . . . . . 13  |-  ( y  e.  S  ->  y  e.  ZZ )
215214adantl 275 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  S )  ->  y  e.  ZZ )
216209adantr 274 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  S )  ->  ( M  x.  N )  e.  ZZ )
217215, 216gcdcld 11584 . . . . . . . . . . 11  |-  ( (
ph  /\  y  e.  S )  ->  (
y  gcd  ( M  x.  N ) )  e. 
NN0 )
218217nn0zd 9139 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  S )  ->  (
y  gcd  ( M  x.  N ) )  e.  ZZ )
219 1zzd 9049 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  S )  ->  1  e.  ZZ )
220 zdceq 9094 . . . . . . . . . 10  |-  ( ( ( y  gcd  ( M  x.  N )
)  e.  ZZ  /\  1  e.  ZZ )  -> DECID  ( y  gcd  ( M  x.  N ) )  =  1 )
221218, 219, 220syl2anc 408 . . . . . . . . 9  |-  ( (
ph  /\  y  e.  S )  -> DECID  ( y  gcd  ( M  x.  N )
)  =  1 )
222221ralrimiva 2482 . . . . . . . 8  |-  ( ph  ->  A. y  e.  S DECID  (
y  gcd  ( M  x.  N ) )  =  1 )
223212, 222ssfirab 6790 . . . . . . 7  |-  ( ph  ->  { y  e.  S  |  ( y  gcd  ( M  x.  N
) )  =  1 }  e.  Fin )
2243, 223eqeltrid 2204 . . . . . 6  |-  ( ph  ->  W  e.  Fin )
225 f1imaeng 6654 . . . . . 6  |-  ( ( F : S -1-1-> T  /\  W  C_  S  /\  W  e.  Fin )  ->  ( F " W
)  ~~  W )
226206, 207, 224, 225syl3anc 1201 . . . . 5  |-  ( ph  ->  ( F " W
)  ~~  W )
227204, 226eqbrtrrd 3922 . . . 4  |-  ( ph  ->  ( U  X.  V
)  ~~  W )
228 fzofig 10173 . . . . . . . . 9  |-  ( ( 0  e.  ZZ  /\  M  e.  ZZ )  ->  ( 0..^ M )  e.  Fin )
229208, 186, 228sylancr 410 . . . . . . . 8  |-  ( ph  ->  ( 0..^ M )  e.  Fin )
230 elfzoelz 9892 . . . . . . . . . . . . 13  |-  ( y  e.  ( 0..^ M )  ->  y  e.  ZZ )
231230adantl 275 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  ( 0..^ M ) )  ->  y  e.  ZZ )
232186adantr 274 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  ( 0..^ M ) )  ->  M  e.  ZZ )
233231, 232gcdcld 11584 . . . . . . . . . . 11  |-  ( (
ph  /\  y  e.  ( 0..^ M ) )  ->  ( y  gcd 
M )  e.  NN0 )
234233nn0zd 9139 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  ( 0..^ M ) )  ->  ( y  gcd 
M )  e.  ZZ )
235 1z 9048 . . . . . . . . . 10  |-  1  e.  ZZ
236 zdceq 9094 . . . . . . . . . 10  |-  ( ( ( y  gcd  M
)  e.  ZZ  /\  1  e.  ZZ )  -> DECID  ( y  gcd  M )  =  1 )
237234, 235, 236sylancl 409 . . . . . . . . 9  |-  ( (
ph  /\  y  e.  ( 0..^ M ) )  -> DECID 
( y  gcd  M
)  =  1 )
238237ralrimiva 2482 . . . . . . . 8  |-  ( ph  ->  A. y  e.  ( 0..^ M )DECID  ( y  gcd  M )  =  1 )
239229, 238ssfirab 6790 . . . . . . 7  |-  ( ph  ->  { y  e.  ( 0..^ M )  |  ( y  gcd  M
)  =  1 }  e.  Fin )
24073, 239eqeltrid 2204 . . . . . 6  |-  ( ph  ->  U  e.  Fin )
241 fzofig 10173 . . . . . . . . 9  |-  ( ( 0  e.  ZZ  /\  N  e.  ZZ )  ->  ( 0..^ N )  e.  Fin )
242208, 188, 241sylancr 410 . . . . . . . 8  |-  ( ph  ->  ( 0..^ N )  e.  Fin )
243 elfzoelz 9892 . . . . . . . . . . . . 13  |-  ( y  e.  ( 0..^ N )  ->  y  e.  ZZ )
244243adantl 275 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  ( 0..^ N ) )  ->  y  e.  ZZ )
245188adantr 274 . . . . . . . . . . . 12  |-  ( (
ph  /\  y  e.  ( 0..^ N ) )  ->  N  e.  ZZ )
246244, 245gcdcld 11584 . . . . . . . . . . 11  |-  ( (
ph  /\  y  e.  ( 0..^ N ) )  ->  ( y  gcd 
N )  e.  NN0 )
247246nn0zd 9139 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  ( 0..^ N ) )  ->  ( y  gcd 
N )  e.  ZZ )
248 1zzd 9049 . . . . . . . . . 10  |-  ( (
ph  /\  y  e.  ( 0..^ N ) )  ->  1  e.  ZZ )
249 zdceq 9094 . . . . . . . . . 10  |-  ( ( ( y  gcd  N
)  e.  ZZ  /\  1  e.  ZZ )  -> DECID  ( y  gcd  N )  =  1 )
250247, 248, 249syl2anc 408 . . . . . . . . 9  |-  ( (
ph  /\  y  e.  ( 0..^ N ) )  -> DECID 
( y  gcd  N
)  =  1 )
251250ralrimiva 2482 . . . . . . . 8  |-  ( ph  ->  A. y  e.  ( 0..^ N )DECID  ( y  gcd  N )  =  1 )
252242, 251ssfirab 6790 . . . . . . 7  |-  ( ph  ->  { y  e.  ( 0..^ N )  |  ( y  gcd  N
)  =  1 }  e.  Fin )
253106, 252eqeltrid 2204 . . . . . 6  |-  ( ph  ->  V  e.  Fin )
254 xpfi 6786 . . . . . 6  |-  ( ( U  e.  Fin  /\  V  e.  Fin )  ->  ( U  X.  V
)  e.  Fin )
255240, 253, 254syl2anc 408 . . . . 5  |-  ( ph  ->  ( U  X.  V
)  e.  Fin )
256 hashen 10498 . . . . 5  |-  ( ( ( U  X.  V
)  e.  Fin  /\  W  e.  Fin )  ->  ( ( `  ( U  X.  V ) )  =  ( `  W
)  <->  ( U  X.  V )  ~~  W
) )
257255, 224, 256syl2anc 408 . . . 4  |-  ( ph  ->  ( ( `  ( U  X.  V ) )  =  ( `  W
)  <->  ( U  X.  V )  ~~  W
) )
258227, 257mpbird 166 . . 3  |-  ( ph  ->  ( `  ( U  X.  V ) )  =  ( `  W )
)
259 hashxp 10540 . . . 4  |-  ( ( U  e.  Fin  /\  V  e.  Fin )  ->  ( `  ( U  X.  V ) )  =  ( ( `  U
)  x.  ( `  V
) ) )
260240, 253, 259syl2anc 408 . . 3  |-  ( ph  ->  ( `  ( U  X.  V ) )  =  ( ( `  U
)  x.  ( `  V
) ) )
261258, 260eqtr3d 2152 . 2  |-  ( ph  ->  ( `  W )  =  ( ( `  U
)  x.  ( `  V
) ) )
26214, 20nnmulcld 8737 . . 3  |-  ( ph  ->  ( M  x.  N
)  e.  NN )
263 dfphi2 11823 . . . 4  |-  ( ( M  x.  N )  e.  NN  ->  ( phi `  ( M  x.  N ) )  =  ( `  { y  e.  ( 0..^ ( M  x.  N ) )  |  ( y  gcd  ( M  x.  N
) )  =  1 } ) )
2648rabeqi 2653 . . . . . 6  |-  { y  e.  S  |  ( y  gcd  ( M  x.  N ) )  =  1 }  =  { y  e.  ( 0..^ ( M  x.  N ) )  |  ( y  gcd  ( M  x.  N )
)  =  1 }
2653, 264eqtri 2138 . . . . 5  |-  W  =  { y  e.  ( 0..^ ( M  x.  N ) )  |  ( y  gcd  ( M  x.  N )
)  =  1 }
266265fveq2i 5392 . . . 4  |-  ( `  W
)  =  ( `  {
y  e.  ( 0..^ ( M  x.  N
) )  |  ( y  gcd  ( M  x.  N ) )  =  1 } )
267263, 266syl6eqr 2168 . . 3  |-  ( ( M  x.  N )  e.  NN  ->  ( phi `  ( M  x.  N ) )  =  ( `  W )
)
268262, 267syl 14 . 2  |-  ( ph  ->  ( phi `  ( M  x.  N )
)  =  ( `  W
) )
269 dfphi2 11823 . . . . 5  |-  ( M  e.  NN  ->  ( phi `  M )  =  ( `  { y  e.  ( 0..^ M )  |  ( y  gcd 
M )  =  1 } ) )
27073fveq2i 5392 . . . . 5  |-  ( `  U
)  =  ( `  {
y  e.  ( 0..^ M )  |  ( y  gcd  M )  =  1 } )
271269, 270syl6eqr 2168 . . . 4  |-  ( M  e.  NN  ->  ( phi `  M )  =  ( `  U )
)
27214, 271syl 14 . . 3  |-  ( ph  ->  ( phi `  M
)  =  ( `  U
) )
273 dfphi2 11823 . . . . 5  |-  ( N  e.  NN  ->  ( phi `  N )  =  ( `  { y  e.  ( 0..^ N )  |  ( y  gcd 
N )  =  1 } ) )
274106fveq2i 5392 . . . . 5  |-  ( `  V
)  =  ( `  {
y  e.  ( 0..^ N )  |  ( y  gcd  N )  =  1 } )
275273, 274syl6eqr 2168 . . . 4  |-  ( N  e.  NN  ->  ( phi `  N )  =  ( `  V )
)
27620, 275syl 14 . . 3  |-  ( ph  ->  ( phi `  N
)  =  ( `  V
) )
277272, 276oveq12d 5760 . 2  |-  ( ph  ->  ( ( phi `  M )  x.  ( phi `  N ) )  =  ( ( `  U
)  x.  ( `  V
) ) )
278261, 268, 2773eqtr4d 2160 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 804    /\ w3a 947    = wceq 1316    e. wcel 1465    =/= wne 2285   A.wral 2393   {crab 2397   _Vcvv 2660    C_ wss 3041   <.cop 3500   class class class wbr 3899    |-> cmpt 3959    X. cxp 4507   `'ccnv 4508   dom cdm 4509   "cima 4512   Fun wfun 5087    Fn wfn 5088   -->wf 5089   -1-1->wf1 5090   -1-1-onto->wf1o 5092   ` cfv 5093  (class class class)co 5742    ~~ cen 6600   Fincfn 6602   0cc0 7588   1c1 7589    x. cmul 7593    <_ cle 7769   NNcn 8688   ZZcz 9022   QQcq 9379  ..^cfzo 9887    mod cmo 10063  ♯chash 10489    || cdvds 11420    gcd cgcd 11562   phicphi 11813
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-ia1 105  ax-ia2 106  ax-ia3 107  ax-in1 588  ax-in2 589  ax-io 683  ax-5 1408  ax-7 1409  ax-gen 1410  ax-ie1 1454  ax-ie2 1455  ax-8 1467  ax-10 1468  ax-11 1469  ax-i12 1470  ax-bndl 1471  ax-4 1472  ax-13 1476  ax-14 1477  ax-17 1491  ax-i9 1495  ax-ial 1499  ax-i5r 1500  ax-ext 2099  ax-coll 4013  ax-sep 4016  ax-nul 4024  ax-pow 4068  ax-pr 4101  ax-un 4325  ax-setind 4422  ax-iinf 4472  ax-cnex 7679  ax-resscn 7680  ax-1cn 7681  ax-1re 7682  ax-icn 7683  ax-addcl 7684  ax-addrcl 7685  ax-mulcl 7686  ax-mulrcl 7687  ax-addcom 7688  ax-mulcom 7689  ax-addass 7690  ax-mulass 7691  ax-distr 7692  ax-i2m1 7693  ax-0lt1 7694  ax-1rid 7695  ax-0id 7696  ax-rnegex 7697  ax-precex 7698  ax-cnre 7699  ax-pre-ltirr 7700  ax-pre-ltwlin 7701  ax-pre-lttrn 7702  ax-pre-apti 7703  ax-pre-ltadd 7704  ax-pre-mulgt0 7705  ax-pre-mulext 7706  ax-arch 7707  ax-caucvg 7708
This theorem depends on definitions:  df-bi 116  df-stab 801  df-dc 805  df-3or 948  df-3an 949  df-tru 1319  df-fal 1322  df-nf 1422  df-sb 1721  df-eu 1980  df-mo 1981  df-clab 2104  df-cleq 2110  df-clel 2113  df-nfc 2247  df-ne 2286  df-nel 2381  df-ral 2398  df-rex 2399  df-reu 2400  df-rmo 2401  df-rab 2402  df-v 2662  df-sbc 2883  df-csb 2976  df-dif 3043  df-un 3045  df-in 3047  df-ss 3054  df-nul 3334  df-if 3445  df-pw 3482  df-sn 3503  df-pr 3504  df-op 3506  df-uni 3707  df-int 3742  df-iun 3785  df-br 3900  df-opab 3960  df-mpt 3961  df-tr 3997  df-id 4185  df-po 4188  df-iso 4189  df-iord 4258  df-on 4260  df-ilim 4261  df-suc 4263  df-iom 4475  df-xp 4515  df-rel 4516  df-cnv 4517  df-co 4518  df-dm 4519  df-rn 4520  df-res 4521  df-ima 4522  df-iota 5058  df-fun 5095  df-fn 5096  df-f 5097  df-f1 5098  df-fo 5099  df-f1o 5100  df-fv 5101  df-riota 5698  df-ov 5745  df-oprab 5746  df-mpo 5747  df-1st 6006  df-2nd 6007  df-recs 6170  df-irdg 6235  df-frec 6256  df-1o 6281  df-oadd 6285  df-er 6397  df-en 6603  df-dom 6604  df-fin 6605  df-sup 6839  df-pnf 7770  df-mnf 7771  df-xr 7772  df-ltxr 7773  df-le 7774  df-sub 7903  df-neg 7904  df-reap 8305  df-ap 8312  df-div 8401  df-inn 8689  df-2 8747  df-3 8748  df-4 8749  df-n0 8946  df-z 9023  df-uz 9295  df-q 9380  df-rp 9410  df-fz 9759  df-fzo 9888  df-fl 10011  df-mod 10064  df-seqfrec 10187  df-exp 10261  df-ihash 10490  df-cj 10582  df-re 10583  df-im 10584  df-rsqrt 10738  df-abs 10739  df-dvds 11421  df-gcd 11563  df-phi 11814
This theorem is referenced by:  phimul  11829
  Copyright terms: Public domain W3C validator