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

Theorem eulerthlemth 12400
Description: Lemma for eulerth 12401. 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 12398 . . . . 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 12386 . . . . . . . . 9  |-  ( ph  ->  ( phi `  N
)  e.  NN )
87nnnn0d 9302 . . . . . . . 8  |-  ( ph  ->  ( phi `  N
)  e.  NN0 )
9 zexpcl 10646 . . . . . . . 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 9353 . . . . . . . . 9  |-  ( ph  ->  1  e.  ZZ )
127nnzd 9447 . . . . . . . . 9  |-  ( ph  ->  ( phi `  N
)  e.  ZZ )
1311, 12fzfigd 10523 . . . . . . . 8  |-  ( ph  ->  ( 1 ... ( phi `  N ) )  e.  Fin )
14 ssrab2 3268 . . . . . . . . . . 11  |-  { y  e.  ( 0..^ N )  |  ( y  gcd  N )  =  1 }  C_  (
0..^ N )
152, 14eqsstri 3215 . . . . . . . . . 10  |-  S  C_  ( 0..^ N )
16 fzo0ssnn0 10291 . . . . . . . . . . 11  |-  ( 0..^ N )  C_  NN0
17 nn0ssz 9344 . . . . . . . . . . 11  |-  NN0  C_  ZZ
1816, 17sstri 3192 . . . . . . . . . 10  |-  ( 0..^ N )  C_  ZZ
1915, 18sstri 3192 . . . . . . . . 9  |-  S  C_  ZZ
20 f1of 5504 . . . . . . . . . . 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 5697 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  x )  e.  S
)
2319, 22sselid 3181 . . . . . . . 8  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  x )  e.  ZZ )
2413, 23fprodzcl 11774 . . . . . . 7  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  e.  ZZ )
2510, 24zmulcld 9454 . . . . . 6  |-  ( ph  ->  ( ( A ^
( phi `  N
) )  x.  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  e.  ZZ )
26 fveq2 5558 . . . . . . . . 9  |-  ( z  =  ( `' F `  ( ( A  x.  ( F `  x ) )  mod  N ) )  ->  ( F `  z )  =  ( F `  ( `' F `  ( ( A  x.  ( F `
 x ) )  mod  N ) ) ) )
27 eqid 2196 . . . . . . . . . 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 12399 . . . . . . . . 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 2196 . . . . . . . . . . . . 13  |-  ( 1 ... ( phi `  N ) )  =  ( 1 ... ( phi `  N ) )
30 fveq2 5558 . . . . . . . . . . . . . . . 16  |-  ( v  =  u  ->  ( F `  v )  =  ( F `  u ) )
3130oveq2d 5938 . . . . . . . . . . . . . . 15  |-  ( v  =  u  ->  ( A  x.  ( F `  v ) )  =  ( A  x.  ( F `  u )
) )
3231oveq1d 5937 . . . . . . . . . . . . . 14  |-  ( v  =  u  ->  (
( A  x.  ( F `  v )
)  mod  N )  =  ( ( A  x.  ( F `  u ) )  mod 
N ) )
3332cbvmptv 4129 . . . . . . . . . . . . 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 12395 . . . . . . . . . . . 12  |-  ( ph  ->  ( v  e.  ( 1 ... ( phi `  N ) )  |->  ( ( A  x.  ( F `  v )
)  mod  N )
) : ( 1 ... ( phi `  N ) ) --> S )
35 fveq2 5558 . . . . . . . . . . . . . . . 16  |-  ( v  =  y  ->  ( F `  v )  =  ( F `  y ) )
3635oveq2d 5938 . . . . . . . . . . . . . . 15  |-  ( v  =  y  ->  ( A  x.  ( F `  v ) )  =  ( A  x.  ( F `  y )
) )
3736oveq1d 5937 . . . . . . . . . . . . . 14  |-  ( v  =  y  ->  (
( A  x.  ( F `  v )
)  mod  N )  =  ( ( A  x.  ( F `  y ) )  mod 
N ) )
3837cbvmptv 4129 . . . . . . . . . . . . 13  |-  ( v  e.  ( 1 ... ( phi `  N
) )  |->  ( ( A  x.  ( F `
 v ) )  mod  N ) )  =  ( y  e.  ( 1 ... ( phi `  N ) ) 
|->  ( ( A  x.  ( F `  y ) )  mod  N ) )
3938feq1i 5400 . . . . . . . . . . . 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 5632 . . . . . . . . . . 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 2196 . . . . . . . . . . . 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 5558 . . . . . . . . . . . . . 14  |-  ( y  =  x  ->  ( F `  y )  =  ( F `  x ) )
4544oveq2d 5938 . . . . . . . . . . . . 13  |-  ( y  =  x  ->  ( A  x.  ( F `  y ) )  =  ( A  x.  ( F `  x )
) )
4645oveq1d 5937 . . . . . . . . . . . 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 9454 . . . . . . . . . . . . 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 10439 . . . . . . . . . . . . 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 5655 . . . . . . . . . . 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 5562 . . . . . . . . . 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 2229 . . . . . . . . 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 5697 . . . . . . . . . . 11  |-  ( (
ph  /\  z  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  z )  e.  S
)
5719, 56sselid 3181 . . . . . . . . . 10  |-  ( (
ph  /\  z  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  z )  e.  ZZ )
5857zcnd 9449 . . . . . . . . 9  |-  ( (
ph  /\  z  e.  ( 1 ... ( phi `  N ) ) )  ->  ( F `  z )  e.  CC )
5926, 13, 28, 55, 58fprodf1o 11753 . . . . . . . 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 12158 . . . . . . . . . . . . 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 9447 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  N  e.  ZZ )
6463, 49gcdcomd 12141 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( N  gcd  ( A  x.  ( F `  x )
) )  =  ( ( A  x.  ( F `  x )
)  gcd  N )
)
655nnzd 9447 . . . . . . . . . . . . . . . 16  |-  ( ph  ->  N  e.  ZZ )
666, 65gcdcomd 12141 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( A  gcd  N
)  =  ( N  gcd  A ) )
671simp3d 1013 . . . . . . . . . . . . . . 15  |-  ( ph  ->  ( A  gcd  N
)  =  1 )
6866, 67eqtr3d 2231 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( N  gcd  A
)  =  1 )
6968adantr 276 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( N  gcd  A )  =  1 )
7023, 63gcdcomd 12141 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( ( F `  x )  gcd  N )  =  ( N  gcd  ( F `
 x ) ) )
71 oveq1 5929 . . . . . . . . . . . . . . . . . 18  |-  ( y  =  ( F `  x )  ->  (
y  gcd  N )  =  ( ( F `
 x )  gcd 
N ) )
7271eqeq1d 2205 . . . . . . . . . . . . . . . . 17  |-  ( y  =  ( F `  x )  ->  (
( y  gcd  N
)  =  1  <->  (
( F `  x
)  gcd  N )  =  1 ) )
7372, 2elrab2 2923 . . . . . . . . . . . . . . . 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 2231 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( N  gcd  ( F `  x
) )  =  1 )
77 rpmul 12266 . . . . . . . . . . . . . 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 2235 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  ( 1 ... ( phi `  N ) ) )  ->  ( (
( A  x.  ( F `  x )
)  mod  N )  gcd  N )  =  1 )
81 oveq1 5929 . . . . . . . . . . . . 13  |-  ( y  =  ( ( A  x.  ( F `  x ) )  mod 
N )  ->  (
y  gcd  N )  =  ( ( ( A  x.  ( F `
 x ) )  mod  N )  gcd 
N ) )
8281eqeq1d 2205 . . . . . . . . . . . 12  |-  ( y  =  ( ( A  x.  ( F `  x ) )  mod 
N )  ->  (
( y  gcd  N
)  =  1  <->  (
( ( A  x.  ( F `  x ) )  mod  N )  gcd  N )  =  1 ) )
8382, 2elrab2 2923 . . . . . . . . . . 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 5825 . . . . . . . . . 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 11731 . . . . . . . 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 2230 . . . . . . 7  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x )
)  mod  N )  =  prod_ z  e.  ( 1 ... ( phi `  N ) ) ( F `  z ) )
89 fveq2 5558 . . . . . . . . 9  |-  ( z  =  x  ->  ( F `  z )  =  ( F `  x ) )
9089cbvprodv 11724 . . . . . . . 8  |-  prod_ z  e.  ( 1 ... ( phi `  N ) ) ( F `  z
)  =  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x
)
9190, 24eqeltrid 2283 . . . . . . 7  |-  ( ph  ->  prod_ z  e.  ( 1 ... ( phi `  N ) ) ( F `  z )  e.  ZZ )
9288, 91eqeltrd 2273 . . . . . 6  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( ( A  x.  ( F `  x )
)  mod  N )  e.  ZZ )
93 moddvds 11964 . . . . . 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 9449 . . . . . . . 8  |-  ( ph  ->  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  e.  CC )
9796mulid2d 8045 . . . . . . 7  |-  ( ph  ->  ( 1  x.  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  =  prod_ x  e.  ( 1 ... ( phi `  N ) ) ( F `  x ) )
9890, 88, 973eqtr4a 2255 . . . . . 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 5938 . . . . 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 9449 . . . . . 6  |-  ( ph  ->  ( A ^ ( phi `  N ) )  e.  CC )
101 ax-1cn 7972 . . . . . . 7  |-  1  e.  CC
102 subdir 8412 . . . . . . 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 9453 . . . . . . 7  |-  ( ph  ->  ( ( A ^
( phi `  N
) )  -  1 )  e.  ZZ )
106105zcnd 9449 . . . . . 6  |-  ( ph  ->  ( ( A ^
( phi `  N
) )  -  1 )  e.  CC )
107106, 96mulcomd 8048 . . . . 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 2235 . . . 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 4059 . . 3  |-  ( ph  ->  N  ||  ( prod_
x  e.  ( 1 ... ( phi `  N ) ) ( F `  x )  x.  ( ( A ^ ( phi `  N ) )  - 
1 ) ) )
1101, 2, 3eulerthlemrprm 12397 . . 3  |-  ( ph  ->  ( N  gcd  prod_ x  e.  ( 1 ... ( phi `  N
) ) ( F `
 x ) )  =  1 )
111 coprmdvds 12260 . . . 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 9352 . . . 4  |-  1  e.  ZZ
115 moddvds 11964 . . . 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 2167   {crab 2479   class class class wbr 4033    |-> cmpt 4094   `'ccnv 4662    o. ccom 4667   -->wf 5254   -1-1-onto->wf1o 5257   ` cfv 5258  (class class class)co 5922   CCcc 7877   0cc0 7879   1c1 7880    x. cmul 7884    - cmin 8197   NNcn 8990   NN0cn0 9249   ZZcz 9326   ...cfz 10083  ..^cfzo 10217    mod cmo 10414   ^cexp 10630   prod_cprod 11715    || cdvds 11952    gcd cgcd 12120   phicphi 12377
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 1461  ax-7 1462  ax-gen 1463  ax-ie1 1507  ax-ie2 1508  ax-8 1518  ax-10 1519  ax-11 1520  ax-i12 1521  ax-bndl 1523  ax-4 1524  ax-17 1540  ax-i9 1544  ax-ial 1548  ax-i5r 1549  ax-13 2169  ax-14 2170  ax-ext 2178  ax-coll 4148  ax-sep 4151  ax-nul 4159  ax-pow 4207  ax-pr 4242  ax-un 4468  ax-setind 4573  ax-iinf 4624  ax-cnex 7970  ax-resscn 7971  ax-1cn 7972  ax-1re 7973  ax-icn 7974  ax-addcl 7975  ax-addrcl 7976  ax-mulcl 7977  ax-mulrcl 7978  ax-addcom 7979  ax-mulcom 7980  ax-addass 7981  ax-mulass 7982  ax-distr 7983  ax-i2m1 7984  ax-0lt1 7985  ax-1rid 7986  ax-0id 7987  ax-rnegex 7988  ax-precex 7989  ax-cnre 7990  ax-pre-ltirr 7991  ax-pre-ltwlin 7992  ax-pre-lttrn 7993  ax-pre-apti 7994  ax-pre-ltadd 7995  ax-pre-mulgt0 7996  ax-pre-mulext 7997  ax-arch 7998  ax-caucvg 7999
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 1475  df-sb 1777  df-eu 2048  df-mo 2049  df-clab 2183  df-cleq 2189  df-clel 2192  df-nfc 2328  df-ne 2368  df-nel 2463  df-ral 2480  df-rex 2481  df-reu 2482  df-rmo 2483  df-rab 2484  df-v 2765  df-sbc 2990  df-csb 3085  df-dif 3159  df-un 3161  df-in 3163  df-ss 3170  df-nul 3451  df-if 3562  df-pw 3607  df-sn 3628  df-pr 3629  df-op 3631  df-uni 3840  df-int 3875  df-iun 3918  df-br 4034  df-opab 4095  df-mpt 4096  df-tr 4132  df-id 4328  df-po 4331  df-iso 4332  df-iord 4401  df-on 4403  df-ilim 4404  df-suc 4406  df-iom 4627  df-xp 4669  df-rel 4670  df-cnv 4671  df-co 4672  df-dm 4673  df-rn 4674  df-res 4675  df-ima 4676  df-iota 5219  df-fun 5260  df-fn 5261  df-f 5262  df-f1 5263  df-fo 5264  df-f1o 5265  df-fv 5266  df-isom 5267  df-riota 5877  df-ov 5925  df-oprab 5926  df-mpo 5927  df-1st 6198  df-2nd 6199  df-recs 6363  df-irdg 6428  df-frec 6449  df-1o 6474  df-oadd 6478  df-er 6592  df-en 6800  df-dom 6801  df-fin 6802  df-sup 7050  df-pnf 8063  df-mnf 8064  df-xr 8065  df-ltxr 8066  df-le 8067  df-sub 8199  df-neg 8200  df-reap 8602  df-ap 8609  df-div 8700  df-inn 8991  df-2 9049  df-3 9050  df-4 9051  df-n0 9250  df-z 9327  df-uz 9602  df-q 9694  df-rp 9729  df-fz 10084  df-fzo 10218  df-fl 10360  df-mod 10415  df-seqfrec 10540  df-exp 10631  df-ihash 10868  df-cj 11007  df-re 11008  df-im 11009  df-rsqrt 11163  df-abs 11164  df-clim 11444  df-proddc 11716  df-dvds 11953  df-gcd 12121  df-phi 12379
This theorem is referenced by:  eulerth  12401
  Copyright terms: Public domain W3C validator