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

Theorem eulerthlemth 12827
Description: Lemma for eulerth 12828. 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 12825 . . . . 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 1035 . . . . . 6  |-  ( ph  ->  N  e.  NN )
61simp2d 1036 . . . . . . . 8  |-  ( ph  ->  A  e.  ZZ )
75phicld 12813 . . . . . . . . 9  |-  ( ph  ->  ( phi `  N
)  e.  NN )
87nnnn0d 9460 . . . . . . . 8  |-  ( ph  ->  ( phi `  N
)  e.  NN0 )
9 zexpcl 10822 . . . . . . . 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 9511 . . . . . . . . 9  |-  ( ph  ->  1  e.  ZZ )
127nnzd 9606 . . . . . . . . 9  |-  ( ph  ->  ( phi `  N
)  e.  ZZ )
1311, 12fzfigd 10699 . . . . . . . 8  |-  ( ph  ->  ( 1 ... ( phi `  N ) )  e.  Fin )
14 ssrab2 3311 . . . . . . . . . . 11  |-  { y  e.  ( 0..^ N )  |  ( y  gcd  N )  =  1 }  C_  (
0..^ N )
152, 14eqsstri 3258 . . . . . . . . . 10  |-  S  C_  ( 0..^ N )
16 fzo0ssnn0 10466 . . . . . . . . . . 11  |-  ( 0..^ N )  C_  NN0
17 nn0ssz 9502 . . . . . . . . . . 11  |-  NN0  C_  ZZ
1816, 17sstri 3235 . . . . . . . . . 10  |-  ( 0..^ N )  C_  ZZ
1915, 18sstri 3235 . . . . . . . . 9  |-  S  C_  ZZ
20 f1of 5586 . . . . . . . . . . 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 5785 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  x )  e.  S
)
2319, 22sselid 3224 . . . . . . . 8  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  x )  e.  ZZ )
2413, 23fprodzcl 12193 . . . . . . 7  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  e.  ZZ )
2510, 24zmulcld 9613 . . . . . 6  |-  ( ph  ->  ( ( A ^
( phi `  N
) )  x.  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  e.  ZZ )
26 fveq2 5642 . . . . . . . . 9  |-  ( z  =  ( `' F `  ( ( A  x.  ( F `  x ) )  mod  N ) )  ->  ( F `  z )  =  ( F `  ( `' F `  ( ( A  x.  ( F `
 x ) )  mod  N ) ) ) )
27 eqid 2230 . . . . . . . . . 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 12826 . . . . . . . . 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 2230 . . . . . . . . . . . . 13  |-  ( 1 ... ( phi `  N ) )  =  ( 1 ... ( phi `  N ) )
30 fveq2 5642 . . . . . . . . . . . . . . . 16  |-  ( v  =  u  ->  ( F `  v )  =  ( F `  u ) )
3130oveq2d 6039 . . . . . . . . . . . . . . 15  |-  ( v  =  u  ->  ( A  x.  ( F `  v ) )  =  ( A  x.  ( F `  u )
) )
3231oveq1d 6038 . . . . . . . . . . . . . 14  |-  ( v  =  u  ->  (
( A  x.  ( F `  v )
)  mod  N )  =  ( ( A  x.  ( F `  u ) )  mod 
N ) )
3332cbvmptv 4186 . . . . . . . . . . . . 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 12822 . . . . . . . . . . . 12  |-  ( ph  ->  ( v  e.  ( 1 ... ( phi `  N ) )  |->  ( ( A  x.  ( F `  v )
)  mod  N )
) : ( 1 ... ( phi `  N ) ) --> S )
35 fveq2 5642 . . . . . . . . . . . . . . . 16  |-  ( v  =  y  ->  ( F `  v )  =  ( F `  y ) )
3635oveq2d 6039 . . . . . . . . . . . . . . 15  |-  ( v  =  y  ->  ( A  x.  ( F `  v ) )  =  ( A  x.  ( F `  y )
) )
3736oveq1d 6038 . . . . . . . . . . . . . 14  |-  ( v  =  y  ->  (
( A  x.  ( F `  v )
)  mod  N )  =  ( ( A  x.  ( F `  y ) )  mod 
N ) )
3837cbvmptv 4186 . . . . . . . . . . . . 13  |-  ( v  e.  ( 1 ... ( phi `  N
) )  |->  ( ( A  x.  ( F `
 v ) )  mod  N ) )  =  ( y  e.  ( 1 ... ( phi `  N ) ) 
|->  ( ( A  x.  ( F `  y ) )  mod  N ) )
3938feq1i 5477 . . . . . . . . . . . 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 5720 . . . . . . . . . . 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 2230 . . . . . . . . . . . 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 5642 . . . . . . . . . . . . . 14  |-  ( y  =  x  ->  ( F `  y )  =  ( F `  x ) )
4544oveq2d 6039 . . . . . . . . . . . . 13  |-  ( y  =  x  ->  ( A  x.  ( F `  y ) )  =  ( A  x.  ( F `  x )
) )
4645oveq1d 6038 . . . . . . . . . . . 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 9613 . . . . . . . . . . . . 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 10615 . . . . . . . . . . . . 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 5743 . . . . . . . . . . 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 5646 . . . . . . . . . 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 2263 . . . . . . . . 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 5785 . . . . . . . . . . 11  |-  ( (
ph  /\  z  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  z )  e.  S
)
5719, 56sselid 3224 . . . . . . . . . 10  |-  ( (
ph  /\  z  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  z )  e.  ZZ )
5857zcnd 9608 . . . . . . . . 9  |-  ( (
ph  /\  z  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  z )  e.  CC )
5926, 13, 28, 55, 58fprodf1o 12172 . . . . . . . 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 12585 . . . . . . . . . . . . 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 9606 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  N  e.  ZZ )
6463, 49gcdcomd 12568 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( N  gcd  ( A  x.  ( F `  x )
) )  =  ( ( A  x.  ( F `  x )
)  gcd  N )
)
655nnzd 9606 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  N  e.  ZZ )
666, 65gcdcomd 12568 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( A  gcd  N
)  =  ( N  gcd  A ) )
671simp3d 1037 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( A  gcd  N
)  =  1 )
6866, 67eqtr3d 2265 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( N  gcd  A
)  =  1 )
6968adantr 276 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( N  gcd  A )  =  1 )
7023, 63gcdcomd 12568 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( ( F `  x )  gcd  N )  =  ( N  gcd  ( F `
 x ) ) )
71 oveq1 6030 . . . . . . . . . . . . . . . . . 18  |-  ( y  =  ( F `  x )  ->  (
y  gcd  N )  =  ( ( F `
 x )  gcd 
N ) )
7271eqeq1d 2239 . . . . . . . . . . . . . . . . 17  |-  ( y  =  ( F `  x )  ->  (
( y  gcd  N
)  =  1  <->  (
( F `  x
)  gcd  N )  =  1 ) )
7372, 2elrab2 2964 . . . . . . . . . . . . . . . 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 2265 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( N  gcd  ( F `  x
) )  =  1 )
77 rpmul 12693 . . . . . . . . . . . . . 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 1273 . . . . . . . . . . . . 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 2269 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( (
( A  x.  ( F `  x )
)  mod  N )  gcd  N )  =  1 )
81 oveq1 6030 . . . . . . . . . . . . 13  |-  ( y  =  ( ( A  x.  ( F `  x ) )  mod 
N )  ->  (
y  gcd  N )  =  ( ( ( A  x.  ( F `
 x ) )  mod  N )  gcd 
N ) )
8281eqeq1d 2239 . . . . . . . . . . . 12  |-  ( y  =  ( ( A  x.  ( F `  x ) )  mod 
N )  ->  (
( y  gcd  N
)  =  1  <->  (
( ( A  x.  ( F `  x ) )  mod  N )  gcd  N )  =  1 ) )
8382, 2elrab2 2964 . . . . . . . . . . 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 5924 . . . . . . . . . 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 12150 . . . . . . . 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 2264 . . . . . . 7  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x )
)  mod  N )  =  prod_ z  e.  ( 1 ... ( phi `  N ) ) ( F `  z ) )
89 fveq2 5642 . . . . . . . . 9  |-  ( z  =  x  ->  ( F `  z )  =  ( F `  x ) )
9089cbvprodv 12143 . . . . . . . 8  |-  prod_ z  e.  ( 1 ... ( phi `  N ) ) ( F `  z
)  =  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x
)
9190, 24eqeltrid 2317 . . . . . . 7  |-  ( ph  ->  prod_ z  e.  ( 1 ... ( phi `  N ) ) ( F `  z )  e.  ZZ )
9288, 91eqeltrd 2307 . . . . . 6  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x )
)  mod  N )  e.  ZZ )
93 moddvds 12383 . . . . . 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 1273 . . . . 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 9608 . . . . . . . 8  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  e.  CC )
9796mulid2d 8203 . . . . . . 7  |-  ( ph  ->  ( 1  x.  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  =  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x ) )
9890, 88, 973eqtr4a 2289 . . . . . 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 6039 . . . . 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 9608 . . . . . 6  |-  ( ph  ->  ( A ^ ( phi `  N ) )  e.  CC )
101 ax-1cn 8130 . . . . . . 7  |-  1  e.  CC
102 subdir 8570 . . . . . . 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 1361 . . . . . 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 9612 . . . . . . 7  |-  ( ph  ->  ( ( A ^
( phi `  N
) )  -  1 )  e.  ZZ )
106105zcnd 9608 . . . . . 6  |-  ( ph  ->  ( ( A ^
( phi `  N
) )  -  1 )  e.  CC )
107106, 96mulcomd 8206 . . . . 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 2269 . . . 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 4115 . . 3  |-  ( ph  ->  N  ||  ( prod_
x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  x.  ( ( A ^ ( phi `  N ) )  - 
1 ) ) )
1101, 2, 3eulerthlemrprm 12824 . . 3  |-  ( ph  ->  ( N  gcd  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  =  1 )
111 coprmdvds 12687 . . . 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 1273 . . 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 9510 . . . 4  |-  1  e.  ZZ
115 moddvds 12383 . . . 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 1362 . . 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 1004    = wceq 1397    e. wcel 2201   {crab 2513   class class class wbr 4089    |-> cmpt 4151   `'ccnv 4726    o. ccom 4731   -->wf 5324   -1-1-onto->wf1o 5327   ` cfv 5328  (class class class)co 6023   CCcc 8035   0cc0 8037   1c1 8038    x. cmul 8042    - cmin 8355   NNcn 9148   NN0cn0 9407   ZZcz 9484   ...cfz 10248  ..^cfzo 10382    mod cmo 10590   ^cexp 10806   prod_cprod 12134    || cdvds 12371    gcd cgcd 12547   phicphi 12804
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 716  ax-5 1495  ax-7 1496  ax-gen 1497  ax-ie1 1541  ax-ie2 1542  ax-8 1552  ax-10 1553  ax-11 1554  ax-i12 1555  ax-bndl 1557  ax-4 1558  ax-17 1574  ax-i9 1578  ax-ial 1582  ax-i5r 1583  ax-13 2203  ax-14 2204  ax-ext 2212  ax-coll 4205  ax-sep 4208  ax-nul 4216  ax-pow 4266  ax-pr 4301  ax-un 4532  ax-setind 4637  ax-iinf 4688  ax-cnex 8128  ax-resscn 8129  ax-1cn 8130  ax-1re 8131  ax-icn 8132  ax-addcl 8133  ax-addrcl 8134  ax-mulcl 8135  ax-mulrcl 8136  ax-addcom 8137  ax-mulcom 8138  ax-addass 8139  ax-mulass 8140  ax-distr 8141  ax-i2m1 8142  ax-0lt1 8143  ax-1rid 8144  ax-0id 8145  ax-rnegex 8146  ax-precex 8147  ax-cnre 8148  ax-pre-ltirr 8149  ax-pre-ltwlin 8150  ax-pre-lttrn 8151  ax-pre-apti 8152  ax-pre-ltadd 8153  ax-pre-mulgt0 8154  ax-pre-mulext 8155  ax-arch 8156  ax-caucvg 8157
This theorem depends on definitions:  df-bi 117  df-stab 838  df-dc 842  df-3or 1005  df-3an 1006  df-tru 1400  df-fal 1403  df-nf 1509  df-sb 1810  df-eu 2081  df-mo 2082  df-clab 2217  df-cleq 2223  df-clel 2226  df-nfc 2362  df-ne 2402  df-nel 2497  df-ral 2514  df-rex 2515  df-reu 2516  df-rmo 2517  df-rab 2518  df-v 2803  df-sbc 3031  df-csb 3127  df-dif 3201  df-un 3203  df-in 3205  df-ss 3212  df-nul 3494  df-if 3605  df-pw 3655  df-sn 3676  df-pr 3677  df-op 3679  df-uni 3895  df-int 3930  df-iun 3973  df-br 4090  df-opab 4152  df-mpt 4153  df-tr 4189  df-id 4392  df-po 4395  df-iso 4396  df-iord 4465  df-on 4467  df-ilim 4468  df-suc 4470  df-iom 4691  df-xp 4733  df-rel 4734  df-cnv 4735  df-co 4736  df-dm 4737  df-rn 4738  df-res 4739  df-ima 4740  df-iota 5288  df-fun 5330  df-fn 5331  df-f 5332  df-f1 5333  df-fo 5334  df-f1o 5335  df-fv 5336  df-isom 5337  df-riota 5976  df-ov 6026  df-oprab 6027  df-mpo 6028  df-1st 6308  df-2nd 6309  df-recs 6476  df-irdg 6541  df-frec 6562  df-1o 6587  df-oadd 6591  df-er 6707  df-en 6915  df-dom 6916  df-fin 6917  df-sup 7188  df-pnf 8221  df-mnf 8222  df-xr 8223  df-ltxr 8224  df-le 8225  df-sub 8357  df-neg 8358  df-reap 8760  df-ap 8767  df-div 8858  df-inn 9149  df-2 9207  df-3 9208  df-4 9209  df-n0 9408  df-z 9485  df-uz 9761  df-q 9859  df-rp 9894  df-fz 10249  df-fzo 10383  df-fl 10536  df-mod 10591  df-seqfrec 10716  df-exp 10807  df-ihash 11044  df-cj 11425  df-re 11426  df-im 11427  df-rsqrt 11581  df-abs 11582  df-clim 11862  df-proddc 12135  df-dvds 12372  df-gcd 12548  df-phi 12806
This theorem is referenced by:  eulerth  12828
  Copyright terms: Public domain W3C validator