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

Theorem eulerthlemth 12922
Description: Lemma for eulerth 12923. The result. (Contributed by Mario Carneiro, 28-Feb-2014.) (Revised by Jim Kingdon, 2-Sep-2024.)
Hypotheses
Ref Expression
eulerth.1  |-  ( ph  ->  ( N  e.  NN  /\  A  e.  ZZ  /\  ( A  gcd  N )  =  1 ) )
eulerth.2  |-  S  =  { y  e.  ( 0..^ N )  |  ( y  gcd  N
)  =  1 }
eulerth.4  |-  ( ph  ->  F : ( 1 ... ( phi `  N ) ) -1-1-onto-> S )
Assertion
Ref Expression
eulerthlemth  |-  ( ph  ->  ( ( A ^
( phi `  N
) )  mod  N
)  =  ( 1  mod  N ) )
Distinct variable groups:    y, A    y, F    y, N    ph, y
Allowed substitution hint:    S( y)

Proof of Theorem eulerthlemth
Dummy variables  u  v  x  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eulerth.1 . . . . . 6  |-  ( ph  ->  ( N  e.  NN  /\  A  e.  ZZ  /\  ( A  gcd  N )  =  1 ) )
2 eulerth.2 . . . . . 6  |-  S  =  { y  e.  ( 0..^ N )  |  ( y  gcd  N
)  =  1 }
3 eulerth.4 . . . . . 6  |-  ( ph  ->  F : ( 1 ... ( phi `  N ) ) -1-1-onto-> S )
41, 2, 3eulerthlema 12920 . . . . 5  |-  ( ph  ->  ( ( ( A ^ ( phi `  N ) )  x. 
prod_ x  e.  (
1 ... ( phi `  N ) ) ( F `  x ) )  mod  N )  =  ( prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x ) )  mod  N )  mod  N ) )
51simp1d 1036 . . . . . 6  |-  ( ph  ->  N  e.  NN )
61simp2d 1037 . . . . . . . 8  |-  ( ph  ->  A  e.  ZZ )
75phicld 12908 . . . . . . . . 9  |-  ( ph  ->  ( phi `  N
)  e.  NN )
87nnnn0d 9549 . . . . . . . 8  |-  ( ph  ->  ( phi `  N
)  e.  NN0 )
9 zexpcl 10912 . . . . . . . 8  |-  ( ( A  e.  ZZ  /\  ( phi `  N )  e.  NN0 )  -> 
( A ^ ( phi `  N ) )  e.  ZZ )
106, 8, 9syl2anc 411 . . . . . . 7  |-  ( ph  ->  ( A ^ ( phi `  N ) )  e.  ZZ )
11 1zzd 9600 . . . . . . . . 9  |-  ( ph  ->  1  e.  ZZ )
127nnzd 9695 . . . . . . . . 9  |-  ( ph  ->  ( phi `  N
)  e.  ZZ )
1311, 12fzfigd 10789 . . . . . . . 8  |-  ( ph  ->  ( 1 ... ( phi `  N ) )  e.  Fin )
14 ssrab2 3322 . . . . . . . . . . 11  |-  { y  e.  ( 0..^ N )  |  ( y  gcd  N )  =  1 }  C_  (
0..^ N )
152, 14eqsstri 3269 . . . . . . . . . 10  |-  S  C_  ( 0..^ N )
16 fzo0ssnn0 10556 . . . . . . . . . . 11  |-  ( 0..^ N )  C_  NN0
17 nn0ssz 9591 . . . . . . . . . . 11  |-  NN0  C_  ZZ
1816, 17sstri 3246 . . . . . . . . . 10  |-  ( 0..^ N )  C_  ZZ
1915, 18sstri 3246 . . . . . . . . 9  |-  S  C_  ZZ
20 f1of 5613 . . . . . . . . . . 11  |-  ( F : ( 1 ... ( phi `  N
) ) -1-1-onto-> S  ->  F :
( 1 ... ( phi `  N ) ) --> S )
213, 20syl 14 . . . . . . . . . 10  |-  ( ph  ->  F : ( 1 ... ( phi `  N ) ) --> S )
2221ffvelcdmda 5811 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  x )  e.  S
)
2319, 22sselid 3235 . . . . . . . 8  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  x )  e.  ZZ )
2413, 23fprodzcl 12288 . . . . . . 7  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  e.  ZZ )
2510, 24zmulcld 9702 . . . . . 6  |-  ( ph  ->  ( ( A ^
( phi `  N
) )  x.  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  e.  ZZ )
26 fveq2 5669 . . . . . . . . 9  |-  ( z  =  ( `' F `  ( ( A  x.  ( F `  x ) )  mod  N ) )  ->  ( F `  z )  =  ( F `  ( `' F `  ( ( A  x.  ( F `
 x ) )  mod  N ) ) ) )
27 eqid 2232 . . . . . . . . . 10  |-  ( `' F  o.  ( y  e.  ( 1 ... ( phi `  N
) )  |->  ( ( A  x.  ( F `
 y ) )  mod  N ) ) )  =  ( `' F  o.  ( y  e.  ( 1 ... ( phi `  N
) )  |->  ( ( A  x.  ( F `
 y ) )  mod  N ) ) )
281, 2, 3, 27eulerthlemh 12921 . . . . . . . . 9  |-  ( ph  ->  ( `' F  o.  ( y  e.  ( 1 ... ( phi `  N ) )  |->  ( ( A  x.  ( F `  y )
)  mod  N )
) ) : ( 1 ... ( phi `  N ) ) -1-1-onto-> ( 1 ... ( phi `  N ) ) )
29 eqid 2232 . . . . . . . . . . . . 13  |-  ( 1 ... ( phi `  N ) )  =  ( 1 ... ( phi `  N ) )
30 fveq2 5669 . . . . . . . . . . . . . . . 16  |-  ( v  =  u  ->  ( F `  v )  =  ( F `  u ) )
3130oveq2d 6065 . . . . . . . . . . . . . . 15  |-  ( v  =  u  ->  ( A  x.  ( F `  v ) )  =  ( A  x.  ( F `  u )
) )
3231oveq1d 6064 . . . . . . . . . . . . . 14  |-  ( v  =  u  ->  (
( A  x.  ( F `  v )
)  mod  N )  =  ( ( A  x.  ( F `  u ) )  mod 
N ) )
3332cbvmptv 4205 . . . . . . . . . . . . 13  |-  ( v  e.  ( 1 ... ( phi `  N
) )  |->  ( ( A  x.  ( F `
 v ) )  mod  N ) )  =  ( u  e.  ( 1 ... ( phi `  N ) ) 
|->  ( ( A  x.  ( F `  u ) )  mod  N ) )
341, 2, 29, 3, 33eulerthlem1 12917 . . . . . . . . . . . 12  |-  ( ph  ->  ( v  e.  ( 1 ... ( phi `  N ) )  |->  ( ( A  x.  ( F `  v )
)  mod  N )
) : ( 1 ... ( phi `  N ) ) --> S )
35 fveq2 5669 . . . . . . . . . . . . . . . 16  |-  ( v  =  y  ->  ( F `  v )  =  ( F `  y ) )
3635oveq2d 6065 . . . . . . . . . . . . . . 15  |-  ( v  =  y  ->  ( A  x.  ( F `  v ) )  =  ( A  x.  ( F `  y )
) )
3736oveq1d 6064 . . . . . . . . . . . . . 14  |-  ( v  =  y  ->  (
( A  x.  ( F `  v )
)  mod  N )  =  ( ( A  x.  ( F `  y ) )  mod 
N ) )
3837cbvmptv 4205 . . . . . . . . . . . . 13  |-  ( v  e.  ( 1 ... ( phi `  N
) )  |->  ( ( A  x.  ( F `
 v ) )  mod  N ) )  =  ( y  e.  ( 1 ... ( phi `  N ) ) 
|->  ( ( A  x.  ( F `  y ) )  mod  N ) )
3938feq1i 5500 . . . . . . . . . . . 12  |-  ( ( v  e.  ( 1 ... ( phi `  N ) )  |->  ( ( A  x.  ( F `  v )
)  mod  N )
) : ( 1 ... ( phi `  N ) ) --> S  <-> 
( y  e.  ( 1 ... ( phi `  N ) )  |->  ( ( A  x.  ( F `  y )
)  mod  N )
) : ( 1 ... ( phi `  N ) ) --> S )
4034, 39sylib 122 . . . . . . . . . . 11  |-  ( ph  ->  ( y  e.  ( 1 ... ( phi `  N ) )  |->  ( ( A  x.  ( F `  y )
)  mod  N )
) : ( 1 ... ( phi `  N ) ) --> S )
41 fvco3 5747 . . . . . . . . . . 11  |-  ( ( ( y  e.  ( 1 ... ( phi `  N ) )  |->  ( ( A  x.  ( F `  y )
)  mod  N )
) : ( 1 ... ( phi `  N ) ) --> S  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( ( `' F  o.  ( y  e.  ( 1 ... ( phi `  N
) )  |->  ( ( A  x.  ( F `
 y ) )  mod  N ) ) ) `  x )  =  ( `' F `  ( ( y  e.  ( 1 ... ( phi `  N ) ) 
|->  ( ( A  x.  ( F `  y ) )  mod  N ) ) `  x ) ) )
4240, 41sylan 283 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( ( `' F  o.  (
y  e.  ( 1 ... ( phi `  N ) )  |->  ( ( A  x.  ( F `  y )
)  mod  N )
) ) `  x
)  =  ( `' F `  ( ( y  e.  ( 1 ... ( phi `  N ) )  |->  ( ( A  x.  ( F `  y )
)  mod  N )
) `  x )
) )
43 eqid 2232 . . . . . . . . . . . 12  |-  ( y  e.  ( 1 ... ( phi `  N
) )  |->  ( ( A  x.  ( F `
 y ) )  mod  N ) )  =  ( y  e.  ( 1 ... ( phi `  N ) ) 
|->  ( ( A  x.  ( F `  y ) )  mod  N ) )
44 fveq2 5669 . . . . . . . . . . . . . 14  |-  ( y  =  x  ->  ( F `  y )  =  ( F `  x ) )
4544oveq2d 6065 . . . . . . . . . . . . 13  |-  ( y  =  x  ->  ( A  x.  ( F `  y ) )  =  ( A  x.  ( F `  x )
) )
4645oveq1d 6064 . . . . . . . . . . . 12  |-  ( y  =  x  ->  (
( A  x.  ( F `  y )
)  mod  N )  =  ( ( A  x.  ( F `  x ) )  mod 
N ) )
47 simpr 110 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  x  e.  ( 1 ... ( phi `  N ) ) )
486adantr 276 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  A  e.  ZZ )
4948, 23zmulcld 9702 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( A  x.  ( F `  x
) )  e.  ZZ )
505adantr 276 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  N  e.  NN )
51 zmodfzo 10705 . . . . . . . . . . . . 13  |-  ( ( ( A  x.  ( F `  x )
)  e.  ZZ  /\  N  e.  NN )  ->  ( ( A  x.  ( F `  x ) )  mod  N )  e.  ( 0..^ N ) )
5249, 50, 51syl2anc 411 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( ( A  x.  ( F `  x ) )  mod 
N )  e.  ( 0..^ N ) )
5343, 46, 47, 52fvmptd3 5770 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( (
y  e.  ( 1 ... ( phi `  N ) )  |->  ( ( A  x.  ( F `  y )
)  mod  N )
) `  x )  =  ( ( A  x.  ( F `  x ) )  mod 
N ) )
5453fveq2d 5673 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( `' F `  ( (
y  e.  ( 1 ... ( phi `  N ) )  |->  ( ( A  x.  ( F `  y )
)  mod  N )
) `  x )
)  =  ( `' F `  ( ( A  x.  ( F `
 x ) )  mod  N ) ) )
5542, 54eqtrd 2265 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( ( `' F  o.  (
y  e.  ( 1 ... ( phi `  N ) )  |->  ( ( A  x.  ( F `  y )
)  mod  N )
) ) `  x
)  =  ( `' F `  ( ( A  x.  ( F `
 x ) )  mod  N ) ) )
5621ffvelcdmda 5811 . . . . . . . . . . 11  |-  ( (
ph  /\  z  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  z )  e.  S
)
5719, 56sselid 3235 . . . . . . . . . 10  |-  ( (
ph  /\  z  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  z )  e.  ZZ )
5857zcnd 9697 . . . . . . . . 9  |-  ( (
ph  /\  z  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  z )  e.  CC )
5926, 13, 28, 55, 58fprodf1o 12267 . . . . . . . 8  |-  ( ph  ->  prod_ z  e.  ( 1 ... ( phi `  N ) ) ( F `  z )  =  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  ( `' F `  ( ( A  x.  ( F `
 x ) )  mod  N ) ) ) )
603adantr 276 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  F :
( 1 ... ( phi `  N ) ) -1-1-onto-> S )
61 modgcd 12680 . . . . . . . . . . . . 13  |-  ( ( ( A  x.  ( F `  x )
)  e.  ZZ  /\  N  e.  NN )  ->  ( ( ( A  x.  ( F `  x ) )  mod 
N )  gcd  N
)  =  ( ( A  x.  ( F `
 x ) )  gcd  N ) )
6249, 50, 61syl2anc 411 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( (
( A  x.  ( F `  x )
)  mod  N )  gcd  N )  =  ( ( A  x.  ( F `  x )
)  gcd  N )
)
6350nnzd 9695 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  N  e.  ZZ )
6463, 49gcdcomd 12663 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( N  gcd  ( A  x.  ( F `  x )
) )  =  ( ( A  x.  ( F `  x )
)  gcd  N )
)
655nnzd 9695 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  N  e.  ZZ )
666, 65gcdcomd 12663 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( A  gcd  N
)  =  ( N  gcd  A ) )
671simp3d 1038 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( A  gcd  N
)  =  1 )
6866, 67eqtr3d 2267 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( N  gcd  A
)  =  1 )
6968adantr 276 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( N  gcd  A )  =  1 )
7023, 63gcdcomd 12663 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( ( F `  x )  gcd  N )  =  ( N  gcd  ( F `
 x ) ) )
71 oveq1 6056 . . . . . . . . . . . . . . . . . 18  |-  ( y  =  ( F `  x )  ->  (
y  gcd  N )  =  ( ( F `
 x )  gcd 
N ) )
7271eqeq1d 2241 . . . . . . . . . . . . . . . . 17  |-  ( y  =  ( F `  x )  ->  (
( y  gcd  N
)  =  1  <->  (
( F `  x
)  gcd  N )  =  1 ) )
7372, 2elrab2 2975 . . . . . . . . . . . . . . . 16  |-  ( ( F `  x )  e.  S  <->  ( ( F `  x )  e.  ( 0..^ N )  /\  ( ( F `
 x )  gcd 
N )  =  1 ) )
7422, 73sylib 122 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( ( F `  x )  e.  ( 0..^ N )  /\  ( ( F `
 x )  gcd 
N )  =  1 ) )
7574simprd 114 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( ( F `  x )  gcd  N )  =  1 )
7670, 75eqtr3d 2267 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( N  gcd  ( F `  x
) )  =  1 )
77 rpmul 12788 . . . . . . . . . . . . . 14  |-  ( ( N  e.  ZZ  /\  A  e.  ZZ  /\  ( F `  x )  e.  ZZ )  ->  (
( ( N  gcd  A )  =  1  /\  ( N  gcd  ( F `  x )
)  =  1 )  ->  ( N  gcd  ( A  x.  ( F `  x )
) )  =  1 ) )
7863, 48, 23, 77syl3anc 1274 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( (
( N  gcd  A
)  =  1  /\  ( N  gcd  ( F `  x )
)  =  1 )  ->  ( N  gcd  ( A  x.  ( F `  x )
) )  =  1 ) )
7969, 76, 78mp2and 433 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( N  gcd  ( A  x.  ( F `  x )
) )  =  1 )
8062, 64, 793eqtr2d 2271 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( (
( A  x.  ( F `  x )
)  mod  N )  gcd  N )  =  1 )
81 oveq1 6056 . . . . . . . . . . . . 13  |-  ( y  =  ( ( A  x.  ( F `  x ) )  mod 
N )  ->  (
y  gcd  N )  =  ( ( ( A  x.  ( F `
 x ) )  mod  N )  gcd 
N ) )
8281eqeq1d 2241 . . . . . . . . . . . 12  |-  ( y  =  ( ( A  x.  ( F `  x ) )  mod 
N )  ->  (
( y  gcd  N
)  =  1  <->  (
( ( A  x.  ( F `  x ) )  mod  N )  gcd  N )  =  1 ) )
8382, 2elrab2 2975 . . . . . . . . . . 11  |-  ( ( ( A  x.  ( F `  x )
)  mod  N )  e.  S  <->  ( ( ( A  x.  ( F `
 x ) )  mod  N )  e.  ( 0..^ N )  /\  ( ( ( A  x.  ( F `
 x ) )  mod  N )  gcd 
N )  =  1 ) )
8452, 80, 83sylanbrc 417 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( ( A  x.  ( F `  x ) )  mod 
N )  e.  S
)
85 f1ocnvfv2 5950 . . . . . . . . . 10  |-  ( ( F : ( 1 ... ( phi `  N ) ) -1-1-onto-> S  /\  ( ( A  x.  ( F `  x ) )  mod  N )  e.  S )  -> 
( F `  ( `' F `  ( ( A  x.  ( F `
 x ) )  mod  N ) ) )  =  ( ( A  x.  ( F `
 x ) )  mod  N ) )
8660, 84, 85syl2anc 411 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  ( `' F `  ( ( A  x.  ( F `  x ) )  mod  N ) ) )  =  ( ( A  x.  ( F `  x )
)  mod  N )
)
8786prodeq2dv 12245 . . . . . . . 8  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  ( `' F `  ( ( A  x.  ( F `
 x ) )  mod  N ) ) )  =  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x ) )  mod  N ) )
8859, 87eqtr2d 2266 . . . . . . 7  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x )
)  mod  N )  =  prod_ z  e.  ( 1 ... ( phi `  N ) ) ( F `  z ) )
89 fveq2 5669 . . . . . . . . 9  |-  ( z  =  x  ->  ( F `  z )  =  ( F `  x ) )
9089cbvprodv 12238 . . . . . . . 8  |-  prod_ z  e.  ( 1 ... ( phi `  N ) ) ( F `  z
)  =  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x
)
9190, 24eqeltrid 2319 . . . . . . 7  |-  ( ph  ->  prod_ z  e.  ( 1 ... ( phi `  N ) ) ( F `  z )  e.  ZZ )
9288, 91eqeltrd 2309 . . . . . 6  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x )
)  mod  N )  e.  ZZ )
93 moddvds 12478 . . . . . 6  |-  ( ( N  e.  NN  /\  ( ( A ^
( phi `  N
) )  x.  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  e.  ZZ  /\  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( ( A  x.  ( F `
 x ) )  mod  N )  e.  ZZ )  ->  (
( ( ( A ^ ( phi `  N ) )  x. 
prod_ x  e.  (
1 ... ( phi `  N ) ) ( F `  x ) )  mod  N )  =  ( prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x ) )  mod  N )  mod  N )  <->  N  ||  (
( ( A ^
( phi `  N
) )  x.  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  -  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x )
)  mod  N )
) ) )
945, 25, 92, 93syl3anc 1274 . . . . 5  |-  ( ph  ->  ( ( ( ( A ^ ( phi `  N ) )  x. 
prod_ x  e.  (
1 ... ( phi `  N ) ) ( F `  x ) )  mod  N )  =  ( prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x ) )  mod  N )  mod  N )  <->  N  ||  (
( ( A ^
( phi `  N
) )  x.  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  -  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x )
)  mod  N )
) ) )
954, 94mpbid 147 . . . 4  |-  ( ph  ->  N  ||  ( ( ( A ^ ( phi `  N ) )  x.  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x ) )  -  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x ) )  mod  N ) ) )
9624zcnd 9697 . . . . . . . 8  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  e.  CC )
9796mullidd 8288 . . . . . . 7  |-  ( ph  ->  ( 1  x.  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  =  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x ) )
9890, 88, 973eqtr4a 2291 . . . . . 6  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x )
)  mod  N )  =  ( 1  x. 
prod_ x  e.  (
1 ... ( phi `  N ) ) ( F `  x ) ) )
9998oveq2d 6065 . . . . 5  |-  ( ph  ->  ( ( ( A ^ ( phi `  N ) )  x. 
prod_ x  e.  (
1 ... ( phi `  N ) ) ( F `  x ) )  -  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x ) )  mod  N ) )  =  ( ( ( A ^ ( phi `  N ) )  x.  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x ) )  -  ( 1  x.  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x ) ) ) )
10010zcnd 9697 . . . . . 6  |-  ( ph  ->  ( A ^ ( phi `  N ) )  e.  CC )
101 ax-1cn 8216 . . . . . . 7  |-  1  e.  CC
102 subdir 8655 . . . . . . 7  |-  ( ( ( A ^ ( phi `  N ) )  e.  CC  /\  1  e.  CC  /\  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x
)  e.  CC )  ->  ( ( ( A ^ ( phi `  N ) )  - 
1 )  x.  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  =  ( ( ( A ^ ( phi `  N ) )  x. 
prod_ x  e.  (
1 ... ( phi `  N ) ) ( F `  x ) )  -  ( 1  x.  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x ) ) ) )
103101, 102mp3an2 1362 . . . . . 6  |-  ( ( ( A ^ ( phi `  N ) )  e.  CC  /\  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x )  e.  CC )  ->  (
( ( A ^
( phi `  N
) )  -  1 )  x.  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x
) )  =  ( ( ( A ^
( phi `  N
) )  x.  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  -  ( 1  x. 
prod_ x  e.  (
1 ... ( phi `  N ) ) ( F `  x ) ) ) )
104100, 96, 103syl2anc 411 . . . . 5  |-  ( ph  ->  ( ( ( A ^ ( phi `  N ) )  - 
1 )  x.  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  =  ( ( ( A ^ ( phi `  N ) )  x. 
prod_ x  e.  (
1 ... ( phi `  N ) ) ( F `  x ) )  -  ( 1  x.  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x ) ) ) )
10510, 11zsubcld 9701 . . . . . . 7  |-  ( ph  ->  ( ( A ^
( phi `  N
) )  -  1 )  e.  ZZ )
106105zcnd 9697 . . . . . 6  |-  ( ph  ->  ( ( A ^
( phi `  N
) )  -  1 )  e.  CC )
107106, 96mulcomd 8291 . . . . 5  |-  ( ph  ->  ( ( ( A ^ ( phi `  N ) )  - 
1 )  x.  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  =  ( prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x
)  x.  ( ( A ^ ( phi `  N ) )  - 
1 ) ) )
10899, 104, 1073eqtr2d 2271 . . . 4  |-  ( ph  ->  ( ( ( A ^ ( phi `  N ) )  x. 
prod_ x  e.  (
1 ... ( phi `  N ) ) ( F `  x ) )  -  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x ) )  mod  N ) )  =  ( prod_
x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  x.  ( ( A ^ ( phi `  N ) )  - 
1 ) ) )
10995, 108breqtrd 4134 . . 3  |-  ( ph  ->  N  ||  ( prod_
x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  x.  ( ( A ^ ( phi `  N ) )  - 
1 ) ) )
1101, 2, 3eulerthlemrprm 12919 . . 3  |-  ( ph  ->  ( N  gcd  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  =  1 )
111 coprmdvds 12782 . . . 4  |-  ( ( N  e.  ZZ  /\  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  e.  ZZ  /\  (
( A ^ ( phi `  N ) )  -  1 )  e.  ZZ )  ->  (
( N  ||  ( prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  x.  ( ( A ^ ( phi `  N ) )  - 
1 ) )  /\  ( N  gcd  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x
) )  =  1 )  ->  N  ||  (
( A ^ ( phi `  N ) )  -  1 ) ) )
11265, 24, 105, 111syl3anc 1274 . . 3  |-  ( ph  ->  ( ( N  ||  ( prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  x.  ( ( A ^ ( phi `  N ) )  - 
1 ) )  /\  ( N  gcd  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x
) )  =  1 )  ->  N  ||  (
( A ^ ( phi `  N ) )  -  1 ) ) )
113109, 110, 112mp2and 433 . 2  |-  ( ph  ->  N  ||  ( ( A ^ ( phi `  N ) )  - 
1 ) )
114 1z 9599 . . . 4  |-  1  e.  ZZ
115 moddvds 12478 . . . 4  |-  ( ( N  e.  NN  /\  ( A ^ ( phi `  N ) )  e.  ZZ  /\  1  e.  ZZ )  ->  (
( ( A ^
( phi `  N
) )  mod  N
)  =  ( 1  mod  N )  <->  N  ||  (
( A ^ ( phi `  N ) )  -  1 ) ) )
116114, 115mp3an3 1363 . . 3  |-  ( ( N  e.  NN  /\  ( A ^ ( phi `  N ) )  e.  ZZ )  ->  (
( ( A ^
( phi `  N
) )  mod  N
)  =  ( 1  mod  N )  <->  N  ||  (
( A ^ ( phi `  N ) )  -  1 ) ) )
1175, 10, 116syl2anc 411 . 2  |-  ( ph  ->  ( ( ( A ^ ( phi `  N ) )  mod 
N )  =  ( 1  mod  N )  <-> 
N  ||  ( ( A ^ ( phi `  N ) )  - 
1 ) ) )
118113, 117mpbird 167 1  |-  ( ph  ->  ( ( A ^
( phi `  N
) )  mod  N
)  =  ( 1  mod  N ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 104    <-> wb 105    /\ w3a 1005    = wceq 1398    e. wcel 2203   {crab 2524   class class class wbr 4108    |-> cmpt 4170   `'ccnv 4747    o. ccom 4752   -->wf 5347   -1-1-onto->wf1o 5350   ` cfv 5351  (class class class)co 6049   CCcc 8121   0cc0 8123   1c1 8124    x. cmul 8128    - cmin 8440   NNcn 9233   NN0cn0 9492   ZZcz 9573   ...cfz 10338  ..^cfzo 10472    mod cmo 10680   ^cexp 10896   prod_cprod 12229    || cdvds 12466    gcd cgcd 12642   phicphi 12899
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 619  ax-in2 620  ax-io 717  ax-5 1496  ax-7 1497  ax-gen 1498  ax-ie1 1542  ax-ie2 1543  ax-8 1553  ax-10 1554  ax-11 1555  ax-i12 1556  ax-bndl 1558  ax-4 1559  ax-17 1575  ax-i9 1579  ax-ial 1583  ax-i5r 1584  ax-13 2205  ax-14 2206  ax-ext 2214  ax-coll 4224  ax-sep 4227  ax-nul 4235  ax-pow 4286  ax-pr 4321  ax-un 4553  ax-setind 4658  ax-iinf 4709  ax-cnex 8214  ax-resscn 8215  ax-1cn 8216  ax-1re 8217  ax-icn 8218  ax-addcl 8219  ax-addrcl 8220  ax-mulcl 8221  ax-mulrcl 8222  ax-addcom 8223  ax-mulcom 8224  ax-addass 8225  ax-mulass 8226  ax-distr 8227  ax-i2m1 8228  ax-0lt1 8229  ax-1rid 8230  ax-0id 8231  ax-rnegex 8232  ax-precex 8233  ax-cnre 8234  ax-pre-ltirr 8235  ax-pre-ltwlin 8236  ax-pre-lttrn 8237  ax-pre-apti 8238  ax-pre-ltadd 8239  ax-pre-mulgt0 8240  ax-pre-mulext 8241  ax-arch 8242  ax-caucvg 8243
This theorem depends on definitions:  df-bi 117  df-stab 839  df-dc 843  df-3or 1006  df-3an 1007  df-tru 1401  df-fal 1404  df-nf 1510  df-sb 1812  df-eu 2083  df-mo 2084  df-clab 2219  df-cleq 2225  df-clel 2228  df-nfc 2373  df-ne 2413  df-nel 2508  df-ral 2525  df-rex 2526  df-reu 2527  df-rmo 2528  df-rab 2529  df-v 2814  df-sbc 3042  df-csb 3138  df-dif 3212  df-un 3214  df-in 3216  df-ss 3223  df-nul 3508  df-if 3620  df-pw 3670  df-sn 3694  df-pr 3695  df-op 3697  df-uni 3914  df-int 3949  df-iun 3992  df-br 4109  df-opab 4171  df-mpt 4172  df-tr 4208  df-id 4413  df-po 4416  df-iso 4417  df-iord 4486  df-on 4488  df-ilim 4489  df-suc 4491  df-iom 4712  df-xp 4754  df-rel 4755  df-cnv 4756  df-co 4757  df-dm 4758  df-rn 4759  df-res 4760  df-ima 4761  df-iota 5311  df-fun 5353  df-fn 5354  df-f 5355  df-f1 5356  df-fo 5357  df-f1o 5358  df-fv 5359  df-isom 5360  df-riota 6002  df-ov 6052  df-oprab 6053  df-mpo 6054  df-1st 6333  df-2nd 6334  df-recs 6535  df-irdg 6600  df-frec 6621  df-1o 6646  df-oadd 6650  df-er 6766  df-en 6975  df-dom 6976  df-fin 6977  df-sup 7274  df-pnf 8306  df-mnf 8307  df-xr 8308  df-ltxr 8309  df-le 8310  df-sub 8442  df-neg 8443  df-reap 8845  df-ap 8852  df-div 8943  df-inn 9234  df-2 9292  df-3 9293  df-4 9294  df-n0 9493  df-z 9574  df-uz 9850  df-q 9948  df-rp 9983  df-fz 10339  df-fzo 10473  df-fl 10626  df-mod 10681  df-seqfrec 10806  df-exp 10897  df-ihash 11134  df-cj 11520  df-re 11521  df-im 11522  df-rsqrt 11676  df-abs 11677  df-clim 11957  df-proddc 12230  df-dvds 12467  df-gcd 12643  df-phi 12901
This theorem is referenced by:  eulerth  12923
  Copyright terms: Public domain W3C validator