MPE Home Metamath Proof Explorer < Previous   Next >
Nearby theorems
Mirrors  >  Home  >  MPE Home  >  Th. List  >  pgpfac1lem3a Structured version   Unicode version

Theorem pgpfac1lem3a 16567
Description: Lemma for pgpfac1 16571. (Contributed by Mario Carneiro, 4-Jun-2016.)
Hypotheses
Ref Expression
pgpfac1.k  |-  K  =  (mrCls `  (SubGrp `  G
) )
pgpfac1.s  |-  S  =  ( K `  { A } )
pgpfac1.b  |-  B  =  ( Base `  G
)
pgpfac1.o  |-  O  =  ( od `  G
)
pgpfac1.e  |-  E  =  (gEx `  G )
pgpfac1.z  |-  .0.  =  ( 0g `  G )
pgpfac1.l  |-  .(+)  =  (
LSSum `  G )
pgpfac1.p  |-  ( ph  ->  P pGrp  G )
pgpfac1.g  |-  ( ph  ->  G  e.  Abel )
pgpfac1.n  |-  ( ph  ->  B  e.  Fin )
pgpfac1.oe  |-  ( ph  ->  ( O `  A
)  =  E )
pgpfac1.u  |-  ( ph  ->  U  e.  (SubGrp `  G ) )
pgpfac1.au  |-  ( ph  ->  A  e.  U )
pgpfac1.w  |-  ( ph  ->  W  e.  (SubGrp `  G ) )
pgpfac1.i  |-  ( ph  ->  ( S  i^i  W
)  =  {  .0.  } )
pgpfac1.ss  |-  ( ph  ->  ( S  .(+)  W ) 
C_  U )
pgpfac1.2  |-  ( ph  ->  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  ( S  .(+)  W )  C.  w )
)
pgpfac1.c  |-  ( ph  ->  C  e.  ( U 
\  ( S  .(+)  W ) ) )
pgpfac1.mg  |-  .x.  =  (.g
`  G )
pgpfac1.m  |-  ( ph  ->  M  e.  ZZ )
pgpfac1.mw  |-  ( ph  ->  ( ( P  .x.  C ) ( +g  `  G ) ( M 
.x.  A ) )  e.  W )
Assertion
Ref Expression
pgpfac1lem3a  |-  ( ph  ->  ( P  ||  E  /\  P  ||  M ) )
Distinct variable groups:    w, A    w, 
.(+)    w, P    w, G    w, U    w, C    w, S    w, W    ph, w    w,  .x.    w, K
Allowed substitution hints:    B( w)    E( w)    M( w)    O( w)    .0. (
w)

Proof of Theorem pgpfac1lem3a
Dummy variable  k is distinct from all other variables.
StepHypRef Expression
1 pgpfac1.c . . . 4  |-  ( ph  ->  C  e.  ( U 
\  ( S  .(+)  W ) ) )
21eldifbd 3338 . . 3  |-  ( ph  ->  -.  C  e.  ( S  .(+)  W )
)
3 pgpfac1.p . . . . . . . 8  |-  ( ph  ->  P pGrp  G )
4 pgpprm 16085 . . . . . . . 8  |-  ( P pGrp 
G  ->  P  e.  Prime )
53, 4syl 16 . . . . . . 7  |-  ( ph  ->  P  e.  Prime )
6 pgpfac1.g . . . . . . . . 9  |-  ( ph  ->  G  e.  Abel )
7 ablgrp 16275 . . . . . . . . 9  |-  ( G  e.  Abel  ->  G  e. 
Grp )
86, 7syl 16 . . . . . . . 8  |-  ( ph  ->  G  e.  Grp )
9 pgpfac1.n . . . . . . . 8  |-  ( ph  ->  B  e.  Fin )
10 pgpfac1.b . . . . . . . . 9  |-  B  =  ( Base `  G
)
11 pgpfac1.e . . . . . . . . 9  |-  E  =  (gEx `  G )
1210, 11gexcl2 16081 . . . . . . . 8  |-  ( ( G  e.  Grp  /\  B  e.  Fin )  ->  E  e.  NN )
138, 9, 12syl2anc 656 . . . . . . 7  |-  ( ph  ->  E  e.  NN )
14 pceq0 13933 . . . . . . 7  |-  ( ( P  e.  Prime  /\  E  e.  NN )  ->  (
( P  pCnt  E
)  =  0  <->  -.  P  ||  E ) )
155, 13, 14syl2anc 656 . . . . . 6  |-  ( ph  ->  ( ( P  pCnt  E )  =  0  <->  -.  P  ||  E ) )
16 oveq2 6098 . . . . . 6  |-  ( ( P  pCnt  E )  =  0  ->  ( P ^ ( P  pCnt  E ) )  =  ( P ^ 0 ) )
1715, 16syl6bir 229 . . . . 5  |-  ( ph  ->  ( -.  P  ||  E  ->  ( P ^
( P  pCnt  E
) )  =  ( P ^ 0 ) ) )
1810grpbn0 15560 . . . . . . . . . . . . 13  |-  ( G  e.  Grp  ->  B  =/=  (/) )
198, 18syl 16 . . . . . . . . . . . 12  |-  ( ph  ->  B  =/=  (/) )
20 hashnncl 12130 . . . . . . . . . . . . 13  |-  ( B  e.  Fin  ->  (
( # `  B )  e.  NN  <->  B  =/=  (/) ) )
219, 20syl 16 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( # `  B
)  e.  NN  <->  B  =/=  (/) ) )
2219, 21mpbird 232 . . . . . . . . . . 11  |-  ( ph  ->  ( # `  B
)  e.  NN )
235, 22pccld 13913 . . . . . . . . . 10  |-  ( ph  ->  ( P  pCnt  ( # `
 B ) )  e.  NN0 )
2410, 11gexdvds3 16082 . . . . . . . . . . . 12  |-  ( ( G  e.  Grp  /\  B  e.  Fin )  ->  E  ||  ( # `  B ) )
258, 9, 24syl2anc 656 . . . . . . . . . . 11  |-  ( ph  ->  E  ||  ( # `  B ) )
2610pgphash 16099 . . . . . . . . . . . 12  |-  ( ( P pGrp  G  /\  B  e.  Fin )  ->  ( # `
 B )  =  ( P ^ ( P  pCnt  ( # `  B
) ) ) )
273, 9, 26syl2anc 656 . . . . . . . . . . 11  |-  ( ph  ->  ( # `  B
)  =  ( P ^ ( P  pCnt  (
# `  B )
) ) )
2825, 27breqtrd 4313 . . . . . . . . . 10  |-  ( ph  ->  E  ||  ( P ^ ( P  pCnt  (
# `  B )
) ) )
29 oveq2 6098 . . . . . . . . . . . 12  |-  ( k  =  ( P  pCnt  (
# `  B )
)  ->  ( P ^ k )  =  ( P ^ ( P  pCnt  ( # `  B
) ) ) )
3029breq2d 4301 . . . . . . . . . . 11  |-  ( k  =  ( P  pCnt  (
# `  B )
)  ->  ( E  ||  ( P ^ k
)  <->  E  ||  ( P ^ ( P  pCnt  (
# `  B )
) ) ) )
3130rspcev 3070 . . . . . . . . . 10  |-  ( ( ( P  pCnt  ( # `
 B ) )  e.  NN0  /\  E  ||  ( P ^ ( P 
pCnt  ( # `  B
) ) ) )  ->  E. k  e.  NN0  E 
||  ( P ^
k ) )
3223, 28, 31syl2anc 656 . . . . . . . . 9  |-  ( ph  ->  E. k  e.  NN0  E 
||  ( P ^
k ) )
33 pcprmpw2 13944 . . . . . . . . . 10  |-  ( ( P  e.  Prime  /\  E  e.  NN )  ->  ( E. k  e.  NN0  E 
||  ( P ^
k )  <->  E  =  ( P ^ ( P 
pCnt  E ) ) ) )
345, 13, 33syl2anc 656 . . . . . . . . 9  |-  ( ph  ->  ( E. k  e. 
NN0  E  ||  ( P ^ k )  <->  E  =  ( P ^ ( P 
pCnt  E ) ) ) )
3532, 34mpbid 210 . . . . . . . 8  |-  ( ph  ->  E  =  ( P ^ ( P  pCnt  E ) ) )
3635eqcomd 2446 . . . . . . 7  |-  ( ph  ->  ( P ^ ( P  pCnt  E ) )  =  E )
37 prmnn 13762 . . . . . . . . . 10  |-  ( P  e.  Prime  ->  P  e.  NN )
385, 37syl 16 . . . . . . . . 9  |-  ( ph  ->  P  e.  NN )
3938nncnd 10334 . . . . . . . 8  |-  ( ph  ->  P  e.  CC )
4039exp0d 11998 . . . . . . 7  |-  ( ph  ->  ( P ^ 0 )  =  1 )
4136, 40eqeq12d 2455 . . . . . 6  |-  ( ph  ->  ( ( P ^
( P  pCnt  E
) )  =  ( P ^ 0 )  <-> 
E  =  1 ) )
42 grpmnd 15543 . . . . . . . 8  |-  ( G  e.  Grp  ->  G  e.  Mnd )
438, 42syl 16 . . . . . . 7  |-  ( ph  ->  G  e.  Mnd )
4410, 11gex1 16083 . . . . . . 7  |-  ( G  e.  Mnd  ->  ( E  =  1  <->  B  ~~  1o ) )
4543, 44syl 16 . . . . . 6  |-  ( ph  ->  ( E  =  1  <-> 
B  ~~  1o )
)
4641, 45bitrd 253 . . . . 5  |-  ( ph  ->  ( ( P ^
( P  pCnt  E
) )  =  ( P ^ 0 )  <-> 
B  ~~  1o )
)
4717, 46sylibd 214 . . . 4  |-  ( ph  ->  ( -.  P  ||  E  ->  B  ~~  1o ) )
48 pgpfac1.s . . . . . . . . . . 11  |-  S  =  ( K `  { A } )
4910subgacs 15709 . . . . . . . . . . . . . 14  |-  ( G  e.  Grp  ->  (SubGrp `  G )  e.  (ACS
`  B ) )
508, 49syl 16 . . . . . . . . . . . . 13  |-  ( ph  ->  (SubGrp `  G )  e.  (ACS `  B )
)
5150acsmred 14590 . . . . . . . . . . . 12  |-  ( ph  ->  (SubGrp `  G )  e.  (Moore `  B )
)
52 pgpfac1.u . . . . . . . . . . . . . 14  |-  ( ph  ->  U  e.  (SubGrp `  G ) )
5310subgss 15675 . . . . . . . . . . . . . 14  |-  ( U  e.  (SubGrp `  G
)  ->  U  C_  B
)
5452, 53syl 16 . . . . . . . . . . . . 13  |-  ( ph  ->  U  C_  B )
55 pgpfac1.au . . . . . . . . . . . . 13  |-  ( ph  ->  A  e.  U )
5654, 55sseldd 3354 . . . . . . . . . . . 12  |-  ( ph  ->  A  e.  B )
57 pgpfac1.k . . . . . . . . . . . . 13  |-  K  =  (mrCls `  (SubGrp `  G
) )
5857mrcsncl 14546 . . . . . . . . . . . 12  |-  ( ( (SubGrp `  G )  e.  (Moore `  B )  /\  A  e.  B
)  ->  ( K `  { A } )  e.  (SubGrp `  G
) )
5951, 56, 58syl2anc 656 . . . . . . . . . . 11  |-  ( ph  ->  ( K `  { A } )  e.  (SubGrp `  G ) )
6048, 59syl5eqel 2525 . . . . . . . . . 10  |-  ( ph  ->  S  e.  (SubGrp `  G ) )
61 pgpfac1.w . . . . . . . . . 10  |-  ( ph  ->  W  e.  (SubGrp `  G ) )
62 pgpfac1.l . . . . . . . . . . 11  |-  .(+)  =  (
LSSum `  G )
6362lsmsubg2 16334 . . . . . . . . . 10  |-  ( ( G  e.  Abel  /\  S  e.  (SubGrp `  G )  /\  W  e.  (SubGrp `  G ) )  -> 
( S  .(+)  W )  e.  (SubGrp `  G
) )
646, 60, 61, 63syl3anc 1213 . . . . . . . . 9  |-  ( ph  ->  ( S  .(+)  W )  e.  (SubGrp `  G
) )
65 pgpfac1.z . . . . . . . . . 10  |-  .0.  =  ( 0g `  G )
6665subg0cl 15682 . . . . . . . . 9  |-  ( ( S  .(+)  W )  e.  (SubGrp `  G )  ->  .0.  e.  ( S 
.(+)  W ) )
6764, 66syl 16 . . . . . . . 8  |-  ( ph  ->  .0.  e.  ( S 
.(+)  W ) )
6867snssd 4015 . . . . . . 7  |-  ( ph  ->  {  .0.  }  C_  ( S  .(+)  W ) )
6968adantr 462 . . . . . 6  |-  ( (
ph  /\  B  ~~  1o )  ->  {  .0.  } 
C_  ( S  .(+)  W ) )
701eldifad 3337 . . . . . . . . 9  |-  ( ph  ->  C  e.  U )
7154, 70sseldd 3354 . . . . . . . 8  |-  ( ph  ->  C  e.  B )
7271adantr 462 . . . . . . 7  |-  ( (
ph  /\  B  ~~  1o )  ->  C  e.  B )
7310, 65grpidcl 15559 . . . . . . . . 9  |-  ( G  e.  Grp  ->  .0.  e.  B )
748, 73syl 16 . . . . . . . 8  |-  ( ph  ->  .0.  e.  B )
75 en1eqsn 7538 . . . . . . . 8  |-  ( (  .0.  e.  B  /\  B  ~~  1o )  ->  B  =  {  .0.  } )
7674, 75sylan 468 . . . . . . 7  |-  ( (
ph  /\  B  ~~  1o )  ->  B  =  {  .0.  } )
7772, 76eleqtrd 2517 . . . . . 6  |-  ( (
ph  /\  B  ~~  1o )  ->  C  e. 
{  .0.  } )
7869, 77sseldd 3354 . . . . 5  |-  ( (
ph  /\  B  ~~  1o )  ->  C  e.  ( S  .(+)  W ) )
7978ex 434 . . . 4  |-  ( ph  ->  ( B  ~~  1o  ->  C  e.  ( S 
.(+)  W ) ) )
8047, 79syld 44 . . 3  |-  ( ph  ->  ( -.  P  ||  E  ->  C  e.  ( S  .(+)  W )
) )
812, 80mt3d 125 . 2  |-  ( ph  ->  P  ||  E )
82 pgpfac1.oe . . . . 5  |-  ( ph  ->  ( O `  A
)  =  E )
8313nncnd 10334 . . . . . 6  |-  ( ph  ->  E  e.  CC )
8438nnne0d 10362 . . . . . 6  |-  ( ph  ->  P  =/=  0 )
8583, 39, 84divcan1d 10104 . . . . 5  |-  ( ph  ->  ( ( E  /  P )  x.  P
)  =  E )
8682, 85eqtr4d 2476 . . . 4  |-  ( ph  ->  ( O `  A
)  =  ( ( E  /  P )  x.  P ) )
87 nndivdvds 13537 . . . . . . . . . . . . 13  |-  ( ( E  e.  NN  /\  P  e.  NN )  ->  ( P  ||  E  <->  ( E  /  P )  e.  NN ) )
8813, 38, 87syl2anc 656 . . . . . . . . . . . 12  |-  ( ph  ->  ( P  ||  E  <->  ( E  /  P )  e.  NN ) )
8981, 88mpbid 210 . . . . . . . . . . 11  |-  ( ph  ->  ( E  /  P
)  e.  NN )
9089nnzd 10742 . . . . . . . . . 10  |-  ( ph  ->  ( E  /  P
)  e.  ZZ )
91 pgpfac1.m . . . . . . . . . 10  |-  ( ph  ->  M  e.  ZZ )
9290, 91zmulcld 10749 . . . . . . . . 9  |-  ( ph  ->  ( ( E  /  P )  x.  M
)  e.  ZZ )
9356snssd 4015 . . . . . . . . . . . 12  |-  ( ph  ->  { A }  C_  B )
9451, 57, 93mrcssidd 14559 . . . . . . . . . . 11  |-  ( ph  ->  { A }  C_  ( K `  { A } ) )
9594, 48syl6sseqr 3400 . . . . . . . . . 10  |-  ( ph  ->  { A }  C_  S )
96 snssg 4004 . . . . . . . . . . 11  |-  ( A  e.  U  ->  ( A  e.  S  <->  { A }  C_  S ) )
9755, 96syl 16 . . . . . . . . . 10  |-  ( ph  ->  ( A  e.  S  <->  { A }  C_  S
) )
9895, 97mpbird 232 . . . . . . . . 9  |-  ( ph  ->  A  e.  S )
99 pgpfac1.mg . . . . . . . . . 10  |-  .x.  =  (.g
`  G )
10099subgmulgcl 15687 . . . . . . . . 9  |-  ( ( S  e.  (SubGrp `  G )  /\  (
( E  /  P
)  x.  M )  e.  ZZ  /\  A  e.  S )  ->  (
( ( E  /  P )  x.  M
)  .x.  A )  e.  S )
10160, 92, 98, 100syl3anc 1213 . . . . . . . 8  |-  ( ph  ->  ( ( ( E  /  P )  x.  M )  .x.  A
)  e.  S )
102 prmz 13763 . . . . . . . . . . . . 13  |-  ( P  e.  Prime  ->  P  e.  ZZ )
1035, 102syl 16 . . . . . . . . . . . 12  |-  ( ph  ->  P  e.  ZZ )
10410, 99mulgcl 15637 . . . . . . . . . . . 12  |-  ( ( G  e.  Grp  /\  P  e.  ZZ  /\  C  e.  B )  ->  ( P  .x.  C )  e.  B )
1058, 103, 71, 104syl3anc 1213 . . . . . . . . . . 11  |-  ( ph  ->  ( P  .x.  C
)  e.  B )
10610, 99mulgcl 15637 . . . . . . . . . . . 12  |-  ( ( G  e.  Grp  /\  M  e.  ZZ  /\  A  e.  B )  ->  ( M  .x.  A )  e.  B )
1078, 91, 56, 106syl3anc 1213 . . . . . . . . . . 11  |-  ( ph  ->  ( M  .x.  A
)  e.  B )
108 eqid 2441 . . . . . . . . . . . 12  |-  ( +g  `  G )  =  ( +g  `  G )
10910, 99, 108mulgdi 16307 . . . . . . . . . . 11  |-  ( ( G  e.  Abel  /\  (
( E  /  P
)  e.  ZZ  /\  ( P  .x.  C )  e.  B  /\  ( M  .x.  A )  e.  B ) )  -> 
( ( E  /  P )  .x.  (
( P  .x.  C
) ( +g  `  G
) ( M  .x.  A ) ) )  =  ( ( ( E  /  P ) 
.x.  ( P  .x.  C ) ) ( +g  `  G ) ( ( E  /  P )  .x.  ( M  .x.  A ) ) ) )
1106, 90, 105, 107, 109syl13anc 1215 . . . . . . . . . 10  |-  ( ph  ->  ( ( E  /  P )  .x.  (
( P  .x.  C
) ( +g  `  G
) ( M  .x.  A ) ) )  =  ( ( ( E  /  P ) 
.x.  ( P  .x.  C ) ) ( +g  `  G ) ( ( E  /  P )  .x.  ( M  .x.  A ) ) ) )
11185oveq1d 6105 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( ( E  /  P )  x.  P )  .x.  C
)  =  ( E 
.x.  C ) )
11210, 99mulgass 15650 . . . . . . . . . . . . 13  |-  ( ( G  e.  Grp  /\  ( ( E  /  P )  e.  ZZ  /\  P  e.  ZZ  /\  C  e.  B )
)  ->  ( (
( E  /  P
)  x.  P ) 
.x.  C )  =  ( ( E  /  P )  .x.  ( P  .x.  C ) ) )
1138, 90, 103, 71, 112syl13anc 1215 . . . . . . . . . . . 12  |-  ( ph  ->  ( ( ( E  /  P )  x.  P )  .x.  C
)  =  ( ( E  /  P ) 
.x.  ( P  .x.  C ) ) )
11410, 11, 99, 65gexid 16073 . . . . . . . . . . . . 13  |-  ( C  e.  B  ->  ( E  .x.  C )  =  .0.  )
11571, 114syl 16 . . . . . . . . . . . 12  |-  ( ph  ->  ( E  .x.  C
)  =  .0.  )
116111, 113, 1153eqtr3rd 2482 . . . . . . . . . . 11  |-  ( ph  ->  .0.  =  ( ( E  /  P ) 
.x.  ( P  .x.  C ) ) )
11710, 99mulgass 15650 . . . . . . . . . . . 12  |-  ( ( G  e.  Grp  /\  ( ( E  /  P )  e.  ZZ  /\  M  e.  ZZ  /\  A  e.  B )
)  ->  ( (
( E  /  P
)  x.  M ) 
.x.  A )  =  ( ( E  /  P )  .x.  ( M  .x.  A ) ) )
1188, 90, 91, 56, 117syl13anc 1215 . . . . . . . . . . 11  |-  ( ph  ->  ( ( ( E  /  P )  x.  M )  .x.  A
)  =  ( ( E  /  P ) 
.x.  ( M  .x.  A ) ) )
119116, 118oveq12d 6108 . . . . . . . . . 10  |-  ( ph  ->  (  .0.  ( +g  `  G ) ( ( ( E  /  P
)  x.  M ) 
.x.  A ) )  =  ( ( ( E  /  P ) 
.x.  ( P  .x.  C ) ) ( +g  `  G ) ( ( E  /  P )  .x.  ( M  .x.  A ) ) ) )
12010subgss 15675 . . . . . . . . . . . . 13  |-  ( S  e.  (SubGrp `  G
)  ->  S  C_  B
)
12160, 120syl 16 . . . . . . . . . . . 12  |-  ( ph  ->  S  C_  B )
122121, 101sseldd 3354 . . . . . . . . . . 11  |-  ( ph  ->  ( ( ( E  /  P )  x.  M )  .x.  A
)  e.  B )
12310, 108, 65grplid 15561 . . . . . . . . . . 11  |-  ( ( G  e.  Grp  /\  ( ( ( E  /  P )  x.  M )  .x.  A
)  e.  B )  ->  (  .0.  ( +g  `  G ) ( ( ( E  /  P )  x.  M
)  .x.  A )
)  =  ( ( ( E  /  P
)  x.  M ) 
.x.  A ) )
1248, 122, 123syl2anc 656 . . . . . . . . . 10  |-  ( ph  ->  (  .0.  ( +g  `  G ) ( ( ( E  /  P
)  x.  M ) 
.x.  A ) )  =  ( ( ( E  /  P )  x.  M )  .x.  A ) )
125110, 119, 1243eqtr2d 2479 . . . . . . . . 9  |-  ( ph  ->  ( ( E  /  P )  .x.  (
( P  .x.  C
) ( +g  `  G
) ( M  .x.  A ) ) )  =  ( ( ( E  /  P )  x.  M )  .x.  A ) )
126 pgpfac1.mw . . . . . . . . . 10  |-  ( ph  ->  ( ( P  .x.  C ) ( +g  `  G ) ( M 
.x.  A ) )  e.  W )
12799subgmulgcl 15687 . . . . . . . . . 10  |-  ( ( W  e.  (SubGrp `  G )  /\  ( E  /  P )  e.  ZZ  /\  ( ( P  .x.  C ) ( +g  `  G
) ( M  .x.  A ) )  e.  W )  ->  (
( E  /  P
)  .x.  ( ( P  .x.  C ) ( +g  `  G ) ( M  .x.  A
) ) )  e.  W )
12861, 90, 126, 127syl3anc 1213 . . . . . . . . 9  |-  ( ph  ->  ( ( E  /  P )  .x.  (
( P  .x.  C
) ( +g  `  G
) ( M  .x.  A ) ) )  e.  W )
129125, 128eqeltrrd 2516 . . . . . . . 8  |-  ( ph  ->  ( ( ( E  /  P )  x.  M )  .x.  A
)  e.  W )
130101, 129elind 3537 . . . . . . 7  |-  ( ph  ->  ( ( ( E  /  P )  x.  M )  .x.  A
)  e.  ( S  i^i  W ) )
131 pgpfac1.i . . . . . . 7  |-  ( ph  ->  ( S  i^i  W
)  =  {  .0.  } )
132130, 131eleqtrd 2517 . . . . . 6  |-  ( ph  ->  ( ( ( E  /  P )  x.  M )  .x.  A
)  e.  {  .0.  } )
133 elsni 3899 . . . . . 6  |-  ( ( ( ( E  /  P )  x.  M
)  .x.  A )  e.  {  .0.  }  ->  ( ( ( E  /  P )  x.  M
)  .x.  A )  =  .0.  )
134132, 133syl 16 . . . . 5  |-  ( ph  ->  ( ( ( E  /  P )  x.  M )  .x.  A
)  =  .0.  )
135 pgpfac1.o . . . . . . 7  |-  O  =  ( od `  G
)
13610, 135, 99, 65oddvds 16043 . . . . . 6  |-  ( ( G  e.  Grp  /\  A  e.  B  /\  ( ( E  /  P )  x.  M
)  e.  ZZ )  ->  ( ( O `
 A )  ||  ( ( E  /  P )  x.  M
)  <->  ( ( ( E  /  P )  x.  M )  .x.  A )  =  .0.  ) )
1378, 56, 92, 136syl3anc 1213 . . . . 5  |-  ( ph  ->  ( ( O `  A )  ||  (
( E  /  P
)  x.  M )  <-> 
( ( ( E  /  P )  x.  M )  .x.  A
)  =  .0.  )
)
138134, 137mpbird 232 . . . 4  |-  ( ph  ->  ( O `  A
)  ||  ( ( E  /  P )  x.  M ) )
13986, 138eqbrtrrd 4311 . . 3  |-  ( ph  ->  ( ( E  /  P )  x.  P
)  ||  ( ( E  /  P )  x.  M ) )
14089nnne0d 10362 . . . 4  |-  ( ph  ->  ( E  /  P
)  =/=  0 )
141 dvdscmulr 13557 . . . 4  |-  ( ( P  e.  ZZ  /\  M  e.  ZZ  /\  (
( E  /  P
)  e.  ZZ  /\  ( E  /  P
)  =/=  0 ) )  ->  ( (
( E  /  P
)  x.  P ) 
||  ( ( E  /  P )  x.  M )  <->  P  ||  M
) )
142103, 91, 90, 140, 141syl112anc 1217 . . 3  |-  ( ph  ->  ( ( ( E  /  P )  x.  P )  ||  (
( E  /  P
)  x.  M )  <-> 
P  ||  M )
)
143139, 142mpbid 210 . 2  |-  ( ph  ->  P  ||  M )
14481, 143jca 529 1  |-  ( ph  ->  ( P  ||  E  /\  P  ||  M ) )
Colors of variables: wff setvar class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 184    /\ wa 369    = wceq 1364    e. wcel 1761    =/= wne 2604   A.wral 2713   E.wrex 2714    \ cdif 3322    i^i cin 3324    C_ wss 3325    C. wpss 3326   (/)c0 3634   {csn 3874   class class class wbr 4289   ` cfv 5415  (class class class)co 6090   1oc1o 6909    ~~ cen 7303   Fincfn 7306   0cc0 9278   1c1 9279    x. cmul 9283    / cdiv 9989   NNcn 10318   NN0cn0 10575   ZZcz 10642   ^cexp 11861   #chash 12099    || cdivides 13531   Primecprime 13759    pCnt cpc 13899   Basecbs 14170   +g cplusg 14234   0gc0g 14374  Moorecmre 14516  mrClscmrc 14517  ACScacs 14519   Mndcmnd 15405   Grpcgrp 15406  .gcmg 15410  SubGrpcsubg 15668   odcod 16021  gExcgex 16022   pGrp cpgp 16023   LSSumclsm 16126   Abelcabel 16271
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1596  ax-4 1607  ax-5 1675  ax-6 1713  ax-7 1733  ax-8 1763  ax-9 1765  ax-10 1780  ax-11 1785  ax-12 1797  ax-13 1948  ax-ext 2422  ax-rep 4400  ax-sep 4410  ax-nul 4418  ax-pow 4467  ax-pr 4528  ax-un 6371  ax-inf2 7843  ax-cnex 9334  ax-resscn 9335  ax-1cn 9336  ax-icn 9337  ax-addcl 9338  ax-addrcl 9339  ax-mulcl 9340  ax-mulrcl 9341  ax-mulcom 9342  ax-addass 9343  ax-mulass 9344  ax-distr 9345  ax-i2m1 9346  ax-1ne0 9347  ax-1rid 9348  ax-rnegex 9349  ax-rrecex 9350  ax-cnre 9351  ax-pre-lttri 9352  ax-pre-lttrn 9353  ax-pre-ltadd 9354  ax-pre-mulgt0 9355  ax-pre-sup 9356
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3or 961  df-3an 962  df-tru 1367  df-fal 1370  df-ex 1592  df-nf 1595  df-sb 1706  df-eu 2261  df-mo 2262  df-clab 2428  df-cleq 2434  df-clel 2437  df-nfc 2566  df-ne 2606  df-nel 2607  df-ral 2718  df-rex 2719  df-reu 2720  df-rmo 2721  df-rab 2722  df-v 2972  df-sbc 3184  df-csb 3286  df-dif 3328  df-un 3330  df-in 3332  df-ss 3339  df-pss 3341  df-nul 3635  df-if 3789  df-pw 3859  df-sn 3875  df-pr 3877  df-tp 3879  df-op 3881  df-uni 4089  df-int 4126  df-iun 4170  df-iin 4171  df-disj 4260  df-br 4290  df-opab 4348  df-mpt 4349  df-tr 4383  df-eprel 4628  df-id 4632  df-po 4637  df-so 4638  df-fr 4675  df-se 4676  df-we 4677  df-ord 4718  df-on 4719  df-lim 4720  df-suc 4721  df-xp 4842  df-rel 4843  df-cnv 4844  df-co 4845  df-dm 4846  df-rn 4847  df-res 4848  df-ima 4849  df-iota 5378  df-fun 5417  df-fn 5418  df-f 5419  df-f1 5420  df-fo 5421  df-f1o 5422  df-fv 5423  df-isom 5424  df-riota 6049  df-ov 6093  df-oprab 6094  df-mpt2 6095  df-om 6476  df-1st 6576  df-2nd 6577  df-recs 6828  df-rdg 6862  df-1o 6916  df-2o 6917  df-oadd 6920  df-omul 6921  df-er 7097  df-ec 7099  df-qs 7103  df-map 7212  df-en 7307  df-dom 7308  df-sdom 7309  df-fin 7310  df-sup 7687  df-oi 7720  df-card 8105  df-acn 8108  df-cda 8333  df-pnf 9416  df-mnf 9417  df-xr 9418  df-ltxr 9419  df-le 9420  df-sub 9593  df-neg 9594  df-div 9990  df-nn 10319  df-2 10376  df-3 10377  df-n0 10576  df-z 10643  df-uz 10858  df-q 10950  df-rp 10988  df-fz 11434  df-fzo 11545  df-fl 11638  df-mod 11705  df-seq 11803  df-exp 11862  df-fac 12048  df-bc 12075  df-hash 12100  df-cj 12584  df-re 12585  df-im 12586  df-sqr 12720  df-abs 12721  df-clim 12962  df-sum 13160  df-dvds 13532  df-gcd 13687  df-prm 13760  df-pc 13900  df-ndx 14173  df-slot 14174  df-base 14175  df-sets 14176  df-ress 14177  df-plusg 14247  df-0g 14376  df-mre 14520  df-mrc 14521  df-acs 14523  df-mnd 15411  df-submnd 15461  df-grp 15538  df-minusg 15539  df-sbg 15540  df-mulg 15541  df-subg 15671  df-eqg 15673  df-ga 15801  df-cntz 15828  df-od 16025  df-gex 16026  df-pgp 16027  df-lsm 16128  df-cmn 16272  df-abl 16273
This theorem is referenced by:  pgpfac1lem3  16568
  Copyright terms: Public domain W3C validator