| Step |
Hyp |
Ref |
Expression |
| 1 |
|
hofval.m |
⊢ 𝑀 = ( HomF ‘ 𝐶 ) |
| 2 |
|
hofval.c |
⊢ ( 𝜑 → 𝐶 ∈ Cat ) |
| 3 |
|
eqid |
⊢ ( Base ‘ 𝐶 ) = ( Base ‘ 𝐶 ) |
| 4 |
|
eqid |
⊢ ( Hom ‘ 𝐶 ) = ( Hom ‘ 𝐶 ) |
| 5 |
|
eqid |
⊢ ( comp ‘ 𝐶 ) = ( comp ‘ 𝐶 ) |
| 6 |
1 2 3 4 5
|
hofval |
⊢ ( 𝜑 → 𝑀 = 〈 ( Homf ‘ 𝐶 ) , ( 𝑥 ∈ ( ( Base ‘ 𝐶 ) × ( Base ‘ 𝐶 ) ) , 𝑦 ∈ ( ( Base ‘ 𝐶 ) × ( Base ‘ 𝐶 ) ) ↦ ( 𝑓 ∈ ( ( 1st ‘ 𝑦 ) ( Hom ‘ 𝐶 ) ( 1st ‘ 𝑥 ) ) , 𝑔 ∈ ( ( 2nd ‘ 𝑥 ) ( Hom ‘ 𝐶 ) ( 2nd ‘ 𝑦 ) ) ↦ ( ℎ ∈ ( ( Hom ‘ 𝐶 ) ‘ 𝑥 ) ↦ ( ( 𝑔 ( 𝑥 ( comp ‘ 𝐶 ) ( 2nd ‘ 𝑦 ) ) ℎ ) ( 〈 ( 1st ‘ 𝑦 ) , ( 1st ‘ 𝑥 ) 〉 ( comp ‘ 𝐶 ) ( 2nd ‘ 𝑦 ) ) 𝑓 ) ) ) ) 〉 ) |
| 7 |
|
fvex |
⊢ ( Homf ‘ 𝐶 ) ∈ V |
| 8 |
|
fvex |
⊢ ( Base ‘ 𝐶 ) ∈ V |
| 9 |
8 8
|
xpex |
⊢ ( ( Base ‘ 𝐶 ) × ( Base ‘ 𝐶 ) ) ∈ V |
| 10 |
9 9
|
mpoex |
⊢ ( 𝑥 ∈ ( ( Base ‘ 𝐶 ) × ( Base ‘ 𝐶 ) ) , 𝑦 ∈ ( ( Base ‘ 𝐶 ) × ( Base ‘ 𝐶 ) ) ↦ ( 𝑓 ∈ ( ( 1st ‘ 𝑦 ) ( Hom ‘ 𝐶 ) ( 1st ‘ 𝑥 ) ) , 𝑔 ∈ ( ( 2nd ‘ 𝑥 ) ( Hom ‘ 𝐶 ) ( 2nd ‘ 𝑦 ) ) ↦ ( ℎ ∈ ( ( Hom ‘ 𝐶 ) ‘ 𝑥 ) ↦ ( ( 𝑔 ( 𝑥 ( comp ‘ 𝐶 ) ( 2nd ‘ 𝑦 ) ) ℎ ) ( 〈 ( 1st ‘ 𝑦 ) , ( 1st ‘ 𝑥 ) 〉 ( comp ‘ 𝐶 ) ( 2nd ‘ 𝑦 ) ) 𝑓 ) ) ) ) ∈ V |
| 11 |
7 10
|
op1std |
⊢ ( 𝑀 = 〈 ( Homf ‘ 𝐶 ) , ( 𝑥 ∈ ( ( Base ‘ 𝐶 ) × ( Base ‘ 𝐶 ) ) , 𝑦 ∈ ( ( Base ‘ 𝐶 ) × ( Base ‘ 𝐶 ) ) ↦ ( 𝑓 ∈ ( ( 1st ‘ 𝑦 ) ( Hom ‘ 𝐶 ) ( 1st ‘ 𝑥 ) ) , 𝑔 ∈ ( ( 2nd ‘ 𝑥 ) ( Hom ‘ 𝐶 ) ( 2nd ‘ 𝑦 ) ) ↦ ( ℎ ∈ ( ( Hom ‘ 𝐶 ) ‘ 𝑥 ) ↦ ( ( 𝑔 ( 𝑥 ( comp ‘ 𝐶 ) ( 2nd ‘ 𝑦 ) ) ℎ ) ( 〈 ( 1st ‘ 𝑦 ) , ( 1st ‘ 𝑥 ) 〉 ( comp ‘ 𝐶 ) ( 2nd ‘ 𝑦 ) ) 𝑓 ) ) ) ) 〉 → ( 1st ‘ 𝑀 ) = ( Homf ‘ 𝐶 ) ) |
| 12 |
6 11
|
syl |
⊢ ( 𝜑 → ( 1st ‘ 𝑀 ) = ( Homf ‘ 𝐶 ) ) |