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 ‘ 𝐶 ) ) |