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

Theorem eulerthlemth 12720
Description: Lemma for eulerth 12721. 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 12718 . . . . 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 1014 . . . . . 6  |-  ( ph  ->  N  e.  NN )
61simp2d 1015 . . . . . . . 8  |-  ( ph  ->  A  e.  ZZ )
75phicld 12706 . . . . . . . . 9  |-  ( ph  ->  ( phi `  N
)  e.  NN )
87nnnn0d 9390 . . . . . . . 8  |-  ( ph  ->  ( phi `  N
)  e.  NN0 )
9 zexpcl 10743 . . . . . . . 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 9441 . . . . . . . . 9  |-  ( ph  ->  1  e.  ZZ )
127nnzd 9536 . . . . . . . . 9  |-  ( ph  ->  ( phi `  N
)  e.  ZZ )
1311, 12fzfigd 10620 . . . . . . . 8  |-  ( ph  ->  ( 1 ... ( phi `  N ) )  e.  Fin )
14 ssrab2 3289 . . . . . . . . . . 11  |-  { y  e.  ( 0..^ N )  |  ( y  gcd  N )  =  1 }  C_  (
0..^ N )
152, 14eqsstri 3236 . . . . . . . . . 10  |-  S  C_  ( 0..^ N )
16 fzo0ssnn0 10388 . . . . . . . . . . 11  |-  ( 0..^ N )  C_  NN0
17 nn0ssz 9432 . . . . . . . . . . 11  |-  NN0  C_  ZZ
1816, 17sstri 3213 . . . . . . . . . 10  |-  ( 0..^ N )  C_  ZZ
1915, 18sstri 3213 . . . . . . . . 9  |-  S  C_  ZZ
20 f1of 5548 . . . . . . . . . . 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 5743 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  x )  e.  S
)
2319, 22sselid 3202 . . . . . . . 8  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  x )  e.  ZZ )
2413, 23fprodzcl 12086 . . . . . . 7  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  e.  ZZ )
2510, 24zmulcld 9543 . . . . . 6  |-  ( ph  ->  ( ( A ^
( phi `  N
) )  x.  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  e.  ZZ )
26 fveq2 5603 . . . . . . . . 9  |-  ( z  =  ( `' F `  ( ( A  x.  ( F `  x ) )  mod  N ) )  ->  ( F `  z )  =  ( F `  ( `' F `  ( ( A  x.  ( F `
 x ) )  mod  N ) ) ) )
27 eqid 2209 . . . . . . . . . 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 12719 . . . . . . . . 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 2209 . . . . . . . . . . . . 13  |-  ( 1 ... ( phi `  N ) )  =  ( 1 ... ( phi `  N ) )
30 fveq2 5603 . . . . . . . . . . . . . . . 16  |-  ( v  =  u  ->  ( F `  v )  =  ( F `  u ) )
3130oveq2d 5990 . . . . . . . . . . . . . . 15  |-  ( v  =  u  ->  ( A  x.  ( F `  v ) )  =  ( A  x.  ( F `  u )
) )
3231oveq1d 5989 . . . . . . . . . . . . . 14  |-  ( v  =  u  ->  (
( A  x.  ( F `  v )
)  mod  N )  =  ( ( A  x.  ( F `  u ) )  mod 
N ) )
3332cbvmptv 4159 . . . . . . . . . . . . 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 12715 . . . . . . . . . . . 12  |-  ( ph  ->  ( v  e.  ( 1 ... ( phi `  N ) )  |->  ( ( A  x.  ( F `  v )
)  mod  N )
) : ( 1 ... ( phi `  N ) ) --> S )
35 fveq2 5603 . . . . . . . . . . . . . . . 16  |-  ( v  =  y  ->  ( F `  v )  =  ( F `  y ) )
3635oveq2d 5990 . . . . . . . . . . . . . . 15  |-  ( v  =  y  ->  ( A  x.  ( F `  v ) )  =  ( A  x.  ( F `  y )
) )
3736oveq1d 5989 . . . . . . . . . . . . . 14  |-  ( v  =  y  ->  (
( A  x.  ( F `  v )
)  mod  N )  =  ( ( A  x.  ( F `  y ) )  mod 
N ) )
3837cbvmptv 4159 . . . . . . . . . . . . 13  |-  ( v  e.  ( 1 ... ( phi `  N
) )  |->  ( ( A  x.  ( F `
 v ) )  mod  N ) )  =  ( y  e.  ( 1 ... ( phi `  N ) ) 
|->  ( ( A  x.  ( F `  y ) )  mod  N ) )
3938feq1i 5442 . . . . . . . . . . . 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 5678 . . . . . . . . . . 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 2209 . . . . . . . . . . . 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 5603 . . . . . . . . . . . . . 14  |-  ( y  =  x  ->  ( F `  y )  =  ( F `  x ) )
4544oveq2d 5990 . . . . . . . . . . . . 13  |-  ( y  =  x  ->  ( A  x.  ( F `  y ) )  =  ( A  x.  ( F `  x )
) )
4645oveq1d 5989 . . . . . . . . . . . 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 9543 . . . . . . . . . . . . 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 10536 . . . . . . . . . . . . 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 5701 . . . . . . . . . . 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 5607 . . . . . . . . . 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 2242 . . . . . . . . 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 5743 . . . . . . . . . . 11  |-  ( (
ph  /\  z  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  z )  e.  S
)
5719, 56sselid 3202 . . . . . . . . . 10  |-  ( (
ph  /\  z  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  z )  e.  ZZ )
5857zcnd 9538 . . . . . . . . 9  |-  ( (
ph  /\  z  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  z )  e.  CC )
5926, 13, 28, 55, 58fprodf1o 12065 . . . . . . . 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 12478 . . . . . . . . . . . . 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 9536 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  N  e.  ZZ )
6463, 49gcdcomd 12461 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( N  gcd  ( A  x.  ( F `  x )
) )  =  ( ( A  x.  ( F `  x )
)  gcd  N )
)
655nnzd 9536 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  N  e.  ZZ )
666, 65gcdcomd 12461 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( A  gcd  N
)  =  ( N  gcd  A ) )
671simp3d 1016 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( A  gcd  N
)  =  1 )
6866, 67eqtr3d 2244 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( N  gcd  A
)  =  1 )
6968adantr 276 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( N  gcd  A )  =  1 )
7023, 63gcdcomd 12461 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( ( F `  x )  gcd  N )  =  ( N  gcd  ( F `
 x ) ) )
71 oveq1 5981 . . . . . . . . . . . . . . . . . 18  |-  ( y  =  ( F `  x )  ->  (
y  gcd  N )  =  ( ( F `
 x )  gcd 
N ) )
7271eqeq1d 2218 . . . . . . . . . . . . . . . . 17  |-  ( y  =  ( F `  x )  ->  (
( y  gcd  N
)  =  1  <->  (
( F `  x
)  gcd  N )  =  1 ) )
7372, 2elrab2 2942 . . . . . . . . . . . . . . . 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 2244 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( N  gcd  ( F `  x
) )  =  1 )
77 rpmul 12586 . . . . . . . . . . . . . 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 1252 . . . . . . . . . . . . 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 2248 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( (
( A  x.  ( F `  x )
)  mod  N )  gcd  N )  =  1 )
81 oveq1 5981 . . . . . . . . . . . . 13  |-  ( y  =  ( ( A  x.  ( F `  x ) )  mod 
N )  ->  (
y  gcd  N )  =  ( ( ( A  x.  ( F `
 x ) )  mod  N )  gcd 
N ) )
8281eqeq1d 2218 . . . . . . . . . . . 12  |-  ( y  =  ( ( A  x.  ( F `  x ) )  mod 
N )  ->  (
( y  gcd  N
)  =  1  <->  (
( ( A  x.  ( F `  x ) )  mod  N )  gcd  N )  =  1 ) )
8382, 2elrab2 2942 . . . . . . . . . . 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 5875 . . . . . . . . . 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 12043 . . . . . . . 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 2243 . . . . . . 7  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x )
)  mod  N )  =  prod_ z  e.  ( 1 ... ( phi `  N ) ) ( F `  z ) )
89 fveq2 5603 . . . . . . . . 9  |-  ( z  =  x  ->  ( F `  z )  =  ( F `  x ) )
9089cbvprodv 12036 . . . . . . . 8  |-  prod_ z  e.  ( 1 ... ( phi `  N ) ) ( F `  z
)  =  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x
)
9190, 24eqeltrid 2296 . . . . . . 7  |-  ( ph  ->  prod_ z  e.  ( 1 ... ( phi `  N ) ) ( F `  z )  e.  ZZ )
9288, 91eqeltrd 2286 . . . . . 6  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x )
)  mod  N )  e.  ZZ )
93 moddvds 12276 . . . . . 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 1252 . . . . 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 9538 . . . . . . . 8  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  e.  CC )
9796mulid2d 8133 . . . . . . 7  |-  ( ph  ->  ( 1  x.  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  =  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x ) )
9890, 88, 973eqtr4a 2268 . . . . . 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 5990 . . . . 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 9538 . . . . . 6  |-  ( ph  ->  ( A ^ ( phi `  N ) )  e.  CC )
101 ax-1cn 8060 . . . . . . 7  |-  1  e.  CC
102 subdir 8500 . . . . . . 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 1340 . . . . . 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 9542 . . . . . . 7  |-  ( ph  ->  ( ( A ^
( phi `  N
) )  -  1 )  e.  ZZ )
106105zcnd 9538 . . . . . 6  |-  ( ph  ->  ( ( A ^
( phi `  N
) )  -  1 )  e.  CC )
107106, 96mulcomd 8136 . . . . 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 2248 . . . 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 4088 . . 3  |-  ( ph  ->  N  ||  ( prod_
x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  x.  ( ( A ^ ( phi `  N ) )  - 
1 ) ) )
1101, 2, 3eulerthlemrprm 12717 . . 3  |-  ( ph  ->  ( N  gcd  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  =  1 )
111 coprmdvds 12580 . . . 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 1252 . . 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 9440 . . . 4  |-  1  e.  ZZ
115 moddvds 12276 . . . 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 1341 . . 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 983    = wceq 1375    e. wcel 2180   {crab 2492   class class class wbr 4062    |-> cmpt 4124   `'ccnv 4695    o. ccom 4700   -->wf 5290   -1-1-onto->wf1o 5293   ` cfv 5294  (class class class)co 5974   CCcc 7965   0cc0 7967   1c1 7968    x. cmul 7972    - cmin 8285   NNcn 9078   NN0cn0 9337   ZZcz 9414   ...cfz 10172  ..^cfzo 10306    mod cmo 10511   ^cexp 10727   prod_cprod 12027    || cdvds 12264    gcd cgcd 12440   phicphi 12697
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 617  ax-in2 618  ax-io 713  ax-5 1473  ax-7 1474  ax-gen 1475  ax-ie1 1519  ax-ie2 1520  ax-8 1530  ax-10 1531  ax-11 1532  ax-i12 1533  ax-bndl 1535  ax-4 1536  ax-17 1552  ax-i9 1556  ax-ial 1560  ax-i5r 1561  ax-13 2182  ax-14 2183  ax-ext 2191  ax-coll 4178  ax-sep 4181  ax-nul 4189  ax-pow 4237  ax-pr 4272  ax-un 4501  ax-setind 4606  ax-iinf 4657  ax-cnex 8058  ax-resscn 8059  ax-1cn 8060  ax-1re 8061  ax-icn 8062  ax-addcl 8063  ax-addrcl 8064  ax-mulcl 8065  ax-mulrcl 8066  ax-addcom 8067  ax-mulcom 8068  ax-addass 8069  ax-mulass 8070  ax-distr 8071  ax-i2m1 8072  ax-0lt1 8073  ax-1rid 8074  ax-0id 8075  ax-rnegex 8076  ax-precex 8077  ax-cnre 8078  ax-pre-ltirr 8079  ax-pre-ltwlin 8080  ax-pre-lttrn 8081  ax-pre-apti 8082  ax-pre-ltadd 8083  ax-pre-mulgt0 8084  ax-pre-mulext 8085  ax-arch 8086  ax-caucvg 8087
This theorem depends on definitions:  df-bi 117  df-stab 835  df-dc 839  df-3or 984  df-3an 985  df-tru 1378  df-fal 1381  df-nf 1487  df-sb 1789  df-eu 2060  df-mo 2061  df-clab 2196  df-cleq 2202  df-clel 2205  df-nfc 2341  df-ne 2381  df-nel 2476  df-ral 2493  df-rex 2494  df-reu 2495  df-rmo 2496  df-rab 2497  df-v 2781  df-sbc 3009  df-csb 3105  df-dif 3179  df-un 3181  df-in 3183  df-ss 3190  df-nul 3472  df-if 3583  df-pw 3631  df-sn 3652  df-pr 3653  df-op 3655  df-uni 3868  df-int 3903  df-iun 3946  df-br 4063  df-opab 4125  df-mpt 4126  df-tr 4162  df-id 4361  df-po 4364  df-iso 4365  df-iord 4434  df-on 4436  df-ilim 4437  df-suc 4439  df-iom 4660  df-xp 4702  df-rel 4703  df-cnv 4704  df-co 4705  df-dm 4706  df-rn 4707  df-res 4708  df-ima 4709  df-iota 5254  df-fun 5296  df-fn 5297  df-f 5298  df-f1 5299  df-fo 5300  df-f1o 5301  df-fv 5302  df-isom 5303  df-riota 5927  df-ov 5977  df-oprab 5978  df-mpo 5979  df-1st 6256  df-2nd 6257  df-recs 6421  df-irdg 6486  df-frec 6507  df-1o 6532  df-oadd 6536  df-er 6650  df-en 6858  df-dom 6859  df-fin 6860  df-sup 7119  df-pnf 8151  df-mnf 8152  df-xr 8153  df-ltxr 8154  df-le 8155  df-sub 8287  df-neg 8288  df-reap 8690  df-ap 8697  df-div 8788  df-inn 9079  df-2 9137  df-3 9138  df-4 9139  df-n0 9338  df-z 9415  df-uz 9691  df-q 9783  df-rp 9818  df-fz 10173  df-fzo 10307  df-fl 10457  df-mod 10512  df-seqfrec 10637  df-exp 10728  df-ihash 10965  df-cj 11319  df-re 11320  df-im 11321  df-rsqrt 11475  df-abs 11476  df-clim 11756  df-proddc 12028  df-dvds 12265  df-gcd 12441  df-phi 12699
This theorem is referenced by:  eulerth  12721
  Copyright terms: Public domain W3C validator