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

Theorem curf11 15032
Description: Value of the double evaluated curry functor. (Contributed by Mario Carneiro, 12-Jan-2017.)
Hypotheses
Ref Expression
curfval.g  |-  G  =  ( <. C ,  D >. curryF  F
)
curfval.a  |-  A  =  ( Base `  C
)
curfval.c  |-  ( ph  ->  C  e.  Cat )
curfval.d  |-  ( ph  ->  D  e.  Cat )
curfval.f  |-  ( ph  ->  F  e.  ( ( C  X.c  D )  Func  E
) )
curfval.b  |-  B  =  ( Base `  D
)
curf1.x  |-  ( ph  ->  X  e.  A )
curf1.k  |-  K  =  ( ( 1st `  G
) `  X )
curf11.y  |-  ( ph  ->  Y  e.  B )
Assertion
Ref Expression
curf11  |-  ( ph  ->  ( ( 1st `  K
) `  Y )  =  ( X ( 1st `  F ) Y ) )

Proof of Theorem curf11
Dummy variables  g 
y  z are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 curfval.g . . . 4  |-  G  =  ( <. C ,  D >. curryF  F
)
2 curfval.a . . . 4  |-  A  =  ( Base `  C
)
3 curfval.c . . . 4  |-  ( ph  ->  C  e.  Cat )
4 curfval.d . . . 4  |-  ( ph  ->  D  e.  Cat )
5 curfval.f . . . 4  |-  ( ph  ->  F  e.  ( ( C  X.c  D )  Func  E
) )
6 curfval.b . . . 4  |-  B  =  ( Base `  D
)
7 curf1.x . . . 4  |-  ( ph  ->  X  e.  A )
8 curf1.k . . . 4  |-  K  =  ( ( 1st `  G
) `  X )
9 eqid 2441 . . . 4  |-  ( Hom  `  D )  =  ( Hom  `  D )
10 eqid 2441 . . . 4  |-  ( Id
`  C )  =  ( Id `  C
)
111, 2, 3, 4, 5, 6, 7, 8, 9, 10curf1 15031 . . 3  |-  ( ph  ->  K  =  <. (
y  e.  B  |->  ( X ( 1st `  F
) y ) ) ,  ( y  e.  B ,  z  e.  B  |->  ( g  e.  ( y ( Hom  `  D ) z ) 
|->  ( ( ( Id
`  C ) `  X ) ( <. X ,  y >. ( 2nd `  F )
<. X ,  z >.
) g ) ) ) >. )
12 fvex 5698 . . . . . 6  |-  ( Base `  D )  e.  _V
136, 12eqeltri 2511 . . . . 5  |-  B  e. 
_V
1413mptex 5945 . . . 4  |-  ( y  e.  B  |->  ( X ( 1st `  F
) y ) )  e.  _V
1513, 13mpt2ex 6649 . . . 4  |-  ( y  e.  B ,  z  e.  B  |->  ( g  e.  ( y ( Hom  `  D )
z )  |->  ( ( ( Id `  C
) `  X )
( <. X ,  y
>. ( 2nd `  F
) <. X ,  z
>. ) g ) ) )  e.  _V
1614, 15op1std 6586 . . 3  |-  ( K  =  <. ( y  e.  B  |->  ( X ( 1st `  F ) y ) ) ,  ( y  e.  B ,  z  e.  B  |->  ( g  e.  ( y ( Hom  `  D
) z )  |->  ( ( ( Id `  C ) `  X
) ( <. X , 
y >. ( 2nd `  F
) <. X ,  z
>. ) g ) ) ) >.  ->  ( 1st `  K )  =  ( y  e.  B  |->  ( X ( 1st `  F
) y ) ) )
1711, 16syl 16 . 2  |-  ( ph  ->  ( 1st `  K
)  =  ( y  e.  B  |->  ( X ( 1st `  F
) y ) ) )
18 simpr 458 . . 3  |-  ( (
ph  /\  y  =  Y )  ->  y  =  Y )
1918oveq2d 6106 . 2  |-  ( (
ph  /\  y  =  Y )  ->  ( X ( 1st `  F
) y )  =  ( X ( 1st `  F ) Y ) )
20 curf11.y . 2  |-  ( ph  ->  Y  e.  B )
21 ovex 6115 . . 3  |-  ( X ( 1st `  F
) Y )  e. 
_V
2221a1i 11 . 2  |-  ( ph  ->  ( X ( 1st `  F ) Y )  e.  _V )
2317, 19, 20, 22fvmptd 5776 1  |-  ( ph  ->  ( ( 1st `  K
) `  Y )  =  ( X ( 1st `  F ) Y ) )
Colors of variables: wff setvar class
Syntax hints:    -> wi 4    /\ wa 369    = wceq 1364    e. wcel 1761   _Vcvv 2970   <.cop 3880    e. cmpt 4347   ` cfv 5415  (class class class)co 6090    e. cmpt2 6092   1stc1st 6574   2ndc2nd 6575   Basecbs 14170   Hom chom 14245   Catccat 14598   Idccid 14599    Func cfunc 14760    X.c cxpc 14974   curryF ccurf 15016
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1596  ax-4 1607  ax-5 1675  ax-6 1713  ax-7 1733  ax-8 1763  ax-9 1765  ax-10 1780  ax-11 1785  ax-12 1797  ax-13 1948  ax-ext 2422  ax-rep 4400  ax-sep 4410  ax-nul 4418  ax-pow 4467  ax-pr 4528  ax-un 6371
This theorem depends on definitions:  df-bi 185  df-or 370  df-an 371  df-3an 962  df-tru 1367  df-ex 1592  df-nf 1595  df-sb 1706  df-eu 2261  df-mo 2262  df-clab 2428  df-cleq 2434  df-clel 2437  df-nfc 2566  df-ne 2606  df-ral 2718  df-rex 2719  df-reu 2720  df-rab 2722  df-v 2972  df-sbc 3184  df-csb 3286  df-dif 3328  df-un 3330  df-in 3332  df-ss 3339  df-nul 3635  df-if 3789  df-pw 3859  df-sn 3875  df-pr 3877  df-op 3881  df-uni 4089  df-iun 4170  df-br 4290  df-opab 4348  df-mpt 4349  df-id 4632  df-xp 4842  df-rel 4843  df-cnv 4844  df-co 4845  df-dm 4846  df-rn 4847  df-res 4848  df-ima 4849  df-iota 5378  df-fun 5417  df-fn 5418  df-f 5419  df-f1 5420  df-fo 5421  df-f1o 5422  df-fv 5423  df-ov 6093  df-oprab 6094  df-mpt2 6095  df-1st 6576  df-2nd 6577  df-curf 15020
This theorem is referenced by:  curf1cl  15034  curf2cl  15037  curfcl  15038  uncfcurf  15045  diag11  15049  yon11  15070
  Copyright terms: Public domain W3C validator