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

Theorem lgseisenlem3 15188
Description: Lemma for lgseisen 15190. (Contributed by Mario Carneiro, 17-Jun-2015.) (Proof shortened by AV, 28-Jul-2019.)
Hypotheses
Ref Expression
lgseisen.1  |-  ( ph  ->  P  e.  ( Prime  \  { 2 } ) )
lgseisen.2  |-  ( ph  ->  Q  e.  ( Prime  \  { 2 } ) )
lgseisen.3  |-  ( ph  ->  P  =/=  Q )
lgseisen.4  |-  R  =  ( ( Q  x.  ( 2  x.  x
) )  mod  P
)
lgseisen.5  |-  M  =  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( ( ( (
-u 1 ^ R
)  x.  R )  mod  P )  / 
2 ) )
lgseisen.6  |-  S  =  ( ( Q  x.  ( 2  x.  y
) )  mod  P
)
lgseisen.7  |-  Y  =  (ℤ/n `  P )
lgseisen.8  |-  G  =  (mulGrp `  Y )
lgseisen.9  |-  L  =  ( ZRHom `  Y
)
Assertion
Ref Expression
lgseisenlem3  |-  ( ph  ->  ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
( -u 1 ^ R
)  x.  Q ) ) ) )  =  ( 1r `  Y
) )
Distinct variable groups:    x, G    x, L    x, y, P    ph, x, y    y, M    x, Q, y    x, Y    x, S
Allowed substitution hints:    R( x, y)    S( y)    G( y)    L( y)    M( x)    Y( y)

Proof of Theorem lgseisenlem3
Dummy variable  k is distinct from all other variables.
StepHypRef Expression
1 oveq2 5926 . . . . . . . . 9  |-  ( k  =  x  ->  (
2  x.  k )  =  ( 2  x.  x ) )
21fveq2d 5558 . . . . . . . 8  |-  ( k  =  x  ->  ( L `  ( 2  x.  k ) )  =  ( L `  (
2  x.  x ) ) )
32cbvmptv 4125 . . . . . . 7  |-  ( k  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  |->  ( L `
 ( 2  x.  k ) ) )  =  ( x  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( 2  x.  x
) ) )
43oveq2i 5929 . . . . . 6  |-  ( G 
gsumg  ( k  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  k ) ) ) )  =  ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) )
5 eqid 2193 . . . . . . 7  |-  ( Base `  G )  =  (
Base `  G )
6 eqid 2193 . . . . . . 7  |-  ( 0g
`  G )  =  ( 0g `  G
)
7 lgseisen.1 . . . . . . . . . . 11  |-  ( ph  ->  P  e.  ( Prime  \  { 2 } ) )
87eldifad 3164 . . . . . . . . . 10  |-  ( ph  ->  P  e.  Prime )
9 lgseisen.7 . . . . . . . . . . 11  |-  Y  =  (ℤ/n `  P )
109znidom 14145 . . . . . . . . . 10  |-  ( P  e.  Prime  ->  Y  e. IDomn
)
118, 10syl 14 . . . . . . . . 9  |-  ( ph  ->  Y  e. IDomn )
1211idomcringd 13774 . . . . . . . 8  |-  ( ph  ->  Y  e.  CRing )
13 lgseisen.8 . . . . . . . . 9  |-  G  =  (mulGrp `  Y )
1413crngmgp 13500 . . . . . . . 8  |-  ( Y  e.  CRing  ->  G  e. CMnd )
1512, 14syl 14 . . . . . . 7  |-  ( ph  ->  G  e. CMnd )
16 1zzd 9344 . . . . . . 7  |-  ( ph  ->  1  e.  ZZ )
17 oddn2prm 12399 . . . . . . . . 9  |-  ( P  e.  ( Prime  \  {
2 } )  ->  -.  2  ||  P )
187, 17syl 14 . . . . . . . 8  |-  ( ph  ->  -.  2  ||  P
)
19 prmz 12249 . . . . . . . . 9  |-  ( P  e.  Prime  ->  P  e.  ZZ )
20 oddm1d2 12033 . . . . . . . . 9  |-  ( P  e.  ZZ  ->  ( -.  2  ||  P  <->  ( ( P  -  1 )  /  2 )  e.  ZZ ) )
218, 19, 203syl 17 . . . . . . . 8  |-  ( ph  ->  ( -.  2  ||  P 
<->  ( ( P  - 
1 )  /  2
)  e.  ZZ ) )
2218, 21mpbid 147 . . . . . . 7  |-  ( ph  ->  ( ( P  - 
1 )  /  2
)  e.  ZZ )
2311idomringd 13775 . . . . . . . . . . 11  |-  ( ph  ->  Y  e.  Ring )
24 lgseisen.9 . . . . . . . . . . . 12  |-  L  =  ( ZRHom `  Y
)
2524zrhrhm 14111 . . . . . . . . . . 11  |-  ( Y  e.  Ring  ->  L  e.  (ring RingHom  Y ) )
26 zringbas 14084 . . . . . . . . . . . 12  |-  ZZ  =  ( Base ` ring )
27 eqid 2193 . . . . . . . . . . . 12  |-  ( Base `  Y )  =  (
Base `  Y )
2826, 27rhmf 13659 . . . . . . . . . . 11  |-  ( L  e.  (ring RingHom  Y )  ->  L : ZZ --> ( Base `  Y
) )
2923, 25, 283syl 17 . . . . . . . . . 10  |-  ( ph  ->  L : ZZ --> ( Base `  Y ) )
30 2z 9345 . . . . . . . . . . 11  |-  2  e.  ZZ
31 elfzelz 10091 . . . . . . . . . . 11  |-  ( k  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  ->  k  e.  ZZ )
32 zmulcl 9370 . . . . . . . . . . 11  |-  ( ( 2  e.  ZZ  /\  k  e.  ZZ )  ->  ( 2  x.  k
)  e.  ZZ )
3330, 31, 32sylancr 414 . . . . . . . . . 10  |-  ( k  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  ->  (
2  x.  k )  e.  ZZ )
34 ffvelcdm 5691 . . . . . . . . . 10  |-  ( ( L : ZZ --> ( Base `  Y )  /\  (
2  x.  k )  e.  ZZ )  -> 
( L `  (
2  x.  k ) )  e.  ( Base `  Y ) )
3529, 33, 34syl2an 289 . . . . . . . . 9  |-  ( (
ph  /\  k  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  ( L `  ( 2  x.  k ) )  e.  ( Base `  Y
) )
3635fmpttd 5713 . . . . . . . 8  |-  ( ph  ->  ( k  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  k ) ) ) : ( 1 ... ( ( P  -  1 )  /  2 ) ) --> ( Base `  Y
) )
3713, 27mgpbasg 13422 . . . . . . . . . 10  |-  ( Y  e.  CRing  ->  ( Base `  Y )  =  (
Base `  G )
)
3812, 37syl 14 . . . . . . . . 9  |-  ( ph  ->  ( Base `  Y
)  =  ( Base `  G ) )
3938feq3d 5392 . . . . . . . 8  |-  ( ph  ->  ( ( k  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( 2  x.  k
) ) ) : ( 1 ... (
( P  -  1 )  /  2 ) ) --> ( Base `  Y
)  <->  ( k  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( 2  x.  k
) ) ) : ( 1 ... (
( P  -  1 )  /  2 ) ) --> ( Base `  G
) ) )
4036, 39mpbid 147 . . . . . . 7  |-  ( ph  ->  ( k  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  k ) ) ) : ( 1 ... ( ( P  -  1 )  /  2 ) ) --> ( Base `  G
) )
41 lgseisen.2 . . . . . . . 8  |-  ( ph  ->  Q  e.  ( Prime  \  { 2 } ) )
42 lgseisen.3 . . . . . . . 8  |-  ( ph  ->  P  =/=  Q )
43 lgseisen.4 . . . . . . . 8  |-  R  =  ( ( Q  x.  ( 2  x.  x
) )  mod  P
)
44 lgseisen.5 . . . . . . . 8  |-  M  =  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( ( ( (
-u 1 ^ R
)  x.  R )  mod  P )  / 
2 ) )
45 lgseisen.6 . . . . . . . 8  |-  S  =  ( ( Q  x.  ( 2  x.  y
) )  mod  P
)
467, 41, 42, 43, 44, 45lgseisenlem2 15187 . . . . . . 7  |-  ( ph  ->  M : ( 1 ... ( ( P  -  1 )  / 
2 ) ) -1-1-onto-> ( 1 ... ( ( P  -  1 )  / 
2 ) ) )
475, 6, 15, 16, 22, 40, 46gsumfzreidx 13407 . . . . . 6  |-  ( ph  ->  ( G  gsumg  ( k  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  k ) ) ) )  =  ( G  gsumg  ( ( k  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( 2  x.  k
) ) )  o.  M ) ) )
484, 47eqtr3id 2240 . . . . 5  |-  ( ph  ->  ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) )  =  ( G  gsumg  ( ( k  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( 2  x.  k
) ) )  o.  M ) ) )
497, 41, 42, 43, 44lgseisenlem1 15186 . . . . . . . 8  |-  ( ph  ->  M : ( 1 ... ( ( P  -  1 )  / 
2 ) ) --> ( 1 ... ( ( P  -  1 )  /  2 ) ) )
5044fmpt 5708 . . . . . . . 8  |-  ( A. x  e.  ( 1 ... ( ( P  -  1 )  / 
2 ) ) ( ( ( ( -u
1 ^ R )  x.  R )  mod 
P )  /  2
)  e.  ( 1 ... ( ( P  -  1 )  / 
2 ) )  <->  M :
( 1 ... (
( P  -  1 )  /  2 ) ) --> ( 1 ... ( ( P  - 
1 )  /  2
) ) )
5149, 50sylibr 134 . . . . . . 7  |-  ( ph  ->  A. x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) ( ( ( (
-u 1 ^ R
)  x.  R )  mod  P )  / 
2 )  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) )
5244a1i 9 . . . . . . 7  |-  ( ph  ->  M  =  ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  |->  ( ( ( ( -u 1 ^ R )  x.  R
)  mod  P )  /  2 ) ) )
53 eqidd 2194 . . . . . . 7  |-  ( ph  ->  ( k  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  k ) ) )  =  ( k  e.  ( 1 ... ( ( P  -  1 )  / 
2 ) )  |->  ( L `  ( 2  x.  k ) ) ) )
54 oveq2 5926 . . . . . . . 8  |-  ( k  =  ( ( ( ( -u 1 ^ R )  x.  R
)  mod  P )  /  2 )  -> 
( 2  x.  k
)  =  ( 2  x.  ( ( ( ( -u 1 ^ R )  x.  R
)  mod  P )  /  2 ) ) )
5554fveq2d 5558 . . . . . . 7  |-  ( k  =  ( ( ( ( -u 1 ^ R )  x.  R
)  mod  P )  /  2 )  -> 
( L `  (
2  x.  k ) )  =  ( L `
 ( 2  x.  ( ( ( (
-u 1 ^ R
)  x.  R )  mod  P )  / 
2 ) ) ) )
5651, 52, 53, 55fmptcof 5725 . . . . . 6  |-  ( ph  ->  ( ( k  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( 2  x.  k
) ) )  o.  M )  =  ( x  e.  ( 1 ... ( ( P  -  1 )  / 
2 ) )  |->  ( L `  ( 2  x.  ( ( ( ( -u 1 ^ R )  x.  R
)  mod  P )  /  2 ) ) ) ) )
5756oveq2d 5934 . . . . 5  |-  ( ph  ->  ( G  gsumg  ( ( k  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( 2  x.  k
) ) )  o.  M ) )  =  ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  ( ( ( ( -u 1 ^ R )  x.  R
)  mod  P )  /  2 ) ) ) ) ) )
5841eldifad 3164 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ph  ->  Q  e.  Prime )
5958adantr 276 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  Q  e.  Prime )
60 prmz 12249 . . . . . . . . . . . . . . . . . . . 20  |-  ( Q  e.  Prime  ->  Q  e.  ZZ )
6159, 60syl 14 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  Q  e.  ZZ )
62 2nn 9143 . . . . . . . . . . . . . . . . . . . . 21  |-  2  e.  NN
63 elfznn 10120 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  ->  x  e.  NN )
6463adantl 277 . . . . . . . . . . . . . . . . . . . . 21  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  x  e.  NN )
65 nnmulcl 9003 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( 2  e.  NN  /\  x  e.  NN )  ->  ( 2  x.  x
)  e.  NN )
6662, 64, 65sylancr 414 . . . . . . . . . . . . . . . . . . . 20  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
2  x.  x )  e.  NN )
6766nnzd 9438 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
2  x.  x )  e.  ZZ )
6861, 67zmulcld 9445 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  ( Q  x.  ( 2  x.  x ) )  e.  ZZ )
698adantr 276 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  P  e.  Prime )
70 prmnn 12248 . . . . . . . . . . . . . . . . . . 19  |-  ( P  e.  Prime  ->  P  e.  NN )
7169, 70syl 14 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  P  e.  NN )
7268, 71zmodcld 10416 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( Q  x.  (
2  x.  x ) )  mod  P )  e.  NN0 )
7343, 72eqeltrid 2280 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  R  e.  NN0 )
7473nn0zd 9437 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  R  e.  ZZ )
75 m1expcl 10633 . . . . . . . . . . . . . . 15  |-  ( R  e.  ZZ  ->  ( -u 1 ^ R )  e.  ZZ )
7674, 75syl 14 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  ( -u 1 ^ R )  e.  ZZ )
7776, 74zmulcld 9445 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( -u 1 ^ R
)  x.  R )  e.  ZZ )
7877, 71zmodcld 10416 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( ( -u 1 ^ R )  x.  R
)  mod  P )  e.  NN0 )
7978nn0cnd 9295 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( ( -u 1 ^ R )  x.  R
)  mod  P )  e.  CC )
80 2cnd 9055 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  2  e.  CC )
81 2ap0 9075 . . . . . . . . . . . 12  |-  2 #  0
8281a1i 9 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  2 #  0 )
8379, 80, 82divcanap2d 8811 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
2  x.  ( ( ( ( -u 1 ^ R )  x.  R
)  mod  P )  /  2 ) )  =  ( ( (
-u 1 ^ R
)  x.  R )  mod  P ) )
8483fveq2d 5558 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  ( L `  ( 2  x.  ( ( ( (
-u 1 ^ R
)  x.  R )  mod  P )  / 
2 ) ) )  =  ( L `  ( ( ( -u
1 ^ R )  x.  R )  mod 
P ) ) )
85 zq 9691 . . . . . . . . . . . . . . 15  |-  ( P  e.  ZZ  ->  P  e.  QQ )
868, 19, 853syl 17 . . . . . . . . . . . . . 14  |-  ( ph  ->  P  e.  QQ )
8786adantr 276 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  P  e.  QQ )
8871nngt0d 9026 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  0  <  P )
89 eqidd 2194 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( -u 1 ^ R
)  mod  P )  =  ( ( -u
1 ^ R )  mod  P ) )
9043oveq1i 5928 . . . . . . . . . . . . . 14  |-  ( R  mod  P )  =  ( ( ( Q  x.  ( 2  x.  x ) )  mod 
P )  mod  P
)
91 zq 9691 . . . . . . . . . . . . . . . 16  |-  ( ( Q  x.  ( 2  x.  x ) )  e.  ZZ  ->  ( Q  x.  ( 2  x.  x ) )  e.  QQ )
9268, 91syl 14 . . . . . . . . . . . . . . 15  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  ( Q  x.  ( 2  x.  x ) )  e.  QQ )
93 modqabs2 10429 . . . . . . . . . . . . . . 15  |-  ( ( ( Q  x.  (
2  x.  x ) )  e.  QQ  /\  P  e.  QQ  /\  0  <  P )  ->  (
( ( Q  x.  ( 2  x.  x
) )  mod  P
)  mod  P )  =  ( ( Q  x.  ( 2  x.  x ) )  mod 
P ) )
9492, 87, 88, 93syl3anc 1249 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( ( Q  x.  ( 2  x.  x
) )  mod  P
)  mod  P )  =  ( ( Q  x.  ( 2  x.  x ) )  mod 
P ) )
9590, 94eqtrid 2238 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  ( R  mod  P )  =  ( ( Q  x.  ( 2  x.  x
) )  mod  P
) )
9676, 76, 74, 68, 87, 88, 89, 95modqmul12d 10449 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( ( -u 1 ^ R )  x.  R
)  mod  P )  =  ( ( (
-u 1 ^ R
)  x.  ( Q  x.  ( 2  x.  x ) ) )  mod  P ) )
97 zq 9691 . . . . . . . . . . . . . 14  |-  ( ( ( -u 1 ^ R )  x.  R
)  e.  ZZ  ->  ( ( -u 1 ^ R )  x.  R
)  e.  QQ )
9877, 97syl 14 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( -u 1 ^ R
)  x.  R )  e.  QQ )
99 modqabs2 10429 . . . . . . . . . . . . 13  |-  ( ( ( ( -u 1 ^ R )  x.  R
)  e.  QQ  /\  P  e.  QQ  /\  0  <  P )  ->  (
( ( ( -u
1 ^ R )  x.  R )  mod 
P )  mod  P
)  =  ( ( ( -u 1 ^ R )  x.  R
)  mod  P )
)
10098, 87, 88, 99syl3anc 1249 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( ( ( -u
1 ^ R )  x.  R )  mod 
P )  mod  P
)  =  ( ( ( -u 1 ^ R )  x.  R
)  mod  P )
)
10176zcnd 9440 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  ( -u 1 ^ R )  e.  CC )
10261zcnd 9440 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  Q  e.  CC )
10367zcnd 9440 . . . . . . . . . . . . . 14  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
2  x.  x )  e.  CC )
104101, 102, 103mulassd 8043 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( ( -u 1 ^ R )  x.  Q
)  x.  ( 2  x.  x ) )  =  ( ( -u
1 ^ R )  x.  ( Q  x.  ( 2  x.  x
) ) ) )
105104oveq1d 5933 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( ( ( -u
1 ^ R )  x.  Q )  x.  ( 2  x.  x
) )  mod  P
)  =  ( ( ( -u 1 ^ R )  x.  ( Q  x.  ( 2  x.  x ) ) )  mod  P ) )
10696, 100, 1053eqtr4d 2236 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( ( ( -u
1 ^ R )  x.  R )  mod 
P )  mod  P
)  =  ( ( ( ( -u 1 ^ R )  x.  Q
)  x.  ( 2  x.  x ) )  mod  P ) )
1078, 70syl 14 . . . . . . . . . . . . 13  |-  ( ph  ->  P  e.  NN )
108107adantr 276 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  P  e.  NN )
10978nn0zd 9437 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( ( -u 1 ^ R )  x.  R
)  mod  P )  e.  ZZ )
11076, 61zmulcld 9445 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( -u 1 ^ R
)  x.  Q )  e.  ZZ )
111110, 67zmulcld 9445 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( ( -u 1 ^ R )  x.  Q
)  x.  ( 2  x.  x ) )  e.  ZZ )
112 moddvds 11942 . . . . . . . . . . . 12  |-  ( ( P  e.  NN  /\  ( ( ( -u
1 ^ R )  x.  R )  mod 
P )  e.  ZZ  /\  ( ( ( -u
1 ^ R )  x.  Q )  x.  ( 2  x.  x
) )  e.  ZZ )  ->  ( ( ( ( ( -u 1 ^ R )  x.  R
)  mod  P )  mod  P )  =  ( ( ( ( -u
1 ^ R )  x.  Q )  x.  ( 2  x.  x
) )  mod  P
)  <->  P  ||  ( ( ( ( -u 1 ^ R )  x.  R
)  mod  P )  -  ( ( (
-u 1 ^ R
)  x.  Q )  x.  ( 2  x.  x ) ) ) ) )
113108, 109, 111, 112syl3anc 1249 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( ( ( (
-u 1 ^ R
)  x.  R )  mod  P )  mod 
P )  =  ( ( ( ( -u
1 ^ R )  x.  Q )  x.  ( 2  x.  x
) )  mod  P
)  <->  P  ||  ( ( ( ( -u 1 ^ R )  x.  R
)  mod  P )  -  ( ( (
-u 1 ^ R
)  x.  Q )  x.  ( 2  x.  x ) ) ) ) )
114106, 113mpbid 147 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  P  ||  ( ( ( (
-u 1 ^ R
)  x.  R )  mod  P )  -  ( ( ( -u
1 ^ R )  x.  Q )  x.  ( 2  x.  x
) ) ) )
11571nnnn0d 9293 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  P  e.  NN0 )
1169, 24zndvds 14137 . . . . . . . . . . 11  |-  ( ( P  e.  NN0  /\  ( ( ( -u
1 ^ R )  x.  R )  mod 
P )  e.  ZZ  /\  ( ( ( -u
1 ^ R )  x.  Q )  x.  ( 2  x.  x
) )  e.  ZZ )  ->  ( ( L `
 ( ( (
-u 1 ^ R
)  x.  R )  mod  P ) )  =  ( L `  ( ( ( -u
1 ^ R )  x.  Q )  x.  ( 2  x.  x
) ) )  <->  P  ||  (
( ( ( -u
1 ^ R )  x.  R )  mod 
P )  -  (
( ( -u 1 ^ R )  x.  Q
)  x.  ( 2  x.  x ) ) ) ) )
117115, 109, 111, 116syl3anc 1249 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( L `  (
( ( -u 1 ^ R )  x.  R
)  mod  P )
)  =  ( L `
 ( ( (
-u 1 ^ R
)  x.  Q )  x.  ( 2  x.  x ) ) )  <-> 
P  ||  ( (
( ( -u 1 ^ R )  x.  R
)  mod  P )  -  ( ( (
-u 1 ^ R
)  x.  Q )  x.  ( 2  x.  x ) ) ) ) )
118114, 117mpbird 167 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  ( L `  ( (
( -u 1 ^ R
)  x.  R )  mod  P ) )  =  ( L `  ( ( ( -u
1 ^ R )  x.  Q )  x.  ( 2  x.  x
) ) ) )
11923, 25syl 14 . . . . . . . . . . 11  |-  ( ph  ->  L  e.  (ring RingHom  Y ) )
120119adantr 276 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  L  e.  (ring RingHom  Y ) )
121 zringmulr 14087 . . . . . . . . . . 11  |-  x.  =  ( .r ` ring )
122 eqid 2193 . . . . . . . . . . 11  |-  ( .r
`  Y )  =  ( .r `  Y
)
12326, 121, 122rhmmul 13660 . . . . . . . . . 10  |-  ( ( L  e.  (ring RingHom  Y )  /\  ( ( -u 1 ^ R )  x.  Q
)  e.  ZZ  /\  ( 2  x.  x
)  e.  ZZ )  ->  ( L `  ( ( ( -u
1 ^ R )  x.  Q )  x.  ( 2  x.  x
) ) )  =  ( ( L `  ( ( -u 1 ^ R )  x.  Q
) ) ( .r
`  Y ) ( L `  ( 2  x.  x ) ) ) )
124120, 110, 67, 123syl3anc 1249 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  ( L `  ( (
( -u 1 ^ R
)  x.  Q )  x.  ( 2  x.  x ) ) )  =  ( ( L `
 ( ( -u
1 ^ R )  x.  Q ) ) ( .r `  Y
) ( L `  ( 2  x.  x
) ) ) )
12584, 118, 1243eqtrd 2230 . . . . . . . 8  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  ( L `  ( 2  x.  ( ( ( (
-u 1 ^ R
)  x.  R )  mod  P )  / 
2 ) ) )  =  ( ( L `
 ( ( -u
1 ^ R )  x.  Q ) ) ( .r `  Y
) ( L `  ( 2  x.  x
) ) ) )
126125mpteq2dva 4119 . . . . . . 7  |-  ( ph  ->  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  ( ( ( ( -u 1 ^ R )  x.  R
)  mod  P )  /  2 ) ) ) )  =  ( x  e.  ( 1 ... ( ( P  -  1 )  / 
2 ) )  |->  ( ( L `  (
( -u 1 ^ R
)  x.  Q ) ) ( .r `  Y ) ( L `
 ( 2  x.  x ) ) ) ) )
12716, 22fzfigd 10502 . . . . . . . 8  |-  ( ph  ->  ( 1 ... (
( P  -  1 )  /  2 ) )  e.  Fin )
12829adantr 276 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  L : ZZ --> ( Base `  Y
) )
129128, 110ffvelcdmd 5694 . . . . . . . 8  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  ( L `  ( ( -u 1 ^ R )  x.  Q ) )  e.  ( Base `  Y
) )
130128, 67ffvelcdmd 5694 . . . . . . . 8  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  ( L `  ( 2  x.  x ) )  e.  ( Base `  Y
) )
131 eqidd 2194 . . . . . . . 8  |-  ( ph  ->  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
( -u 1 ^ R
)  x.  Q ) ) )  =  ( x  e.  ( 1 ... ( ( P  -  1 )  / 
2 ) )  |->  ( L `  ( (
-u 1 ^ R
)  x.  Q ) ) ) )
132 eqidd 2194 . . . . . . . 8  |-  ( ph  ->  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) )  =  ( x  e.  ( 1 ... ( ( P  -  1 )  / 
2 ) )  |->  ( L `  ( 2  x.  x ) ) ) )
133127, 129, 130, 131, 132offval2 6146 . . . . . . 7  |-  ( ph  ->  ( ( x  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( ( -u 1 ^ R )  x.  Q
) ) )  oF ( .r `  Y ) ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  |->  ( L `
 ( 2  x.  x ) ) ) )  =  ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  |->  ( ( L `  ( (
-u 1 ^ R
)  x.  Q ) ) ( .r `  Y ) ( L `
 ( 2  x.  x ) ) ) ) )
134126, 133eqtr4d 2229 . . . . . 6  |-  ( ph  ->  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  ( ( ( ( -u 1 ^ R )  x.  R
)  mod  P )  /  2 ) ) ) )  =  ( ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
( -u 1 ^ R
)  x.  Q ) ) )  oF ( .r `  Y
) ( x  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( 2  x.  x
) ) ) ) )
135134oveq2d 5934 . . . . 5  |-  ( ph  ->  ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  ( ( ( ( -u 1 ^ R )  x.  R
)  mod  P )  /  2 ) ) ) ) )  =  ( G  gsumg  ( ( x  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( ( -u 1 ^ R )  x.  Q
) ) )  oF ( .r `  Y ) ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  |->  ( L `
 ( 2  x.  x ) ) ) ) ) )
13648, 57, 1353eqtrd 2230 . . . 4  |-  ( ph  ->  ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) )  =  ( G  gsumg  ( ( x  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( ( -u 1 ^ R )  x.  Q
) ) )  oF ( .r `  Y ) ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  |->  ( L `
 ( 2  x.  x ) ) ) ) ) )
137 eqid 2193 . . . . . 6  |-  ( +g  `  G )  =  ( +g  `  G )
13838eleq2d 2263 . . . . . . . 8  |-  ( ph  ->  ( ( L `  ( ( -u 1 ^ R )  x.  Q
) )  e.  (
Base `  Y )  <->  ( L `  ( (
-u 1 ^ R
)  x.  Q ) )  e.  ( Base `  G ) ) )
139138adantr 276 . . . . . . 7  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( L `  (
( -u 1 ^ R
)  x.  Q ) )  e.  ( Base `  Y )  <->  ( L `  ( ( -u 1 ^ R )  x.  Q
) )  e.  (
Base `  G )
) )
140129, 139mpbid 147 . . . . . 6  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  ( L `  ( ( -u 1 ^ R )  x.  Q ) )  e.  ( Base `  G
) )
14138eleq2d 2263 . . . . . . . 8  |-  ( ph  ->  ( ( L `  ( 2  x.  x
) )  e.  (
Base `  Y )  <->  ( L `  ( 2  x.  x ) )  e.  ( Base `  G
) ) )
142141adantr 276 . . . . . . 7  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( L `  (
2  x.  x ) )  e.  ( Base `  Y )  <->  ( L `  ( 2  x.  x
) )  e.  (
Base `  G )
) )
143130, 142mpbid 147 . . . . . 6  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  ( L `  ( 2  x.  x ) )  e.  ( Base `  G
) )
144 eqid 2193 . . . . . 6  |-  ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  |->  ( L `
 ( ( -u
1 ^ R )  x.  Q ) ) )  =  ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  |->  ( L `
 ( ( -u
1 ^ R )  x.  Q ) ) )
145 eqid 2193 . . . . . 6  |-  ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  |->  ( L `
 ( 2  x.  x ) ) )  =  ( x  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( 2  x.  x
) ) )
1465, 137, 15, 16, 22, 140, 143, 144, 145gsumfzmptfidmadd2 13410 . . . . 5  |-  ( ph  ->  ( G  gsumg  ( ( x  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( ( -u 1 ^ R )  x.  Q
) ) )  oF ( +g  `  G
) ( x  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( 2  x.  x
) ) ) ) )  =  ( ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
( -u 1 ^ R
)  x.  Q ) ) ) ) ( +g  `  G ) ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) ) ) )
14713, 122mgpplusgg 13420 . . . . . . . . 9  |-  ( Y  e.  CRing  ->  ( .r `  Y )  =  ( +g  `  G ) )
14812, 147syl 14 . . . . . . . 8  |-  ( ph  ->  ( .r `  Y
)  =  ( +g  `  G ) )
149148ofeqd 6132 . . . . . . 7  |-  ( ph  ->  oF ( .r
`  Y )  =  oF ( +g  `  G ) )
150149oveqd 5935 . . . . . 6  |-  ( ph  ->  ( ( x  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( ( -u 1 ^ R )  x.  Q
) ) )  oF ( .r `  Y ) ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  |->  ( L `
 ( 2  x.  x ) ) ) )  =  ( ( x  e.  ( 1 ... ( ( P  -  1 )  / 
2 ) )  |->  ( L `  ( (
-u 1 ^ R
)  x.  Q ) ) )  oF ( +g  `  G
) ( x  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( 2  x.  x
) ) ) ) )
151150oveq2d 5934 . . . . 5  |-  ( ph  ->  ( G  gsumg  ( ( x  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( ( -u 1 ^ R )  x.  Q
) ) )  oF ( .r `  Y ) ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  |->  ( L `
 ( 2  x.  x ) ) ) ) )  =  ( G  gsumg  ( ( x  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( ( -u 1 ^ R )  x.  Q
) ) )  oF ( +g  `  G
) ( x  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( 2  x.  x
) ) ) ) ) )
152148oveqd 5935 . . . . 5  |-  ( ph  ->  ( ( G  gsumg  ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  |->  ( L `
 ( ( -u
1 ^ R )  x.  Q ) ) ) ) ( .r
`  Y ) ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) ) )  =  ( ( G 
gsumg  ( x  e.  (
1 ... ( ( P  -  1 )  / 
2 ) )  |->  ( L `  ( (
-u 1 ^ R
)  x.  Q ) ) ) ) ( +g  `  G ) ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) ) ) )
153146, 151, 1523eqtr4d 2236 . . . 4  |-  ( ph  ->  ( G  gsumg  ( ( x  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( ( -u 1 ^ R )  x.  Q
) ) )  oF ( .r `  Y ) ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  |->  ( L `
 ( 2  x.  x ) ) ) ) )  =  ( ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
( -u 1 ^ R
)  x.  Q ) ) ) ) ( .r `  Y ) ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) ) ) )
154136, 153eqtrd 2226 . . 3  |-  ( ph  ->  ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) )  =  ( ( G  gsumg  ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  |->  ( L `
 ( ( -u
1 ^ R )  x.  Q ) ) ) ) ( .r
`  Y ) ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) ) ) )
155154oveq1d 5933 . 2  |-  ( ph  ->  ( ( G  gsumg  ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  |->  ( L `
 ( 2  x.  x ) ) ) ) (/r `  Y ) ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) ) )  =  ( ( ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
( -u 1 ^ R
)  x.  Q ) ) ) ) ( .r `  Y ) ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) ) ) (/r `  Y ) ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) ) ) )
15615cmnmndd 13378 . . . 4  |-  ( ph  ->  G  e.  Mnd )
157 eqid 2193 . . . . . 6  |-  (Unit `  Y )  =  (Unit `  Y )
158157, 13unitsubm 13615 . . . . 5  |-  ( Y  e.  Ring  ->  (Unit `  Y )  e.  (SubMnd `  G ) )
15923, 158syl 14 . . . 4  |-  ( ph  ->  (Unit `  Y )  e.  (SubMnd `  G )
)
160 elfzle2 10094 . . . . . . . . . 10  |-  ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  ->  x  <_  ( ( P  - 
1 )  /  2
) )
161160adantl 277 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  x  <_  ( ( P  - 
1 )  /  2
) )
16264nnred 8995 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  x  e.  RR )
163 prmuz2 12269 . . . . . . . . . . . 12  |-  ( P  e.  Prime  ->  P  e.  ( ZZ>= `  2 )
)
164 uz2m1nn 9670 . . . . . . . . . . . 12  |-  ( P  e.  ( ZZ>= `  2
)  ->  ( P  -  1 )  e.  NN )
16569, 163, 1643syl 17 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  ( P  -  1 )  e.  NN )
166165nnred 8995 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  ( P  -  1 )  e.  RR )
167 2re 9052 . . . . . . . . . . 11  |-  2  e.  RR
168167a1i 9 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  2  e.  RR )
169 2pos 9073 . . . . . . . . . . 11  |-  0  <  2
170169a1i 9 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  0  <  2 )
171 lemuldiv2 8901 . . . . . . . . . 10  |-  ( ( x  e.  RR  /\  ( P  -  1
)  e.  RR  /\  ( 2  e.  RR  /\  0  <  2 ) )  ->  ( (
2  x.  x )  <_  ( P  - 
1 )  <->  x  <_  ( ( P  -  1 )  /  2 ) ) )
172162, 166, 168, 170, 171syl112anc 1253 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( 2  x.  x
)  <_  ( P  -  1 )  <->  x  <_  ( ( P  -  1 )  /  2 ) ) )
173161, 172mpbird 167 . . . . . . . 8  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
2  x.  x )  <_  ( P  - 
1 ) )
17469, 19syl 14 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  P  e.  ZZ )
175 peano2zm 9355 . . . . . . . . 9  |-  ( P  e.  ZZ  ->  ( P  -  1 )  e.  ZZ )
176 fznn 10155 . . . . . . . . 9  |-  ( ( P  -  1 )  e.  ZZ  ->  (
( 2  x.  x
)  e.  ( 1 ... ( P  - 
1 ) )  <->  ( (
2  x.  x )  e.  NN  /\  (
2  x.  x )  <_  ( P  - 
1 ) ) ) )
177174, 175, 1763syl 17 . . . . . . . 8  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( 2  x.  x
)  e.  ( 1 ... ( P  - 
1 ) )  <->  ( (
2  x.  x )  e.  NN  /\  (
2  x.  x )  <_  ( P  - 
1 ) ) ) )
17866, 173, 177mpbir2and 946 . . . . . . 7  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
2  x.  x )  e.  ( 1 ... ( P  -  1 ) ) )
179 fzm1ndvds 11998 . . . . . . 7  |-  ( ( P  e.  NN  /\  ( 2  x.  x
)  e.  ( 1 ... ( P  - 
1 ) ) )  ->  -.  P  ||  (
2  x.  x ) )
18071, 178, 179syl2anc 411 . . . . . 6  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  -.  P  ||  ( 2  x.  x ) )
1819, 157, 24znunit 14147 . . . . . . . 8  |-  ( ( P  e.  NN0  /\  ( 2  x.  x
)  e.  ZZ )  ->  ( ( L `
 ( 2  x.  x ) )  e.  (Unit `  Y )  <->  ( ( 2  x.  x
)  gcd  P )  =  1 ) )
182115, 67, 181syl2anc 411 . . . . . . 7  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( L `  (
2  x.  x ) )  e.  (Unit `  Y )  <->  ( (
2  x.  x )  gcd  P )  =  1 ) )
183 coprm 12282 . . . . . . . . 9  |-  ( ( P  e.  Prime  /\  (
2  x.  x )  e.  ZZ )  -> 
( -.  P  ||  ( 2  x.  x
)  <->  ( P  gcd  ( 2  x.  x
) )  =  1 ) )
18419adantr 276 . . . . . . . . . . 11  |-  ( ( P  e.  Prime  /\  (
2  x.  x )  e.  ZZ )  ->  P  e.  ZZ )
185 simpr 110 . . . . . . . . . . 11  |-  ( ( P  e.  Prime  /\  (
2  x.  x )  e.  ZZ )  -> 
( 2  x.  x
)  e.  ZZ )
186184, 185gcdcomd 12111 . . . . . . . . . 10  |-  ( ( P  e.  Prime  /\  (
2  x.  x )  e.  ZZ )  -> 
( P  gcd  (
2  x.  x ) )  =  ( ( 2  x.  x )  gcd  P ) )
187186eqeq1d 2202 . . . . . . . . 9  |-  ( ( P  e.  Prime  /\  (
2  x.  x )  e.  ZZ )  -> 
( ( P  gcd  ( 2  x.  x
) )  =  1  <-> 
( ( 2  x.  x )  gcd  P
)  =  1 ) )
188183, 187bitrd 188 . . . . . . . 8  |-  ( ( P  e.  Prime  /\  (
2  x.  x )  e.  ZZ )  -> 
( -.  P  ||  ( 2  x.  x
)  <->  ( ( 2  x.  x )  gcd 
P )  =  1 ) )
18969, 67, 188syl2anc 411 . . . . . . 7  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  ( -.  P  ||  ( 2  x.  x )  <->  ( (
2  x.  x )  gcd  P )  =  1 ) )
190182, 189bitr4d 191 . . . . . 6  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  (
( L `  (
2  x.  x ) )  e.  (Unit `  Y )  <->  -.  P  ||  ( 2  x.  x
) ) )
191180, 190mpbird 167 . . . . 5  |-  ( (
ph  /\  x  e.  ( 1 ... (
( P  -  1 )  /  2 ) ) )  ->  ( L `  ( 2  x.  x ) )  e.  (Unit `  Y )
)
192191fmpttd 5713 . . . 4  |-  ( ph  ->  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) : ( 1 ... ( ( P  -  1 )  /  2 ) ) --> (Unit `  Y )
)
193156, 16, 22, 159, 192gsumfzsubmcl 13408 . . 3  |-  ( ph  ->  ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) )  e.  (Unit `  Y )
)
194 eqid 2193 . . . 4  |-  (/r `  Y
)  =  (/r `  Y
)
195 eqid 2193 . . . 4  |-  ( 1r
`  Y )  =  ( 1r `  Y
)
196157, 194, 195dvrid 13633 . . 3  |-  ( ( Y  e.  Ring  /\  ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) )  e.  (Unit `  Y )
)  ->  ( ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) ) (/r `  Y ) ( G 
gsumg  ( x  e.  (
1 ... ( ( P  -  1 )  / 
2 ) )  |->  ( L `  ( 2  x.  x ) ) ) ) )  =  ( 1r `  Y
) )
19723, 193, 196syl2anc 411 . 2  |-  ( ph  ->  ( ( G  gsumg  ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  |->  ( L `
 ( 2  x.  x ) ) ) ) (/r `  Y ) ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) ) )  =  ( 1r `  Y ) )
198129fmpttd 5713 . . . . . 6  |-  ( ph  ->  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
( -u 1 ^ R
)  x.  Q ) ) ) : ( 1 ... ( ( P  -  1 )  /  2 ) ) --> ( Base `  Y
) )
19938feq3d 5392 . . . . . 6  |-  ( ph  ->  ( ( x  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( ( -u 1 ^ R )  x.  Q
) ) ) : ( 1 ... (
( P  -  1 )  /  2 ) ) --> ( Base `  Y
)  <->  ( x  e.  ( 1 ... (
( P  -  1 )  /  2 ) )  |->  ( L `  ( ( -u 1 ^ R )  x.  Q
) ) ) : ( 1 ... (
( P  -  1 )  /  2 ) ) --> ( Base `  G
) ) )
200198, 199mpbid 147 . . . . 5  |-  ( ph  ->  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
( -u 1 ^ R
)  x.  Q ) ) ) : ( 1 ... ( ( P  -  1 )  /  2 ) ) --> ( Base `  G
) )
2015, 6, 156, 16, 22, 200gsumfzcl 13071 . . . 4  |-  ( ph  ->  ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
( -u 1 ^ R
)  x.  Q ) ) ) )  e.  ( Base `  G
) )
202201, 38eleqtrrd 2273 . . 3  |-  ( ph  ->  ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
( -u 1 ^ R
)  x.  Q ) ) ) )  e.  ( Base `  Y
) )
20327, 157, 194, 122dvrcan3 13637 . . 3  |-  ( ( Y  e.  Ring  /\  ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
( -u 1 ^ R
)  x.  Q ) ) ) )  e.  ( Base `  Y
)  /\  ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  / 
2 ) )  |->  ( L `  ( 2  x.  x ) ) ) )  e.  (Unit `  Y ) )  -> 
( ( ( G 
gsumg  ( x  e.  (
1 ... ( ( P  -  1 )  / 
2 ) )  |->  ( L `  ( (
-u 1 ^ R
)  x.  Q ) ) ) ) ( .r `  Y ) ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) ) ) (/r `  Y ) ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) ) )  =  ( G  gsumg  ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  |->  ( L `
 ( ( -u
1 ^ R )  x.  Q ) ) ) ) )
20423, 202, 193, 203syl3anc 1249 . 2  |-  ( ph  ->  ( ( ( G 
gsumg  ( x  e.  (
1 ... ( ( P  -  1 )  / 
2 ) )  |->  ( L `  ( (
-u 1 ^ R
)  x.  Q ) ) ) ) ( .r `  Y ) ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) ) ) (/r `  Y ) ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
2  x.  x ) ) ) ) )  =  ( G  gsumg  ( x  e.  ( 1 ... ( ( P  - 
1 )  /  2
) )  |->  ( L `
 ( ( -u
1 ^ R )  x.  Q ) ) ) ) )
205155, 197, 2043eqtr3rd 2235 1  |-  ( ph  ->  ( G  gsumg  ( x  e.  ( 1 ... ( ( P  -  1 )  /  2 ) ) 
|->  ( L `  (
( -u 1 ^ R
)  x.  Q ) ) ) )  =  ( 1r `  Y
) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    /\ wa 104    <-> wb 105    = wceq 1364    e. wcel 2164    =/= wne 2364   A.wral 2472    \ cdif 3150   {csn 3618   class class class wbr 4029    |-> cmpt 4090    o. ccom 4663   -->wf 5250   ` cfv 5254  (class class class)co 5918    oFcof 6128   Fincfn 6794   RRcr 7871   0cc0 7872   1c1 7873    x. cmul 7877    < clt 8054    <_ cle 8055    - cmin 8190   -ucneg 8191   # cap 8600    / cdiv 8691   NNcn 8982   2c2 9033   NN0cn0 9240   ZZcz 9317   ZZ>=cuz 9592   QQcq 9684   ...cfz 10074    mod cmo 10393   ^cexp 10609    || cdvds 11930    gcd cgcd 12079   Primecprime 12245   Basecbs 12618   +g cplusg 12695   .rcmulr 12696   0gc0g 12867    gsumg cgsu 12868  SubMndcsubmnd 13030  CMndccmn 13354  mulGrpcmgp 13416   1rcur 13455   Ringcrg 13492   CRingccrg 13493  Unitcui 13583  /rcdvr 13627   RingHom crh 13646  IDomncidom 13753  ℤringczring 14078   ZRHomczrh 14099  ℤ/nczn 14101
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  ax-addf 7994  ax-mulf 7995
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-xor 1387  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-tp 3626  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-riota 5873  df-ov 5921  df-oprab 5922  df-mpo 5923  df-of 6130  df-1st 6193  df-2nd 6194  df-tpos 6298  df-recs 6358  df-irdg 6423  df-frec 6444  df-1o 6469  df-2o 6470  df-oadd 6473  df-er 6587  df-ec 6589  df-qs 6593  df-map 6704  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-5 9044  df-6 9045  df-7 9046  df-8 9047  df-9 9048  df-n0 9241  df-z 9318  df-dec 9449  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-dvds 11931  df-gcd 12080  df-prm 12246  df-struct 12620  df-ndx 12621  df-slot 12622  df-base 12624  df-sets 12625  df-iress 12626  df-plusg 12708  df-mulr 12709  df-starv 12710  df-sca 12711  df-vsca 12712  df-ip 12713  df-ple 12715  df-0g 12869  df-igsum 12870  df-iimas 12885  df-qus 12886  df-mgm 12939  df-sgrp 12985  df-mnd 12998  df-mhm 13031  df-submnd 13032  df-grp 13075  df-minusg 13076  df-sbg 13077  df-mulg 13190  df-subg 13240  df-nsg 13241  df-eqg 13242  df-ghm 13311  df-cmn 13356  df-abl 13357  df-mgp 13417  df-rng 13429  df-ur 13456  df-srg 13460  df-ring 13494  df-cring 13495  df-oppr 13564  df-dvdsr 13585  df-unit 13586  df-invr 13617  df-dvr 13628  df-rhm 13648  df-nzr 13676  df-subrg 13715  df-domn 13755  df-idom 13756  df-lmod 13785  df-lssm 13849  df-lsp 13883  df-sra 13931  df-rgmod 13932  df-lidl 13965  df-rsp 13966  df-2idl 13996  df-icnfld 14048  df-zring 14079  df-zrh 14102  df-zn 14104
This theorem is referenced by:  lgseisenlem4  15189
  Copyright terms: Public domain W3C validator