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

Theorem catideu 13577
Description: Each object in a category has a unique identity arrow. (Contributed by Mario Carneiro, 2-Jan-2017.)
Hypotheses
Ref Expression
catidex.b  |-  B  =  ( Base `  C
)
catidex.h  |-  H  =  (  Hom  `  C
)
catidex.o  |-  .x.  =  (comp `  C )
catidex.c  |-  ( ph  ->  C  e.  Cat )
catidex.x  |-  ( ph  ->  X  e.  B )
Assertion
Ref Expression
catideu  |-  ( ph  ->  E! g  e.  ( X H X ) A. y  e.  B  ( A. f  e.  ( y H X ) ( g ( <.
y ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H y ) ( f ( <. X ,  X >.  .x.  y )
g )  =  f ) )
Distinct variable groups:    f, g,
y, B    C, f,
g, y    ph, g    f, X, g, y    f, H, g, y    .x. , f,
g, y
Allowed substitution hints:    ph( y, f)

Proof of Theorem catideu
Dummy variable  h is distinct from all other variables.
StepHypRef Expression
1 catidex.b . . 3  |-  B  =  ( Base `  C
)
2 catidex.h . . 3  |-  H  =  (  Hom  `  C
)
3 catidex.o . . 3  |-  .x.  =  (comp `  C )
4 catidex.c . . 3  |-  ( ph  ->  C  e.  Cat )
5 catidex.x . . 3  |-  ( ph  ->  X  e.  B )
61, 2, 3, 4, 5catidex 13576 . 2  |-  ( ph  ->  E. g  e.  ( X H X ) A. y  e.  B  ( A. f  e.  ( y H X ) ( g ( <.
y ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H y ) ( f ( <. X ,  X >.  .x.  y )
g )  =  f ) )
7 oveq1 5865 . . . . . . . 8  |-  ( y  =  X  ->  (
y H X )  =  ( X H X ) )
8 opeq1 3796 . . . . . . . . . . 11  |-  ( y  =  X  ->  <. y ,  X >.  =  <. X ,  X >. )
98oveq1d 5873 . . . . . . . . . 10  |-  ( y  =  X  ->  ( <. y ,  X >.  .x. 
X )  =  (
<. X ,  X >.  .x. 
X ) )
109oveqd 5875 . . . . . . . . 9  |-  ( y  =  X  ->  (
g ( <. y ,  X >.  .x.  X ) f )  =  ( g ( <. X ,  X >.  .x.  X )
f ) )
1110eqeq1d 2291 . . . . . . . 8  |-  ( y  =  X  ->  (
( g ( <.
y ,  X >.  .x. 
X ) f )  =  f  <->  ( g
( <. X ,  X >.  .x.  X ) f )  =  f ) )
127, 11raleqbidv 2748 . . . . . . 7  |-  ( y  =  X  ->  ( A. f  e.  (
y H X ) ( g ( <.
y ,  X >.  .x. 
X ) f )  =  f  <->  A. f  e.  ( X H X ) ( g (
<. X ,  X >.  .x. 
X ) f )  =  f ) )
13 oveq2 5866 . . . . . . . 8  |-  ( y  =  X  ->  ( X H y )  =  ( X H X ) )
14 oveq2 5866 . . . . . . . . . 10  |-  ( y  =  X  ->  ( <. X ,  X >.  .x.  y )  =  (
<. X ,  X >.  .x. 
X ) )
1514oveqd 5875 . . . . . . . . 9  |-  ( y  =  X  ->  (
f ( <. X ,  X >.  .x.  y )
g )  =  ( f ( <. X ,  X >.  .x.  X )
g ) )
1615eqeq1d 2291 . . . . . . . 8  |-  ( y  =  X  ->  (
( f ( <. X ,  X >.  .x.  y ) g )  =  f  <->  ( f
( <. X ,  X >.  .x.  X ) g )  =  f ) )
1713, 16raleqbidv 2748 . . . . . . 7  |-  ( y  =  X  ->  ( A. f  e.  ( X H y ) ( f ( <. X ,  X >.  .x.  y )
g )  =  f  <->  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X )
g )  =  f ) )
1812, 17anbi12d 691 . . . . . 6  |-  ( y  =  X  ->  (
( A. f  e.  ( y H X ) ( g (
<. y ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H y ) ( f ( <. X ,  X >.  .x.  y )
g )  =  f )  <->  ( A. f  e.  ( X H X ) ( g (
<. X ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X ) g )  =  f ) ) )
1918rspcv 2880 . . . . 5  |-  ( X  e.  B  ->  ( A. y  e.  B  ( A. f  e.  ( y H X ) ( g ( <.
y ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H y ) ( f ( <. X ,  X >.  .x.  y )
g )  =  f )  ->  ( A. f  e.  ( X H X ) ( g ( <. X ,  X >.  .x.  X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X )
g )  =  f ) ) )
205, 19syl 15 . . . 4  |-  ( ph  ->  ( A. y  e.  B  ( A. f  e.  ( y H X ) ( g (
<. y ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H y ) ( f ( <. X ,  X >.  .x.  y )
g )  =  f )  ->  ( A. f  e.  ( X H X ) ( g ( <. X ,  X >.  .x.  X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X )
g )  =  f ) ) )
2120ralrimivw 2627 . . 3  |-  ( ph  ->  A. g  e.  ( X H X ) ( A. y  e.  B  ( A. f  e.  ( y H X ) ( g (
<. y ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H y ) ( f ( <. X ,  X >.  .x.  y )
g )  =  f )  ->  ( A. f  e.  ( X H X ) ( g ( <. X ,  X >.  .x.  X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X )
g )  =  f ) ) )
22 id 19 . . . . . . . 8  |-  ( ( A. f  e.  ( X H X ) ( g ( <. X ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X ) h )  =  f )  ->  ( A. f  e.  ( X H X ) ( g (
<. X ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X ) h )  =  f ) )
2322ad2ant2rl 729 . . . . . . 7  |-  ( ( ( A. f  e.  ( X H X ) ( g (
<. X ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X ) g )  =  f )  /\  ( A. f  e.  ( X H X ) ( h (
<. X ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X ) h )  =  f ) )  ->  ( A. f  e.  ( X H X ) ( g ( <. X ,  X >.  .x.  X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X )
h )  =  f ) )
24 oveq2 5866 . . . . . . . . . 10  |-  ( f  =  h  ->  (
g ( <. X ,  X >.  .x.  X )
f )  =  ( g ( <. X ,  X >.  .x.  X )
h ) )
25 id 19 . . . . . . . . . 10  |-  ( f  =  h  ->  f  =  h )
2624, 25eqeq12d 2297 . . . . . . . . 9  |-  ( f  =  h  ->  (
( g ( <. X ,  X >.  .x. 
X ) f )  =  f  <->  ( g
( <. X ,  X >.  .x.  X ) h )  =  h ) )
2726rspcv 2880 . . . . . . . 8  |-  ( h  e.  ( X H X )  ->  ( A. f  e.  ( X H X ) ( g ( <. X ,  X >.  .x.  X )
f )  =  f  ->  ( g (
<. X ,  X >.  .x. 
X ) h )  =  h ) )
28 oveq1 5865 . . . . . . . . . 10  |-  ( f  =  g  ->  (
f ( <. X ,  X >.  .x.  X )
h )  =  ( g ( <. X ,  X >.  .x.  X )
h ) )
29 id 19 . . . . . . . . . 10  |-  ( f  =  g  ->  f  =  g )
3028, 29eqeq12d 2297 . . . . . . . . 9  |-  ( f  =  g  ->  (
( f ( <. X ,  X >.  .x. 
X ) h )  =  f  <->  ( g
( <. X ,  X >.  .x.  X ) h )  =  g ) )
3130rspcv 2880 . . . . . . . 8  |-  ( g  e.  ( X H X )  ->  ( A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X )
h )  =  f  ->  ( g (
<. X ,  X >.  .x. 
X ) h )  =  g ) )
3227, 31im2anan9r 809 . . . . . . 7  |-  ( ( g  e.  ( X H X )  /\  h  e.  ( X H X ) )  -> 
( ( A. f  e.  ( X H X ) ( g (
<. X ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X ) h )  =  f )  ->  ( ( g ( <. X ,  X >.  .x.  X ) h )  =  h  /\  ( g ( <. X ,  X >.  .x. 
X ) h )  =  g ) ) )
33 eqtr2 2301 . . . . . . . 8  |-  ( ( ( g ( <. X ,  X >.  .x. 
X ) h )  =  h  /\  (
g ( <. X ,  X >.  .x.  X )
h )  =  g )  ->  h  =  g )
3433eqcomd 2288 . . . . . . 7  |-  ( ( ( g ( <. X ,  X >.  .x. 
X ) h )  =  h  /\  (
g ( <. X ,  X >.  .x.  X )
h )  =  g )  ->  g  =  h )
3523, 32, 34syl56 30 . . . . . 6  |-  ( ( g  e.  ( X H X )  /\  h  e.  ( X H X ) )  -> 
( ( ( A. f  e.  ( X H X ) ( g ( <. X ,  X >.  .x.  X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X )
g )  =  f )  /\  ( A. f  e.  ( X H X ) ( h ( <. X ,  X >.  .x.  X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X )
h )  =  f ) )  ->  g  =  h ) )
3635rgen2a 2609 . . . . 5  |-  A. g  e.  ( X H X ) A. h  e.  ( X H X ) ( ( ( A. f  e.  ( X H X ) ( g ( <. X ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X ) g )  =  f )  /\  ( A. f  e.  ( X H X ) ( h (
<. X ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X ) h )  =  f ) )  ->  g  =  h )
3736a1i 10 . . . 4  |-  ( ph  ->  A. g  e.  ( X H X ) A. h  e.  ( X H X ) ( ( ( A. f  e.  ( X H X ) ( g ( <. X ,  X >.  .x.  X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X )
g )  =  f )  /\  ( A. f  e.  ( X H X ) ( h ( <. X ,  X >.  .x.  X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X )
h )  =  f ) )  ->  g  =  h ) )
38 oveq1 5865 . . . . . . . 8  |-  ( g  =  h  ->  (
g ( <. X ,  X >.  .x.  X )
f )  =  ( h ( <. X ,  X >.  .x.  X )
f ) )
3938eqeq1d 2291 . . . . . . 7  |-  ( g  =  h  ->  (
( g ( <. X ,  X >.  .x. 
X ) f )  =  f  <->  ( h
( <. X ,  X >.  .x.  X ) f )  =  f ) )
4039ralbidv 2563 . . . . . 6  |-  ( g  =  h  ->  ( A. f  e.  ( X H X ) ( g ( <. X ,  X >.  .x.  X )
f )  =  f  <->  A. f  e.  ( X H X ) ( h ( <. X ,  X >.  .x.  X )
f )  =  f ) )
41 oveq2 5866 . . . . . . . 8  |-  ( g  =  h  ->  (
f ( <. X ,  X >.  .x.  X )
g )  =  ( f ( <. X ,  X >.  .x.  X )
h ) )
4241eqeq1d 2291 . . . . . . 7  |-  ( g  =  h  ->  (
( f ( <. X ,  X >.  .x. 
X ) g )  =  f  <->  ( f
( <. X ,  X >.  .x.  X ) h )  =  f ) )
4342ralbidv 2563 . . . . . 6  |-  ( g  =  h  ->  ( A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X )
g )  =  f  <->  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X )
h )  =  f ) )
4440, 43anbi12d 691 . . . . 5  |-  ( g  =  h  ->  (
( A. f  e.  ( X H X ) ( g (
<. X ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X ) g )  =  f )  <-> 
( A. f  e.  ( X H X ) ( h (
<. X ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X ) h )  =  f ) ) )
4544rmo4 2958 . . . 4  |-  ( E* g  e.  ( X H X ) ( A. f  e.  ( X H X ) ( g ( <. X ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X ) g )  =  f )  <->  A. g  e.  ( X H X ) A. h  e.  ( X H X ) ( ( ( A. f  e.  ( X H X ) ( g (
<. X ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X ) g )  =  f )  /\  ( A. f  e.  ( X H X ) ( h (
<. X ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X ) h )  =  f ) )  ->  g  =  h ) )
4637, 45sylibr 203 . . 3  |-  ( ph  ->  E* g  e.  ( X H X ) ( A. f  e.  ( X H X ) ( g (
<. X ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X ) g )  =  f ) )
47 rmoim 2964 . . 3  |-  ( A. g  e.  ( X H X ) ( A. y  e.  B  ( A. f  e.  (
y H X ) ( g ( <.
y ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H y ) ( f ( <. X ,  X >.  .x.  y )
g )  =  f )  ->  ( A. f  e.  ( X H X ) ( g ( <. X ,  X >.  .x.  X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X )
g )  =  f ) )  ->  ( E* g  e.  ( X H X ) ( A. f  e.  ( X H X ) ( g ( <. X ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H X ) ( f ( <. X ,  X >.  .x.  X ) g )  =  f )  ->  E* g  e.  ( X H X ) A. y  e.  B  ( A. f  e.  ( y H X ) ( g (
<. y ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H y ) ( f ( <. X ,  X >.  .x.  y )
g )  =  f ) ) )
4821, 46, 47sylc 56 . 2  |-  ( ph  ->  E* g  e.  ( X H X ) A. y  e.  B  ( A. f  e.  ( y H X ) ( g ( <.
y ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H y ) ( f ( <. X ,  X >.  .x.  y )
g )  =  f ) )
49 reu5 2753 . 2  |-  ( E! g  e.  ( X H X ) A. y  e.  B  ( A. f  e.  (
y H X ) ( g ( <.
y ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H y ) ( f ( <. X ,  X >.  .x.  y )
g )  =  f )  <->  ( E. g  e.  ( X H X ) A. y  e.  B  ( A. f  e.  ( y H X ) ( g (
<. y ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H y ) ( f ( <. X ,  X >.  .x.  y )
g )  =  f )  /\  E* g  e.  ( X H X ) A. y  e.  B  ( A. f  e.  ( y H X ) ( g (
<. y ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H y ) ( f ( <. X ,  X >.  .x.  y )
g )  =  f ) ) )
506, 48, 49sylanbrc 645 1  |-  ( ph  ->  E! g  e.  ( X H X ) A. y  e.  B  ( A. f  e.  ( y H X ) ( g ( <.
y ,  X >.  .x. 
X ) f )  =  f  /\  A. f  e.  ( X H y ) ( f ( <. X ,  X >.  .x.  y )
g )  =  f ) )
Colors of variables: wff set class
Syntax hints:    -> wi 4    /\ wa 358    = wceq 1623    e. wcel 1684   A.wral 2543   E.wrex 2544   E!wreu 2545   E*wrmo 2546   <.cop 3643   ` cfv 5255  (class class class)co 5858   Basecbs 13148    Hom chom 13219  compcco 13220   Catccat 13566
This theorem is referenced by:  catidd  13582  catidcl  13584  catlid  13585  catrid  13586
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1533  ax-5 1544  ax-17 1603  ax-9 1635  ax-8 1643  ax-6 1703  ax-7 1708  ax-11 1715  ax-12 1866  ax-ext 2264  ax-nul 4149
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3an 936  df-tru 1310  df-ex 1529  df-nf 1532  df-sb 1630  df-eu 2147  df-mo 2148  df-clab 2270  df-cleq 2276  df-clel 2279  df-nfc 2408  df-ne 2448  df-ral 2548  df-rex 2549  df-reu 2550  df-rmo 2551  df-rab 2552  df-v 2790  df-sbc 2992  df-dif 3155  df-un 3157  df-in 3159  df-ss 3166  df-nul 3456  df-if 3566  df-sn 3646  df-pr 3647  df-op 3649  df-uni 3828  df-br 4024  df-iota 5219  df-fv 5263  df-ov 5861  df-cat 13570
  Copyright terms: Public domain W3C validator