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

Theorem pgpfac1lem5 15675
Description: Lemma for pgpfac1 15676 (Contributed by Mario Carneiro, 27-Apr-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.3  |-  ( ph  ->  A. s  e.  (SubGrp `  G ) ( ( s  C.  U  /\  A  e.  s )  ->  E. t  e.  (SubGrp `  G ) ( ( S  i^i  t )  =  {  .0.  }  /\  ( S  .(+)  t )  =  s ) ) )
Assertion
Ref Expression
pgpfac1lem5  |-  ( ph  ->  E. t  e.  (SubGrp `  G ) ( ( S  i^i  t )  =  {  .0.  }  /\  ( S  .(+)  t )  =  U ) )
Distinct variable groups:    t, s,  .0.    A, s, t    .(+) , s, t    P, s, t    B, s, t    G, s, t    U, s, t    S, s, t    ph, s, t    K, s, t
Allowed substitution hints:    E( t, s)    O( t, s)

Proof of Theorem pgpfac1lem5
Dummy variables  b  u  v  y  w are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 pgpfac1.n . . . . . . . . . 10  |-  ( ph  ->  B  e.  Fin )
2 pwfi 7438 . . . . . . . . . 10  |-  ( B  e.  Fin  <->  ~P B  e.  Fin )
31, 2sylib 190 . . . . . . . . 9  |-  ( ph  ->  ~P B  e.  Fin )
43adantr 453 . . . . . . . 8  |-  ( (
ph  /\  S  C.  U )  ->  ~P B  e.  Fin )
5 pgpfac1.b . . . . . . . . . . . 12  |-  B  =  ( Base `  G
)
65subgss 14983 . . . . . . . . . . 11  |-  ( v  e.  (SubGrp `  G
)  ->  v  C_  B )
763ad2ant2 980 . . . . . . . . . 10  |-  ( ( ( ph  /\  S  C.  U )  /\  v  e.  (SubGrp `  G )  /\  ( v  C.  U  /\  A  e.  v
) )  ->  v  C_  B )
8 vex 2968 . . . . . . . . . . 11  |-  v  e. 
_V
98elpw 3834 . . . . . . . . . 10  |-  ( v  e.  ~P B  <->  v  C_  B )
107, 9sylibr 205 . . . . . . . . 9  |-  ( ( ( ph  /\  S  C.  U )  /\  v  e.  (SubGrp `  G )  /\  ( v  C.  U  /\  A  e.  v
) )  ->  v  e.  ~P B )
1110rabssdv 3412 . . . . . . . 8  |-  ( (
ph  /\  S  C.  U )  ->  { v  e.  (SubGrp `  G
)  |  ( v 
C.  U  /\  A  e.  v ) }  C_  ~P B )
12 ssfi 7365 . . . . . . . 8  |-  ( ( ~P B  e.  Fin  /\ 
{ v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  C_  ~P B )  ->  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  e.  Fin )
134, 11, 12syl2anc 644 . . . . . . 7  |-  ( (
ph  /\  S  C.  U )  ->  { v  e.  (SubGrp `  G
)  |  ( v 
C.  U  /\  A  e.  v ) }  e.  Fin )
14 finnum 7873 . . . . . . 7  |-  ( { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  e.  Fin  ->  { v  e.  (SubGrp `  G
)  |  ( v 
C.  U  /\  A  e.  v ) }  e.  dom  card )
1513, 14syl 16 . . . . . 6  |-  ( (
ph  /\  S  C.  U )  ->  { v  e.  (SubGrp `  G
)  |  ( v 
C.  U  /\  A  e.  v ) }  e.  dom  card )
16 pgpfac1.s . . . . . . . . . 10  |-  S  =  ( K `  { A } )
17 pgpfac1.g . . . . . . . . . . . . 13  |-  ( ph  ->  G  e.  Abel )
18 ablgrp 15455 . . . . . . . . . . . . 13  |-  ( G  e.  Abel  ->  G  e. 
Grp )
1917, 18syl 16 . . . . . . . . . . . 12  |-  ( ph  ->  G  e.  Grp )
205subgacs 15013 . . . . . . . . . . . 12  |-  ( G  e.  Grp  ->  (SubGrp `  G )  e.  (ACS
`  B ) )
21 acsmre 13915 . . . . . . . . . . . 12  |-  ( (SubGrp `  G )  e.  (ACS
`  B )  -> 
(SubGrp `  G )  e.  (Moore `  B )
)
2219, 20, 213syl 19 . . . . . . . . . . 11  |-  ( ph  ->  (SubGrp `  G )  e.  (Moore `  B )
)
23 pgpfac1.u . . . . . . . . . . . . 13  |-  ( ph  ->  U  e.  (SubGrp `  G ) )
245subgss 14983 . . . . . . . . . . . . 13  |-  ( U  e.  (SubGrp `  G
)  ->  U  C_  B
)
2523, 24syl 16 . . . . . . . . . . . 12  |-  ( ph  ->  U  C_  B )
26 pgpfac1.au . . . . . . . . . . . 12  |-  ( ph  ->  A  e.  U )
2725, 26sseldd 3338 . . . . . . . . . . 11  |-  ( ph  ->  A  e.  B )
28 pgpfac1.k . . . . . . . . . . . 12  |-  K  =  (mrCls `  (SubGrp `  G
) )
2928mrcsncl 13875 . . . . . . . . . . 11  |-  ( ( (SubGrp `  G )  e.  (Moore `  B )  /\  A  e.  B
)  ->  ( K `  { A } )  e.  (SubGrp `  G
) )
3022, 27, 29syl2anc 644 . . . . . . . . . 10  |-  ( ph  ->  ( K `  { A } )  e.  (SubGrp `  G ) )
3116, 30syl5eqel 2527 . . . . . . . . 9  |-  ( ph  ->  S  e.  (SubGrp `  G ) )
3231adantr 453 . . . . . . . 8  |-  ( (
ph  /\  S  C.  U )  ->  S  e.  (SubGrp `  G )
)
33 simpr 449 . . . . . . . 8  |-  ( (
ph  /\  S  C.  U )  ->  S  C.  U )
3426snssd 3972 . . . . . . . . . . . . 13  |-  ( ph  ->  { A }  C_  U )
3534, 25sstrd 3347 . . . . . . . . . . . 12  |-  ( ph  ->  { A }  C_  B )
3622, 28, 35mrcssidd 13888 . . . . . . . . . . 11  |-  ( ph  ->  { A }  C_  ( K `  { A } ) )
3736, 16syl6sseqr 3384 . . . . . . . . . 10  |-  ( ph  ->  { A }  C_  S )
38 snssg 3961 . . . . . . . . . . 11  |-  ( A  e.  B  ->  ( A  e.  S  <->  { A }  C_  S ) )
3927, 38syl 16 . . . . . . . . . 10  |-  ( ph  ->  ( A  e.  S  <->  { A }  C_  S
) )
4037, 39mpbird 225 . . . . . . . . 9  |-  ( ph  ->  A  e.  S )
4140adantr 453 . . . . . . . 8  |-  ( (
ph  /\  S  C.  U )  ->  A  e.  S )
42 psseq1 3423 . . . . . . . . . 10  |-  ( v  =  S  ->  (
v  C.  U  <->  S  C.  U ) )
43 eleq2 2504 . . . . . . . . . 10  |-  ( v  =  S  ->  ( A  e.  v  <->  A  e.  S ) )
4442, 43anbi12d 693 . . . . . . . . 9  |-  ( v  =  S  ->  (
( v  C.  U  /\  A  e.  v
)  <->  ( S  C.  U  /\  A  e.  S
) ) )
4544rspcev 3061 . . . . . . . 8  |-  ( ( S  e.  (SubGrp `  G )  /\  ( S  C.  U  /\  A  e.  S ) )  ->  E. v  e.  (SubGrp `  G ) ( v 
C.  U  /\  A  e.  v ) )
4632, 33, 41, 45syl12anc 1183 . . . . . . 7  |-  ( (
ph  /\  S  C.  U )  ->  E. v  e.  (SubGrp `  G )
( v  C.  U  /\  A  e.  v
) )
47 rabn0 3635 . . . . . . 7  |-  ( { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  =/=  (/)  <->  E. v  e.  (SubGrp `  G ) ( v 
C.  U  /\  A  e.  v ) )
4846, 47sylibr 205 . . . . . 6  |-  ( (
ph  /\  S  C.  U )  ->  { v  e.  (SubGrp `  G
)  |  ( v 
C.  U  /\  A  e.  v ) }  =/=  (/) )
49 simpr1 964 . . . . . . . . 9  |-  ( ( ( ph  /\  S  C.  U )  /\  (
u  C_  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  /\  u  =/=  (/)  /\ [ C.]  Or  u
) )  ->  u  C_ 
{ v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) } )
50 simpr2 965 . . . . . . . . . 10  |-  ( ( ( ph  /\  S  C.  U )  /\  (
u  C_  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  /\  u  =/=  (/)  /\ [ C.]  Or  u
) )  ->  u  =/=  (/) )
5113adantr 453 . . . . . . . . . . 11  |-  ( ( ( ph  /\  S  C.  U )  /\  (
u  C_  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  /\  u  =/=  (/)  /\ [ C.]  Or  u
) )  ->  { v  e.  (SubGrp `  G
)  |  ( v 
C.  U  /\  A  e.  v ) }  e.  Fin )
52 ssfi 7365 . . . . . . . . . . 11  |-  ( ( { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  e.  Fin  /\  u  C_ 
{ v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) } )  ->  u  e.  Fin )
5351, 49, 52syl2anc 644 . . . . . . . . . 10  |-  ( ( ( ph  /\  S  C.  U )  /\  (
u  C_  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  /\  u  =/=  (/)  /\ [ C.]  Or  u
) )  ->  u  e.  Fin )
54 simpr3 966 . . . . . . . . . 10  |-  ( ( ( ph  /\  S  C.  U )  /\  (
u  C_  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  /\  u  =/=  (/)  /\ [ C.]  Or  u
) )  -> [ C.]  Or  u )
55 fin1a2lem10 8327 . . . . . . . . . 10  |-  ( ( u  =/=  (/)  /\  u  e.  Fin  /\ [ C.]  Or  u
)  ->  U. u  e.  u )
5650, 53, 54, 55syl3anc 1185 . . . . . . . . 9  |-  ( ( ( ph  /\  S  C.  U )  /\  (
u  C_  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  /\  u  =/=  (/)  /\ [ C.]  Or  u
) )  ->  U. u  e.  u )
5749, 56sseldd 3338 . . . . . . . 8  |-  ( ( ( ph  /\  S  C.  U )  /\  (
u  C_  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  /\  u  =/=  (/)  /\ [ C.]  Or  u
) )  ->  U. u  e.  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) } )
5857ex 425 . . . . . . 7  |-  ( (
ph  /\  S  C.  U )  ->  (
( u  C_  { v  e.  (SubGrp `  G
)  |  ( v 
C.  U  /\  A  e.  v ) }  /\  u  =/=  (/)  /\ [ C.]  Or  u
)  ->  U. u  e.  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) } ) )
5958alrimiv 1643 . . . . . 6  |-  ( (
ph  /\  S  C.  U )  ->  A. u
( ( u  C_  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  /\  u  =/=  (/)  /\ [ C.]  Or  u )  ->  U. u  e.  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) } ) )
60 zornn0g 8423 . . . . . 6  |-  ( ( { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  e.  dom  card  /\  {
v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  =/=  (/)  /\  A. u
( ( u  C_  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  /\  u  =/=  (/)  /\ [ C.]  Or  u )  ->  U. u  e.  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) } ) )  ->  E. s  e.  { v  e.  (SubGrp `  G
)  |  ( v 
C.  U  /\  A  e.  v ) } A. w  e.  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  -.  s  C.  w )
6115, 48, 59, 60syl3anc 1185 . . . . 5  |-  ( (
ph  /\  S  C.  U )  ->  E. s  e.  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) } A. w  e.  {
v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  -.  s  C.  w
)
62 psseq1 3423 . . . . . . . 8  |-  ( v  =  w  ->  (
v  C.  U  <->  w  C.  U ) )
63 eleq2 2504 . . . . . . . 8  |-  ( v  =  w  ->  ( A  e.  v  <->  A  e.  w ) )
6462, 63anbi12d 693 . . . . . . 7  |-  ( v  =  w  ->  (
( v  C.  U  /\  A  e.  v
)  <->  ( w  C.  U  /\  A  e.  w
) ) )
6564ralrab 3105 . . . . . 6  |-  ( A. w  e.  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  -.  s  C.  w  <->  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )
6665rexbii 2737 . . . . 5  |-  ( E. s  e.  { v  e.  (SubGrp `  G
)  |  ( v 
C.  U  /\  A  e.  v ) } A. w  e.  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  -.  s  C.  w  <->  E. s  e.  {
v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) } A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )
6761, 66sylib 190 . . . 4  |-  ( (
ph  /\  S  C.  U )  ->  E. s  e.  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) } A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )
6867ex 425 . . 3  |-  ( ph  ->  ( S  C.  U  ->  E. s  e.  {
v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) } A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) ) )
69 pgpfac1.3 . . . . 5  |-  ( ph  ->  A. s  e.  (SubGrp `  G ) ( ( s  C.  U  /\  A  e.  s )  ->  E. t  e.  (SubGrp `  G ) ( ( S  i^i  t )  =  {  .0.  }  /\  ( S  .(+)  t )  =  s ) ) )
70 psseq1 3423 . . . . . . 7  |-  ( v  =  s  ->  (
v  C.  U  <->  s  C.  U ) )
71 eleq2 2504 . . . . . . 7  |-  ( v  =  s  ->  ( A  e.  v  <->  A  e.  s ) )
7270, 71anbi12d 693 . . . . . 6  |-  ( v  =  s  ->  (
( v  C.  U  /\  A  e.  v
)  <->  ( s  C.  U  /\  A  e.  s ) ) )
7372ralrab 3105 . . . . 5  |-  ( A. s  e.  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) } E. t  e.  (SubGrp `  G )
( ( S  i^i  t )  =  {  .0.  }  /\  ( S 
.(+)  t )  =  s )  <->  A. s  e.  (SubGrp `  G )
( ( s  C.  U  /\  A  e.  s )  ->  E. t  e.  (SubGrp `  G )
( ( S  i^i  t )  =  {  .0.  }  /\  ( S 
.(+)  t )  =  s ) ) )
7469, 73sylibr 205 . . . 4  |-  ( ph  ->  A. s  e.  {
v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) } E. t  e.  (SubGrp `  G ) ( ( S  i^i  t )  =  {  .0.  }  /\  ( S  .(+)  t )  =  s ) )
75 r19.29 2853 . . . . 5  |-  ( ( A. s  e.  {
v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) } E. t  e.  (SubGrp `  G ) ( ( S  i^i  t )  =  {  .0.  }  /\  ( S  .(+)  t )  =  s )  /\  E. s  e.  { v  e.  (SubGrp `  G
)  |  ( v 
C.  U  /\  A  e.  v ) } A. w  e.  (SubGrp `  G
) ( ( w 
C.  U  /\  A  e.  w )  ->  -.  s  C.  w ) )  ->  E. s  e.  {
v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  ( E. t  e.  (SubGrp `  G )
( ( S  i^i  t )  =  {  .0.  }  /\  ( S 
.(+)  t )  =  s )  /\  A. w  e.  (SubGrp `  G
) ( ( w 
C.  U  /\  A  e.  w )  ->  -.  s  C.  w ) ) )
7672elrab 3101 . . . . . . 7  |-  ( s  e.  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  <->  ( s  e.  (SubGrp `  G )  /\  ( s  C.  U  /\  A  e.  s
) ) )
77 ineq2 3525 . . . . . . . . . . . 12  |-  ( t  =  v  ->  ( S  i^i  t )  =  ( S  i^i  v
) )
7877eqeq1d 2451 . . . . . . . . . . 11  |-  ( t  =  v  ->  (
( S  i^i  t
)  =  {  .0.  }  <-> 
( S  i^i  v
)  =  {  .0.  } ) )
79 oveq2 6125 . . . . . . . . . . . 12  |-  ( t  =  v  ->  ( S  .(+)  t )  =  ( S  .(+)  v ) )
8079eqeq1d 2451 . . . . . . . . . . 11  |-  ( t  =  v  ->  (
( S  .(+)  t )  =  s  <->  ( S  .(+) 
v )  =  s ) )
8178, 80anbi12d 693 . . . . . . . . . 10  |-  ( t  =  v  ->  (
( ( S  i^i  t )  =  {  .0.  }  /\  ( S 
.(+)  t )  =  s )  <->  ( ( S  i^i  v )  =  {  .0.  }  /\  ( S  .(+)  v )  =  s ) ) )
8281cbvrexv 2942 . . . . . . . . 9  |-  ( E. t  e.  (SubGrp `  G ) ( ( S  i^i  t )  =  {  .0.  }  /\  ( S  .(+)  t )  =  s )  <->  E. v  e.  (SubGrp `  G )
( ( S  i^i  v )  =  {  .0.  }  /\  ( S 
.(+)  v )  =  s ) )
83 simprrl 742 . . . . . . . . . . . . . . . 16  |-  ( (
ph  /\  ( s  e.  (SubGrp `  G )  /\  ( s  C.  U  /\  A  e.  s
) ) )  -> 
s  C.  U )
8483ad2antrr 708 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( ( S  i^i  v )  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G
) ( ( w 
C.  U  /\  A  e.  w )  ->  -.  s  C.  w ) ) )  ->  s  C.  U )
85 simpr2 965 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( ( S  i^i  v )  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G
) ( ( w 
C.  U  /\  A  e.  w )  ->  -.  s  C.  w ) ) )  ->  ( S  .(+) 
v )  =  s )
8685psseq1d 3428 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( ( S  i^i  v )  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G
) ( ( w 
C.  U  /\  A  e.  w )  ->  -.  s  C.  w ) ) )  ->  ( ( S  .(+)  v )  C.  U 
<->  s  C.  U ) )
8784, 86mpbird 225 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( ( S  i^i  v )  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G
) ( ( w 
C.  U  /\  A  e.  w )  ->  -.  s  C.  w ) ) )  ->  ( S  .(+) 
v )  C.  U
)
88 pssdif 3718 . . . . . . . . . . . . . . 15  |-  ( ( S  .(+)  v )  C.  U  ->  ( U 
\  ( S  .(+)  v ) )  =/=  (/) )
89 n0 3625 . . . . . . . . . . . . . . 15  |-  ( ( U  \  ( S 
.(+)  v ) )  =/=  (/)  <->  E. b  b  e.  ( U  \  ( S  .(+)  v ) ) )
9088, 89sylib 190 . . . . . . . . . . . . . 14  |-  ( ( S  .(+)  v )  C.  U  ->  E. b 
b  e.  ( U 
\  ( S  .(+)  v ) ) )
9187, 90syl 16 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( ( S  i^i  v )  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G
) ( ( w 
C.  U  /\  A  e.  w )  ->  -.  s  C.  w ) ) )  ->  E. b 
b  e.  ( U 
\  ( S  .(+)  v ) ) )
92 pgpfac1.o . . . . . . . . . . . . . . . 16  |-  O  =  ( od `  G
)
93 pgpfac1.e . . . . . . . . . . . . . . . 16  |-  E  =  (gEx `  G )
94 pgpfac1.z . . . . . . . . . . . . . . . 16  |-  .0.  =  ( 0g `  G )
95 pgpfac1.l . . . . . . . . . . . . . . . 16  |-  .(+)  =  (
LSSum `  G )
96 pgpfac1.p . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  P pGrp  G )
9796ad3antrrr 712 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( (
( S  i^i  v
)  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )  /\  b  e.  ( U  \  ( S  .(+)  v ) ) ) )  ->  P pGrp  G )
9817ad3antrrr 712 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( (
( S  i^i  v
)  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )  /\  b  e.  ( U  \  ( S  .(+)  v ) ) ) )  ->  G  e.  Abel )
991ad3antrrr 712 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( (
( S  i^i  v
)  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )  /\  b  e.  ( U  \  ( S  .(+)  v ) ) ) )  ->  B  e.  Fin )
100 pgpfac1.oe . . . . . . . . . . . . . . . . 17  |-  ( ph  ->  ( O `  A
)  =  E )
101100ad3antrrr 712 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( (
( S  i^i  v
)  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )  /\  b  e.  ( U  \  ( S  .(+)  v ) ) ) )  ->  ( O `  A )  =  E )
10223ad3antrrr 712 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( (
( S  i^i  v
)  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )  /\  b  e.  ( U  \  ( S  .(+)  v ) ) ) )  ->  U  e.  (SubGrp `  G )
)
10326ad3antrrr 712 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( (
( S  i^i  v
)  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )  /\  b  e.  ( U  \  ( S  .(+)  v ) ) ) )  ->  A  e.  U )
104 simplr 733 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( (
( S  i^i  v
)  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )  /\  b  e.  ( U  \  ( S  .(+)  v ) ) ) )  ->  v  e.  (SubGrp `  G )
)
105 simprl1 1003 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( (
( S  i^i  v
)  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )  /\  b  e.  ( U  \  ( S  .(+)  v ) ) ) )  ->  ( S  i^i  v )  =  {  .0.  } )
10687adantrr 699 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( (
( S  i^i  v
)  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )  /\  b  e.  ( U  \  ( S  .(+)  v ) ) ) )  ->  ( S  .(+)  v )  C.  U )
107106pssssd 3433 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( (
( S  i^i  v
)  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )  /\  b  e.  ( U  \  ( S  .(+)  v ) ) ) )  ->  ( S  .(+)  v )  C_  U )
108 simprl3 1005 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( (
( S  i^i  v
)  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )  /\  b  e.  ( U  \  ( S  .(+)  v ) ) ) )  ->  A. w  e.  (SubGrp `  G )
( ( w  C.  U  /\  A  e.  w
)  ->  -.  s  C.  w ) )
10985adantrr 699 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( (
( S  i^i  v
)  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )  /\  b  e.  ( U  \  ( S  .(+)  v ) ) ) )  ->  ( S  .(+)  v )  =  s )
110 psseq1 3423 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( S  .(+)  v )  =  s  ->  ( ( S  .(+)  v )  C.  y  <->  s  C.  y
) )
111110notbid 287 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( S  .(+)  v )  =  s  ->  ( -.  ( S  .(+)  v ) 
C.  y  <->  -.  s  C.  y ) )
112111imbi2d 309 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( S  .(+)  v )  =  s  ->  ( ( ( y  C.  U  /\  A  e.  y
)  ->  -.  ( S  .(+)  v )  C.  y )  <->  ( (
y  C.  U  /\  A  e.  y )  ->  -.  s  C.  y
) ) )
113112ralbidv 2732 . . . . . . . . . . . . . . . . . . 19  |-  ( ( S  .(+)  v )  =  s  ->  ( A. y  e.  (SubGrp `  G
) ( ( y 
C.  U  /\  A  e.  y )  ->  -.  ( S  .(+)  v ) 
C.  y )  <->  A. y  e.  (SubGrp `  G )
( ( y  C.  U  /\  A  e.  y )  ->  -.  s  C.  y ) ) )
114 psseq1 3423 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( y  =  w  ->  (
y  C.  U  <->  w  C.  U ) )
115 eleq2 2504 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( y  =  w  ->  ( A  e.  y  <->  A  e.  w ) )
116114, 115anbi12d 693 . . . . . . . . . . . . . . . . . . . . 21  |-  ( y  =  w  ->  (
( y  C.  U  /\  A  e.  y
)  <->  ( w  C.  U  /\  A  e.  w
) ) )
117 psseq2 3424 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( y  =  w  ->  (
s  C.  y  <->  s  C.  w ) )
118117notbid 287 . . . . . . . . . . . . . . . . . . . . 21  |-  ( y  =  w  ->  ( -.  s  C.  y  <->  -.  s  C.  w ) )
119116, 118imbi12d 313 . . . . . . . . . . . . . . . . . . . 20  |-  ( y  =  w  ->  (
( ( y  C.  U  /\  A  e.  y )  ->  -.  s  C.  y )  <->  ( (
w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) ) )
120119cbvralv 2941 . . . . . . . . . . . . . . . . . . 19  |-  ( A. y  e.  (SubGrp `  G
) ( ( y 
C.  U  /\  A  e.  y )  ->  -.  s  C.  y )  <->  A. w  e.  (SubGrp `  G )
( ( w  C.  U  /\  A  e.  w
)  ->  -.  s  C.  w ) )
121113, 120syl6bb 254 . . . . . . . . . . . . . . . . . 18  |-  ( ( S  .(+)  v )  =  s  ->  ( A. y  e.  (SubGrp `  G
) ( ( y 
C.  U  /\  A  e.  y )  ->  -.  ( S  .(+)  v ) 
C.  y )  <->  A. w  e.  (SubGrp `  G )
( ( w  C.  U  /\  A  e.  w
)  ->  -.  s  C.  w ) ) )
122109, 121syl 16 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( (
( S  i^i  v
)  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )  /\  b  e.  ( U  \  ( S  .(+)  v ) ) ) )  ->  ( A. y  e.  (SubGrp `  G ) ( ( y  C.  U  /\  A  e.  y )  ->  -.  ( S  .(+)  v )  C.  y )  <->  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) ) )
123108, 122mpbird 225 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( (
( S  i^i  v
)  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )  /\  b  e.  ( U  \  ( S  .(+)  v ) ) ) )  ->  A. y  e.  (SubGrp `  G )
( ( y  C.  U  /\  A  e.  y )  ->  -.  ( S  .(+)  v )  C.  y ) )
124 simprr 735 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( (
( S  i^i  v
)  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )  /\  b  e.  ( U  \  ( S  .(+)  v ) ) ) )  ->  b  e.  ( U  \  ( S  .(+)  v ) ) )
125 eqid 2443 . . . . . . . . . . . . . . . 16  |-  (.g `  G
)  =  (.g `  G
)
12628, 16, 5, 92, 93, 94, 95, 97, 98, 99, 101, 102, 103, 104, 105, 107, 123, 124, 125pgpfac1lem4 15674 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( (
( S  i^i  v
)  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
) )  /\  b  e.  ( U  \  ( S  .(+)  v ) ) ) )  ->  E. t  e.  (SubGrp `  G )
( ( S  i^i  t )  =  {  .0.  }  /\  ( S 
.(+)  t )  =  U ) )
127126expr 600 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( ( S  i^i  v )  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G
) ( ( w 
C.  U  /\  A  e.  w )  ->  -.  s  C.  w ) ) )  ->  ( b  e.  ( U  \  ( S  .(+)  v ) )  ->  E. t  e.  (SubGrp `  G ) ( ( S  i^i  t )  =  {  .0.  }  /\  ( S  .(+)  t )  =  U ) ) )
128127exlimdv 1648 . . . . . . . . . . . . 13  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( ( S  i^i  v )  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G
) ( ( w 
C.  U  /\  A  e.  w )  ->  -.  s  C.  w ) ) )  ->  ( E. b  b  e.  ( U  \  ( S  .(+)  v ) )  ->  E. t  e.  (SubGrp `  G )
( ( S  i^i  t )  =  {  .0.  }  /\  ( S 
.(+)  t )  =  U ) ) )
12991, 128mpd 15 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  ( s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  /\  ( ( S  i^i  v )  =  {  .0.  }  /\  ( S  .(+)  v )  =  s  /\  A. w  e.  (SubGrp `  G
) ( ( w 
C.  U  /\  A  e.  w )  ->  -.  s  C.  w ) ) )  ->  E. t  e.  (SubGrp `  G )
( ( S  i^i  t )  =  {  .0.  }  /\  ( S 
.(+)  t )  =  U ) )
1301293exp2 1172 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  ->  ( ( S  i^i  v )  =  {  .0.  }  ->  ( ( S  .(+)  v )  =  s  ->  ( A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
)  ->  E. t  e.  (SubGrp `  G )
( ( S  i^i  t )  =  {  .0.  }  /\  ( S 
.(+)  t )  =  U ) ) ) ) )
131130imp3a 422 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
s  e.  (SubGrp `  G )  /\  (
s  C.  U  /\  A  e.  s )
) )  /\  v  e.  (SubGrp `  G )
)  ->  ( (
( S  i^i  v
)  =  {  .0.  }  /\  ( S  .(+)  v )  =  s )  ->  ( A. w  e.  (SubGrp `  G )
( ( w  C.  U  /\  A  e.  w
)  ->  -.  s  C.  w )  ->  E. t  e.  (SubGrp `  G )
( ( S  i^i  t )  =  {  .0.  }  /\  ( S 
.(+)  t )  =  U ) ) ) )
132131rexlimdva 2837 . . . . . . . . 9  |-  ( (
ph  /\  ( s  e.  (SubGrp `  G )  /\  ( s  C.  U  /\  A  e.  s
) ) )  -> 
( E. v  e.  (SubGrp `  G )
( ( S  i^i  v )  =  {  .0.  }  /\  ( S 
.(+)  v )  =  s )  ->  ( A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
)  ->  E. t  e.  (SubGrp `  G )
( ( S  i^i  t )  =  {  .0.  }  /\  ( S 
.(+)  t )  =  U ) ) ) )
13382, 132syl5bi 210 . . . . . . . 8  |-  ( (
ph  /\  ( s  e.  (SubGrp `  G )  /\  ( s  C.  U  /\  A  e.  s
) ) )  -> 
( E. t  e.  (SubGrp `  G )
( ( S  i^i  t )  =  {  .0.  }  /\  ( S 
.(+)  t )  =  s )  ->  ( A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
)  ->  E. t  e.  (SubGrp `  G )
( ( S  i^i  t )  =  {  .0.  }  /\  ( S 
.(+)  t )  =  U ) ) ) )
134133imp3a 422 . . . . . . 7  |-  ( (
ph  /\  ( s  e.  (SubGrp `  G )  /\  ( s  C.  U  /\  A  e.  s
) ) )  -> 
( ( E. t  e.  (SubGrp `  G )
( ( S  i^i  t )  =  {  .0.  }  /\  ( S 
.(+)  t )  =  s )  /\  A. w  e.  (SubGrp `  G
) ( ( w 
C.  U  /\  A  e.  w )  ->  -.  s  C.  w ) )  ->  E. t  e.  (SubGrp `  G ) ( ( S  i^i  t )  =  {  .0.  }  /\  ( S  .(+)  t )  =  U ) ) )
13576, 134sylan2b 463 . . . . . 6  |-  ( (
ph  /\  s  e.  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) } )  ->  (
( E. t  e.  (SubGrp `  G )
( ( S  i^i  t )  =  {  .0.  }  /\  ( S 
.(+)  t )  =  s )  /\  A. w  e.  (SubGrp `  G
) ( ( w 
C.  U  /\  A  e.  w )  ->  -.  s  C.  w ) )  ->  E. t  e.  (SubGrp `  G ) ( ( S  i^i  t )  =  {  .0.  }  /\  ( S  .(+)  t )  =  U ) ) )
136135rexlimdva 2837 . . . . 5  |-  ( ph  ->  ( E. s  e. 
{ v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) }  ( E. t  e.  (SubGrp `  G )
( ( S  i^i  t )  =  {  .0.  }  /\  ( S 
.(+)  t )  =  s )  /\  A. w  e.  (SubGrp `  G
) ( ( w 
C.  U  /\  A  e.  w )  ->  -.  s  C.  w ) )  ->  E. t  e.  (SubGrp `  G ) ( ( S  i^i  t )  =  {  .0.  }  /\  ( S  .(+)  t )  =  U ) ) )
13775, 136syl5 31 . . . 4  |-  ( ph  ->  ( ( A. s  e.  { v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) } E. t  e.  (SubGrp `  G ) ( ( S  i^i  t )  =  {  .0.  }  /\  ( S  .(+)  t )  =  s )  /\  E. s  e.  { v  e.  (SubGrp `  G
)  |  ( v 
C.  U  /\  A  e.  v ) } A. w  e.  (SubGrp `  G
) ( ( w 
C.  U  /\  A  e.  w )  ->  -.  s  C.  w ) )  ->  E. t  e.  (SubGrp `  G ) ( ( S  i^i  t )  =  {  .0.  }  /\  ( S  .(+)  t )  =  U ) ) )
13874, 137mpand 658 . . 3  |-  ( ph  ->  ( E. s  e. 
{ v  e.  (SubGrp `  G )  |  ( v  C.  U  /\  A  e.  v ) } A. w  e.  (SubGrp `  G ) ( ( w  C.  U  /\  A  e.  w )  ->  -.  s  C.  w
)  ->  E. t  e.  (SubGrp `  G )
( ( S  i^i  t )  =  {  .0.  }  /\  ( S 
.(+)  t )  =  U ) ) )
13968, 138syld 43 . 2  |-  ( ph  ->  ( S  C.  U  ->  E. t  e.  (SubGrp `  G ) ( ( S  i^i  t )  =  {  .0.  }  /\  ( S  .(+)  t )  =  U ) ) )
140940subg 15003 . . . . . 6  |-  ( G  e.  Grp  ->  {  .0.  }  e.  (SubGrp `  G
) )
14119, 140syl 16 . . . . 5  |-  ( ph  ->  {  .0.  }  e.  (SubGrp `  G ) )
142141adantr 453 . . . 4  |-  ( (
ph  /\  S  =  U )  ->  {  .0.  }  e.  (SubGrp `  G
) )
14394subg0cl 14990 . . . . . . . 8  |-  ( S  e.  (SubGrp `  G
)  ->  .0.  e.  S )
14431, 143syl 16 . . . . . . 7  |-  ( ph  ->  .0.  e.  S )
145144snssd 3972 . . . . . 6  |-  ( ph  ->  {  .0.  }  C_  S )
146145adantr 453 . . . . 5  |-  ( (
ph  /\  S  =  U )  ->  {  .0.  } 
C_  S )
147 sseqin2 3548 . . . . 5  |-  ( {  .0.  }  C_  S  <->  ( S  i^i  {  .0.  } )  =  {  .0.  } )
148146, 147sylib 190 . . . 4  |-  ( (
ph  /\  S  =  U )  ->  ( S  i^i  {  .0.  }
)  =  {  .0.  } )
14995lsmss2 15338 . . . . . . 7  |-  ( ( S  e.  (SubGrp `  G )  /\  {  .0.  }  e.  (SubGrp `  G )  /\  {  .0.  }  C_  S )  ->  ( S  .(+)  {  .0.  } )  =  S )
15031, 141, 145, 149syl3anc 1185 . . . . . 6  |-  ( ph  ->  ( S  .(+)  {  .0.  } )  =  S )
151150eqeq1d 2451 . . . . 5  |-  ( ph  ->  ( ( S  .(+)  {  .0.  } )  =  U  <->  S  =  U
) )
152151biimpar 473 . . . 4  |-  ( (
ph  /\  S  =  U )  ->  ( S  .(+)  {  .0.  }
)  =  U )
153 ineq2 3525 . . . . . . 7  |-  ( t  =  {  .0.  }  ->  ( S  i^i  t
)  =  ( S  i^i  {  .0.  }
) )
154153eqeq1d 2451 . . . . . 6  |-  ( t  =  {  .0.  }  ->  ( ( S  i^i  t )  =  {  .0.  }  <->  ( S  i^i  {  .0.  } )  =  {  .0.  } ) )
155 oveq2 6125 . . . . . . 7  |-  ( t  =  {  .0.  }  ->  ( S  .(+)  t )  =  ( S  .(+)  {  .0.  } ) )
156155eqeq1d 2451 . . . . . 6  |-  ( t  =  {  .0.  }  ->  ( ( S  .(+)  t )  =  U  <->  ( S  .(+)  {  .0.  } )  =  U ) )
157154, 156anbi12d 693 . . . . 5  |-  ( t  =  {  .0.  }  ->  ( ( ( S  i^i  t )  =  {  .0.  }  /\  ( S  .(+)  t )  =  U )  <->  ( ( S  i^i  {  .0.  }
)  =  {  .0.  }  /\  ( S  .(+)  {  .0.  } )  =  U ) ) )
158157rspcev 3061 . . . 4  |-  ( ( {  .0.  }  e.  (SubGrp `  G )  /\  ( ( S  i^i  {  .0.  } )  =  {  .0.  }  /\  ( S  .(+)  {  .0.  } )  =  U ) )  ->  E. t  e.  (SubGrp `  G )
( ( S  i^i  t )  =  {  .0.  }  /\  ( S 
.(+)  t )  =  U ) )
159142, 148, 152, 158syl12anc 1183 . . 3  |-  ( (
ph  /\  S  =  U )  ->  E. t  e.  (SubGrp `  G )
( ( S  i^i  t )  =  {  .0.  }  /\  ( S 
.(+)  t )  =  U ) )
160159ex 425 . 2  |-  ( ph  ->  ( S  =  U  ->  E. t  e.  (SubGrp `  G ) ( ( S  i^i  t )  =  {  .0.  }  /\  ( S  .(+)  t )  =  U ) ) )
16128mrcsscl 13883 . . . . 5  |-  ( ( (SubGrp `  G )  e.  (Moore `  B )  /\  { A }  C_  U  /\  U  e.  (SubGrp `  G ) )  -> 
( K `  { A } )  C_  U
)
16222, 34, 23, 161syl3anc 1185 . . . 4  |-  ( ph  ->  ( K `  { A } )  C_  U
)
16316, 162syl5eqss 3381 . . 3  |-  ( ph  ->  S  C_  U )
164 sspss 3435 . . 3  |-  ( S 
C_  U  <->  ( S  C.  U  \/  S  =  U ) )
165163, 164sylib 190 . 2  |-  ( ph  ->  ( S  C.  U  \/  S  =  U
) )
166139, 160, 165mpjaod 372 1  |-  ( ph  ->  E. t  e.  (SubGrp `  G ) ( ( S  i^i  t )  =  {  .0.  }  /\  ( S  .(+)  t )  =  U ) )
Colors of variables: wff set class
Syntax hints:   -. wn 3    -> wi 4    <-> wb 178    \/ wo 359    /\ wa 360    /\ w3a 937   A.wal 1550   E.wex 1551    = wceq 1654    e. wcel 1728    =/= wne 2606   A.wral 2712   E.wrex 2713   {crab 2716    \ cdif 3306    i^i cin 3308    C_ wss 3309    C. wpss 3310   (/)c0 3616   ~Pcpw 3828   {csn 3843   U.cuni 4044   class class class wbr 4243    Or wor 4537   dom cdm 4913   ` cfv 5489  (class class class)co 6117   [ C.] crpss 6557   Fincfn 7145   cardccrd 7860   Basecbs 13507   0gc0g 13761  Moorecmre 13845  mrClscmrc 13846  ACScacs 13848   Grpcgrp 14723  .gcmg 14727  SubGrpcsubg 14976   odcod 15201  gExcgex 15202   pGrp cpgp 15203   LSSumclsm 15306   Abelcabel 15451
This theorem is referenced by:  pgpfac1  15676
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1556  ax-5 1567  ax-17 1628  ax-9 1669  ax-8 1690  ax-13 1730  ax-14 1732  ax-6 1747  ax-7 1752  ax-11 1764  ax-12 1954  ax-ext 2424  ax-rep 4351  ax-sep 4361  ax-nul 4369  ax-pow 4412  ax-pr 4438  ax-un 4736  ax-inf2 7632  ax-cnex 9084  ax-resscn 9085  ax-1cn 9086  ax-icn 9087  ax-addcl 9088  ax-addrcl 9089  ax-mulcl 9090  ax-mulrcl 9091  ax-mulcom 9092  ax-addass 9093  ax-mulass 9094  ax-distr 9095  ax-i2m1 9096  ax-1ne0 9097  ax-1rid 9098  ax-rnegex 9099  ax-rrecex 9100  ax-cnre 9101  ax-pre-lttri 9102  ax-pre-lttrn 9103  ax-pre-ltadd 9104  ax-pre-mulgt0 9105  ax-pre-sup 9106
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3or 938  df-3an 939  df-tru 1329  df-fal 1330  df-ex 1552  df-nf 1555  df-sb 1661  df-eu 2292  df-mo 2293  df-clab 2430  df-cleq 2436  df-clel 2439  df-nfc 2568  df-ne 2608  df-nel 2609  df-ral 2717  df-rex 2718  df-reu 2719  df-rmo 2720  df-rab 2721  df-v 2967  df-sbc 3171  df-csb 3271  df-dif 3312  df-un 3314  df-in 3316  df-ss 3323  df-pss 3325  df-nul 3617  df-if 3768  df-pw 3830  df-sn 3849  df-pr 3850  df-tp 3851  df-op 3852  df-uni 4045  df-int 4080  df-iun 4124  df-iin 4125  df-disj 4214  df-br 4244  df-opab 4298  df-mpt 4299  df-tr 4334  df-eprel 4529  df-id 4533  df-po 4538  df-so 4539  df-fr 4576  df-se 4577  df-we 4578  df-ord 4619  df-on 4620  df-lim 4621  df-suc 4622  df-om 4881  df-xp 4919  df-rel 4920  df-cnv 4921  df-co 4922  df-dm 4923  df-rn 4924  df-res 4925  df-ima 4926  df-iota 5453  df-fun 5491  df-fn 5492  df-f 5493  df-f1 5494  df-fo 5495  df-f1o 5496  df-fv 5497  df-isom 5498  df-ov 6120  df-oprab 6121  df-mpt2 6122  df-1st 6385  df-2nd 6386  df-rpss 6558  df-riota 6585  df-recs 6669  df-rdg 6704  df-1o 6760  df-2o 6761  df-oadd 6764  df-omul 6765  df-er 6941  df-ec 6943  df-qs 6947  df-map 7056  df-en 7146  df-dom 7147  df-sdom 7148  df-fin 7149  df-sup 7482  df-oi 7515  df-card 7864  df-acn 7867  df-cda 8086  df-pnf 9160  df-mnf 9161  df-xr 9162  df-ltxr 9163  df-le 9164  df-sub 9331  df-neg 9332  df-div 9716  df-nn 10039  df-2 10096  df-3 10097  df-n0 10260  df-z 10321  df-uz 10527  df-q 10613  df-rp 10651  df-fz 11082  df-fzo 11174  df-fl 11240  df-mod 11289  df-seq 11362  df-exp 11421  df-fac 11605  df-bc 11632  df-hash 11657  df-cj 11942  df-re 11943  df-im 11944  df-sqr 12078  df-abs 12079  df-clim 12320  df-sum 12518  df-dvds 12891  df-gcd 13045  df-prm 13118  df-pc 13249  df-ndx 13510  df-slot 13511  df-base 13512  df-sets 13513  df-ress 13514  df-plusg 13580  df-0g 13765  df-mre 13849  df-mrc 13850  df-acs 13852  df-mnd 14728  df-submnd 14777  df-grp 14850  df-minusg 14851  df-sbg 14852  df-mulg 14853  df-subg 14979  df-eqg 14981  df-ga 15105  df-cntz 15154  df-od 15205  df-gex 15206  df-pgp 15207  df-lsm 15308  df-cmn 15452  df-abl 15453
  Copyright terms: Public domain W3C validator