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

Theorem initoeu2lem1 16664
Description: Lemma 1 for initoeu2 16666. (Contributed by AV, 9-Apr-2020.)
Hypotheses
Ref Expression
initoeu1.c  |-  ( ph  ->  C  e.  Cat )
initoeu1.a  |-  ( ph  ->  A  e.  (InitO `  C ) )
initoeu2lem.x  |-  X  =  ( Base `  C
)
initoeu2lem.h  |-  H  =  ( Hom  `  C
)
initoeu2lem.i  |-  I  =  (  Iso  `  C
)
initoeu2lem.o  |-  .o.  =  (comp `  C )
Assertion
Ref Expression
initoeu2lem1  |-  ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X )  /\  ( K  e.  ( B I A )  /\  ( F ( <. B ,  A >.  .o.  D ) K )  e.  ( B H D ) ) )  ->  (
( E! f  f  e.  ( A H D )  /\  F  e.  ( A H D )  /\  G  e.  ( B H D ) )  ->  G  =  ( F (
<. B ,  A >.  .o. 
D ) K ) ) )
Distinct variable groups:    A, f    B, f    C, f    ph, f    D, f    f, F    f, G    f, I    f, K   
f, H    f, X    .o. , f

Proof of Theorem initoeu2lem1
StepHypRef Expression
1 eusn 4265 . . . 4  |-  ( E! f  f  e.  ( A H D )  <->  E. f ( A H D )  =  {
f } )
2 initoeu2lem.x . . . . . . . . . . . 12  |-  X  =  ( Base `  C
)
3 eqid 2622 . . . . . . . . . . . 12  |-  (Inv `  C )  =  (Inv
`  C )
4 initoeu1.c . . . . . . . . . . . . 13  |-  ( ph  ->  C  e.  Cat )
54ad2antrr 762 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X )
)  /\  K  e.  ( B I A ) )  ->  C  e.  Cat )
6 simpr2 1068 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  ->  B  e.  X )
76adantr 481 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X )
)  /\  K  e.  ( B I A ) )  ->  B  e.  X )
8 simpr1 1067 . . . . . . . . . . . . 13  |-  ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  ->  A  e.  X )
98adantr 481 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X )
)  /\  K  e.  ( B I A ) )  ->  A  e.  X )
10 initoeu2lem.i . . . . . . . . . . . 12  |-  I  =  (  Iso  `  C
)
112, 3, 5, 7, 9, 10invf 16428 . . . . . . . . . . 11  |-  ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X )
)  /\  K  e.  ( B I A ) )  ->  ( B
(Inv `  C ) A ) : ( B I A ) --> ( A I B ) )
12 simpr 477 . . . . . . . . . . 11  |-  ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X )
)  /\  K  e.  ( B I A ) )  ->  K  e.  ( B I A ) )
1311, 12ffvelrnd 6360 . . . . . . . . . 10  |-  ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X )
)  /\  K  e.  ( B I A ) )  ->  ( ( B (Inv `  C ) A ) `  K
)  e.  ( A I B ) )
14 initoeu2lem.h . . . . . . . . . . . . . . . . . 18  |-  H  =  ( Hom  `  C
)
154adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  ->  C  e.  Cat )
162, 14, 10, 15, 8, 6isohom 16436 . . . . . . . . . . . . . . . . 17  |-  ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  -> 
( A I B )  C_  ( A H B ) )
1716adantr 481 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X )
)  /\  K  e.  ( B I A ) )  ->  ( A I B )  C_  ( A H B ) )
1817sselda 3603 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  ->  (
( B (Inv `  C ) A ) `
 K )  e.  ( A H B ) )
19 initoeu2lem.o . . . . . . . . . . . . . . . . . 18  |-  .o.  =  (comp `  C )
2015ad4antr 768 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  /\  K  e.  ( B I A ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A I B ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A H B ) )  /\  G  e.  ( B H D ) )  ->  C  e.  Cat )
218ad4antr 768 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  /\  K  e.  ( B I A ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A I B ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A H B ) )  /\  G  e.  ( B H D ) )  ->  A  e.  X )
226ad4antr 768 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  /\  K  e.  ( B I A ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A I B ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A H B ) )  /\  G  e.  ( B H D ) )  ->  B  e.  X )
23 simpr3 1069 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  ->  D  e.  X )
2423ad4antr 768 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  /\  K  e.  ( B I A ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A I B ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A H B ) )  /\  G  e.  ( B H D ) )  ->  D  e.  X )
25 simplr 792 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  /\  K  e.  ( B I A ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A I B ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A H B ) )  /\  G  e.  ( B H D ) )  -> 
( ( B (Inv
`  C ) A ) `  K )  e.  ( A H B ) )
26 simpr 477 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  /\  K  e.  ( B I A ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A I B ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A H B ) )  /\  G  e.  ( B H D ) )  ->  G  e.  ( B H D ) )
272, 14, 19, 20, 21, 22, 24, 25, 26catcocl 16346 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  /\  K  e.  ( B I A ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A I B ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A H B ) )  /\  G  e.  ( B H D ) )  -> 
( G ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  e.  ( A H D ) )
2815ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A H B ) )  /\  ( F ( <. B ,  A >.  .o.  D ) K )  e.  ( B H D ) )  ->  C  e.  Cat )
298ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A H B ) )  /\  ( F ( <. B ,  A >.  .o.  D ) K )  e.  ( B H D ) )  ->  A  e.  X )
306ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A H B ) )  /\  ( F ( <. B ,  A >.  .o.  D ) K )  e.  ( B H D ) )  ->  B  e.  X )
3123ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A H B ) )  /\  ( F ( <. B ,  A >.  .o.  D ) K )  e.  ( B H D ) )  ->  D  e.  X )
32 simplr 792 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A H B ) )  /\  ( F ( <. B ,  A >.  .o.  D ) K )  e.  ( B H D ) )  ->  ( ( B (Inv `  C ) A ) `  K
)  e.  ( A H B ) )
33 simpr 477 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A H B ) )  /\  ( F ( <. B ,  A >.  .o.  D ) K )  e.  ( B H D ) )  ->  ( F
( <. B ,  A >.  .o.  D ) K )  e.  ( B H D ) )
342, 14, 19, 28, 29, 30, 31, 32, 33catcocl 16346 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A H B ) )  /\  ( F ( <. B ,  A >.  .o.  D ) K )  e.  ( B H D ) )  ->  ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  e.  ( A H D ) )
3534exp31 630 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  -> 
( ( ( B (Inv `  C ) A ) `  K
)  e.  ( A H B )  -> 
( ( F (
<. B ,  A >.  .o. 
D ) K )  e.  ( B H D )  ->  (
( F ( <. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  e.  ( A H D ) ) ) )
3635ad2antrr 762 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  ->  (
( ( B (Inv
`  C ) A ) `  K )  e.  ( A H B )  ->  (
( F ( <. B ,  A >.  .o. 
D ) K )  e.  ( B H D )  ->  (
( F ( <. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  e.  ( A H D ) ) ) )
3736imp 445 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A H B ) )  ->  (
( F ( <. B ,  A >.  .o. 
D ) K )  e.  ( B H D )  ->  (
( F ( <. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  e.  ( A H D ) ) )
38 eleq2 2690 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( A H D )  =  { f }  ->  ( ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  e.  ( A H D )  <->  ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o.  D )
( ( B (Inv
`  C ) A ) `  K ) )  e.  { f } ) )
3938adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  /\  ( A H D )  =  { f } )  ->  ( ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  e.  ( A H D )  <->  ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o.  D )
( ( B (Inv
`  C ) A ) `  K ) )  e.  { f } ) )
40 ovex 6678 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  e. 
_V
41 elsng 4191 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( F ( <. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  e.  _V  ->  (
( ( F (
<. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  e.  { f }  <-> 
( ( F (
<. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  =  f ) )
4240, 41mp1i 13 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  /\  ( A H D )  =  { f } )  ->  ( ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  e. 
{ f }  <->  ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  =  f ) )
4339, 42bitrd 268 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  /\  ( A H D )  =  { f } )  ->  ( ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  e.  ( A H D )  <->  ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o.  D )
( ( B (Inv
`  C ) A ) `  K ) )  =  f ) )
44 eleq2 2690 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( A H D )  =  { f }  ->  ( ( G ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  e.  ( A H D )  <->  ( G
( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  e.  { f } ) )
45 ovex 6678 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( G ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  e.  _V
46 elsng 4191 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( G ( <. A ,  B >.  .o.  D )
( ( B (Inv
`  C ) A ) `  K ) )  e.  _V  ->  ( ( G ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  e. 
{ f }  <->  ( G
( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  =  f ) )
4745, 46mp1i 13 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( A H D )  =  { f }  ->  ( ( G ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  e.  { f }  <-> 
( G ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  =  f ) )
4844, 47bitrd 268 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( A H D )  =  { f }  ->  ( ( G ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  e.  ( A H D )  <->  ( G
( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  =  f ) )
4948adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  /\  ( A H D )  =  { f } )  ->  ( ( G ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  e.  ( A H D )  <->  ( G
( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  =  f ) )
50 eqeq2 2633 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( f  =  ( G (
<. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  -> 
( ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o.  D )
( ( B (Inv
`  C ) A ) `  K ) )  =  f  <->  ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  =  ( G ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) ) ) )
5150eqcoms 2630 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( G ( <. A ,  B >.  .o.  D )
( ( B (Inv
`  C ) A ) `  K ) )  =  f  -> 
( ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o.  D )
( ( B (Inv
`  C ) A ) `  K ) )  =  f  <->  ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  =  ( G ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) ) ) )
5251adantl 482 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  /\  ( G ( <. A ,  B >.  .o.  D )
( ( B (Inv
`  C ) A ) `  K ) )  =  f )  ->  ( ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  =  f  <->  ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o.  D )
( ( B (Inv
`  C ) A ) `  K ) )  =  ( G ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) ) ) )
53 simp-4l 806 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ( ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  /\  K  e.  ( B I A ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A I B ) )  /\  ( ( F (
<. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  =  ( G (
<. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) ) )  /\  ( G  e.  ( B H D )  /\  F  e.  ( A H D ) ) )  -> 
( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X )
) )
54 simp-4r 807 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ( ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  /\  K  e.  ( B I A ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A I B ) )  /\  ( ( F (
<. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  =  ( G (
<. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) ) )  /\  ( G  e.  ( B H D )  /\  F  e.  ( A H D ) ) )  ->  K  e.  ( B I A ) )
55 simprr 796 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ( ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  /\  K  e.  ( B I A ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A I B ) )  /\  ( ( F (
<. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  =  ( G (
<. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) ) )  /\  ( G  e.  ( B H D )  /\  F  e.  ( A H D ) ) )  ->  F  e.  ( A H D ) )
56 simprl 794 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ( ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  /\  K  e.  ( B I A ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A I B ) )  /\  ( ( F (
<. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  =  ( G (
<. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) ) )  /\  ( G  e.  ( B H D )  /\  F  e.  ( A H D ) ) )  ->  G  e.  ( B H D ) )
57 simplr 792 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ( ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  /\  K  e.  ( B I A ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A I B ) )  /\  ( ( F (
<. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  =  ( G (
<. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) ) )  /\  ( G  e.  ( B H D )  /\  F  e.  ( A H D ) ) )  -> 
( ( F (
<. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  =  ( G (
<. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) ) )
58 initoeu1.a . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ph  ->  A  e.  (InitO `  C ) )
594, 58, 2, 14, 10, 19initoeu2lem0 16663 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X )
)  /\  ( K  e.  ( B I A )  /\  F  e.  ( A H D )  /\  G  e.  ( B H D ) )  /\  (
( F ( <. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  =  ( G (
<. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) ) )  ->  G  =  ( F ( <. B ,  A >.  .o.  D ) K ) )
6053, 54, 55, 56, 57, 59syl131anc 1339 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( ( ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  /\  K  e.  ( B I A ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A I B ) )  /\  ( ( F (
<. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  =  ( G (
<. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) ) )  /\  ( G  e.  ( B H D )  /\  F  e.  ( A H D ) ) )  ->  G  =  ( F
( <. B ,  A >.  .o.  D ) K ) )
6160exp43 640 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  ->  (
( ( F (
<. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  =  ( G (
<. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  -> 
( G  e.  ( B H D )  ->  ( F  e.  ( A H D )  ->  G  =  ( F ( <. B ,  A >.  .o.  D ) K ) ) ) ) )
6261adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  /\  ( G ( <. A ,  B >.  .o.  D )
( ( B (Inv
`  C ) A ) `  K ) )  =  f )  ->  ( ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  =  ( G ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  -> 
( G  e.  ( B H D )  ->  ( F  e.  ( A H D )  ->  G  =  ( F ( <. B ,  A >.  .o.  D ) K ) ) ) ) )
6352, 62sylbid 230 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  /\  ( G ( <. A ,  B >.  .o.  D )
( ( B (Inv
`  C ) A ) `  K ) )  =  f )  ->  ( ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  =  f  ->  ( G  e.  ( B H D )  ->  ( F  e.  ( A H D )  ->  G  =  ( F ( <. B ,  A >.  .o.  D ) K ) ) ) ) )
6463ex 450 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  ->  (
( G ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  =  f  ->  ( (
( F ( <. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  =  f  ->  ( G  e.  ( B H D )  ->  ( F  e.  ( A H D )  ->  G  =  ( F (
<. B ,  A >.  .o. 
D ) K ) ) ) ) ) )
6564adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  /\  ( A H D )  =  { f } )  ->  ( ( G ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  =  f  ->  (
( ( F (
<. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  =  f  ->  ( G  e.  ( B H D )  ->  ( F  e.  ( A H D )  ->  G  =  ( F (
<. B ,  A >.  .o. 
D ) K ) ) ) ) ) )
6649, 65sylbid 230 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  /\  ( A H D )  =  { f } )  ->  ( ( G ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  e.  ( A H D )  ->  (
( ( F (
<. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  =  f  ->  ( G  e.  ( B H D )  ->  ( F  e.  ( A H D )  ->  G  =  ( F (
<. B ,  A >.  .o. 
D ) K ) ) ) ) ) )
6766com23 86 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  /\  ( A H D )  =  { f } )  ->  ( ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  =  f  ->  ( ( G ( <. A ,  B >.  .o.  D )
( ( B (Inv
`  C ) A ) `  K ) )  e.  ( A H D )  -> 
( G  e.  ( B H D )  ->  ( F  e.  ( A H D )  ->  G  =  ( F ( <. B ,  A >.  .o.  D ) K ) ) ) ) ) )
6843, 67sylbid 230 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  /\  ( A H D )  =  { f } )  ->  ( ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  e.  ( A H D )  ->  ( ( G ( <. A ,  B >.  .o.  D )
( ( B (Inv
`  C ) A ) `  K ) )  e.  ( A H D )  -> 
( G  e.  ( B H D )  ->  ( F  e.  ( A H D )  ->  G  =  ( F ( <. B ,  A >.  .o.  D ) K ) ) ) ) ) )
6968com23 86 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  /\  ( A H D )  =  { f } )  ->  ( ( G ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  e.  ( A H D )  ->  (
( ( F (
<. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  e.  ( A H D )  ->  ( G  e.  ( B H D )  ->  ( F  e.  ( A H D )  ->  G  =  ( F (
<. B ,  A >.  .o. 
D ) K ) ) ) ) ) )
7069ex 450 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  ->  (
( A H D )  =  { f }  ->  ( ( G ( <. A ,  B >.  .o.  D )
( ( B (Inv
`  C ) A ) `  K ) )  e.  ( A H D )  -> 
( ( ( F ( <. B ,  A >.  .o.  D ) K ) ( <. A ,  B >.  .o.  D )
( ( B (Inv
`  C ) A ) `  K ) )  e.  ( A H D )  -> 
( G  e.  ( B H D )  ->  ( F  e.  ( A H D )  ->  G  =  ( F ( <. B ,  A >.  .o.  D ) K ) ) ) ) ) ) )
7170com24 95 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  ->  (
( ( F (
<. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  e.  ( A H D )  ->  (
( G ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  e.  ( A H D )  ->  ( ( A H D )  =  { f }  ->  ( G  e.  ( B H D )  -> 
( F  e.  ( A H D )  ->  G  =  ( F ( <. B ,  A >.  .o.  D ) K ) ) ) ) ) ) )
7271adantr 481 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A H B ) )  ->  (
( ( F (
<. B ,  A >.  .o. 
D ) K ) ( <. A ,  B >.  .o.  D ) ( ( B (Inv `  C ) A ) `
 K ) )  e.  ( A H D )  ->  (
( G ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  e.  ( A H D )  ->  ( ( A H D )  =  { f }  ->  ( G  e.  ( B H D )  -> 
( F  e.  ( A H D )  ->  G  =  ( F ( <. B ,  A >.  .o.  D ) K ) ) ) ) ) ) )
7337, 72syld 47 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A H B ) )  ->  (
( F ( <. B ,  A >.  .o. 
D ) K )  e.  ( B H D )  ->  (
( G ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  e.  ( A H D )  ->  ( ( A H D )  =  { f }  ->  ( G  e.  ( B H D )  -> 
( F  e.  ( A H D )  ->  G  =  ( F ( <. B ,  A >.  .o.  D ) K ) ) ) ) ) ) )
7473com25 99 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A H B ) )  ->  ( G  e.  ( B H D )  ->  (
( G ( <. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  e.  ( A H D )  ->  ( ( A H D )  =  { f }  ->  ( ( F ( <. B ,  A >.  .o. 
D ) K )  e.  ( B H D )  ->  ( F  e.  ( A H D )  ->  G  =  ( F (
<. B ,  A >.  .o. 
D ) K ) ) ) ) ) ) )
7574imp 445 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  /\  K  e.  ( B I A ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A I B ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A H B ) )  /\  G  e.  ( B H D ) )  -> 
( ( G (
<. A ,  B >.  .o. 
D ) ( ( B (Inv `  C
) A ) `  K ) )  e.  ( A H D )  ->  ( ( A H D )  =  { f }  ->  ( ( F ( <. B ,  A >.  .o. 
D ) K )  e.  ( B H D )  ->  ( F  e.  ( A H D )  ->  G  =  ( F (
<. B ,  A >.  .o. 
D ) K ) ) ) ) ) )
7627, 75mpd 15 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  /\  K  e.  ( B I A ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A I B ) )  /\  ( ( B (Inv
`  C ) A ) `  K )  e.  ( A H B ) )  /\  G  e.  ( B H D ) )  -> 
( ( A H D )  =  {
f }  ->  (
( F ( <. B ,  A >.  .o. 
D ) K )  e.  ( B H D )  ->  ( F  e.  ( A H D )  ->  G  =  ( F (
<. B ,  A >.  .o. 
D ) K ) ) ) ) )
7776ex 450 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A H B ) )  ->  ( G  e.  ( B H D )  ->  (
( A H D )  =  { f }  ->  ( ( F ( <. B ,  A >.  .o.  D ) K )  e.  ( B H D )  ->  ( F  e.  ( A H D )  ->  G  =  ( F ( <. B ,  A >.  .o.  D ) K ) ) ) ) ) )
7818, 77mpdan 702 . . . . . . . . . . . . . 14  |-  ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  ->  ( G  e.  ( B H D )  ->  (
( A H D )  =  { f }  ->  ( ( F ( <. B ,  A >.  .o.  D ) K )  e.  ( B H D )  ->  ( F  e.  ( A H D )  ->  G  =  ( F ( <. B ,  A >.  .o.  D ) K ) ) ) ) ) )
7978com15 101 . . . . . . . . . . . . 13  |-  ( F  e.  ( A H D )  ->  ( G  e.  ( B H D )  ->  (
( A H D )  =  { f }  ->  ( ( F ( <. B ,  A >.  .o.  D ) K )  e.  ( B H D )  ->  ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X )
)  /\  K  e.  ( B I A ) )  /\  ( ( B (Inv `  C
) A ) `  K )  e.  ( A I B ) )  ->  G  =  ( F ( <. B ,  A >.  .o.  D ) K ) ) ) ) ) )
8079imp 445 . . . . . . . . . . . 12  |-  ( ( F  e.  ( A H D )  /\  G  e.  ( B H D ) )  -> 
( ( A H D )  =  {
f }  ->  (
( F ( <. B ,  A >.  .o. 
D ) K )  e.  ( B H D )  ->  (
( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  ->  G  =  ( F (
<. B ,  A >.  .o. 
D ) K ) ) ) ) )
8180impcom 446 . . . . . . . . . . 11  |-  ( ( ( A H D )  =  { f }  /\  ( F  e.  ( A H D )  /\  G  e.  ( B H D ) ) )  -> 
( ( F (
<. B ,  A >.  .o. 
D ) K )  e.  ( B H D )  ->  (
( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  ->  G  =  ( F (
<. B ,  A >.  .o. 
D ) K ) ) ) )
8281com13 88 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
) )  /\  K  e.  ( B I A ) )  /\  (
( B (Inv `  C ) A ) `
 K )  e.  ( A I B ) )  ->  (
( F ( <. B ,  A >.  .o. 
D ) K )  e.  ( B H D )  ->  (
( ( A H D )  =  {
f }  /\  ( F  e.  ( A H D )  /\  G  e.  ( B H D ) ) )  ->  G  =  ( F
( <. B ,  A >.  .o.  D ) K ) ) ) )
8313, 82mpdan 702 . . . . . . . . 9  |-  ( ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X )
)  /\  K  e.  ( B I A ) )  ->  ( ( F ( <. B ,  A >.  .o.  D ) K )  e.  ( B H D )  ->  ( ( ( A H D )  =  { f }  /\  ( F  e.  ( A H D )  /\  G  e.  ( B H D ) ) )  ->  G  =  ( F
( <. B ,  A >.  .o.  D ) K ) ) ) )
8483expimpd 629 . . . . . . . 8  |-  ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X ) )  -> 
( ( K  e.  ( B I A )  /\  ( F ( <. B ,  A >.  .o.  D ) K )  e.  ( B H D ) )  ->  ( ( ( A H D )  =  { f }  /\  ( F  e.  ( A H D )  /\  G  e.  ( B H D ) ) )  ->  G  =  ( F
( <. B ,  A >.  .o.  D ) K ) ) ) )
85843impia 1261 . . . . . . 7  |-  ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X )  /\  ( K  e.  ( B I A )  /\  ( F ( <. B ,  A >.  .o.  D ) K )  e.  ( B H D ) ) )  ->  (
( ( A H D )  =  {
f }  /\  ( F  e.  ( A H D )  /\  G  e.  ( B H D ) ) )  ->  G  =  ( F
( <. B ,  A >.  .o.  D ) K ) ) )
8685com12 32 . . . . . 6  |-  ( ( ( A H D )  =  { f }  /\  ( F  e.  ( A H D )  /\  G  e.  ( B H D ) ) )  -> 
( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X
)  /\  ( K  e.  ( B I A )  /\  ( F ( <. B ,  A >.  .o.  D ) K )  e.  ( B H D ) ) )  ->  G  =  ( F ( <. B ,  A >.  .o.  D ) K ) ) )
8786ex 450 . . . . 5  |-  ( ( A H D )  =  { f }  ->  ( ( F  e.  ( A H D )  /\  G  e.  ( B H D ) )  ->  (
( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X )  /\  ( K  e.  ( B I A )  /\  ( F (
<. B ,  A >.  .o. 
D ) K )  e.  ( B H D ) ) )  ->  G  =  ( F ( <. B ,  A >.  .o.  D ) K ) ) ) )
8887exlimiv 1858 . . . 4  |-  ( E. f ( A H D )  =  {
f }  ->  (
( F  e.  ( A H D )  /\  G  e.  ( B H D ) )  ->  ( ( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X )  /\  ( K  e.  ( B I A )  /\  ( F ( <. B ,  A >.  .o.  D ) K )  e.  ( B H D ) ) )  ->  G  =  ( F (
<. B ,  A >.  .o. 
D ) K ) ) ) )
891, 88sylbi 207 . . 3  |-  ( E! f  f  e.  ( A H D )  ->  ( ( F  e.  ( A H D )  /\  G  e.  ( B H D ) )  ->  (
( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X )  /\  ( K  e.  ( B I A )  /\  ( F (
<. B ,  A >.  .o. 
D ) K )  e.  ( B H D ) ) )  ->  G  =  ( F ( <. B ,  A >.  .o.  D ) K ) ) ) )
90893impib 1262 . 2  |-  ( ( E! f  f  e.  ( A H D )  /\  F  e.  ( A H D )  /\  G  e.  ( B H D ) )  ->  (
( ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X )  /\  ( K  e.  ( B I A )  /\  ( F (
<. B ,  A >.  .o. 
D ) K )  e.  ( B H D ) ) )  ->  G  =  ( F ( <. B ,  A >.  .o.  D ) K ) ) )
9190com12 32 1  |-  ( (
ph  /\  ( A  e.  X  /\  B  e.  X  /\  D  e.  X )  /\  ( K  e.  ( B I A )  /\  ( F ( <. B ,  A >.  .o.  D ) K )  e.  ( B H D ) ) )  ->  (
( E! f  f  e.  ( A H D )  /\  F  e.  ( A H D )  /\  G  e.  ( B H D ) )  ->  G  =  ( F (
<. B ,  A >.  .o. 
D ) K ) ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 196    /\ wa 384    /\ w3a 1037    = wceq 1483   E.wex 1704    e. wcel 1990   E!weu 2470   _Vcvv 3200    C_ wss 3574   {csn 4177   <.cop 4183   ` cfv 5888  (class class class)co 6650   Basecbs 15857   Hom chom 15952  compcco 15953   Catccat 16325  Invcinv 16405    Iso ciso 16406  InitOcinito 16638
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1722  ax-4 1737  ax-5 1839  ax-6 1888  ax-7 1935  ax-8 1992  ax-9 1999  ax-10 2019  ax-11 2034  ax-12 2047  ax-13 2246  ax-ext 2602  ax-rep 4771  ax-sep 4781  ax-nul 4789  ax-pow 4843  ax-pr 4906  ax-un 6949
This theorem depends on definitions:  df-bi 197  df-or 385  df-an 386  df-3an 1039  df-tru 1486  df-ex 1705  df-nf 1710  df-sb 1881  df-eu 2474  df-mo 2475  df-clab 2609  df-cleq 2615  df-clel 2618  df-nfc 2753  df-ne 2795  df-ral 2917  df-rex 2918  df-reu 2919  df-rmo 2920  df-rab 2921  df-v 3202  df-sbc 3436  df-csb 3534  df-dif 3577  df-un 3579  df-in 3581  df-ss 3588  df-nul 3916  df-if 4087  df-pw 4160  df-sn 4178  df-pr 4180  df-op 4184  df-uni 4437  df-iun 4522  df-br 4654  df-opab 4713  df-mpt 4730  df-id 5024  df-xp 5120  df-rel 5121  df-cnv 5122  df-co 5123  df-dm 5124  df-rn 5125  df-res 5126  df-ima 5127  df-iota 5851  df-fun 5890  df-fn 5891  df-f 5892  df-f1 5893  df-fo 5894  df-f1o 5895  df-fv 5896  df-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-1st 7168  df-2nd 7169  df-cat 16329  df-cid 16330  df-sect 16407  df-inv 16408  df-iso 16409
This theorem is referenced by:  initoeu2lem2  16665
  Copyright terms: Public domain W3C validator