Step |
Hyp |
Ref |
Expression |
1 |
|
xpcfucbas.t |
|- T = ( ( B FuncCat C ) Xc. ( D FuncCat E ) ) |
2 |
|
xpcfuchomfval.b |
|- A = ( Base ` T ) |
3 |
|
xpcfuchomfval.k |
|- K = ( Hom ` T ) |
4 |
|
eqid |
|- ( B FuncCat C ) = ( B FuncCat C ) |
5 |
|
eqid |
|- ( B Nat C ) = ( B Nat C ) |
6 |
4 5
|
fuchom |
|- ( B Nat C ) = ( Hom ` ( B FuncCat C ) ) |
7 |
|
eqid |
|- ( D FuncCat E ) = ( D FuncCat E ) |
8 |
|
eqid |
|- ( D Nat E ) = ( D Nat E ) |
9 |
7 8
|
fuchom |
|- ( D Nat E ) = ( Hom ` ( D FuncCat E ) ) |
10 |
1 2 6 9 3
|
xpchomfval |
|- K = ( u e. A , v e. A |-> ( ( ( 1st ` u ) ( B Nat C ) ( 1st ` v ) ) X. ( ( 2nd ` u ) ( D Nat E ) ( 2nd ` v ) ) ) ) |