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

Theorem pgpfac1lem5 15638
Description: Lemma for pgpfac1 15639 (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 7403 . . . . . . . . . 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 14946 . . . . . . . . . . 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 2960 . . . . . . . . . . 11  |-  v  e. 
_V
98elpw 3806 . . . . . . . . . 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 3424 . . . . . . . 8  |-  ( (
ph  /\  S  C.  U )  ->  { v  e.  (SubGrp `  G
)  |  ( v 
C.  U  /\  A  e.  v ) }  C_  ~P B )
12 ssfi 7330 . . . . . . . 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 7836 . . . . . . 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 15418 . . . . . . . . . . . . 13  |-  ( G  e.  Abel  ->  G  e. 
Grp )
1917, 18syl 16 . . . . . . . . . . . 12  |-  ( ph  ->  G  e.  Grp )
205subgacs 14976 . . . . . . . . . . . 12  |-  ( G  e.  Grp  ->  (SubGrp `  G )  e.  (ACS
`  B ) )
21 acsmre 13878 . . . . . . . . . . . 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 14946 . . . . . . . . . . . . 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 3350 . . . . . . . . . . 11  |-  ( ph  ->  A  e.  B )
28 pgpfac1.k . . . . . . . . . . . 12  |-  K  =  (mrCls `  (SubGrp `  G
) )
2928mrcsncl 13838 . . . . . . . . . . 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 2521 . . . . . . . . 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 3944 . . . . . . . . . . . . 13  |-  ( ph  ->  { A }  C_  U )
3534, 25sstrd 3359 . . . . . . . . . . . 12  |-  ( ph  ->  { A }  C_  B )
3622, 28, 35mrcssidd 13851 . . . . . . . . . . 11  |-  ( ph  ->  { A }  C_  ( K `  { A } ) )
3736, 16syl6sseqr 3396 . . . . . . . . . 10  |-  ( ph  ->  { A }  C_  S )
38 snssg 3933 . . . . . . . . . . 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 3435 . . . . . . . . . 10  |-  ( v  =  S  ->  (
v  C.  U  <->  S  C.  U ) )
43 eleq2 2498 . . . . . . . . . 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 3053 . . . . . . . 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 3648 . . . . . . 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 7330 . . . . . . . . . . 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 8290 . . . . . . . . . 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 3350 . . . . . . . 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 1642 . . . . . 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 8386 . . . . . 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 3435 . . . . . . . 8  |-  ( v  =  w  ->  (
v  C.  U  <->  w  C.  U ) )
63 eleq2 2498 . . . . . . . 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 3097 . . . . . 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 2731 . . . . 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 3435 . . . . . . 7  |-  ( v  =  s  ->  (
v  C.  U  <->  s  C.  U ) )
71 eleq2 2498 . . . . . . 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 3097 . . . . 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 2847 . . . . 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 3093 . . . . . . 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 3537 . . . . . . . . . . . 12  |-  ( t  =  v  ->  ( S  i^i  t )  =  ( S  i^i  v
) )
7877eqeq1d 2445 . . . . . . . . . . 11  |-  ( t  =  v  ->  (
( S  i^i  t
)  =  {  .0.  }  <-> 
( S  i^i  v
)  =  {  .0.  } ) )
79 oveq2 6090 . . . . . . . . . . . 12  |-  ( t  =  v  ->  ( S  .(+)  t )  =  ( S  .(+)  v ) )
8079eqeq1d 2445 . . . . . . . . . . 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 2934 . . . . . . . . 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 3440 . . . . . . . . . . . . . . 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 3691 . . . . . . . . . . . . . . 15  |-  ( ( S  .(+)  v )  C.  U  ->  ( U 
\  ( S  .(+)  v ) )  =/=  (/) )
89 n0 3638 . . . . . . . . . . . . . . 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 3445 . . . . . . . . . . . . . . . 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 3435 . . . . . . . . . . . . . . . . . . . . . 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 2726 . . . . . . . . . . . . . . . . . . 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 3435 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( y  =  w  ->  (
y  C.  U  <->  w  C.  U ) )
115 eleq2 2498 . . . . . . . . . . . . . . . . . . . . . 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 3436 . . . . . . . . . . . . . . . . . . . . . 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 2933 . . . . . . . . . . . . . . . . . . 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 2437 . . . . . . . . . . . . . . . 16  |-  (.g `  G
)  =  (.g `  G
)
12628, 16, 5, 92, 93, 94, 95, 97, 98, 99, 101, 102, 103, 104, 105, 107, 123, 124, 125pgpfac1lem4 15637 . . . . . . . . . . . . . . 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 1647 . . . . . . . . . . . . 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 2831 . . . . . . . . 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 2831 . . . . 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 14966 . . . . . 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 14953 . . . . . . . 8  |-  ( S  e.  (SubGrp `  G
)  ->  .0.  e.  S )
14431, 143syl 16 . . . . . . 7  |-  ( ph  ->  .0.  e.  S )
145144snssd 3944 . . . . . 6  |-  ( ph  ->  {  .0.  }  C_  S )
146145adantr 453 . . . . 5  |-  ( (
ph  /\  S  =  U )  ->  {  .0.  } 
C_  S )
147 sseqin2 3561 . . . . 5  |-  ( {  .0.  }  C_  S  <->  ( S  i^i  {  .0.  } )  =  {  .0.  } )
148146, 147sylib 190 . . . 4  |-  ( (
ph  /\  S  =  U )  ->  ( S  i^i  {  .0.  }
)  =  {  .0.  } )
14995lsmss2 15301 . . . . . . 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 2445 . . . . 5  |-  ( ph  ->  ( ( S  .(+)  {  .0.  } )  =  U  <->  S  =  U
) )
152151biimpar 473 . . . 4  |-  ( (
ph  /\  S  =  U )  ->  ( S  .(+)  {  .0.  }
)  =  U )
153 ineq2 3537 . . . . . . 7  |-  ( t  =  {  .0.  }  ->  ( S  i^i  t
)  =  ( S  i^i  {  .0.  }
) )
154153eqeq1d 2445 . . . . . 6  |-  ( t  =  {  .0.  }  ->  ( ( S  i^i  t )  =  {  .0.  }  <->  ( S  i^i  {  .0.  } )  =  {  .0.  } ) )
155 oveq2 6090 . . . . . . 7  |-  ( t  =  {  .0.  }  ->  ( S  .(+)  t )  =  ( S  .(+)  {  .0.  } ) )
156155eqeq1d 2445 . . . . . 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 3053 . . . 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 13846 . . . . 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 3393 . . 3  |-  ( ph  ->  S  C_  U )
164 sspss 3447 . . 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 1653    e. wcel 1726    =/= wne 2600   A.wral 2706   E.wrex 2707   {crab 2710    \ cdif 3318    i^i cin 3320    C_ wss 3321    C. wpss 3322   (/)c0 3629   ~Pcpw 3800   {csn 3815   U.cuni 4016   class class class wbr 4213    Or wor 4503   dom cdm 4879   ` cfv 5455  (class class class)co 6082   [ C.] crpss 6522   Fincfn 7110   cardccrd 7823   Basecbs 13470   0gc0g 13724  Moorecmre 13808  mrClscmrc 13809  ACScacs 13811   Grpcgrp 14686  .gcmg 14690  SubGrpcsubg 14939   odcod 15164  gExcgex 15165   pGrp cpgp 15166   LSSumclsm 15269   Abelcabel 15414
This theorem is referenced by:  pgpfac1  15639
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1556  ax-5 1567  ax-17 1627  ax-9 1667  ax-8 1688  ax-13 1728  ax-14 1730  ax-6 1745  ax-7 1750  ax-11 1762  ax-12 1951  ax-ext 2418  ax-rep 4321  ax-sep 4331  ax-nul 4339  ax-pow 4378  ax-pr 4404  ax-un 4702  ax-inf2 7597  ax-cnex 9047  ax-resscn 9048  ax-1cn 9049  ax-icn 9050  ax-addcl 9051  ax-addrcl 9052  ax-mulcl 9053  ax-mulrcl 9054  ax-mulcom 9055  ax-addass 9056  ax-mulass 9057  ax-distr 9058  ax-i2m1 9059  ax-1ne0 9060  ax-1rid 9061  ax-rnegex 9062  ax-rrecex 9063  ax-cnre 9064  ax-pre-lttri 9065  ax-pre-lttrn 9066  ax-pre-ltadd 9067  ax-pre-mulgt0 9068  ax-pre-sup 9069
This theorem depends on definitions:  df-bi 179  df-or 361  df-an 362  df-3or 938  df-3an 939  df-tru 1329  df-ex 1552  df-nf 1555  df-sb 1660  df-eu 2286  df-mo 2287  df-clab 2424  df-cleq 2430  df-clel 2433  df-nfc 2562  df-ne 2602  df-nel 2603  df-ral 2711  df-rex 2712  df-reu 2713  df-rmo 2714  df-rab 2715  df-v 2959  df-sbc 3163  df-csb 3253  df-dif 3324  df-un 3326  df-in 3328  df-ss 3335  df-pss 3337  df-nul 3630  df-if 3741  df-pw 3802  df-sn 3821  df-pr 3822  df-tp 3823  df-op 3824  df-uni 4017  df-int 4052  df-iun 4096  df-iin 4097  df-disj 4184  df-br 4214  df-opab 4268  df-mpt 4269  df-tr 4304  df-eprel 4495  df-id 4499  df-po 4504  df-so 4505  df-fr 4542  df-se 4543  df-we 4544  df-ord 4585  df-on 4586  df-lim 4587  df-suc 4588  df-om 4847  df-xp 4885  df-rel 4886  df-cnv 4887  df-co 4888  df-dm 4889  df-rn 4890  df-res 4891  df-ima 4892  df-iota 5419  df-fun 5457  df-fn 5458  df-f 5459  df-f1 5460  df-fo 5461  df-f1o 5462  df-fv 5463  df-isom 5464  df-ov 6085  df-oprab 6086  df-mpt2 6087  df-1st 6350  df-2nd 6351  df-rpss 6523  df-riota 6550  df-recs 6634  df-rdg 6669  df-1o 6725  df-2o 6726  df-oadd 6729  df-omul 6730  df-er 6906  df-ec 6908  df-qs 6912  df-map 7021  df-en 7111  df-dom 7112  df-sdom 7113  df-fin 7114  df-sup 7447  df-oi 7480  df-card 7827  df-acn 7830  df-cda 8049  df-pnf 9123  df-mnf 9124  df-xr 9125  df-ltxr 9126  df-le 9127  df-sub 9294  df-neg 9295  df-div 9679  df-nn 10002  df-2 10059  df-3 10060  df-n0 10223  df-z 10284  df-uz 10490  df-q 10576  df-rp 10614  df-fz 11045  df-fzo 11137  df-fl 11203  df-mod 11252  df-seq 11325  df-exp 11384  df-fac 11568  df-bc 11595  df-hash 11620  df-cj 11905  df-re 11906  df-im 11907  df-sqr 12041  df-abs 12042  df-clim 12283  df-sum 12481  df-dvds 12854  df-gcd 13008  df-prm 13081  df-pc 13212  df-ndx 13473  df-slot 13474  df-base 13475  df-sets 13476  df-ress 13477  df-plusg 13543  df-0g 13728  df-mre 13812  df-mrc 13813  df-acs 13815  df-mnd 14691  df-submnd 14740  df-grp 14813  df-minusg 14814  df-sbg 14815  df-mulg 14816  df-subg 14942  df-eqg 14944  df-ga 15068  df-cntz 15117  df-od 15168  df-gex 15169  df-pgp 15170  df-lsm 15271  df-cmn 15415  df-abl 15416
  Copyright terms: Public domain W3C validator