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

Theorem catpropd 16369
Description: Two structures with the same base, hom-sets and composition operation are either both categories or neither. (Contributed by Mario Carneiro, 5-Jan-2017.)
Hypotheses
Ref Expression
catpropd.1  |-  ( ph  ->  ( Hom f  `  C )  =  ( Hom f  `  D ) )
catpropd.2  |-  ( ph  ->  (compf `  C )  =  (compf `  D ) )
catpropd.3  |-  ( ph  ->  C  e.  V )
catpropd.4  |-  ( ph  ->  D  e.  W )
Assertion
Ref Expression
catpropd  |-  ( ph  ->  ( C  e.  Cat  <->  D  e.  Cat ) )

Proof of Theorem catpropd
Dummy variables  f 
g  h  w  x  y  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 simpl 473 . . . . . . . . 9  |-  ( ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  ->  (
g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )
212ralimi 2953 . . . . . . . 8  |-  ( A. f  e.  ( x
( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C ) z ) ( ( g (
<. x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  ->  A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )
322ralimi 2953 . . . . . . 7  |-  ( A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  ->  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )
43adantl 482 . . . . . 6  |-  ( ( E. g  e.  ( x ( Hom  `  C
) x ) A. y  e.  ( Base `  C ) ( A. f  e.  ( y
( Hom  `  C ) x ) ( g ( <. y ,  x >. (comp `  C )
x ) f )  =  f  /\  A. f  e.  ( x
( Hom  `  C ) y ) ( f ( <. x ,  x >. (comp `  C )
y ) g )  =  f )  /\  A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  ->  A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C ) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )
54ralimi 2952 . . . . 5  |-  ( A. x  e.  ( Base `  C ) ( E. g  e.  ( x ( Hom  `  C
) x ) A. y  e.  ( Base `  C ) ( A. f  e.  ( y
( Hom  `  C ) x ) ( g ( <. y ,  x >. (comp `  C )
x ) f )  =  f  /\  A. f  e.  ( x
( Hom  `  C ) y ) ( f ( <. x ,  x >. (comp `  C )
y ) g )  =  f )  /\  A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  ->  A. x  e.  ( Base `  C ) A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )
65a1i 11 . . . 4  |-  ( ph  ->  ( A. x  e.  ( Base `  C
) ( E. g  e.  ( x ( Hom  `  C ) x ) A. y  e.  (
Base `  C )
( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  ->  A. x  e.  ( Base `  C ) A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) ) )
7 simpl 473 . . . . . . . . 9  |-  ( ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  ->  (
g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )
872ralimi 2953 . . . . . . . 8  |-  ( A. f  e.  ( x
( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C ) z ) ( ( g (
<. x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  ->  A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )
982ralimi 2953 . . . . . . 7  |-  ( A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  ->  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )
109adantl 482 . . . . . 6  |-  ( ( E. g  e.  ( x ( Hom  `  C
) x ) A. y  e.  ( Base `  C ) ( A. f  e.  ( y
( Hom  `  C ) x ) ( g ( <. y ,  x >. (comp `  C )
x ) f )  =  f  /\  A. f  e.  ( x
( Hom  `  C ) y ) ( f ( <. x ,  x >. (comp `  C )
y ) g )  =  f )  /\  A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  ->  A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C ) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )
1110ralimi 2952 . . . . 5  |-  ( A. x  e.  ( Base `  C ) ( E. g  e.  ( x ( Hom  `  C
) x ) A. y  e.  ( Base `  C ) ( A. f  e.  ( y
( Hom  `  C ) x ) ( g ( <. y ,  x >. (comp `  C )
x ) f )  =  f  /\  A. f  e.  ( x
( Hom  `  C ) y ) ( f ( <. x ,  x >. (comp `  C )
y ) g )  =  f )  /\  A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  ->  A. x  e.  ( Base `  C ) A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )
1211a1i 11 . . . 4  |-  ( ph  ->  ( A. x  e.  ( Base `  C
) ( E. g  e.  ( x ( Hom  `  C ) x ) A. y  e.  (
Base `  C )
( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  ->  A. x  e.  ( Base `  C ) A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) ) )
13 nfra1 2941 . . . . . . . 8  |-  F/ y A. y  e.  (
Base `  C ) A. z  e.  ( Base `  C ) A. f  e.  ( x
( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C ) z ) ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )
14 nfv 1843 . . . . . . . 8  |-  F/ x A. z  e.  ( Base `  C ) A. g  e.  ( y
( Hom  `  C ) z ) A. w  e.  ( Base `  C
) A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w )
15 nfra1 2941 . . . . . . . . . 10  |-  F/ z A. z  e.  (
Base `  C ) A. f  e.  (
x ( Hom  `  C
) y ) A. g  e.  ( y
( Hom  `  C ) z ) ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )
16 nfv 1843 . . . . . . . . . 10  |-  F/ y A. w  e.  (
Base `  C ) A. g  e.  (
x ( Hom  `  C
) z ) A. h  e.  ( z
( Hom  `  C ) w ) ( h ( <. x ,  z
>. (comp `  C )
w ) g )  e.  ( x ( Hom  `  C )
w )
17 nfra1 2941 . . . . . . . . . . . . . 14  |-  F/ g A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )
18 nfv 1843 . . . . . . . . . . . . . 14  |-  F/ f A. h  e.  ( y ( Hom  `  C
) z ) ( h ( <. x ,  y >. (comp `  C ) z ) g )  e.  ( x ( Hom  `  C
) z )
19 oveq1 6657 . . . . . . . . . . . . . . . . 17  |-  ( g  =  h  ->  (
g ( <. x ,  y >. (comp `  C ) z ) f )  =  ( h ( <. x ,  y >. (comp `  C ) z ) f ) )
2019eleq1d 2686 . . . . . . . . . . . . . . . 16  |-  ( g  =  h  ->  (
( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  <->  ( h
( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) ) )
2120cbvralv 3171 . . . . . . . . . . . . . . 15  |-  ( A. g  e.  ( y
( Hom  `  C ) z ) ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  <->  A. h  e.  ( y ( Hom  `  C ) z ) ( h ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )
22 oveq2 6658 . . . . . . . . . . . . . . . . 17  |-  ( f  =  g  ->  (
h ( <. x ,  y >. (comp `  C ) z ) f )  =  ( h ( <. x ,  y >. (comp `  C ) z ) g ) )
2322eleq1d 2686 . . . . . . . . . . . . . . . 16  |-  ( f  =  g  ->  (
( h ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  <->  ( h
( <. x ,  y
>. (comp `  C )
z ) g )  e.  ( x ( Hom  `  C )
z ) ) )
2423ralbidv 2986 . . . . . . . . . . . . . . 15  |-  ( f  =  g  ->  ( A. h  e.  (
y ( Hom  `  C
) z ) ( h ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  <->  A. h  e.  ( y ( Hom  `  C ) z ) ( h ( <.
x ,  y >.
(comp `  C )
z ) g )  e.  ( x ( Hom  `  C )
z ) ) )
2521, 24syl5bb 272 . . . . . . . . . . . . . 14  |-  ( f  =  g  ->  ( A. g  e.  (
y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  <->  A. h  e.  ( y ( Hom  `  C ) z ) ( h ( <.
x ,  y >.
(comp `  C )
z ) g )  e.  ( x ( Hom  `  C )
z ) ) )
2617, 18, 25cbvral 3167 . . . . . . . . . . . . 13  |-  ( A. f  e.  ( x
( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C ) z ) ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  <->  A. g  e.  ( x ( Hom  `  C ) y ) A. h  e.  ( y ( Hom  `  C
) z ) ( h ( <. x ,  y >. (comp `  C ) z ) g )  e.  ( x ( Hom  `  C
) z ) )
27 oveq2 6658 . . . . . . . . . . . . . . 15  |-  ( z  =  w  ->  (
y ( Hom  `  C
) z )  =  ( y ( Hom  `  C ) w ) )
28 oveq2 6658 . . . . . . . . . . . . . . . . 17  |-  ( z  =  w  ->  ( <. x ,  y >.
(comp `  C )
z )  =  (
<. x ,  y >.
(comp `  C )
w ) )
2928oveqd 6667 . . . . . . . . . . . . . . . 16  |-  ( z  =  w  ->  (
h ( <. x ,  y >. (comp `  C ) z ) g )  =  ( h ( <. x ,  y >. (comp `  C ) w ) g ) )
30 oveq2 6658 . . . . . . . . . . . . . . . 16  |-  ( z  =  w  ->  (
x ( Hom  `  C
) z )  =  ( x ( Hom  `  C ) w ) )
3129, 30eleq12d 2695 . . . . . . . . . . . . . . 15  |-  ( z  =  w  ->  (
( h ( <.
x ,  y >.
(comp `  C )
z ) g )  e.  ( x ( Hom  `  C )
z )  <->  ( h
( <. x ,  y
>. (comp `  C )
w ) g )  e.  ( x ( Hom  `  C )
w ) ) )
3227, 31raleqbidv 3152 . . . . . . . . . . . . . 14  |-  ( z  =  w  ->  ( A. h  e.  (
y ( Hom  `  C
) z ) ( h ( <. x ,  y >. (comp `  C ) z ) g )  e.  ( x ( Hom  `  C
) z )  <->  A. h  e.  ( y ( Hom  `  C ) w ) ( h ( <.
x ,  y >.
(comp `  C )
w ) g )  e.  ( x ( Hom  `  C )
w ) ) )
3332ralbidv 2986 . . . . . . . . . . . . 13  |-  ( z  =  w  ->  ( A. g  e.  (
x ( Hom  `  C
) y ) A. h  e.  ( y
( Hom  `  C ) z ) ( h ( <. x ,  y
>. (comp `  C )
z ) g )  e.  ( x ( Hom  `  C )
z )  <->  A. g  e.  ( x ( Hom  `  C ) y ) A. h  e.  ( y ( Hom  `  C
) w ) ( h ( <. x ,  y >. (comp `  C ) w ) g )  e.  ( x ( Hom  `  C
) w ) ) )
3426, 33syl5bb 272 . . . . . . . . . . . 12  |-  ( z  =  w  ->  ( A. f  e.  (
x ( Hom  `  C
) y ) A. g  e.  ( y
( Hom  `  C ) z ) ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  <->  A. g  e.  ( x ( Hom  `  C ) y ) A. h  e.  ( y ( Hom  `  C
) w ) ( h ( <. x ,  y >. (comp `  C ) w ) g )  e.  ( x ( Hom  `  C
) w ) ) )
3534cbvralv 3171 . . . . . . . . . . 11  |-  ( A. z  e.  ( Base `  C ) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  <->  A. w  e.  ( Base `  C
) A. g  e.  ( x ( Hom  `  C ) y ) A. h  e.  ( y ( Hom  `  C
) w ) ( h ( <. x ,  y >. (comp `  C ) w ) g )  e.  ( x ( Hom  `  C
) w ) )
36 oveq2 6658 . . . . . . . . . . . . 13  |-  ( y  =  z  ->  (
x ( Hom  `  C
) y )  =  ( x ( Hom  `  C ) z ) )
37 oveq1 6657 . . . . . . . . . . . . . 14  |-  ( y  =  z  ->  (
y ( Hom  `  C
) w )  =  ( z ( Hom  `  C ) w ) )
38 opeq2 4403 . . . . . . . . . . . . . . . . 17  |-  ( y  =  z  ->  <. x ,  y >.  =  <. x ,  z >. )
3938oveq1d 6665 . . . . . . . . . . . . . . . 16  |-  ( y  =  z  ->  ( <. x ,  y >.
(comp `  C )
w )  =  (
<. x ,  z >.
(comp `  C )
w ) )
4039oveqd 6667 . . . . . . . . . . . . . . 15  |-  ( y  =  z  ->  (
h ( <. x ,  y >. (comp `  C ) w ) g )  =  ( h ( <. x ,  z >. (comp `  C ) w ) g ) )
4140eleq1d 2686 . . . . . . . . . . . . . 14  |-  ( y  =  z  ->  (
( h ( <.
x ,  y >.
(comp `  C )
w ) g )  e.  ( x ( Hom  `  C )
w )  <->  ( h
( <. x ,  z
>. (comp `  C )
w ) g )  e.  ( x ( Hom  `  C )
w ) ) )
4237, 41raleqbidv 3152 . . . . . . . . . . . . 13  |-  ( y  =  z  ->  ( A. h  e.  (
y ( Hom  `  C
) w ) ( h ( <. x ,  y >. (comp `  C ) w ) g )  e.  ( x ( Hom  `  C
) w )  <->  A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
x ,  z >.
(comp `  C )
w ) g )  e.  ( x ( Hom  `  C )
w ) ) )
4336, 42raleqbidv 3152 . . . . . . . . . . . 12  |-  ( y  =  z  ->  ( A. g  e.  (
x ( Hom  `  C
) y ) A. h  e.  ( y
( Hom  `  C ) w ) ( h ( <. x ,  y
>. (comp `  C )
w ) g )  e.  ( x ( Hom  `  C )
w )  <->  A. g  e.  ( x ( Hom  `  C ) z ) A. h  e.  ( z ( Hom  `  C
) w ) ( h ( <. x ,  z >. (comp `  C ) w ) g )  e.  ( x ( Hom  `  C
) w ) ) )
4443ralbidv 2986 . . . . . . . . . . 11  |-  ( y  =  z  ->  ( A. w  e.  ( Base `  C ) A. g  e.  ( x
( Hom  `  C ) y ) A. h  e.  ( y ( Hom  `  C ) w ) ( h ( <.
x ,  y >.
(comp `  C )
w ) g )  e.  ( x ( Hom  `  C )
w )  <->  A. w  e.  ( Base `  C
) A. g  e.  ( x ( Hom  `  C ) z ) A. h  e.  ( z ( Hom  `  C
) w ) ( h ( <. x ,  z >. (comp `  C ) w ) g )  e.  ( x ( Hom  `  C
) w ) ) )
4535, 44syl5bb 272 . . . . . . . . . 10  |-  ( y  =  z  ->  ( A. z  e.  ( Base `  C ) A. f  e.  ( x
( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C ) z ) ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  <->  A. w  e.  ( Base `  C
) A. g  e.  ( x ( Hom  `  C ) z ) A. h  e.  ( z ( Hom  `  C
) w ) ( h ( <. x ,  z >. (comp `  C ) w ) g )  e.  ( x ( Hom  `  C
) w ) ) )
4615, 16, 45cbvral 3167 . . . . . . . . 9  |-  ( A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  <->  A. z  e.  ( Base `  C
) A. w  e.  ( Base `  C
) A. g  e.  ( x ( Hom  `  C ) z ) A. h  e.  ( z ( Hom  `  C
) w ) ( h ( <. x ,  z >. (comp `  C ) w ) g )  e.  ( x ( Hom  `  C
) w ) )
47 oveq1 6657 . . . . . . . . . . . . 13  |-  ( x  =  y  ->  (
x ( Hom  `  C
) z )  =  ( y ( Hom  `  C ) z ) )
48 opeq1 4402 . . . . . . . . . . . . . . . . 17  |-  ( x  =  y  ->  <. x ,  z >.  =  <. y ,  z >. )
4948oveq1d 6665 . . . . . . . . . . . . . . . 16  |-  ( x  =  y  ->  ( <. x ,  z >.
(comp `  C )
w )  =  (
<. y ,  z >.
(comp `  C )
w ) )
5049oveqd 6667 . . . . . . . . . . . . . . 15  |-  ( x  =  y  ->  (
h ( <. x ,  z >. (comp `  C ) w ) g )  =  ( h ( <. y ,  z >. (comp `  C ) w ) g ) )
51 oveq1 6657 . . . . . . . . . . . . . . 15  |-  ( x  =  y  ->  (
x ( Hom  `  C
) w )  =  ( y ( Hom  `  C ) w ) )
5250, 51eleq12d 2695 . . . . . . . . . . . . . 14  |-  ( x  =  y  ->  (
( h ( <.
x ,  z >.
(comp `  C )
w ) g )  e.  ( x ( Hom  `  C )
w )  <->  ( h
( <. y ,  z
>. (comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) ) )
5352ralbidv 2986 . . . . . . . . . . . . 13  |-  ( x  =  y  ->  ( A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. x ,  z >. (comp `  C ) w ) g )  e.  ( x ( Hom  `  C
) w )  <->  A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) ) )
5447, 53raleqbidv 3152 . . . . . . . . . . . 12  |-  ( x  =  y  ->  ( A. g  e.  (
x ( Hom  `  C
) z ) A. h  e.  ( z
( Hom  `  C ) w ) ( h ( <. x ,  z
>. (comp `  C )
w ) g )  e.  ( x ( Hom  `  C )
w )  <->  A. g  e.  ( y ( Hom  `  C ) z ) A. h  e.  ( z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w ) ) )
5554ralbidv 2986 . . . . . . . . . . 11  |-  ( x  =  y  ->  ( A. w  e.  ( Base `  C ) A. g  e.  ( x
( Hom  `  C ) z ) A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
x ,  z >.
(comp `  C )
w ) g )  e.  ( x ( Hom  `  C )
w )  <->  A. w  e.  ( Base `  C
) A. g  e.  ( y ( Hom  `  C ) z ) A. h  e.  ( z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w ) ) )
56 ralcom 3098 . . . . . . . . . . 11  |-  ( A. w  e.  ( Base `  C ) A. g  e.  ( y ( Hom  `  C ) z ) A. h  e.  ( z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w )  <->  A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w ) )
5755, 56syl6bb 276 . . . . . . . . . 10  |-  ( x  =  y  ->  ( A. w  e.  ( Base `  C ) A. g  e.  ( x
( Hom  `  C ) z ) A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
x ,  z >.
(comp `  C )
w ) g )  e.  ( x ( Hom  `  C )
w )  <->  A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w ) ) )
5857ralbidv 2986 . . . . . . . . 9  |-  ( x  =  y  ->  ( A. z  e.  ( Base `  C ) A. w  e.  ( Base `  C ) A. g  e.  ( x ( Hom  `  C ) z ) A. h  e.  ( z ( Hom  `  C
) w ) ( h ( <. x ,  z >. (comp `  C ) w ) g )  e.  ( x ( Hom  `  C
) w )  <->  A. z  e.  ( Base `  C
) A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w ) ) )
5946, 58syl5bb 272 . . . . . . . 8  |-  ( x  =  y  ->  ( A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C ) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  <->  A. z  e.  ( Base `  C
) A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w ) ) )
6013, 14, 59cbvral 3167 . . . . . . 7  |-  ( A. x  e.  ( Base `  C ) A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  <->  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w ) )
6160biimpi 206 . . . . . 6  |-  ( A. x  e.  ( Base `  C ) A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  ->  A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C ) A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w ) )
6261ancri 575 . . . . 5  |-  ( A. x  e.  ( Base `  C ) A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  -> 
( A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w )  /\  A. x  e.  ( Base `  C ) A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) ) )
63 r19.26 3064 . . . . . . . . . . . 12  |-  ( A. y  e.  ( Base `  C ) ( A. z  e.  ( Base `  C ) A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w )  /\  A. z  e.  ( Base `  C ) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )  <-> 
( A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w )  /\  A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) ) )
64 r19.26 3064 . . . . . . . . . . . . . . 15  |-  ( A. z  e.  ( Base `  C ) ( A. g  e.  ( y
( Hom  `  C ) z ) A. w  e.  ( Base `  C
) A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w )  /\  A. f  e.  ( x
( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C ) z ) ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  <->  ( A. z  e.  ( Base `  C ) A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w )  /\  A. z  e.  ( Base `  C ) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) ) )
65 r19.26 3064 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( A. g  e.  ( y
( Hom  `  C ) z ) ( A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w )  /\  (
g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )  <-> 
( A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w )  /\  A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) ) )
66 eqid 2622 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  ( Base `  C )  =  (
Base `  C )
67 eqid 2622 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  ( Hom  `  C )  =  ( Hom  `  C )
68 eqid 2622 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  (comp `  C )  =  (comp `  C )
69 eqid 2622 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  (comp `  D )  =  (comp `  D )
70 catpropd.1 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 39  |-  ( ph  ->  ( Hom f  `  C )  =  ( Hom f  `  D ) )
7170adantr 481 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38  |-  ( (
ph  /\  x  e.  ( Base `  C )
)  ->  ( Hom f  `  C
)  =  ( Hom f  `  D ) )
7271ad4antr 768 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37  |-  ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  ->  ( Hom f  `  C
)  =  ( Hom f  `  D ) )
7372ad4antr 768 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  ( ( ( ( ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  /\  ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) )  -> 
( Hom f  `  C )  =  ( Hom f  `  D ) )
74 catpropd.2 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38  |-  ( ph  ->  (compf `  C )  =  (compf `  D ) )
7574ad5antr 770 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37  |-  ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  ->  (compf `  C )  =  (compf `  D ) )
7675ad4antr 768 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  ( ( ( ( ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  /\  ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) )  -> 
(compf `  C )  =  (compf `  D ) )
77 simpllr 799 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 38  |-  ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  ->  x  e.  ( Base `  C ) )
7877ad2antrr 762 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37  |-  ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  ->  x  e.  ( Base `  C )
)
7978ad4antr 768 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  ( ( ( ( ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  /\  ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) )  ->  x  e.  ( Base `  C ) )
80 simp-4r 807 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37  |-  ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  ->  y  e.  ( Base `  C )
)
8180ad4antr 768 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  ( ( ( ( ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  /\  ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) )  -> 
y  e.  ( Base `  C ) )
82 simpllr 799 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  ( ( ( ( ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  /\  ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) )  ->  w  e.  ( Base `  C ) )
83 simplr 792 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37  |-  ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  ->  f  e.  ( x ( Hom  `  C ) y ) )
8483ad4antr 768 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  ( ( ( ( ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  /\  ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) )  -> 
f  e.  ( x ( Hom  `  C
) y ) )
85 simpr 477 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  ( ( ( ( ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  /\  ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) )  -> 
( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) )
8666, 67, 68, 69, 73, 76, 79, 81, 82, 84, 85comfeqval 16368 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( ( ( ( ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  /\  ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) )  -> 
( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( ( h ( <. y ,  z
>. (comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f ) )
87 simpllr 799 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 37  |-  ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  ->  z  e.  ( Base `  C )
)
8887ad4antr 768 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  ( ( ( ( ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  /\  ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) )  -> 
z  e.  ( Base `  C ) )
89 simp-4r 807 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  ( ( ( ( ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  /\  ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) )  -> 
( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )
90 simplr 792 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 36  |-  ( ( ( ( ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  /\  ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) )  ->  h  e.  ( z
( Hom  `  C ) w ) )
9166, 67, 68, 69, 73, 76, 79, 88, 82, 89, 90comfeqval 16368 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 35  |-  ( ( ( ( ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  /\  ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) )  -> 
( h ( <.
x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) )  =  ( h ( <. x ,  z
>. (comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )
9286, 91eqeq12d 2637 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 34  |-  ( ( ( ( ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  /\  ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) )  -> 
( ( ( h ( <. y ,  z
>. (comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) )  <->  ( ( h ( <. y ,  z
>. (comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )
9392ex 450 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 33  |-  ( ( ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  /\  g  e.  ( y
( Hom  `  C ) z ) )  /\  ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  -> 
( ( h (
<. y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w )  ->  (
( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) )  <->  ( ( h ( <. y ,  z
>. (comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) )
9493ralimdva 2962 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  /\  g  e.  ( y
( Hom  `  C ) z ) )  /\  ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  /\  w  e.  ( Base `  C ) )  -> 
( A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w )  ->  A. h  e.  ( z ( Hom  `  C ) w ) ( ( ( h ( <. y ,  z
>. (comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) )  <->  ( ( h ( <. y ,  z
>. (comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) )
95 ralbi 3068 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 32  |-  ( A. h  e.  ( z
( Hom  `  C ) w ) ( ( ( h ( <.
y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) )  <->  ( ( h ( <. y ,  z
>. (comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  ->  ( A. h  e.  (
z ( Hom  `  C
) w ) ( ( h ( <.
y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) )  <->  A. h  e.  ( z ( Hom  `  C
) w ) ( ( h ( <.
y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )
9694, 95syl6 35 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 31  |-  ( ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  /\  g  e.  ( y
( Hom  `  C ) z ) )  /\  ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  /\  w  e.  ( Base `  C ) )  -> 
( A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w )  ->  ( A. h  e.  (
z ( Hom  `  C
) w ) ( ( h ( <.
y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) )  <->  A. h  e.  ( z ( Hom  `  C
) w ) ( ( h ( <.
y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) )
9796ralimdva 2962 . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 30  |-  ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C
) )  /\  y  e.  ( Base `  C
) )  /\  z  e.  ( Base `  C
) )  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  -> 
( A. w  e.  ( Base `  C
) A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w )  ->  A. w  e.  ( Base `  C
) ( A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) )  <->  A. h  e.  ( z ( Hom  `  C
) w ) ( ( h ( <.
y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) )
9897impancom 456 . . . . . . . . . . . . . . . . . . . . . . . . . . . . 29  |-  ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C
) )  /\  y  e.  ( Base `  C
) )  /\  z  e.  ( Base `  C
) )  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  A. w  e.  ( Base `  C
) A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) )  -> 
( ( g (
<. x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  ->  A. w  e.  ( Base `  C
) ( A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) )  <->  A. h  e.  ( z ( Hom  `  C
) w ) ( ( h ( <.
y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) )
9998impr 649 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C
) )  /\  y  e.  ( Base `  C
) )  /\  z  e.  ( Base `  C
) )  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  ( A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w )  /\  (
g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) ) )  ->  A. w  e.  ( Base `  C
) ( A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) )  <->  A. h  e.  ( z ( Hom  `  C
) w ) ( ( h ( <.
y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )
100 ralbi 3068 . . . . . . . . . . . . . . . . . . . . . . . . . . . 28  |-  ( A. w  e.  ( Base `  C ) ( A. h  e.  ( z
( Hom  `  C ) w ) ( ( h ( <. y ,  z >. (comp `  C ) w ) g ) ( <.
x ,  y >.
(comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) )  <->  A. h  e.  ( z ( Hom  `  C
) w ) ( ( h ( <.
y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  ->  ( A. w  e.  ( Base `  C ) A. h  e.  ( z
( Hom  `  C ) w ) ( ( h ( <. y ,  z >. (comp `  C ) w ) g ) ( <.
x ,  y >.
(comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) )  <->  A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( ( h ( <.
y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )
10199, 100syl 17 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C
) )  /\  y  e.  ( Base `  C
) )  /\  z  e.  ( Base `  C
) )  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  ( A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w )  /\  (
g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) ) )  ->  ( A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) )  <->  A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( ( h ( <.
y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )
102101anbi2d 740 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C
) )  /\  y  e.  ( Base `  C
) )  /\  z  e.  ( Base `  C
) )  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  ( A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w )  /\  (
g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) ) )  ->  ( (
( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  ( (
g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) )
103102ex 450 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  ->  ( ( A. w  e.  ( Base `  C ) A. h  e.  ( z
( Hom  `  C ) w ) ( h ( <. y ,  z
>. (comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w )  /\  (
g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )  ->  ( ( ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  ( (
g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
104103ralimdva 2962 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  -> 
( A. g  e.  ( y ( Hom  `  C ) z ) ( A. w  e.  ( Base `  C
) A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w )  /\  (
g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )  ->  A. g  e.  ( y ( Hom  `  C
) z ) ( ( ( g (
<. x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  ( (
g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
10565, 104syl5bir 233 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  -> 
( ( A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w )  /\  A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )  ->  A. g  e.  ( y ( Hom  `  C
) z ) ( ( ( g (
<. x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  ( (
g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
106105expdimp 453 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w ) )  ->  ( A. g  e.  ( y ( Hom  `  C ) z ) ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  ->  A. g  e.  ( y ( Hom  `  C ) z ) ( ( ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  ( (
g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
107 ralbi 3068 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( A. g  e.  ( y
( Hom  `  C ) z ) ( ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  ( (
g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  -> 
( A. g  e.  ( y ( Hom  `  C ) z ) ( ( g (
<. x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. g  e.  ( y ( Hom  `  C ) z ) ( ( g (
<. x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) )
108106, 107syl6 35 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w ) )  ->  ( A. g  e.  ( y ( Hom  `  C ) z ) ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  ->  ( A. g  e.  (
y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. g  e.  ( y ( Hom  `  C ) z ) ( ( g (
<. x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
109108an32s 846 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w ) )  /\  f  e.  ( x ( Hom  `  C
) y ) )  ->  ( A. g  e.  ( y ( Hom  `  C ) z ) ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  ->  ( A. g  e.  (
y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. g  e.  ( y ( Hom  `  C ) z ) ( ( g (
<. x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
110109ralimdva 2962 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  A. g  e.  ( y ( Hom  `  C
) z ) A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) )  -> 
( A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  ->  A. f  e.  (
x ( Hom  `  C
) y ) ( A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. g  e.  ( y ( Hom  `  C ) z ) ( ( g (
<. x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
111 ralbi 3068 . . . . . . . . . . . . . . . . . . 19  |-  ( A. f  e.  ( x
( Hom  `  C ) y ) ( A. g  e.  ( y
( Hom  `  C ) z ) ( ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. g  e.  ( y ( Hom  `  C ) z ) ( ( g (
<. x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  -> 
( A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) )
112110, 111syl6 35 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  A. g  e.  ( y ( Hom  `  C
) z ) A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w ) )  -> 
( A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  -> 
( A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
113112expimpd 629 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  -> 
( ( A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w )  /\  A. f  e.  ( x ( Hom  `  C
) y ) A. g  e.  ( y
( Hom  `  C ) z ) ( g ( <. x ,  y
>. (comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  -> 
( A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
114113ralimdva 2962 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  x  e.  ( Base `  C
) )  /\  y  e.  ( Base `  C
) )  ->  ( A. z  e.  ( Base `  C ) ( A. g  e.  ( y ( Hom  `  C
) z ) A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w )  /\  A. f  e.  ( x
( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C ) z ) ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  ->  A. z  e.  ( Base `  C ) ( A. f  e.  ( x ( Hom  `  C
) y ) A. g  e.  ( y
( Hom  `  C ) z ) ( ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
115 ralbi 3068 . . . . . . . . . . . . . . . 16  |-  ( A. z  e.  ( Base `  C ) ( A. f  e.  ( x
( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C ) z ) ( ( g (
<. x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  -> 
( A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) )
116114, 115syl6 35 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  x  e.  ( Base `  C
) )  /\  y  e.  ( Base `  C
) )  ->  ( A. z  e.  ( Base `  C ) ( A. g  e.  ( y ( Hom  `  C
) z ) A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( h ( <.
y ,  z >.
(comp `  C )
w ) g )  e.  ( y ( Hom  `  C )
w )  /\  A. f  e.  ( x
( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C ) z ) ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z ) )  -> 
( A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
11764, 116syl5bir 233 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  x  e.  ( Base `  C
) )  /\  y  e.  ( Base `  C
) )  ->  (
( A. z  e.  ( Base `  C
) A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w )  /\  A. z  e.  ( Base `  C ) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )  ->  ( A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
118117ralimdva 2962 . . . . . . . . . . . . 13  |-  ( (
ph  /\  x  e.  ( Base `  C )
)  ->  ( A. y  e.  ( Base `  C ) ( A. z  e.  ( Base `  C ) A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w )  /\  A. z  e.  ( Base `  C ) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )  ->  A. y  e.  (
Base `  C )
( A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
119 ralbi 3068 . . . . . . . . . . . . 13  |-  ( A. y  e.  ( Base `  C ) ( A. z  e.  ( Base `  C ) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  -> 
( A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) )
120118, 119syl6 35 . . . . . . . . . . . 12  |-  ( (
ph  /\  x  e.  ( Base `  C )
)  ->  ( A. y  e.  ( Base `  C ) ( A. z  e.  ( Base `  C ) A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w )  /\  A. z  e.  ( Base `  C ) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )  ->  ( A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
12163, 120syl5bir 233 . . . . . . . . . . 11  |-  ( (
ph  /\  x  e.  ( Base `  C )
)  ->  ( ( A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C ) A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w )  /\  A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )  ->  ( A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
122121imp 445 . . . . . . . . . 10  |-  ( ( ( ph  /\  x  e.  ( Base `  C
) )  /\  ( A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C ) A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w )  /\  A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) ) )  ->  ( A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) )
123122an4s 869 . . . . . . . . 9  |-  ( ( ( ph  /\  A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w ) )  /\  ( x  e.  ( Base `  C
)  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) ) )  ->  ( A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) )
124123anbi2d 740 . . . . . . . 8  |-  ( ( ( ph  /\  A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w ) )  /\  ( x  e.  ( Base `  C
)  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) ) )  ->  ( ( E. g  e.  (
x ( Hom  `  C
) x ) A. y  e.  ( Base `  C ) ( A. f  e.  ( y
( Hom  `  C ) x ) ( g ( <. y ,  x >. (comp `  C )
x ) f )  =  f  /\  A. f  e.  ( x
( Hom  `  C ) y ) ( f ( <. x ,  x >. (comp `  C )
y ) g )  =  f )  /\  A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  <->  ( E. g  e.  ( x
( Hom  `  C ) x ) A. y  e.  ( Base `  C
) ( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
125124expr 643 . . . . . . 7  |-  ( ( ( ph  /\  A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w ) )  /\  x  e.  (
Base `  C )
)  ->  ( A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  -> 
( ( E. g  e.  ( x ( Hom  `  C ) x ) A. y  e.  (
Base `  C )
( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  <->  ( E. g  e.  ( x
( Hom  `  C ) x ) A. y  e.  ( Base `  C
) ( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) ) )
126125ralimdva 2962 . . . . . 6  |-  ( (
ph  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w ) )  ->  ( A. x  e.  ( Base `  C
) A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  ->  A. x  e.  ( Base `  C ) ( ( E. g  e.  ( x ( Hom  `  C ) x ) A. y  e.  (
Base `  C )
( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  <->  ( E. g  e.  ( x
( Hom  `  C ) x ) A. y  e.  ( Base `  C
) ( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) ) )
127126expimpd 629 . . . . 5  |-  ( ph  ->  ( ( A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. g  e.  ( y ( Hom  `  C ) z ) A. w  e.  (
Base `  C ) A. h  e.  (
z ( Hom  `  C
) w ) ( h ( <. y ,  z >. (comp `  C ) w ) g )  e.  ( y ( Hom  `  C
) w )  /\  A. x  e.  ( Base `  C ) A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z ) )  ->  A. x  e.  (
Base `  C )
( ( E. g  e.  ( x ( Hom  `  C ) x ) A. y  e.  (
Base `  C )
( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  <->  ( E. g  e.  ( x
( Hom  `  C ) x ) A. y  e.  ( Base `  C
) ( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) ) )
128 ralbi 3068 . . . . 5  |-  ( A. x  e.  ( Base `  C ) ( ( E. g  e.  ( x ( Hom  `  C
) x ) A. y  e.  ( Base `  C ) ( A. f  e.  ( y
( Hom  `  C ) x ) ( g ( <. y ,  x >. (comp `  C )
x ) f )  =  f  /\  A. f  e.  ( x
( Hom  `  C ) y ) ( f ( <. x ,  x >. (comp `  C )
y ) g )  =  f )  /\  A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  <->  ( E. g  e.  ( x
( Hom  `  C ) x ) A. y  e.  ( Base `  C
) ( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) )  ->  ( A. x  e.  ( Base `  C
) ( E. g  e.  ( x ( Hom  `  C ) x ) A. y  e.  (
Base `  C )
( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  <->  A. x  e.  ( Base `  C
) ( E. g  e.  ( x ( Hom  `  C ) x ) A. y  e.  (
Base `  C )
( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
12962, 127, 128syl56 36 . . . 4  |-  ( ph  ->  ( A. x  e.  ( Base `  C
) A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  -> 
( A. x  e.  ( Base `  C
) ( E. g  e.  ( x ( Hom  `  C ) x ) A. y  e.  (
Base `  C )
( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  <->  A. x  e.  ( Base `  C
) ( E. g  e.  ( x ( Hom  `  C ) x ) A. y  e.  (
Base `  C )
( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) ) )
1306, 12, 129pm5.21ndd 369 . . 3  |-  ( ph  ->  ( A. x  e.  ( Base `  C
) ( E. g  e.  ( x ( Hom  `  C ) x ) A. y  e.  (
Base `  C )
( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  <->  A. x  e.  ( Base `  C
) ( E. g  e.  ( x ( Hom  `  C ) x ) A. y  e.  (
Base `  C )
( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
13170homfeqbas 16356 . . . 4  |-  ( ph  ->  ( Base `  C
)  =  ( Base `  D ) )
132 eqid 2622 . . . . . . 7  |-  ( Hom  `  D )  =  ( Hom  `  D )
133 simpr 477 . . . . . . 7  |-  ( (
ph  /\  x  e.  ( Base `  C )
)  ->  x  e.  ( Base `  C )
)
13466, 67, 132, 71, 133, 133homfeqval 16357 . . . . . 6  |-  ( (
ph  /\  x  e.  ( Base `  C )
)  ->  ( x
( Hom  `  C ) x )  =  ( x ( Hom  `  D
) x ) )
135131ad2antrr 762 . . . . . . 7  |-  ( ( ( ph  /\  x  e.  ( Base `  C
) )  /\  g  e.  ( x ( Hom  `  C ) x ) )  ->  ( Base `  C )  =  (
Base `  D )
)
13671ad2antrr 762 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  -> 
( Hom f  `  C )  =  ( Hom f  `  D ) )
137 simpr 477 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  -> 
y  e.  ( Base `  C ) )
138 simpllr 799 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  ->  x  e.  ( Base `  C ) )
13966, 67, 132, 136, 137, 138homfeqval 16357 . . . . . . . . 9  |-  ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  -> 
( y ( Hom  `  C ) x )  =  ( y ( Hom  `  D )
x ) )
14070ad4antr 768 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  /\  f  e.  ( y
( Hom  `  C ) x ) )  -> 
( Hom f  `  C )  =  ( Hom f  `  D ) )
14174ad4antr 768 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  /\  f  e.  ( y
( Hom  `  C ) x ) )  -> 
(compf `  C )  =  (compf `  D ) )
142 simplr 792 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  /\  f  e.  ( y
( Hom  `  C ) x ) )  -> 
y  e.  ( Base `  C ) )
143 simp-4r 807 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  /\  f  e.  ( y
( Hom  `  C ) x ) )  ->  x  e.  ( Base `  C ) )
144 simpr 477 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  /\  f  e.  ( y
( Hom  `  C ) x ) )  -> 
f  e.  ( y ( Hom  `  C
) x ) )
145 simpllr 799 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  /\  f  e.  ( y
( Hom  `  C ) x ) )  -> 
g  e.  ( x ( Hom  `  C
) x ) )
14666, 67, 68, 69, 140, 141, 142, 143, 143, 144, 145comfeqval 16368 . . . . . . . . . 10  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  /\  f  e.  ( y
( Hom  `  C ) x ) )  -> 
( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  ( g ( <. y ,  x >. (comp `  D
) x ) f ) )
147146eqeq1d 2624 . . . . . . . . 9  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  /\  f  e.  ( y
( Hom  `  C ) x ) )  -> 
( ( g (
<. y ,  x >. (comp `  C ) x ) f )  =  f  <-> 
( g ( <.
y ,  x >. (comp `  D ) x ) f )  =  f ) )
148139, 147raleqbidva 3154 . . . . . . . 8  |-  ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  -> 
( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  <->  A. f  e.  (
y ( Hom  `  D
) x ) ( g ( <. y ,  x >. (comp `  D
) x ) f )  =  f ) )
14966, 67, 132, 136, 138, 137homfeqval 16357 . . . . . . . . 9  |-  ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  -> 
( x ( Hom  `  C ) y )  =  ( x ( Hom  `  D )
y ) )
15070ad4antr 768 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  -> 
( Hom f  `  C )  =  ( Hom f  `  D ) )
15174ad4antr 768 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  -> 
(compf `  C )  =  (compf `  D ) )
152 simp-4r 807 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  ->  x  e.  ( Base `  C ) )
153 simplr 792 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  -> 
y  e.  ( Base `  C ) )
154 simpllr 799 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  -> 
g  e.  ( x ( Hom  `  C
) x ) )
155 simpr 477 . . . . . . . . . . 11  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  -> 
f  e.  ( x ( Hom  `  C
) y ) )
15666, 67, 68, 69, 150, 151, 152, 152, 153, 154, 155comfeqval 16368 . . . . . . . . . 10  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  -> 
( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  ( f ( <. x ,  x >. (comp `  D
) y ) g ) )
157156eqeq1d 2624 . . . . . . . . 9  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  -> 
( ( f (
<. x ,  x >. (comp `  C ) y ) g )  =  f  <-> 
( f ( <.
x ,  x >. (comp `  D ) y ) g )  =  f ) )
158149, 157raleqbidva 3154 . . . . . . . 8  |-  ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  -> 
( A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f  <->  A. f  e.  (
x ( Hom  `  D
) y ) ( f ( <. x ,  x >. (comp `  D
) y ) g )  =  f ) )
159148, 158anbi12d 747 . . . . . . 7  |-  ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  g  e.  ( x
( Hom  `  C ) x ) )  /\  y  e.  ( Base `  C ) )  -> 
( ( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  <->  ( A. f  e.  ( y ( Hom  `  D ) x ) ( g ( <.
y ,  x >. (comp `  D ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  D ) y ) ( f ( <.
x ,  x >. (comp `  D ) y ) g )  =  f ) ) )
160135, 159raleqbidva 3154 . . . . . 6  |-  ( ( ( ph  /\  x  e.  ( Base `  C
) )  /\  g  e.  ( x ( Hom  `  C ) x ) )  ->  ( A. y  e.  ( Base `  C ) ( A. f  e.  ( y
( Hom  `  C ) x ) ( g ( <. y ,  x >. (comp `  C )
x ) f )  =  f  /\  A. f  e.  ( x
( Hom  `  C ) y ) ( f ( <. x ,  x >. (comp `  C )
y ) g )  =  f )  <->  A. y  e.  ( Base `  D
) ( A. f  e.  ( y ( Hom  `  D ) x ) ( g ( <.
y ,  x >. (comp `  D ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  D ) y ) ( f ( <.
x ,  x >. (comp `  D ) y ) g )  =  f ) ) )
161134, 160rexeqbidva 3155 . . . . 5  |-  ( (
ph  /\  x  e.  ( Base `  C )
)  ->  ( E. g  e.  ( x
( Hom  `  C ) x ) A. y  e.  ( Base `  C
) ( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  <->  E. g  e.  ( x ( Hom  `  D
) x ) A. y  e.  ( Base `  D ) ( A. f  e.  ( y
( Hom  `  D ) x ) ( g ( <. y ,  x >. (comp `  D )
x ) f )  =  f  /\  A. f  e.  ( x
( Hom  `  D ) y ) ( f ( <. x ,  x >. (comp `  D )
y ) g )  =  f ) ) )
162131adantr 481 . . . . . 6  |-  ( (
ph  /\  x  e.  ( Base `  C )
)  ->  ( Base `  C )  =  (
Base `  D )
)
163162adantr 481 . . . . . . 7  |-  ( ( ( ph  /\  x  e.  ( Base `  C
) )  /\  y  e.  ( Base `  C
) )  ->  ( Base `  C )  =  ( Base `  D
) )
16471ad2antrr 762 . . . . . . . . 9  |-  ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  -> 
( Hom f  `  C )  =  ( Hom f  `  D ) )
165 simplr 792 . . . . . . . . 9  |-  ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  -> 
y  e.  ( Base `  C ) )
16666, 67, 132, 164, 77, 165homfeqval 16357 . . . . . . . 8  |-  ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  -> 
( x ( Hom  `  C ) y )  =  ( x ( Hom  `  D )
y ) )
167 simpr 477 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  -> 
z  e.  ( Base `  C ) )
16866, 67, 132, 164, 165, 167homfeqval 16357 . . . . . . . . . 10  |-  ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  -> 
( y ( Hom  `  C ) z )  =  ( y ( Hom  `  D )
z ) )
169168adantr 481 . . . . . . . . 9  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  -> 
( y ( Hom  `  C ) z )  =  ( y ( Hom  `  D )
z ) )
170 simpr 477 . . . . . . . . . . . 12  |-  ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  ->  g  e.  ( y ( Hom  `  C ) z ) )
17166, 67, 68, 69, 72, 75, 78, 80, 87, 83, 170comfeqval 16368 . . . . . . . . . . 11  |-  ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  ->  ( g
( <. x ,  y
>. (comp `  C )
z ) f )  =  ( g (
<. x ,  y >.
(comp `  D )
z ) f ) )
17266, 67, 132, 164, 77, 167homfeqval 16357 . . . . . . . . . . . 12  |-  ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  -> 
( x ( Hom  `  C ) z )  =  ( x ( Hom  `  D )
z ) )
173172ad2antrr 762 . . . . . . . . . . 11  |-  ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  ->  ( x
( Hom  `  C ) z )  =  ( x ( Hom  `  D
) z ) )
174171, 173eleq12d 2695 . . . . . . . . . 10  |-  ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  ->  ( (
g ( <. x ,  y >. (comp `  C ) z ) f )  e.  ( x ( Hom  `  C
) z )  <->  ( g
( <. x ,  y
>. (comp `  D )
z ) f )  e.  ( x ( Hom  `  D )
z ) ) )
175162ad4antr 768 . . . . . . . . . . 11  |-  ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  ->  ( Base `  C )  =  (
Base `  D )
)
17672adantr 481 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C
) )  /\  y  e.  ( Base `  C
) )  /\  z  e.  ( Base `  C
) )  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C
) )  ->  ( Hom f  `  C )  =  ( Hom f  `  D ) )
177 simp-4r 807 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C
) )  /\  y  e.  ( Base `  C
) )  /\  z  e.  ( Base `  C
) )  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C
) )  ->  z  e.  ( Base `  C
) )
178 simpr 477 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C
) )  /\  y  e.  ( Base `  C
) )  /\  z  e.  ( Base `  C
) )  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C
) )  ->  w  e.  ( Base `  C
) )
17966, 67, 132, 176, 177, 178homfeqval 16357 . . . . . . . . . . . 12  |-  ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C
) )  /\  y  e.  ( Base `  C
) )  /\  z  e.  ( Base `  C
) )  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C
) )  ->  (
z ( Hom  `  C
) w )  =  ( z ( Hom  `  D ) w ) )
180164ad4antr 768 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  /\  g  e.  ( y
( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  -> 
( Hom f  `  C )  =  ( Hom f  `  D ) )
18174ad7antr 774 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  /\  g  e.  ( y
( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  -> 
(compf `  C )  =  (compf `  D ) )
182165ad4antr 768 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  /\  g  e.  ( y
( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  -> 
y  e.  ( Base `  C ) )
183167ad4antr 768 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  /\  g  e.  ( y
( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  -> 
z  e.  ( Base `  C ) )
184 simplr 792 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  /\  g  e.  ( y
( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  ->  w  e.  ( Base `  C ) )
185 simpllr 799 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  /\  g  e.  ( y
( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  -> 
g  e.  ( y ( Hom  `  C
) z ) )
186 simpr 477 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  /\  g  e.  ( y
( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  ->  h  e.  ( z
( Hom  `  C ) w ) )
18766, 67, 68, 69, 180, 181, 182, 183, 184, 185, 186comfeqval 16368 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  /\  g  e.  ( y
( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  -> 
( h ( <.
y ,  z >.
(comp `  C )
w ) g )  =  ( h (
<. y ,  z >.
(comp `  D )
w ) g ) )
188187oveq1d 6665 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  /\  g  e.  ( y
( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  -> 
( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( ( h ( <. y ,  z
>. (comp `  D )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f ) )
18977ad4antr 768 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  /\  g  e.  ( y
( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  ->  x  e.  ( Base `  C ) )
190 simp-4r 807 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  /\  g  e.  ( y
( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  -> 
f  e.  ( x ( Hom  `  C
) y ) )
19166, 67, 68, 69, 180, 181, 189, 182, 183, 190, 185comfeqval 16368 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  /\  g  e.  ( y
( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  -> 
( g ( <.
x ,  y >.
(comp `  C )
z ) f )  =  ( g (
<. x ,  y >.
(comp `  D )
z ) f ) )
192191oveq2d 6666 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  /\  g  e.  ( y
( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  -> 
( h ( <.
x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) )  =  ( h ( <. x ,  z
>. (comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  D )
z ) f ) ) )
193188, 192eqeq12d 2637 . . . . . . . . . . . 12  |-  ( ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  /\  g  e.  ( y
( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C ) )  /\  h  e.  ( z
( Hom  `  C ) w ) )  -> 
( ( ( h ( <. y ,  z
>. (comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) )  <->  ( ( h ( <. y ,  z
>. (comp `  D )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  D )
z ) f ) ) ) )
194179, 193raleqbidva 3154 . . . . . . . . . . 11  |-  ( ( ( ( ( ( ( ph  /\  x  e.  ( Base `  C
) )  /\  y  e.  ( Base `  C
) )  /\  z  e.  ( Base `  C
) )  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  /\  w  e.  ( Base `  C
) )  ->  ( A. h  e.  (
z ( Hom  `  C
) w ) ( ( h ( <.
y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) )  <->  A. h  e.  ( z ( Hom  `  D
) w ) ( ( h ( <.
y ,  z >.
(comp `  D )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  D )
z ) f ) ) ) )
195175, 194raleqbidva 3154 . . . . . . . . . 10  |-  ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  ->  ( A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) )  <->  A. w  e.  (
Base `  D ) A. h  e.  (
z ( Hom  `  D
) w ) ( ( h ( <.
y ,  z >.
(comp `  D )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  D )
z ) f ) ) ) )
196174, 195anbi12d 747 . . . . . . . . 9  |-  ( ( ( ( ( (
ph  /\  x  e.  ( Base `  C )
)  /\  y  e.  ( Base `  C )
)  /\  z  e.  ( Base `  C )
)  /\  f  e.  ( x ( Hom  `  C ) y ) )  /\  g  e.  ( y ( Hom  `  C ) z ) )  ->  ( (
( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  ( (
g ( <. x ,  y >. (comp `  D ) z ) f )  e.  ( x ( Hom  `  D
) z )  /\  A. w  e.  ( Base `  D ) A. h  e.  ( z ( Hom  `  D ) w ) ( ( h (
<. y ,  z >.
(comp `  D )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  D )
z ) f ) ) ) ) )
197169, 196raleqbidva 3154 . . . . . . . 8  |-  ( ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  /\  f  e.  ( x
( Hom  `  C ) y ) )  -> 
( A. g  e.  ( y ( Hom  `  C ) z ) ( ( g (
<. x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. g  e.  ( y ( Hom  `  D ) z ) ( ( g (
<. x ,  y >.
(comp `  D )
z ) f )  e.  ( x ( Hom  `  D )
z )  /\  A. w  e.  ( Base `  D ) A. h  e.  ( z ( Hom  `  D ) w ) ( ( h (
<. y ,  z >.
(comp `  D )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  D )
z ) f ) ) ) ) )
198166, 197raleqbidva 3154 . . . . . . 7  |-  ( ( ( ( ph  /\  x  e.  ( Base `  C ) )  /\  y  e.  ( Base `  C ) )  /\  z  e.  ( Base `  C ) )  -> 
( A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. f  e.  ( x ( Hom  `  D ) y ) A. g  e.  ( y ( Hom  `  D
) z ) ( ( g ( <.
x ,  y >.
(comp `  D )
z ) f )  e.  ( x ( Hom  `  D )
z )  /\  A. w  e.  ( Base `  D ) A. h  e.  ( z ( Hom  `  D ) w ) ( ( h (
<. y ,  z >.
(comp `  D )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  D )
z ) f ) ) ) ) )
199163, 198raleqbidva 3154 . . . . . 6  |-  ( ( ( ph  /\  x  e.  ( Base `  C
) )  /\  y  e.  ( Base `  C
) )  ->  ( A. z  e.  ( Base `  C ) A. f  e.  ( x
( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C ) z ) ( ( g (
<. x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. z  e.  ( Base `  D
) A. f  e.  ( x ( Hom  `  D ) y ) A. g  e.  ( y ( Hom  `  D
) z ) ( ( g ( <.
x ,  y >.
(comp `  D )
z ) f )  e.  ( x ( Hom  `  D )
z )  /\  A. w  e.  ( Base `  D ) A. h  e.  ( z ( Hom  `  D ) w ) ( ( h (
<. y ,  z >.
(comp `  D )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  D )
z ) f ) ) ) ) )
200162, 199raleqbidva 3154 . . . . 5  |-  ( (
ph  /\  x  e.  ( Base `  C )
)  ->  ( A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) )  <->  A. y  e.  ( Base `  D
) A. z  e.  ( Base `  D
) A. f  e.  ( x ( Hom  `  D ) y ) A. g  e.  ( y ( Hom  `  D
) z ) ( ( g ( <.
x ,  y >.
(comp `  D )
z ) f )  e.  ( x ( Hom  `  D )
z )  /\  A. w  e.  ( Base `  D ) A. h  e.  ( z ( Hom  `  D ) w ) ( ( h (
<. y ,  z >.
(comp `  D )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  D )
z ) f ) ) ) ) )
201161, 200anbi12d 747 . . . 4  |-  ( (
ph  /\  x  e.  ( Base `  C )
)  ->  ( ( E. g  e.  (
x ( Hom  `  C
) x ) A. y  e.  ( Base `  C ) ( A. f  e.  ( y
( Hom  `  C ) x ) ( g ( <. y ,  x >. (comp `  C )
x ) f )  =  f  /\  A. f  e.  ( x
( Hom  `  C ) y ) ( f ( <. x ,  x >. (comp `  C )
y ) g )  =  f )  /\  A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  <->  ( E. g  e.  ( x
( Hom  `  D ) x ) A. y  e.  ( Base `  D
) ( A. f  e.  ( y ( Hom  `  D ) x ) ( g ( <.
y ,  x >. (comp `  D ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  D ) y ) ( f ( <.
x ,  x >. (comp `  D ) y ) g )  =  f )  /\  A. y  e.  ( Base `  D
) A. z  e.  ( Base `  D
) A. f  e.  ( x ( Hom  `  D ) y ) A. g  e.  ( y ( Hom  `  D
) z ) ( ( g ( <.
x ,  y >.
(comp `  D )
z ) f )  e.  ( x ( Hom  `  D )
z )  /\  A. w  e.  ( Base `  D ) A. h  e.  ( z ( Hom  `  D ) w ) ( ( h (
<. y ,  z >.
(comp `  D )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  D )
z ) f ) ) ) ) ) )
202131, 201raleqbidva 3154 . . 3  |-  ( ph  ->  ( A. x  e.  ( Base `  C
) ( E. g  e.  ( x ( Hom  `  C ) x ) A. y  e.  (
Base `  C )
( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  <->  A. x  e.  ( Base `  D
) ( E. g  e.  ( x ( Hom  `  D ) x ) A. y  e.  (
Base `  D )
( A. f  e.  ( y ( Hom  `  D ) x ) ( g ( <.
y ,  x >. (comp `  D ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  D ) y ) ( f ( <.
x ,  x >. (comp `  D ) y ) g )  =  f )  /\  A. y  e.  ( Base `  D
) A. z  e.  ( Base `  D
) A. f  e.  ( x ( Hom  `  D ) y ) A. g  e.  ( y ( Hom  `  D
) z ) ( ( g ( <.
x ,  y >.
(comp `  D )
z ) f )  e.  ( x ( Hom  `  D )
z )  /\  A. w  e.  ( Base `  D ) A. h  e.  ( z ( Hom  `  D ) w ) ( ( h (
<. y ,  z >.
(comp `  D )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  D )
z ) f ) ) ) ) ) )
203130, 202bitrd 268 . 2  |-  ( ph  ->  ( A. x  e.  ( Base `  C
) ( E. g  e.  ( x ( Hom  `  C ) x ) A. y  e.  (
Base `  C )
( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) )  <->  A. x  e.  ( Base `  D
) ( E. g  e.  ( x ( Hom  `  D ) x ) A. y  e.  (
Base `  D )
( A. f  e.  ( y ( Hom  `  D ) x ) ( g ( <.
y ,  x >. (comp `  D ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  D ) y ) ( f ( <.
x ,  x >. (comp `  D ) y ) g )  =  f )  /\  A. y  e.  ( Base `  D
) A. z  e.  ( Base `  D
) A. f  e.  ( x ( Hom  `  D ) y ) A. g  e.  ( y ( Hom  `  D
) z ) ( ( g ( <.
x ,  y >.
(comp `  D )
z ) f )  e.  ( x ( Hom  `  D )
z )  /\  A. w  e.  ( Base `  D ) A. h  e.  ( z ( Hom  `  D ) w ) ( ( h (
<. y ,  z >.
(comp `  D )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  D )
z ) f ) ) ) ) ) )
204 catpropd.3 . . 3  |-  ( ph  ->  C  e.  V )
20566, 67, 68iscat 16333 . . 3  |-  ( C  e.  V  ->  ( C  e.  Cat  <->  A. x  e.  ( Base `  C
) ( E. g  e.  ( x ( Hom  `  C ) x ) A. y  e.  (
Base `  C )
( A. f  e.  ( y ( Hom  `  C ) x ) ( g ( <.
y ,  x >. (comp `  C ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  C ) y ) ( f ( <.
x ,  x >. (comp `  C ) y ) g )  =  f )  /\  A. y  e.  ( Base `  C
) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
206204, 205syl 17 . 2  |-  ( ph  ->  ( C  e.  Cat  <->  A. x  e.  ( Base `  C ) ( E. g  e.  ( x ( Hom  `  C
) x ) A. y  e.  ( Base `  C ) ( A. f  e.  ( y
( Hom  `  C ) x ) ( g ( <. y ,  x >. (comp `  C )
x ) f )  =  f  /\  A. f  e.  ( x
( Hom  `  C ) y ) ( f ( <. x ,  x >. (comp `  C )
y ) g )  =  f )  /\  A. y  e.  ( Base `  C ) A. z  e.  ( Base `  C
) A. f  e.  ( x ( Hom  `  C ) y ) A. g  e.  ( y ( Hom  `  C
) z ) ( ( g ( <.
x ,  y >.
(comp `  C )
z ) f )  e.  ( x ( Hom  `  C )
z )  /\  A. w  e.  ( Base `  C ) A. h  e.  ( z ( Hom  `  C ) w ) ( ( h (
<. y ,  z >.
(comp `  C )
w ) g ) ( <. x ,  y
>. (comp `  C )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  C )
w ) ( g ( <. x ,  y
>. (comp `  C )
z ) f ) ) ) ) ) )
207 catpropd.4 . . 3  |-  ( ph  ->  D  e.  W )
208 eqid 2622 . . . 4  |-  ( Base `  D )  =  (
Base `  D )
209208, 132, 69iscat 16333 . . 3  |-  ( D  e.  W  ->  ( D  e.  Cat  <->  A. x  e.  ( Base `  D
) ( E. g  e.  ( x ( Hom  `  D ) x ) A. y  e.  (
Base `  D )
( A. f  e.  ( y ( Hom  `  D ) x ) ( g ( <.
y ,  x >. (comp `  D ) x ) f )  =  f  /\  A. f  e.  ( x ( Hom  `  D ) y ) ( f ( <.
x ,  x >. (comp `  D ) y ) g )  =  f )  /\  A. y  e.  ( Base `  D
) A. z  e.  ( Base `  D
) A. f  e.  ( x ( Hom  `  D ) y ) A. g  e.  ( y ( Hom  `  D
) z ) ( ( g ( <.
x ,  y >.
(comp `  D )
z ) f )  e.  ( x ( Hom  `  D )
z )  /\  A. w  e.  ( Base `  D ) A. h  e.  ( z ( Hom  `  D ) w ) ( ( h (
<. y ,  z >.
(comp `  D )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  D )
z ) f ) ) ) ) ) )
210207, 209syl 17 . 2  |-  ( ph  ->  ( D  e.  Cat  <->  A. x  e.  ( Base `  D ) ( E. g  e.  ( x ( Hom  `  D
) x ) A. y  e.  ( Base `  D ) ( A. f  e.  ( y
( Hom  `  D ) x ) ( g ( <. y ,  x >. (comp `  D )
x ) f )  =  f  /\  A. f  e.  ( x
( Hom  `  D ) y ) ( f ( <. x ,  x >. (comp `  D )
y ) g )  =  f )  /\  A. y  e.  ( Base `  D ) A. z  e.  ( Base `  D
) A. f  e.  ( x ( Hom  `  D ) y ) A. g  e.  ( y ( Hom  `  D
) z ) ( ( g ( <.
x ,  y >.
(comp `  D )
z ) f )  e.  ( x ( Hom  `  D )
z )  /\  A. w  e.  ( Base `  D ) A. h  e.  ( z ( Hom  `  D ) w ) ( ( h (
<. y ,  z >.
(comp `  D )
w ) g ) ( <. x ,  y
>. (comp `  D )
w ) f )  =  ( h (
<. x ,  z >.
(comp `  D )
w ) ( g ( <. x ,  y
>. (comp `  D )
z ) f ) ) ) ) ) )
211203, 206, 2103bitr4d 300 1  |-  ( ph  ->  ( C  e.  Cat  <->  D  e.  Cat ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 196    /\ wa 384    = wceq 1483    e. wcel 1990   A.wral 2912   E.wrex 2913   <.cop 4183   ` cfv 5888  (class class class)co 6650   Basecbs 15857   Hom chom 15952  compcco 15953   Catccat 16325   Hom f chomf 16327  compfccomf 16328
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-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-ov 6653  df-oprab 6654  df-mpt2 6655  df-1st 7168  df-2nd 7169  df-cat 16329  df-homf 16331  df-comf 16332
This theorem is referenced by:  cidpropd  16370  resscat  16512  funcpropd  16560
  Copyright terms: Public domain W3C validator