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

Theorem eulerthlemth 12370
Description: Lemma for eulerth 12371. 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 12368 . . . . 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 1011 . . . . . 6  |-  ( ph  ->  N  e.  NN )
61simp2d 1012 . . . . . . . 8  |-  ( ph  ->  A  e.  ZZ )
75phicld 12356 . . . . . . . . 9  |-  ( ph  ->  ( phi `  N
)  e.  NN )
87nnnn0d 9293 . . . . . . . 8  |-  ( ph  ->  ( phi `  N
)  e.  NN0 )
9 zexpcl 10625 . . . . . . . 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 9344 . . . . . . . . 9  |-  ( ph  ->  1  e.  ZZ )
127nnzd 9438 . . . . . . . . 9  |-  ( ph  ->  ( phi `  N
)  e.  ZZ )
1311, 12fzfigd 10502 . . . . . . . 8  |-  ( ph  ->  ( 1 ... ( phi `  N ) )  e.  Fin )
14 ssrab2 3264 . . . . . . . . . . 11  |-  { y  e.  ( 0..^ N )  |  ( y  gcd  N )  =  1 }  C_  (
0..^ N )
152, 14eqsstri 3211 . . . . . . . . . 10  |-  S  C_  ( 0..^ N )
16 fzo0ssnn0 10282 . . . . . . . . . . 11  |-  ( 0..^ N )  C_  NN0
17 nn0ssz 9335 . . . . . . . . . . 11  |-  NN0  C_  ZZ
1816, 17sstri 3188 . . . . . . . . . 10  |-  ( 0..^ N )  C_  ZZ
1915, 18sstri 3188 . . . . . . . . 9  |-  S  C_  ZZ
20 f1of 5500 . . . . . . . . . . 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 5693 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  x )  e.  S
)
2319, 22sselid 3177 . . . . . . . 8  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  x )  e.  ZZ )
2413, 23fprodzcl 11752 . . . . . . 7  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  e.  ZZ )
2510, 24zmulcld 9445 . . . . . 6  |-  ( ph  ->  ( ( A ^
( phi `  N
) )  x.  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  e.  ZZ )
26 fveq2 5554 . . . . . . . . 9  |-  ( z  =  ( `' F `  ( ( A  x.  ( F `  x ) )  mod  N ) )  ->  ( F `  z )  =  ( F `  ( `' F `  ( ( A  x.  ( F `
 x ) )  mod  N ) ) ) )
27 eqid 2193 . . . . . . . . . 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 12369 . . . . . . . . 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 2193 . . . . . . . . . . . . 13  |-  ( 1 ... ( phi `  N ) )  =  ( 1 ... ( phi `  N ) )
30 fveq2 5554 . . . . . . . . . . . . . . . 16  |-  ( v  =  u  ->  ( F `  v )  =  ( F `  u ) )
3130oveq2d 5934 . . . . . . . . . . . . . . 15  |-  ( v  =  u  ->  ( A  x.  ( F `  v ) )  =  ( A  x.  ( F `  u )
) )
3231oveq1d 5933 . . . . . . . . . . . . . 14  |-  ( v  =  u  ->  (
( A  x.  ( F `  v )
)  mod  N )  =  ( ( A  x.  ( F `  u ) )  mod 
N ) )
3332cbvmptv 4125 . . . . . . . . . . . . 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 12365 . . . . . . . . . . . 12  |-  ( ph  ->  ( v  e.  ( 1 ... ( phi `  N ) )  |->  ( ( A  x.  ( F `  v )
)  mod  N )
) : ( 1 ... ( phi `  N ) ) --> S )
35 fveq2 5554 . . . . . . . . . . . . . . . 16  |-  ( v  =  y  ->  ( F `  v )  =  ( F `  y ) )
3635oveq2d 5934 . . . . . . . . . . . . . . 15  |-  ( v  =  y  ->  ( A  x.  ( F `  v ) )  =  ( A  x.  ( F `  y )
) )
3736oveq1d 5933 . . . . . . . . . . . . . 14  |-  ( v  =  y  ->  (
( A  x.  ( F `  v )
)  mod  N )  =  ( ( A  x.  ( F `  y ) )  mod 
N ) )
3837cbvmptv 4125 . . . . . . . . . . . . 13  |-  ( v  e.  ( 1 ... ( phi `  N
) )  |->  ( ( A  x.  ( F `
 v ) )  mod  N ) )  =  ( y  e.  ( 1 ... ( phi `  N ) ) 
|->  ( ( A  x.  ( F `  y ) )  mod  N ) )
3938feq1i 5396 . . . . . . . . . . . 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 5628 . . . . . . . . . . 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 2193 . . . . . . . . . . . 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 5554 . . . . . . . . . . . . . 14  |-  ( y  =  x  ->  ( F `  y )  =  ( F `  x ) )
4544oveq2d 5934 . . . . . . . . . . . . 13  |-  ( y  =  x  ->  ( A  x.  ( F `  y ) )  =  ( A  x.  ( F `  x )
) )
4645oveq1d 5933 . . . . . . . . . . . 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 9445 . . . . . . . . . . . . 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 10418 . . . . . . . . . . . . 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 5651 . . . . . . . . . . 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 5558 . . . . . . . . . 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 2226 . . . . . . . . 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 5693 . . . . . . . . . . 11  |-  ( (
ph  /\  z  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  z )  e.  S
)
5719, 56sselid 3177 . . . . . . . . . 10  |-  ( (
ph  /\  z  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  z )  e.  ZZ )
5857zcnd 9440 . . . . . . . . 9  |-  ( (
ph  /\  z  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  z )  e.  CC )
5926, 13, 28, 55, 58fprodf1o 11731 . . . . . . . 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 12128 . . . . . . . . . . . . 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 9438 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  N  e.  ZZ )
6463, 49gcdcomd 12111 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( N  gcd  ( A  x.  ( F `  x )
) )  =  ( ( A  x.  ( F `  x )
)  gcd  N )
)
655nnzd 9438 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  N  e.  ZZ )
666, 65gcdcomd 12111 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( A  gcd  N
)  =  ( N  gcd  A ) )
671simp3d 1013 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( A  gcd  N
)  =  1 )
6866, 67eqtr3d 2228 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( N  gcd  A
)  =  1 )
6968adantr 276 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( N  gcd  A )  =  1 )
7023, 63gcdcomd 12111 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( ( F `  x )  gcd  N )  =  ( N  gcd  ( F `
 x ) ) )
71 oveq1 5925 . . . . . . . . . . . . . . . . . 18  |-  ( y  =  ( F `  x )  ->  (
y  gcd  N )  =  ( ( F `
 x )  gcd 
N ) )
7271eqeq1d 2202 . . . . . . . . . . . . . . . . 17  |-  ( y  =  ( F `  x )  ->  (
( y  gcd  N
)  =  1  <->  (
( F `  x
)  gcd  N )  =  1 ) )
7372, 2elrab2 2919 . . . . . . . . . . . . . . . 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 2228 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( N  gcd  ( F `  x
) )  =  1 )
77 rpmul 12236 . . . . . . . . . . . . . 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 1249 . . . . . . . . . . . . 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 2232 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( (
( A  x.  ( F `  x )
)  mod  N )  gcd  N )  =  1 )
81 oveq1 5925 . . . . . . . . . . . . 13  |-  ( y  =  ( ( A  x.  ( F `  x ) )  mod 
N )  ->  (
y  gcd  N )  =  ( ( ( A  x.  ( F `
 x ) )  mod  N )  gcd 
N ) )
8281eqeq1d 2202 . . . . . . . . . . . 12  |-  ( y  =  ( ( A  x.  ( F `  x ) )  mod 
N )  ->  (
( y  gcd  N
)  =  1  <->  (
( ( A  x.  ( F `  x ) )  mod  N )  gcd  N )  =  1 ) )
8382, 2elrab2 2919 . . . . . . . . . . 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 5821 . . . . . . . . . 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 11709 . . . . . . . 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 2227 . . . . . . 7  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x )
)  mod  N )  =  prod_ z  e.  ( 1 ... ( phi `  N ) ) ( F `  z ) )
89 fveq2 5554 . . . . . . . . 9  |-  ( z  =  x  ->  ( F `  z )  =  ( F `  x ) )
9089cbvprodv 11702 . . . . . . . 8  |-  prod_ z  e.  ( 1 ... ( phi `  N ) ) ( F `  z
)  =  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x
)
9190, 24eqeltrid 2280 . . . . . . 7  |-  ( ph  ->  prod_ z  e.  ( 1 ... ( phi `  N ) ) ( F `  z )  e.  ZZ )
9288, 91eqeltrd 2270 . . . . . 6  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x )
)  mod  N )  e.  ZZ )
93 moddvds 11942 . . . . . 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 1249 . . . . 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 9440 . . . . . . . 8  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  e.  CC )
9796mulid2d 8038 . . . . . . 7  |-  ( ph  ->  ( 1  x.  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  =  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x ) )
9890, 88, 973eqtr4a 2252 . . . . . 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 5934 . . . . 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 9440 . . . . . 6  |-  ( ph  ->  ( A ^ ( phi `  N ) )  e.  CC )
101 ax-1cn 7965 . . . . . . 7  |-  1  e.  CC
102 subdir 8405 . . . . . . 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 1336 . . . . . 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 9444 . . . . . . 7  |-  ( ph  ->  ( ( A ^
( phi `  N
) )  -  1 )  e.  ZZ )
106105zcnd 9440 . . . . . 6  |-  ( ph  ->  ( ( A ^
( phi `  N
) )  -  1 )  e.  CC )
107106, 96mulcomd 8041 . . . . 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 2232 . . . 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 4055 . . 3  |-  ( ph  ->  N  ||  ( prod_
x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  x.  ( ( A ^ ( phi `  N ) )  - 
1 ) ) )
1101, 2, 3eulerthlemrprm 12367 . . 3  |-  ( ph  ->  ( N  gcd  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  =  1 )
111 coprmdvds 12230 . . . 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 1249 . . 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 9343 . . . 4  |-  1  e.  ZZ
115 moddvds 11942 . . . 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 1337 . . 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 980    = wceq 1364    e. wcel 2164   {crab 2476   class class class wbr 4029    |-> cmpt 4090   `'ccnv 4658    o. ccom 4663   -->wf 5250   -1-1-onto->wf1o 5253   ` cfv 5254  (class class class)co 5918   CCcc 7870   0cc0 7872   1c1 7873    x. cmul 7877    - cmin 8190   NNcn 8982   NN0cn0 9240   ZZcz 9317   ...cfz 10074  ..^cfzo 10208    mod cmo 10393   ^cexp 10609   prod_cprod 11693    || cdvds 11930    gcd cgcd 12079   phicphi 12347
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 615  ax-in2 616  ax-io 710  ax-5 1458  ax-7 1459  ax-gen 1460  ax-ie1 1504  ax-ie2 1505  ax-8 1515  ax-10 1516  ax-11 1517  ax-i12 1518  ax-bndl 1520  ax-4 1521  ax-17 1537  ax-i9 1541  ax-ial 1545  ax-i5r 1546  ax-13 2166  ax-14 2167  ax-ext 2175  ax-coll 4144  ax-sep 4147  ax-nul 4155  ax-pow 4203  ax-pr 4238  ax-un 4464  ax-setind 4569  ax-iinf 4620  ax-cnex 7963  ax-resscn 7964  ax-1cn 7965  ax-1re 7966  ax-icn 7967  ax-addcl 7968  ax-addrcl 7969  ax-mulcl 7970  ax-mulrcl 7971  ax-addcom 7972  ax-mulcom 7973  ax-addass 7974  ax-mulass 7975  ax-distr 7976  ax-i2m1 7977  ax-0lt1 7978  ax-1rid 7979  ax-0id 7980  ax-rnegex 7981  ax-precex 7982  ax-cnre 7983  ax-pre-ltirr 7984  ax-pre-ltwlin 7985  ax-pre-lttrn 7986  ax-pre-apti 7987  ax-pre-ltadd 7988  ax-pre-mulgt0 7989  ax-pre-mulext 7990  ax-arch 7991  ax-caucvg 7992
This theorem depends on definitions:  df-bi 117  df-stab 832  df-dc 836  df-3or 981  df-3an 982  df-tru 1367  df-fal 1370  df-nf 1472  df-sb 1774  df-eu 2045  df-mo 2046  df-clab 2180  df-cleq 2186  df-clel 2189  df-nfc 2325  df-ne 2365  df-nel 2460  df-ral 2477  df-rex 2478  df-reu 2479  df-rmo 2480  df-rab 2481  df-v 2762  df-sbc 2986  df-csb 3081  df-dif 3155  df-un 3157  df-in 3159  df-ss 3166  df-nul 3447  df-if 3558  df-pw 3603  df-sn 3624  df-pr 3625  df-op 3627  df-uni 3836  df-int 3871  df-iun 3914  df-br 4030  df-opab 4091  df-mpt 4092  df-tr 4128  df-id 4324  df-po 4327  df-iso 4328  df-iord 4397  df-on 4399  df-ilim 4400  df-suc 4402  df-iom 4623  df-xp 4665  df-rel 4666  df-cnv 4667  df-co 4668  df-dm 4669  df-rn 4670  df-res 4671  df-ima 4672  df-iota 5215  df-fun 5256  df-fn 5257  df-f 5258  df-f1 5259  df-fo 5260  df-f1o 5261  df-fv 5262  df-isom 5263  df-riota 5873  df-ov 5921  df-oprab 5922  df-mpo 5923  df-1st 6193  df-2nd 6194  df-recs 6358  df-irdg 6423  df-frec 6444  df-1o 6469  df-oadd 6473  df-er 6587  df-en 6795  df-dom 6796  df-fin 6797  df-sup 7043  df-pnf 8056  df-mnf 8057  df-xr 8058  df-ltxr 8059  df-le 8060  df-sub 8192  df-neg 8193  df-reap 8594  df-ap 8601  df-div 8692  df-inn 8983  df-2 9041  df-3 9042  df-4 9043  df-n0 9241  df-z 9318  df-uz 9593  df-q 9685  df-rp 9720  df-fz 10075  df-fzo 10209  df-fl 10339  df-mod 10394  df-seqfrec 10519  df-exp 10610  df-ihash 10847  df-cj 10986  df-re 10987  df-im 10988  df-rsqrt 11142  df-abs 11143  df-clim 11422  df-proddc 11694  df-dvds 11931  df-gcd 12080  df-phi 12349
This theorem is referenced by:  eulerth  12371
  Copyright terms: Public domain W3C validator