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

Theorem catideu 13626
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 13625 . 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 5907 . . . . . . . 8  |-  ( y  =  X  ->  (
y H X )  =  ( X H X ) )
8 opeq1 3833 . . . . . . . . . . 11  |-  ( y  =  X  ->  <. y ,  X >.  =  <. X ,  X >. )
98oveq1d 5915 . . . . . . . . . 10  |-  ( y  =  X  ->  ( <. y ,  X >.  .x. 
X )  =  (
<. X ,  X >.  .x. 
X ) )
109oveqd 5917 . . . . . . . . 9  |-  ( y  =  X  ->  (
g ( <. y ,  X >.  .x.  X ) f )  =  ( g ( <. X ,  X >.  .x.  X )
f ) )
1110eqeq1d 2324 . . . . . . . 8  |-  ( y  =  X  ->  (
( g ( <.
y ,  X >.  .x. 
X ) f )  =  f  <->  ( g
( <. X ,  X >.  .x.  X ) f )  =  f ) )
127, 11raleqbidv 2782 . . . . . . 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 5908 . . . . . . . 8  |-  ( y  =  X  ->  ( X H y )  =  ( X H X ) )
14 oveq2 5908 . . . . . . . . . 10  |-  ( y  =  X  ->  ( <. X ,  X >.  .x.  y )  =  (
<. X ,  X >.  .x. 
X ) )
1514oveqd 5917 . . . . . . . . 9  |-  ( y  =  X  ->  (
f ( <. X ,  X >.  .x.  y )
g )  =  ( f ( <. X ,  X >.  .x.  X )
g ) )
1615eqeq1d 2324 . . . . . . . 8  |-  ( y  =  X  ->  (
( f ( <. X ,  X >.  .x.  y ) g )  =  f  <->  ( f
( <. X ,  X >.  .x.  X ) g )  =  f ) )
1713, 16raleqbidv 2782 . . . . . . 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 2914 . . . . 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 2661 . . 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 5908 . . . . . . . . . 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 2330 . . . . . . . . 9  |-  ( f  =  h  ->  (
( g ( <. X ,  X >.  .x. 
X ) f )  =  f  <->  ( g
( <. X ,  X >.  .x.  X ) h )  =  h ) )
2726rspcv 2914 . . . . . . . 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 5907 . . . . . . . . . 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 2330 . . . . . . . . 9  |-  ( f  =  g  ->  (
( f ( <. X ,  X >.  .x. 
X ) h )  =  f  <->  ( g
( <. X ,  X >.  .x.  X ) h )  =  g ) )
3130rspcv 2914 . . . . . . . 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 2334 . . . . . . . 8  |-  ( ( ( g ( <. X ,  X >.  .x. 
X ) h )  =  h  /\  (
g ( <. X ,  X >.  .x.  X )
h )  =  g )  ->  h  =  g )
3433eqcomd 2321 . . . . . . 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 2643 . . . . 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 5907 . . . . . . . 8  |-  ( g  =  h  ->  (
g ( <. X ,  X >.  .x.  X )
f )  =  ( h ( <. X ,  X >.  .x.  X )
f ) )
3938eqeq1d 2324 . . . . . . 7  |-  ( g  =  h  ->  (
( g ( <. X ,  X >.  .x. 
X ) f )  =  f  <->  ( h
( <. X ,  X >.  .x.  X ) f )  =  f ) )
4039ralbidv 2597 . . . . . 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 5908 . . . . . . . 8  |-  ( g  =  h  ->  (
f ( <. X ,  X >.  .x.  X )
g )  =  ( f ( <. X ,  X >.  .x.  X )
h ) )
4241eqeq1d 2324 . . . . . . 7  |-  ( g  =  h  ->  (
( f ( <. X ,  X >.  .x. 
X ) g )  =  f  <->  ( f
( <. X ,  X >.  .x.  X ) h )  =  f ) )
4342ralbidv 2597 . . . . . 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 2992 . . . 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 2998 . . 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 2787 . 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 1633    e. wcel 1701   A.wral 2577   E.wrex 2578   E!wreu 2579   E*wrmo 2580   <.cop 3677   ` cfv 5292  (class class class)co 5900   Basecbs 13195    Hom chom 13266  compcco 13267   Catccat 13615
This theorem is referenced by:  catidd  13631  catidcl  13633  catlid  13634  catrid  13635
This theorem was proved from axioms:  ax-1 5  ax-2 6  ax-3 7  ax-mp 8  ax-gen 1537  ax-5 1548  ax-17 1607  ax-9 1645  ax-8 1666  ax-6 1720  ax-7 1725  ax-11 1732  ax-12 1897  ax-ext 2297  ax-nul 4186
This theorem depends on definitions:  df-bi 177  df-or 359  df-an 360  df-3an 936  df-tru 1310  df-ex 1533  df-nf 1536  df-sb 1640  df-eu 2180  df-mo 2181  df-clab 2303  df-cleq 2309  df-clel 2312  df-nfc 2441  df-ne 2481  df-ral 2582  df-rex 2583  df-reu 2584  df-rmo 2585  df-rab 2586  df-v 2824  df-sbc 3026  df-dif 3189  df-un 3191  df-in 3193  df-ss 3200  df-nul 3490  df-if 3600  df-sn 3680  df-pr 3681  df-op 3683  df-uni 3865  df-br 4061  df-iota 5256  df-fv 5300  df-ov 5903  df-cat 13619
  Copyright terms: Public domain W3C validator