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

Theorem catcval 14178
Description: Value of the category of categories (in a universe). (Contributed by Mario Carneiro, 3-Jan-2017.)
Hypotheses
Ref Expression
catcval.c  |-  C  =  (CatCat `  U )
catcval.u  |-  ( ph  ->  U  e.  V )
catcval.b  |-  ( ph  ->  B  =  ( U  i^i  Cat ) )
catcval.h  |-  ( ph  ->  H  =  ( x  e.  B ,  y  e.  B  |->  ( x 
Func  y ) ) )
catcval.o  |-  ( ph  ->  .x.  =  ( v  e.  ( B  X.  B ) ,  z  e.  B  |->  ( g  e.  ( ( 2nd `  v )  Func  z
) ,  f  e.  (  Func  `  v ) 
|->  ( g  o.func  f )
) ) )
Assertion
Ref Expression
catcval  |-  ( ph  ->  C  =  { <. (
Base `  ndx ) ,  B >. ,  <. (  Hom  `  ndx ) ,  H >. ,  <. (comp ` 
ndx ) ,  .x.  >. } )
Distinct variable groups:    x, v,
y, z, B    ph, v, x, y, z    v, U, x, y, z    f,
g, v, x, y, z
Allowed substitution hints:    ph( f, g)    B( f, g)    C( x, y, z, v, f, g)    .x. ( x, y, z, v, f, g)    U( f, g)    H( x, y, z, v, f, g)    V( x, y, z, v, f, g)

Proof of Theorem catcval
Dummy variables  u  b are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 catcval.c . 2  |-  C  =  (CatCat `  U )
2 df-catc 14177 . . . 4  |- CatCat  =  ( u  e.  _V  |->  [_ ( u  i^i  Cat )  /  b ]_ { <. ( Base `  ndx ) ,  b >. , 
<. (  Hom  `  ndx ) ,  ( x  e.  b ,  y  e.  b  |->  ( x  Func  y ) ) >. ,  <. (comp `  ndx ) ,  ( v  e.  ( b  X.  b ) ,  z  e.  b  |->  ( g  e.  ( ( 2nd `  v ) 
Func  z ) ,  f  e.  (  Func  `  v )  |->  ( g  o.func  f ) ) )
>. } )
32a1i 11 . . 3  |-  ( ph  -> CatCat 
=  ( u  e. 
_V  |->  [_ ( u  i^i 
Cat )  /  b ]_ { <. ( Base `  ndx ) ,  b >. , 
<. (  Hom  `  ndx ) ,  ( x  e.  b ,  y  e.  b  |->  ( x  Func  y ) ) >. ,  <. (comp `  ndx ) ,  ( v  e.  ( b  X.  b ) ,  z  e.  b  |->  ( g  e.  ( ( 2nd `  v ) 
Func  z ) ,  f  e.  (  Func  `  v )  |->  ( g  o.func  f ) ) )
>. } ) )
4 vex 2902 . . . . . 6  |-  u  e. 
_V
54inex1 4285 . . . . 5  |-  ( u  i^i  Cat )  e. 
_V
65a1i 11 . . . 4  |-  ( (
ph  /\  u  =  U )  ->  (
u  i^i  Cat )  e.  _V )
7 simpr 448 . . . . . 6  |-  ( (
ph  /\  u  =  U )  ->  u  =  U )
87ineq1d 3484 . . . . 5  |-  ( (
ph  /\  u  =  U )  ->  (
u  i^i  Cat )  =  ( U  i^i  Cat ) )
9 catcval.b . . . . . 6  |-  ( ph  ->  B  =  ( U  i^i  Cat ) )
109adantr 452 . . . . 5  |-  ( (
ph  /\  u  =  U )  ->  B  =  ( U  i^i  Cat ) )
118, 10eqtr4d 2422 . . . 4  |-  ( (
ph  /\  u  =  U )  ->  (
u  i^i  Cat )  =  B )
12 simpr 448 . . . . . 6  |-  ( ( ( ph  /\  u  =  U )  /\  b  =  B )  ->  b  =  B )
1312opeq2d 3933 . . . . 5  |-  ( ( ( ph  /\  u  =  U )  /\  b  =  B )  ->  <. ( Base `  ndx ) ,  b >.  =  <. (
Base `  ndx ) ,  B >. )
14 eqidd 2388 . . . . . . . 8  |-  ( ( ( ph  /\  u  =  U )  /\  b  =  B )  ->  (
x  Func  y )  =  ( x  Func  y ) )
1512, 12, 14mpt2eq123dv 6075 . . . . . . 7  |-  ( ( ( ph  /\  u  =  U )  /\  b  =  B )  ->  (
x  e.  b ,  y  e.  b  |->  ( x  Func  y )
)  =  ( x  e.  B ,  y  e.  B  |->  ( x 
Func  y ) ) )
16 catcval.h . . . . . . . 8  |-  ( ph  ->  H  =  ( x  e.  B ,  y  e.  B  |->  ( x 
Func  y ) ) )
1716ad2antrr 707 . . . . . . 7  |-  ( ( ( ph  /\  u  =  U )  /\  b  =  B )  ->  H  =  ( x  e.  B ,  y  e.  B  |->  ( x  Func  y ) ) )
1815, 17eqtr4d 2422 . . . . . 6  |-  ( ( ( ph  /\  u  =  U )  /\  b  =  B )  ->  (
x  e.  b ,  y  e.  b  |->  ( x  Func  y )
)  =  H )
1918opeq2d 3933 . . . . 5  |-  ( ( ( ph  /\  u  =  U )  /\  b  =  B )  ->  <. (  Hom  `  ndx ) ,  ( x  e.  b ,  y  e.  b 
|->  ( x  Func  y
) ) >.  =  <. (  Hom  `  ndx ) ,  H >. )
2012, 12xpeq12d 4843 . . . . . . . 8  |-  ( ( ( ph  /\  u  =  U )  /\  b  =  B )  ->  (
b  X.  b )  =  ( B  X.  B ) )
21 eqidd 2388 . . . . . . . 8  |-  ( ( ( ph  /\  u  =  U )  /\  b  =  B )  ->  (
g  e.  ( ( 2nd `  v ) 
Func  z ) ,  f  e.  (  Func  `  v )  |->  ( g  o.func  f ) )  =  ( g  e.  ( ( 2nd `  v
)  Func  z ) ,  f  e.  (  Func  `  v )  |->  ( g  o.func  f ) ) )
2220, 12, 21mpt2eq123dv 6075 . . . . . . 7  |-  ( ( ( ph  /\  u  =  U )  /\  b  =  B )  ->  (
v  e.  ( b  X.  b ) ,  z  e.  b  |->  ( g  e.  ( ( 2nd `  v ) 
Func  z ) ,  f  e.  (  Func  `  v )  |->  ( g  o.func  f ) ) )  =  ( v  e.  ( B  X.  B
) ,  z  e.  B  |->  ( g  e.  ( ( 2nd `  v
)  Func  z ) ,  f  e.  (  Func  `  v )  |->  ( g  o.func  f ) ) ) )
23 catcval.o . . . . . . . 8  |-  ( ph  ->  .x.  =  ( v  e.  ( B  X.  B ) ,  z  e.  B  |->  ( g  e.  ( ( 2nd `  v )  Func  z
) ,  f  e.  (  Func  `  v ) 
|->  ( g  o.func  f )
) ) )
2423ad2antrr 707 . . . . . . 7  |-  ( ( ( ph  /\  u  =  U )  /\  b  =  B )  ->  .x.  =  ( v  e.  ( B  X.  B ) ,  z  e.  B  |->  ( g  e.  ( ( 2nd `  v
)  Func  z ) ,  f  e.  (  Func  `  v )  |->  ( g  o.func  f ) ) ) )
2522, 24eqtr4d 2422 . . . . . 6  |-  ( ( ( ph  /\  u  =  U )  /\  b  =  B )  ->  (
v  e.  ( b  X.  b ) ,  z  e.  b  |->  ( g  e.  ( ( 2nd `  v ) 
Func  z ) ,  f  e.  (  Func  `  v )  |->  ( g  o.func  f ) ) )  =  .x.  )
2625opeq2d 3933 . . . . 5  |-  ( ( ( ph  /\  u  =  U )  /\  b  =  B )  ->  <. (comp ` 
ndx ) ,  ( v  e.  ( b  X.  b ) ,  z  e.  b  |->  ( g  e.  ( ( 2nd `  v ) 
Func  z ) ,  f  e.  (  Func  `  v )  |->  ( g  o.func  f ) ) )
>.  =  <. (comp `  ndx ) ,  .x.  >. )
2713, 19, 26tpeq123d 3841 . . . 4  |-  ( ( ( ph  /\  u  =  U )  /\  b  =  B )  ->  { <. (
Base `  ndx ) ,  b >. ,  <. (  Hom  `  ndx ) ,  ( x  e.  b ,  y  e.  b 
|->  ( x  Func  y
) ) >. ,  <. (comp `  ndx ) ,  ( v  e.  ( b  X.  b ) ,  z  e.  b  |->  ( g  e.  ( ( 2nd `  v ) 
Func  z ) ,  f  e.  (  Func  `  v )  |->  ( g  o.func  f ) ) )
>. }  =  { <. (
Base `  ndx ) ,  B >. ,  <. (  Hom  `  ndx ) ,  H >. ,  <. (comp ` 
ndx ) ,  .x.  >. } )
286, 11, 27csbied2 3237 . . 3  |-  ( (
ph  /\  u  =  U )  ->  [_ (
u  i^i  Cat )  /  b ]_ { <. ( Base `  ndx ) ,  b >. , 
<. (  Hom  `  ndx ) ,  ( x  e.  b ,  y  e.  b  |->  ( x  Func  y ) ) >. ,  <. (comp `  ndx ) ,  ( v  e.  ( b  X.  b ) ,  z  e.  b  |->  ( g  e.  ( ( 2nd `  v ) 
Func  z ) ,  f  e.  (  Func  `  v )  |->  ( g  o.func  f ) ) )
>. }  =  { <. (
Base `  ndx ) ,  B >. ,  <. (  Hom  `  ndx ) ,  H >. ,  <. (comp ` 
ndx ) ,  .x.  >. } )
29 catcval.u . . . 4  |-  ( ph  ->  U  e.  V )
30 elex 2907 . . . 4  |-  ( U  e.  V  ->  U  e.  _V )
3129, 30syl 16 . . 3  |-  ( ph  ->  U  e.  _V )
32 tpex 4648 . . . 4  |-  { <. (
Base `  ndx ) ,  B >. ,  <. (  Hom  `  ndx ) ,  H >. ,  <. (comp ` 
ndx ) ,  .x.  >. }  e.  _V
3332a1i 11 . . 3  |-  ( ph  ->  { <. ( Base `  ndx ) ,  B >. , 
<. (  Hom  `  ndx ) ,  H >. , 
<. (comp `  ndx ) , 
.x.  >. }  e.  _V )
343, 28, 31, 33fvmptd 5749 . 2  |-  ( ph  ->  (CatCat `  U )  =  { <. ( Base `  ndx ) ,  B >. , 
<. (  Hom  `  ndx ) ,  H >. , 
<. (comp `  ndx ) , 
.x.  >. } )
351, 34syl5eq 2431 1  |-  ( ph  ->  C  =  { <. (
Base `  ndx ) ,  B >. ,  <. (  Hom  `  ndx ) ,  H >. ,  <. (comp ` 
ndx ) ,  .x.  >. } )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 359    = wceq 1649    e. wcel 1717   _Vcvv 2899   [_csb 3194    i^i cin 3262   {ctp 3759   <.cop 3760    e. cmpt 4207    X. cxp 4816   ` cfv 5394  (class class class)co 6020    e. cmpt2 6022   2ndc2nd 6287   ndxcnx 13393   Basecbs 13396    Hom chom 13467  compcco 13468   Catccat 13816    Func cfunc 13978    o.func ccofu 13980  CatCatccatc 14176
This theorem is referenced by:  catcbas  14179  catchomfval  14180  catccofval  14182
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1552  ax-5 1563  ax-17 1623  ax-9 1661  ax-8 1682  ax-13 1719  ax-14 1721  ax-6 1736  ax-7 1741  ax-11 1753  ax-12 1939  ax-ext 2368  ax-sep 4271  ax-nul 4279  ax-pr 4344  ax-un 4641
This theorem depends on definitions:  df-bi 178  df-or 360  df-an 361  df-3an 938  df-tru 1325  df-ex 1548  df-nf 1551  df-sb 1656  df-eu 2242  df-mo 2243  df-clab 2374  df-cleq 2380  df-clel 2383  df-nfc 2512  df-ne 2552  df-ral 2654  df-rex 2655  df-rab 2658  df-v 2901  df-sbc 3105  df-csb 3195  df-dif 3266  df-un 3268  df-in 3270  df-ss 3277  df-nul 3572  df-if 3683  df-sn 3763  df-pr 3764  df-tp 3765  df-op 3766  df-uni 3958  df-br 4154  df-opab 4208  df-mpt 4209  df-id 4439  df-xp 4824  df-rel 4825  df-cnv 4826  df-co 4827  df-dm 4828  df-iota 5358  df-fun 5396  df-fv 5402  df-oprab 6024  df-mpt2 6025  df-catc 14177
  Copyright terms: Public domain W3C validator