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

Theorem funcpropd 16560
Description: If two categories have the same set of objects, morphisms, and compositions, then they have the same functors. (Contributed by Mario Carneiro, 17-Jan-2017.)
Hypotheses
Ref Expression
funcpropd.1  |-  ( ph  ->  ( Hom f  `  A )  =  ( Hom f  `  B ) )
funcpropd.2  |-  ( ph  ->  (compf `  A )  =  (compf `  B ) )
funcpropd.3  |-  ( ph  ->  ( Hom f  `  C )  =  ( Hom f  `  D ) )
funcpropd.4  |-  ( ph  ->  (compf `  C )  =  (compf `  D ) )
funcpropd.a  |-  ( ph  ->  A  e.  V )
funcpropd.b  |-  ( ph  ->  B  e.  V )
funcpropd.c  |-  ( ph  ->  C  e.  V )
funcpropd.d  |-  ( ph  ->  D  e.  V )
Assertion
Ref Expression
funcpropd  |-  ( ph  ->  ( A  Func  C
)  =  ( B 
Func  D ) )

Proof of Theorem funcpropd
Dummy variables  f 
g  m  n  w  x  y  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 relfunc 16522 . 2  |-  Rel  ( A  Func  C )
2 relfunc 16522 . 2  |-  Rel  ( B  Func  D )
3 funcpropd.1 . . . . . 6  |-  ( ph  ->  ( Hom f  `  A )  =  ( Hom f  `  B ) )
4 funcpropd.2 . . . . . 6  |-  ( ph  ->  (compf `  A )  =  (compf `  B ) )
5 funcpropd.a . . . . . 6  |-  ( ph  ->  A  e.  V )
6 funcpropd.b . . . . . 6  |-  ( ph  ->  B  e.  V )
73, 4, 5, 6catpropd 16369 . . . . 5  |-  ( ph  ->  ( A  e.  Cat  <->  B  e.  Cat ) )
8 funcpropd.3 . . . . . 6  |-  ( ph  ->  ( Hom f  `  C )  =  ( Hom f  `  D ) )
9 funcpropd.4 . . . . . 6  |-  ( ph  ->  (compf `  C )  =  (compf `  D ) )
10 funcpropd.c . . . . . 6  |-  ( ph  ->  C  e.  V )
11 funcpropd.d . . . . . 6  |-  ( ph  ->  D  e.  V )
128, 9, 10, 11catpropd 16369 . . . . 5  |-  ( ph  ->  ( C  e.  Cat  <->  D  e.  Cat ) )
137, 12anbi12d 747 . . . 4  |-  ( ph  ->  ( ( A  e. 
Cat  /\  C  e.  Cat )  <->  ( B  e. 
Cat  /\  D  e.  Cat ) ) )
14 fveq2 6191 . . . . . . . . . . . . . 14  |-  ( z  =  w  ->  ( 1st `  z )  =  ( 1st `  w
) )
1514fveq2d 6195 . . . . . . . . . . . . 13  |-  ( z  =  w  ->  (
f `  ( 1st `  z ) )  =  ( f `  ( 1st `  w ) ) )
16 fveq2 6191 . . . . . . . . . . . . . 14  |-  ( z  =  w  ->  ( 2nd `  z )  =  ( 2nd `  w
) )
1716fveq2d 6195 . . . . . . . . . . . . 13  |-  ( z  =  w  ->  (
f `  ( 2nd `  z ) )  =  ( f `  ( 2nd `  w ) ) )
1815, 17oveq12d 6668 . . . . . . . . . . . 12  |-  ( z  =  w  ->  (
( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  =  ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) ) )
19 fveq2 6191 . . . . . . . . . . . 12  |-  ( z  =  w  ->  (
( Hom  `  A ) `
 z )  =  ( ( Hom  `  A
) `  w )
)
2018, 19oveq12d 6668 . . . . . . . . . . 11  |-  ( z  =  w  ->  (
( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) )  =  ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C )
( f `  ( 2nd `  w ) ) )  ^m  ( ( Hom  `  A ) `  w ) ) )
2120cbvixpv 7926 . . . . . . . . . 10  |-  X_ z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) )  =  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) )
2221eleq2i 2693 . . . . . . . . 9  |-  ( g  e.  X_ z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) )  <-> 
g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) )
2322anbi2i 730 . . . . . . . 8  |-  ( ( f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) ) )  <->  ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ w  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )
243ad2antrr 762 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  ->  ( Hom f  `  A )  =  ( Hom f  `  B ) )
254ad2antrr 762 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  ->  (compf `  A
)  =  (compf `  B
) )
265ad2antrr 762 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  ->  A  e.  V )
276ad2antrr 762 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  ->  B  e.  V )
2824, 25, 26, 27cidpropd 16370 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  ->  ( Id `  A )  =  ( Id `  B
) )
2928fveq1d 6193 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  ->  (
( Id `  A
) `  x )  =  ( ( Id
`  B ) `  x ) )
3029fveq2d 6195 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  ->  (
( x g x ) `  ( ( Id `  A ) `
 x ) )  =  ( ( x g x ) `  ( ( Id `  B ) `  x
) ) )
318, 9, 10, 11cidpropd 16370 . . . . . . . . . . . . 13  |-  ( ph  ->  ( Id `  C
)  =  ( Id
`  D ) )
3231ad2antrr 762 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  ->  ( Id `  C )  =  ( Id `  D
) )
3332fveq1d 6193 . . . . . . . . . . 11  |-  ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  ->  (
( Id `  C
) `  ( f `  x ) )  =  ( ( Id `  D ) `  (
f `  x )
) )
3430, 33eqeq12d 2637 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  ->  (
( ( x g x ) `  (
( Id `  A
) `  x )
)  =  ( ( Id `  C ) `
 ( f `  x ) )  <->  ( (
x g x ) `
 ( ( Id
`  B ) `  x ) )  =  ( ( Id `  D ) `  (
f `  x )
) ) )
35 eqid 2622 . . . . . . . . . . . . . . . . . 18  |-  ( Base `  A )  =  (
Base `  A )
36 eqid 2622 . . . . . . . . . . . . . . . . . 18  |-  ( Hom  `  A )  =  ( Hom  `  A )
37 eqid 2622 . . . . . . . . . . . . . . . . . 18  |-  (comp `  A )  =  (comp `  A )
38 eqid 2622 . . . . . . . . . . . . . . . . . 18  |-  (comp `  B )  =  (comp `  B )
393ad6antr 772 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  ( Hom f  `  A
)  =  ( Hom f  `  B ) )
404ad6antr 772 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  (compf `  A )  =  (compf `  B ) )
41 simp-5r 809 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  x  e.  ( Base `  A )
)
42 simp-4r 807 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  y  e.  ( Base `  A )
)
43 simpllr 799 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  z  e.  ( Base `  A )
)
44 simplr 792 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  m  e.  ( x ( Hom  `  A ) y ) )
45 simpr 477 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  n  e.  ( y ( Hom  `  A ) z ) )
4635, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45comfeqval 16368 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  ( n
( <. x ,  y
>. (comp `  A )
z ) m )  =  ( n (
<. x ,  y >.
(comp `  B )
z ) m ) )
4746fveq2d 6195 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  ( (
x g z ) `
 ( n (
<. x ,  y >.
(comp `  A )
z ) m ) )  =  ( ( x g z ) `
 ( n (
<. x ,  y >.
(comp `  B )
z ) m ) ) )
48 eqid 2622 . . . . . . . . . . . . . . . . 17  |-  ( Base `  C )  =  (
Base `  C )
49 eqid 2622 . . . . . . . . . . . . . . . . 17  |-  ( Hom  `  C )  =  ( Hom  `  C )
50 eqid 2622 . . . . . . . . . . . . . . . . 17  |-  (comp `  C )  =  (comp `  C )
51 eqid 2622 . . . . . . . . . . . . . . . . 17  |-  (comp `  D )  =  (comp `  D )
528ad6antr 772 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  ( Hom f  `  C
)  =  ( Hom f  `  D ) )
539ad6antr 772 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  (compf `  C )  =  (compf `  D ) )
54 simprl 794 . . . . . . . . . . . . . . . . . . 19  |-  ( (
ph  /\  ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ w  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  ->  f : ( Base `  A
) --> ( Base `  C
) )
5554ad5antr 770 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  f :
( Base `  A ) --> ( Base `  C )
)
5655, 41ffvelrnd 6360 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  ( f `  x )  e.  (
Base `  C )
)
5755, 42ffvelrnd 6360 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  ( f `  y )  e.  (
Base `  C )
)
5855, 43ffvelrnd 6360 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  ( f `  z )  e.  (
Base `  C )
)
59 df-ov 6653 . . . . . . . . . . . . . . . . . . . . 21  |-  ( x g y )  =  ( g `  <. x ,  y >. )
60 simprr 796 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( (
ph  /\  ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ w  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  ->  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) )
6160ad3antrrr 766 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( ph  /\  ( f : (
Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  ->  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) )
6261adantr 481 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ( (
ph  /\  ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ w  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  ->  g  e.  X_ w  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) )
63 simp-4r 807 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( (
ph  /\  ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ w  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  ->  x  e.  ( Base `  A )
)
64 simpllr 799 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( ( ( ( (
ph  /\  ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ w  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  ->  y  e.  ( Base `  A )
)
65 opelxpi 5148 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( x  e.  ( Base `  A )  /\  y  e.  ( Base `  A
) )  ->  <. x ,  y >.  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) )
6663, 64, 65syl2anc 693 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ( (
ph  /\  ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ w  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  ->  <. x ,  y >.  e.  (
( Base `  A )  X.  ( Base `  A
) ) )
67 vex 3203 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  x  e. 
_V
68 vex 3203 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  y  e. 
_V
6967, 68op1std 7178 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( w  =  <. x ,  y
>.  ->  ( 1st `  w
)  =  x )
7069fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( w  =  <. x ,  y
>.  ->  ( f `  ( 1st `  w ) )  =  ( f `
 x ) )
7167, 68op2ndd 7179 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( w  =  <. x ,  y
>.  ->  ( 2nd `  w
)  =  y )
7271fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( w  =  <. x ,  y
>.  ->  ( f `  ( 2nd `  w ) )  =  ( f `
 y ) )
7370, 72oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( w  =  <. x ,  y
>.  ->  ( ( f `
 ( 1st `  w
) ) ( Hom  `  C ) ( f `
 ( 2nd `  w
) ) )  =  ( ( f `  x ) ( Hom  `  C ) ( f `
 y ) ) )
74 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( w  =  <. x ,  y
>.  ->  ( ( Hom  `  A ) `  w
)  =  ( ( Hom  `  A ) `  <. x ,  y
>. ) )
75 df-ov 6653 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( x ( Hom  `  A
) y )  =  ( ( Hom  `  A
) `  <. x ,  y >. )
7674, 75syl6eqr 2674 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( w  =  <. x ,  y
>.  ->  ( ( Hom  `  A ) `  w
)  =  ( x ( Hom  `  A
) y ) )
7773, 76oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( w  =  <. x ,  y
>.  ->  ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C )
( f `  ( 2nd `  w ) ) )  ^m  ( ( Hom  `  A ) `  w ) )  =  ( ( ( f `
 x ) ( Hom  `  C )
( f `  y
) )  ^m  (
x ( Hom  `  A
) y ) ) )
7877fvixp 7913 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) )  /\  <. x ,  y
>.  e.  ( ( Base `  A )  X.  ( Base `  A ) ) )  ->  ( g `  <. x ,  y
>. )  e.  (
( ( f `  x ) ( Hom  `  C ) ( f `
 y ) )  ^m  ( x ( Hom  `  A )
y ) ) )
7962, 66, 78syl2anc 693 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ( (
ph  /\  ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ w  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  ->  ( g `  <. x ,  y
>. )  e.  (
( ( f `  x ) ( Hom  `  C ) ( f `
 y ) )  ^m  ( x ( Hom  `  A )
y ) ) )
8059, 79syl5eqel 2705 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ( (
ph  /\  ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ w  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  ->  ( x
g y )  e.  ( ( ( f `
 x ) ( Hom  `  C )
( f `  y
) )  ^m  (
x ( Hom  `  A
) y ) ) )
81 elmapi 7879 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( x g y )  e.  ( ( ( f `  x ) ( Hom  `  C
) ( f `  y ) )  ^m  ( x ( Hom  `  A ) y ) )  ->  ( x
g y ) : ( x ( Hom  `  A ) y ) --> ( ( f `  x ) ( Hom  `  C ) ( f `
 y ) ) )
8280, 81syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ( (
ph  /\  ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ w  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  ->  ( x
g y ) : ( x ( Hom  `  A ) y ) --> ( ( f `  x ) ( Hom  `  C ) ( f `
 y ) ) )
8382adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  ( x
g y ) : ( x ( Hom  `  A ) y ) --> ( ( f `  x ) ( Hom  `  C ) ( f `
 y ) ) )
8483, 44ffvelrnd 6360 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  ( (
x g y ) `
 m )  e.  ( ( f `  x ) ( Hom  `  C ) ( f `
 y ) ) )
85 df-ov 6653 . . . . . . . . . . . . . . . . . . . . 21  |-  ( y g z )  =  ( g `  <. y ,  z >. )
86 opelxpi 5148 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( ( y  e.  ( Base `  A )  /\  z  e.  ( Base `  A
) )  ->  <. y ,  z >.  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) )
8786adantll 750 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( ( ( ( ph  /\  ( f : (
Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  ->  <. y ,  z >.  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) )
88 vex 3203 . . . . . . . . . . . . . . . . . . . . . . . . . . 27  |-  z  e. 
_V
8968, 88op1std 7178 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( w  =  <. y ,  z
>.  ->  ( 1st `  w
)  =  y )
9089fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( w  =  <. y ,  z
>.  ->  ( f `  ( 1st `  w ) )  =  ( f `
 y ) )
9168, 88op2ndd 7179 . . . . . . . . . . . . . . . . . . . . . . . . . 26  |-  ( w  =  <. y ,  z
>.  ->  ( 2nd `  w
)  =  z )
9291fveq2d 6195 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( w  =  <. y ,  z
>.  ->  ( f `  ( 2nd `  w ) )  =  ( f `
 z ) )
9390, 92oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( w  =  <. y ,  z
>.  ->  ( ( f `
 ( 1st `  w
) ) ( Hom  `  C ) ( f `
 ( 2nd `  w
) ) )  =  ( ( f `  y ) ( Hom  `  C ) ( f `
 z ) ) )
94 fveq2 6191 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( w  =  <. y ,  z
>.  ->  ( ( Hom  `  A ) `  w
)  =  ( ( Hom  `  A ) `  <. y ,  z
>. ) )
95 df-ov 6653 . . . . . . . . . . . . . . . . . . . . . . . . 25  |-  ( y ( Hom  `  A
) z )  =  ( ( Hom  `  A
) `  <. y ,  z >. )
9694, 95syl6eqr 2674 . . . . . . . . . . . . . . . . . . . . . . . 24  |-  ( w  =  <. y ,  z
>.  ->  ( ( Hom  `  A ) `  w
)  =  ( y ( Hom  `  A
) z ) )
9793, 96oveq12d 6668 . . . . . . . . . . . . . . . . . . . . . . 23  |-  ( w  =  <. y ,  z
>.  ->  ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C )
( f `  ( 2nd `  w ) ) )  ^m  ( ( Hom  `  A ) `  w ) )  =  ( ( ( f `
 y ) ( Hom  `  C )
( f `  z
) )  ^m  (
y ( Hom  `  A
) z ) ) )
9897fvixp 7913 . . . . . . . . . . . . . . . . . . . . . 22  |-  ( ( g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) )  /\  <. y ,  z
>.  e.  ( ( Base `  A )  X.  ( Base `  A ) ) )  ->  ( g `  <. y ,  z
>. )  e.  (
( ( f `  y ) ( Hom  `  C ) ( f `
 z ) )  ^m  ( y ( Hom  `  A )
z ) ) )
9961, 87, 98syl2anc 693 . . . . . . . . . . . . . . . . . . . . 21  |-  ( ( ( ( ( ph  /\  ( f : (
Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  ->  (
g `  <. y ,  z >. )  e.  ( ( ( f `  y ) ( Hom  `  C ) ( f `
 z ) )  ^m  ( y ( Hom  `  A )
z ) ) )
10085, 99syl5eqel 2705 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( ( ( ( ph  /\  ( f : (
Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  ->  (
y g z )  e.  ( ( ( f `  y ) ( Hom  `  C
) ( f `  z ) )  ^m  ( y ( Hom  `  A ) z ) ) )
101 elmapi 7879 . . . . . . . . . . . . . . . . . . . 20  |-  ( ( y g z )  e.  ( ( ( f `  y ) ( Hom  `  C
) ( f `  z ) )  ^m  ( y ( Hom  `  A ) z ) )  ->  ( y
g z ) : ( y ( Hom  `  A ) z ) --> ( ( f `  y ) ( Hom  `  C ) ( f `
 z ) ) )
102100, 101syl 17 . . . . . . . . . . . . . . . . . . 19  |-  ( ( ( ( ( ph  /\  ( f : (
Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  ->  (
y g z ) : ( y ( Hom  `  A )
z ) --> ( ( f `  y ) ( Hom  `  C
) ( f `  z ) ) )
103102adantr 481 . . . . . . . . . . . . . . . . . 18  |-  ( ( ( ( ( (
ph  /\  ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ w  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  ->  ( y
g z ) : ( y ( Hom  `  A ) z ) --> ( ( f `  y ) ( Hom  `  C ) ( f `
 z ) ) )
104103ffvelrnda 6359 . . . . . . . . . . . . . . . . 17  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  ( (
y g z ) `
 n )  e.  ( ( f `  y ) ( Hom  `  C ) ( f `
 z ) ) )
10548, 49, 50, 51, 52, 53, 56, 57, 58, 84, 104comfeqval 16368 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  ( (
( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  C )
( f `  z
) ) ( ( x g y ) `
 m ) )  =  ( ( ( y g z ) `
 n ) (
<. ( f `  x
) ,  ( f `
 y ) >.
(comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) )
10647, 105eqeq12d 2637 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  /\  n  e.  ( y ( Hom  `  A ) z ) )  ->  ( (
( x g z ) `  ( n ( <. x ,  y
>. (comp `  A )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  C )
( f `  z
) ) ( ( x g y ) `
 m ) )  <-> 
( ( x g z ) `  (
n ( <. x ,  y >. (comp `  B ) z ) m ) )  =  ( ( ( y g z ) `  n ) ( <.
( f `  x
) ,  ( f `
 y ) >.
(comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) )
107106ralbidva 2985 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( (
ph  /\  ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ w  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  /\  m  e.  ( x ( Hom  `  A ) y ) )  ->  ( A. n  e.  ( y
( Hom  `  A ) z ) ( ( x g z ) `
 ( n (
<. x ,  y >.
(comp `  A )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  C )
( f `  z
) ) ( ( x g y ) `
 m ) )  <->  A. n  e.  (
y ( Hom  `  A
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) )
108107ralbidva 2985 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ph  /\  ( f : (
Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  ->  ( A. m  e.  (
x ( Hom  `  A
) y ) A. n  e.  ( y
( Hom  `  A ) z ) ( ( x g z ) `
 ( n (
<. x ,  y >.
(comp `  A )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  C )
( f `  z
) ) ( ( x g y ) `
 m ) )  <->  A. m  e.  (
x ( Hom  `  A
) y ) A. n  e.  ( y
( Hom  `  A ) z ) ( ( x g z ) `
 ( n (
<. x ,  y >.
(comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) )
109 eqid 2622 . . . . . . . . . . . . . . 15  |-  ( Hom  `  B )  =  ( Hom  `  B )
11024ad2antrr 762 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ph  /\  ( f : (
Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  ->  ( Hom f  `  A )  =  ( Hom f  `  B ) )
111 simpllr 799 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ph  /\  ( f : (
Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  ->  x  e.  ( Base `  A
) )
112 simplr 792 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ph  /\  ( f : (
Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  ->  y  e.  ( Base `  A
) )
11335, 36, 109, 110, 111, 112homfeqval 16357 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( ph  /\  ( f : (
Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  ->  (
x ( Hom  `  A
) y )  =  ( x ( Hom  `  B ) y ) )
114 simpr 477 . . . . . . . . . . . . . . . 16  |-  ( ( ( ( ( ph  /\  ( f : (
Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  ->  z  e.  ( Base `  A
) )
11535, 36, 109, 110, 112, 114homfeqval 16357 . . . . . . . . . . . . . . 15  |-  ( ( ( ( ( ph  /\  ( f : (
Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  ->  (
y ( Hom  `  A
) z )  =  ( y ( Hom  `  B ) z ) )
116115raleqdv 3144 . . . . . . . . . . . . . 14  |-  ( ( ( ( ( ph  /\  ( f : (
Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  ->  ( A. n  e.  (
y ( Hom  `  A
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) )  <->  A. n  e.  (
y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) )
117113, 116raleqbidv 3152 . . . . . . . . . . . . 13  |-  ( ( ( ( ( ph  /\  ( f : (
Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  ->  ( A. m  e.  (
x ( Hom  `  A
) y ) A. n  e.  ( y
( Hom  `  A ) z ) ( ( x g z ) `
 ( n (
<. x ,  y >.
(comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) )  <->  A. m  e.  (
x ( Hom  `  B
) y ) A. n  e.  ( y
( Hom  `  B ) z ) ( ( x g z ) `
 ( n (
<. x ,  y >.
(comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) )
118108, 117bitrd 268 . . . . . . . . . . . 12  |-  ( ( ( ( ( ph  /\  ( f : (
Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  /\  z  e.  ( Base `  A
) )  ->  ( A. m  e.  (
x ( Hom  `  A
) y ) A. n  e.  ( y
( Hom  `  A ) z ) ( ( x g z ) `
 ( n (
<. x ,  y >.
(comp `  A )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  C )
( f `  z
) ) ( ( x g y ) `
 m ) )  <->  A. m  e.  (
x ( Hom  `  B
) y ) A. n  e.  ( y
( Hom  `  B ) z ) ( ( x g z ) `
 ( n (
<. x ,  y >.
(comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) )
119118ralbidva 2985 . . . . . . . . . . 11  |-  ( ( ( ( ph  /\  ( f : (
Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  /\  y  e.  ( Base `  A
) )  ->  ( A. z  e.  ( Base `  A ) A. m  e.  ( x
( Hom  `  A ) y ) A. n  e.  ( y ( Hom  `  A ) z ) ( ( x g z ) `  (
n ( <. x ,  y >. (comp `  A ) z ) m ) )  =  ( ( ( y g z ) `  n ) ( <.
( f `  x
) ,  ( f `
 y ) >.
(comp `  C )
( f `  z
) ) ( ( x g y ) `
 m ) )  <->  A. z  e.  ( Base `  A ) A. m  e.  ( x
( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B ) z ) ( ( x g z ) `  (
n ( <. x ,  y >. (comp `  B ) z ) m ) )  =  ( ( ( y g z ) `  n ) ( <.
( f `  x
) ,  ( f `
 y ) >.
(comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) )
120119ralbidva 2985 . . . . . . . . . 10  |-  ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  ->  ( A. y  e.  ( Base `  A ) A. z  e.  ( Base `  A ) A. m  e.  ( x ( Hom  `  A ) y ) A. n  e.  ( y ( Hom  `  A
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  A )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  C )
( f `  z
) ) ( ( x g y ) `
 m ) )  <->  A. y  e.  ( Base `  A ) A. z  e.  ( Base `  A ) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) )
12134, 120anbi12d 747 . . . . . . . . 9  |-  ( ( ( ph  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ w  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  /\  x  e.  ( Base `  A
) )  ->  (
( ( ( x g x ) `  ( ( Id `  A ) `  x
) )  =  ( ( Id `  C
) `  ( f `  x ) )  /\  A. y  e.  ( Base `  A ) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  A ) y ) A. n  e.  ( y ( Hom  `  A
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  A )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  C )
( f `  z
) ) ( ( x g y ) `
 m ) ) )  <->  ( ( ( x g x ) `
 ( ( Id
`  B ) `  x ) )  =  ( ( Id `  D ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  A
) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) ) )
122121ralbidva 2985 . . . . . . . 8  |-  ( (
ph  /\  ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ w  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  w ) ) ( Hom  `  C
) ( f `  ( 2nd `  w ) ) )  ^m  (
( Hom  `  A ) `
 w ) ) ) )  ->  ( A. x  e.  ( Base `  A ) ( ( ( x g x ) `  (
( Id `  A
) `  x )
)  =  ( ( Id `  C ) `
 ( f `  x ) )  /\  A. y  e.  ( Base `  A ) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  A ) y ) A. n  e.  ( y ( Hom  `  A
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  A )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  C )
( f `  z
) ) ( ( x g y ) `
 m ) ) )  <->  A. x  e.  (
Base `  A )
( ( ( x g x ) `  ( ( Id `  B ) `  x
) )  =  ( ( Id `  D
) `  ( f `  x ) )  /\  A. y  e.  ( Base `  A ) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) ) )
12323, 122sylan2b 492 . . . . . . 7  |-  ( (
ph  /\  ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ z  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) ) ) )  ->  ( A. x  e.  ( Base `  A ) ( ( ( x g x ) `  (
( Id `  A
) `  x )
)  =  ( ( Id `  C ) `
 ( f `  x ) )  /\  A. y  e.  ( Base `  A ) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  A ) y ) A. n  e.  ( y ( Hom  `  A
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  A )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  C )
( f `  z
) ) ( ( x g y ) `
 m ) ) )  <->  A. x  e.  (
Base `  A )
( ( ( x g x ) `  ( ( Id `  B ) `  x
) )  =  ( ( Id `  D
) `  ( f `  x ) )  /\  A. y  e.  ( Base `  A ) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) ) )
124123pm5.32da 673 . . . . . 6  |-  ( ph  ->  ( ( ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ z  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) ) )  /\  A. x  e.  ( Base `  A
) ( ( ( x g x ) `
 ( ( Id
`  A ) `  x ) )  =  ( ( Id `  C ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  A
) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  A ) y ) A. n  e.  ( y ( Hom  `  A
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  A )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  C )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) )  <->  ( (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) ) )  /\  A. x  e.  ( Base `  A
) ( ( ( x g x ) `
 ( ( Id
`  B ) `  x ) )  =  ( ( Id `  D ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  A
) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) ) ) )
125 eqid 2622 . . . . . . . . . . . . . 14  |-  ( Hom  `  D )  =  ( Hom  `  D )
1268ad2antrr 762 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  f : ( Base `  A
) --> ( Base `  C
) )  /\  z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) )  ->  ( Hom f  `  C )  =  ( Hom f  `  D ) )
127 simplr 792 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  f : ( Base `  A
) --> ( Base `  C
) )  /\  z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) )  ->  f : (
Base `  A ) --> ( Base `  C )
)
128 xp1st 7198 . . . . . . . . . . . . . . . 16  |-  ( z  e.  ( ( Base `  A )  X.  ( Base `  A ) )  ->  ( 1st `  z
)  e.  ( Base `  A ) )
129128adantl 482 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  f : ( Base `  A
) --> ( Base `  C
) )  /\  z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) )  ->  ( 1st `  z
)  e.  ( Base `  A ) )
130127, 129ffvelrnd 6360 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  f : ( Base `  A
) --> ( Base `  C
) )  /\  z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) )  ->  ( f `  ( 1st `  z ) )  e.  ( Base `  C ) )
131 xp2nd 7199 . . . . . . . . . . . . . . . 16  |-  ( z  e.  ( ( Base `  A )  X.  ( Base `  A ) )  ->  ( 2nd `  z
)  e.  ( Base `  A ) )
132131adantl 482 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  f : ( Base `  A
) --> ( Base `  C
) )  /\  z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) )  ->  ( 2nd `  z
)  e.  ( Base `  A ) )
133127, 132ffvelrnd 6360 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  f : ( Base `  A
) --> ( Base `  C
) )  /\  z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) )  ->  ( f `  ( 2nd `  z ) )  e.  ( Base `  C ) )
13448, 49, 125, 126, 130, 133homfeqval 16357 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  f : ( Base `  A
) --> ( Base `  C
) )  /\  z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) )  ->  ( ( f `
 ( 1st `  z
) ) ( Hom  `  C ) ( f `
 ( 2nd `  z
) ) )  =  ( ( f `  ( 1st `  z ) ) ( Hom  `  D
) ( f `  ( 2nd `  z ) ) ) )
1353ad2antrr 762 . . . . . . . . . . . . . . . 16  |-  ( ( ( ph  /\  f : ( Base `  A
) --> ( Base `  C
) )  /\  z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) )  ->  ( Hom f  `  A )  =  ( Hom f  `  B ) )
13635, 36, 109, 135, 129, 132homfeqval 16357 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  f : ( Base `  A
) --> ( Base `  C
) )  /\  z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) )  ->  ( ( 1st `  z ) ( Hom  `  A ) ( 2nd `  z ) )  =  ( ( 1st `  z
) ( Hom  `  B
) ( 2nd `  z
) ) )
137 df-ov 6653 . . . . . . . . . . . . . . 15  |-  ( ( 1st `  z ) ( Hom  `  A
) ( 2nd `  z
) )  =  ( ( Hom  `  A
) `  <. ( 1st `  z ) ,  ( 2nd `  z )
>. )
138 df-ov 6653 . . . . . . . . . . . . . . 15  |-  ( ( 1st `  z ) ( Hom  `  B
) ( 2nd `  z
) )  =  ( ( Hom  `  B
) `  <. ( 1st `  z ) ,  ( 2nd `  z )
>. )
139136, 137, 1383eqtr3g 2679 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  f : ( Base `  A
) --> ( Base `  C
) )  /\  z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) )  ->  ( ( Hom  `  A ) `  <. ( 1st `  z ) ,  ( 2nd `  z
) >. )  =  ( ( Hom  `  B
) `  <. ( 1st `  z ) ,  ( 2nd `  z )
>. ) )
140 1st2nd2 7205 . . . . . . . . . . . . . . . 16  |-  ( z  e.  ( ( Base `  A )  X.  ( Base `  A ) )  ->  z  =  <. ( 1st `  z ) ,  ( 2nd `  z
) >. )
141140adantl 482 . . . . . . . . . . . . . . 15  |-  ( ( ( ph  /\  f : ( Base `  A
) --> ( Base `  C
) )  /\  z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) )  ->  z  =  <. ( 1st `  z ) ,  ( 2nd `  z
) >. )
142141fveq2d 6195 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  f : ( Base `  A
) --> ( Base `  C
) )  /\  z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) )  ->  ( ( Hom  `  A ) `  z
)  =  ( ( Hom  `  A ) `  <. ( 1st `  z
) ,  ( 2nd `  z ) >. )
)
143141fveq2d 6195 . . . . . . . . . . . . . 14  |-  ( ( ( ph  /\  f : ( Base `  A
) --> ( Base `  C
) )  /\  z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) )  ->  ( ( Hom  `  B ) `  z
)  =  ( ( Hom  `  B ) `  <. ( 1st `  z
) ,  ( 2nd `  z ) >. )
)
144139, 142, 1433eqtr4d 2666 . . . . . . . . . . . . 13  |-  ( ( ( ph  /\  f : ( Base `  A
) --> ( Base `  C
) )  /\  z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) )  ->  ( ( Hom  `  A ) `  z
)  =  ( ( Hom  `  B ) `  z ) )
145134, 144oveq12d 6668 . . . . . . . . . . . 12  |-  ( ( ( ph  /\  f : ( Base `  A
) --> ( Base `  C
) )  /\  z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) )  ->  ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C )
( f `  ( 2nd `  z ) ) )  ^m  ( ( Hom  `  A ) `  z ) )  =  ( ( ( f `
 ( 1st `  z
) ) ( Hom  `  D ) ( f `
 ( 2nd `  z
) ) )  ^m  ( ( Hom  `  B
) `  z )
) )
146145ixpeq2dva 7923 . . . . . . . . . . 11  |-  ( (
ph  /\  f :
( Base `  A ) --> ( Base `  C )
)  ->  X_ z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) )  =  X_ z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  D
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  B ) `
 z ) ) )
1473homfeqbas 16356 . . . . . . . . . . . . . 14  |-  ( ph  ->  ( Base `  A
)  =  ( Base `  B ) )
148147sqxpeqd 5141 . . . . . . . . . . . . 13  |-  ( ph  ->  ( ( Base `  A
)  X.  ( Base `  A ) )  =  ( ( Base `  B
)  X.  ( Base `  B ) ) )
149148adantr 481 . . . . . . . . . . . 12  |-  ( (
ph  /\  f :
( Base `  A ) --> ( Base `  C )
)  ->  ( ( Base `  A )  X.  ( Base `  A
) )  =  ( ( Base `  B
)  X.  ( Base `  B ) ) )
150149ixpeq1d 7920 . . . . . . . . . . 11  |-  ( (
ph  /\  f :
( Base `  A ) --> ( Base `  C )
)  ->  X_ z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  D
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  B ) `
 z ) )  =  X_ z  e.  ( ( Base `  B
)  X.  ( Base `  B ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  D
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  B ) `
 z ) ) )
151146, 150eqtrd 2656 . . . . . . . . . 10  |-  ( (
ph  /\  f :
( Base `  A ) --> ( Base `  C )
)  ->  X_ z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) )  =  X_ z  e.  ( ( Base `  B
)  X.  ( Base `  B ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  D
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  B ) `
 z ) ) )
152151eleq2d 2687 . . . . . . . . 9  |-  ( (
ph  /\  f :
( Base `  A ) --> ( Base `  C )
)  ->  ( g  e.  X_ z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) )  <-> 
g  e.  X_ z  e.  ( ( Base `  B
)  X.  ( Base `  B ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  D
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  B ) `
 z ) ) ) )
153152pm5.32da 673 . . . . . . . 8  |-  ( ph  ->  ( ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ z  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) ) )  <->  ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ z  e.  ( (
Base `  B )  X.  ( Base `  B
) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  D
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  B ) `
 z ) ) ) ) )
1548homfeqbas 16356 . . . . . . . . . 10  |-  ( ph  ->  ( Base `  C
)  =  ( Base `  D ) )
155147, 154feq23d 6040 . . . . . . . . 9  |-  ( ph  ->  ( f : (
Base `  A ) --> ( Base `  C )  <->  f : ( Base `  B
) --> ( Base `  D
) ) )
156155anbi1d 741 . . . . . . . 8  |-  ( ph  ->  ( ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ z  e.  ( (
Base `  B )  X.  ( Base `  B
) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  D
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  B ) `
 z ) ) )  <->  ( f : ( Base `  B
) --> ( Base `  D
)  /\  g  e.  X_ z  e.  ( (
Base `  B )  X.  ( Base `  B
) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  D
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  B ) `
 z ) ) ) ) )
157153, 156bitrd 268 . . . . . . 7  |-  ( ph  ->  ( ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ z  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) ) )  <->  ( f : ( Base `  B
) --> ( Base `  D
)  /\  g  e.  X_ z  e.  ( (
Base `  B )  X.  ( Base `  B
) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  D
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  B ) `
 z ) ) ) ) )
158147adantr 481 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  ( Base `  A )
)  ->  ( Base `  A )  =  (
Base `  B )
)
159158raleqdv 3144 . . . . . . . . . 10  |-  ( (
ph  /\  x  e.  ( Base `  A )
)  ->  ( A. z  e.  ( Base `  A ) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) )  <->  A. z  e.  ( Base `  B ) A. m  e.  ( x
( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B ) z ) ( ( x g z ) `  (
n ( <. x ,  y >. (comp `  B ) z ) m ) )  =  ( ( ( y g z ) `  n ) ( <.
( f `  x
) ,  ( f `
 y ) >.
(comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) )
160158, 159raleqbidv 3152 . . . . . . . . 9  |-  ( (
ph  /\  x  e.  ( Base `  A )
)  ->  ( A. y  e.  ( Base `  A ) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) )  <->  A. y  e.  ( Base `  B ) A. z  e.  ( Base `  B ) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) )
161160anbi2d 740 . . . . . . . 8  |-  ( (
ph  /\  x  e.  ( Base `  A )
)  ->  ( (
( ( x g x ) `  (
( Id `  B
) `  x )
)  =  ( ( Id `  D ) `
 ( f `  x ) )  /\  A. y  e.  ( Base `  A ) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) )  <->  ( ( ( x g x ) `
 ( ( Id
`  B ) `  x ) )  =  ( ( Id `  D ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  B
) A. z  e.  ( Base `  B
) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) ) )
162147, 161raleqbidva 3154 . . . . . . 7  |-  ( ph  ->  ( A. x  e.  ( Base `  A
) ( ( ( x g x ) `
 ( ( Id
`  B ) `  x ) )  =  ( ( Id `  D ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  A
) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) )  <->  A. x  e.  (
Base `  B )
( ( ( x g x ) `  ( ( Id `  B ) `  x
) )  =  ( ( Id `  D
) `  ( f `  x ) )  /\  A. y  e.  ( Base `  B ) A. z  e.  ( Base `  B
) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) ) )
163157, 162anbi12d 747 . . . . . 6  |-  ( ph  ->  ( ( ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ z  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) ) )  /\  A. x  e.  ( Base `  A
) ( ( ( x g x ) `
 ( ( Id
`  B ) `  x ) )  =  ( ( Id `  D ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  A
) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) )  <->  ( (
f : ( Base `  B ) --> ( Base `  D )  /\  g  e.  X_ z  e.  ( ( Base `  B
)  X.  ( Base `  B ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  D
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  B ) `
 z ) ) )  /\  A. x  e.  ( Base `  B
) ( ( ( x g x ) `
 ( ( Id
`  B ) `  x ) )  =  ( ( Id `  D ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  B
) A. z  e.  ( Base `  B
) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) ) ) )
164124, 163bitrd 268 . . . . 5  |-  ( ph  ->  ( ( ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ z  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) ) )  /\  A. x  e.  ( Base `  A
) ( ( ( x g x ) `
 ( ( Id
`  A ) `  x ) )  =  ( ( Id `  C ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  A
) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  A ) y ) A. n  e.  ( y ( Hom  `  A
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  A )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  C )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) )  <->  ( (
f : ( Base `  B ) --> ( Base `  D )  /\  g  e.  X_ z  e.  ( ( Base `  B
)  X.  ( Base `  B ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  D
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  B ) `
 z ) ) )  /\  A. x  e.  ( Base `  B
) ( ( ( x g x ) `
 ( ( Id
`  B ) `  x ) )  =  ( ( Id `  D ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  B
) A. z  e.  ( Base `  B
) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) ) ) )
165 df-3an 1039 . . . . 5  |-  ( ( f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) )  /\  A. x  e.  ( Base `  A
) ( ( ( x g x ) `
 ( ( Id
`  A ) `  x ) )  =  ( ( Id `  C ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  A
) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  A ) y ) A. n  e.  ( y ( Hom  `  A
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  A )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  C )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) )  <->  ( (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) ) )  /\  A. x  e.  ( Base `  A
) ( ( ( x g x ) `
 ( ( Id
`  A ) `  x ) )  =  ( ( Id `  C ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  A
) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  A ) y ) A. n  e.  ( y ( Hom  `  A
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  A )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  C )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) ) )
166 df-3an 1039 . . . . 5  |-  ( ( f : ( Base `  B ) --> ( Base `  D )  /\  g  e.  X_ z  e.  ( ( Base `  B
)  X.  ( Base `  B ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  D
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  B ) `
 z ) )  /\  A. x  e.  ( Base `  B
) ( ( ( x g x ) `
 ( ( Id
`  B ) `  x ) )  =  ( ( Id `  D ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  B
) A. z  e.  ( Base `  B
) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) )  <->  ( (
f : ( Base `  B ) --> ( Base `  D )  /\  g  e.  X_ z  e.  ( ( Base `  B
)  X.  ( Base `  B ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  D
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  B ) `
 z ) ) )  /\  A. x  e.  ( Base `  B
) ( ( ( x g x ) `
 ( ( Id
`  B ) `  x ) )  =  ( ( Id `  D ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  B
) A. z  e.  ( Base `  B
) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) ) )
167164, 165, 1663bitr4g 303 . . . 4  |-  ( ph  ->  ( ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ z  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) )  /\  A. x  e.  ( Base `  A
) ( ( ( x g x ) `
 ( ( Id
`  A ) `  x ) )  =  ( ( Id `  C ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  A
) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  A ) y ) A. n  e.  ( y ( Hom  `  A
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  A )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  C )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) )  <->  ( f : ( Base `  B
) --> ( Base `  D
)  /\  g  e.  X_ z  e.  ( (
Base `  B )  X.  ( Base `  B
) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  D
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  B ) `
 z ) )  /\  A. x  e.  ( Base `  B
) ( ( ( x g x ) `
 ( ( Id
`  B ) `  x ) )  =  ( ( Id `  D ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  B
) A. z  e.  ( Base `  B
) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) ) ) )
16813, 167anbi12d 747 . . 3  |-  ( ph  ->  ( ( ( A  e.  Cat  /\  C  e.  Cat )  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) )  /\  A. x  e.  ( Base `  A
) ( ( ( x g x ) `
 ( ( Id
`  A ) `  x ) )  =  ( ( Id `  C ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  A
) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  A ) y ) A. n  e.  ( y ( Hom  `  A
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  A )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  C )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) ) )  <->  ( ( B  e.  Cat  /\  D  e.  Cat )  /\  (
f : ( Base `  B ) --> ( Base `  D )  /\  g  e.  X_ z  e.  ( ( Base `  B
)  X.  ( Base `  B ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  D
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  B ) `
 z ) )  /\  A. x  e.  ( Base `  B
) ( ( ( x g x ) `
 ( ( Id
`  B ) `  x ) )  =  ( ( Id `  D ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  B
) A. z  e.  ( Base `  B
) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) ) ) ) )
169 df-br 4654 . . . . 5  |-  ( f ( A  Func  C
) g  <->  <. f ,  g >.  e.  ( A  Func  C ) )
170 funcrcl 16523 . . . . 5  |-  ( <.
f ,  g >.  e.  ( A  Func  C
)  ->  ( A  e.  Cat  /\  C  e. 
Cat ) )
171169, 170sylbi 207 . . . 4  |-  ( f ( A  Func  C
) g  ->  ( A  e.  Cat  /\  C  e.  Cat ) )
172 eqid 2622 . . . . 5  |-  ( Id
`  A )  =  ( Id `  A
)
173 eqid 2622 . . . . 5  |-  ( Id
`  C )  =  ( Id `  C
)
174 simpl 473 . . . . 5  |-  ( ( A  e.  Cat  /\  C  e.  Cat )  ->  A  e.  Cat )
175 simpr 477 . . . . 5  |-  ( ( A  e.  Cat  /\  C  e.  Cat )  ->  C  e.  Cat )
17635, 48, 36, 49, 172, 173, 37, 50, 174, 175isfunc 16524 . . . 4  |-  ( ( A  e.  Cat  /\  C  e.  Cat )  ->  ( f ( A 
Func  C ) g  <->  ( f : ( Base `  A
) --> ( Base `  C
)  /\  g  e.  X_ z  e.  ( (
Base `  A )  X.  ( Base `  A
) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) )  /\  A. x  e.  ( Base `  A
) ( ( ( x g x ) `
 ( ( Id
`  A ) `  x ) )  =  ( ( Id `  C ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  A
) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  A ) y ) A. n  e.  ( y ( Hom  `  A
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  A )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  C )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) ) ) )
177171, 176biadan2 674 . . 3  |-  ( f ( A  Func  C
) g  <->  ( ( A  e.  Cat  /\  C  e.  Cat )  /\  (
f : ( Base `  A ) --> ( Base `  C )  /\  g  e.  X_ z  e.  ( ( Base `  A
)  X.  ( Base `  A ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  C
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  A ) `
 z ) )  /\  A. x  e.  ( Base `  A
) ( ( ( x g x ) `
 ( ( Id
`  A ) `  x ) )  =  ( ( Id `  C ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  A
) A. z  e.  ( Base `  A
) A. m  e.  ( x ( Hom  `  A ) y ) A. n  e.  ( y ( Hom  `  A
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  A )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  C )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) ) ) )
178 df-br 4654 . . . . 5  |-  ( f ( B  Func  D
) g  <->  <. f ,  g >.  e.  ( B  Func  D ) )
179 funcrcl 16523 . . . . 5  |-  ( <.
f ,  g >.  e.  ( B  Func  D
)  ->  ( B  e.  Cat  /\  D  e. 
Cat ) )
180178, 179sylbi 207 . . . 4  |-  ( f ( B  Func  D
) g  ->  ( B  e.  Cat  /\  D  e.  Cat ) )
181 eqid 2622 . . . . 5  |-  ( Base `  B )  =  (
Base `  B )
182 eqid 2622 . . . . 5  |-  ( Base `  D )  =  (
Base `  D )
183 eqid 2622 . . . . 5  |-  ( Id
`  B )  =  ( Id `  B
)
184 eqid 2622 . . . . 5  |-  ( Id
`  D )  =  ( Id `  D
)
185 simpl 473 . . . . 5  |-  ( ( B  e.  Cat  /\  D  e.  Cat )  ->  B  e.  Cat )
186 simpr 477 . . . . 5  |-  ( ( B  e.  Cat  /\  D  e.  Cat )  ->  D  e.  Cat )
187181, 182, 109, 125, 183, 184, 38, 51, 185, 186isfunc 16524 . . . 4  |-  ( ( B  e.  Cat  /\  D  e.  Cat )  ->  ( f ( B 
Func  D ) g  <->  ( f : ( Base `  B
) --> ( Base `  D
)  /\  g  e.  X_ z  e.  ( (
Base `  B )  X.  ( Base `  B
) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  D
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  B ) `
 z ) )  /\  A. x  e.  ( Base `  B
) ( ( ( x g x ) `
 ( ( Id
`  B ) `  x ) )  =  ( ( Id `  D ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  B
) A. z  e.  ( Base `  B
) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) ) ) )
188180, 187biadan2 674 . . 3  |-  ( f ( B  Func  D
) g  <->  ( ( B  e.  Cat  /\  D  e.  Cat )  /\  (
f : ( Base `  B ) --> ( Base `  D )  /\  g  e.  X_ z  e.  ( ( Base `  B
)  X.  ( Base `  B ) ) ( ( ( f `  ( 1st `  z ) ) ( Hom  `  D
) ( f `  ( 2nd `  z ) ) )  ^m  (
( Hom  `  B ) `
 z ) )  /\  A. x  e.  ( Base `  B
) ( ( ( x g x ) `
 ( ( Id
`  B ) `  x ) )  =  ( ( Id `  D ) `  (
f `  x )
)  /\  A. y  e.  ( Base `  B
) A. z  e.  ( Base `  B
) A. m  e.  ( x ( Hom  `  B ) y ) A. n  e.  ( y ( Hom  `  B
) z ) ( ( x g z ) `  ( n ( <. x ,  y
>. (comp `  B )
z ) m ) )  =  ( ( ( y g z ) `  n ) ( <. ( f `  x ) ,  ( f `  y )
>. (comp `  D )
( f `  z
) ) ( ( x g y ) `
 m ) ) ) ) ) )
189168, 177, 1883bitr4g 303 . 2  |-  ( ph  ->  ( f ( A 
Func  C ) g  <->  f ( B  Func  D ) g ) )
1901, 2, 189eqbrrdiv 5218 1  |-  ( ph  ->  ( A  Func  C
)  =  ( B 
Func  D ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    <-> wb 196    /\ wa 384    /\ w3a 1037    = wceq 1483    e. wcel 1990   A.wral 2912   <.cop 4183   class class class wbr 4653    X. cxp 5112   -->wf 5884   ` cfv 5888  (class class class)co 6650   1stc1st 7166   2ndc2nd 7167    ^m cmap 7857   X_cixp 7908   Basecbs 15857   Hom chom 15952  compcco 15953   Catccat 16325   Idccid 16326   Hom f chomf 16327  compfccomf 16328    Func cfunc 16514
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-fal 1489  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-riota 6611  df-ov 6653  df-oprab 6654  df-mpt2 6655  df-1st 7168  df-2nd 7169  df-map 7859  df-ixp 7909  df-cat 16329  df-cid 16330  df-homf 16331  df-comf 16332  df-func 16518
This theorem is referenced by:  funcres2c  16561  fullpropd  16580  fthpropd  16581  ressffth  16598  natpropd  16636  fucpropd  16637  funcsetcres2  16743
  Copyright terms: Public domain W3C validator