This is an inofficial mirror of http://metamath.tirix.org for personal testing of a visualizer extension only.
Description: Define the evaluation functor, which is the extension of the evaluation map f , x |-> ( fx ) of functors, to a functor ( C --> D ) X. C --> D . (Contributed by Mario Carneiro, 11-Jan-2017)
| Ref | Expression | ||
|---|---|---|---|
| Assertion | df-evlf | ⊢ evalF = ( 𝑐 ∈ Cat , 𝑑 ∈ Cat ↦ 〈 ( 𝑓 ∈ ( 𝑐 Func 𝑑 ) , 𝑥 ∈ ( Base ‘ 𝑐 ) ↦ ( ( 1st ‘ 𝑓 ) ‘ 𝑥 ) ) , ( 𝑥 ∈ ( ( 𝑐 Func 𝑑 ) × ( Base ‘ 𝑐 ) ) , 𝑦 ∈ ( ( 𝑐 Func 𝑑 ) × ( Base ‘ 𝑐 ) ) ↦ ⦋ ( 1st ‘ 𝑥 ) / 𝑚 ⦌ ⦋ ( 1st ‘ 𝑦 ) / 𝑛 ⦌ ( 𝑎 ∈ ( 𝑚 ( 𝑐 Nat 𝑑 ) 𝑛 ) , 𝑔 ∈ ( ( 2nd ‘ 𝑥 ) ( Hom ‘ 𝑐 ) ( 2nd ‘ 𝑦 ) ) ↦ ( ( 𝑎 ‘ ( 2nd ‘ 𝑦 ) ) ( 〈 ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑥 ) ) , ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑦 ) ) 〉 ( comp ‘ 𝑑 ) ( ( 1st ‘ 𝑛 ) ‘ ( 2nd ‘ 𝑦 ) ) ) ( ( ( 2nd ‘ 𝑥 ) ( 2nd ‘ 𝑚 ) ( 2nd ‘ 𝑦 ) ) ‘ 𝑔 ) ) ) ) 〉 ) |
| Step | Hyp | Ref | Expression |
|---|---|---|---|
| 0 | cevlf | ⊢ evalF | |
| 1 | vc | ⊢ 𝑐 | |
| 2 | ccat | ⊢ Cat | |
| 3 | vd | ⊢ 𝑑 | |
| 4 | vf | ⊢ 𝑓 | |
| 5 | 1 | cv | ⊢ 𝑐 |
| 6 | cfunc | ⊢ Func | |
| 7 | 3 | cv | ⊢ 𝑑 |
| 8 | 5 7 6 | co | ⊢ ( 𝑐 Func 𝑑 ) |
| 9 | vx | ⊢ 𝑥 | |
| 10 | cbs | ⊢ Base | |
| 11 | 5 10 | cfv | ⊢ ( Base ‘ 𝑐 ) |
| 12 | c1st | ⊢ 1st | |
| 13 | 4 | cv | ⊢ 𝑓 |
| 14 | 13 12 | cfv | ⊢ ( 1st ‘ 𝑓 ) |
| 15 | 9 | cv | ⊢ 𝑥 |
| 16 | 15 14 | cfv | ⊢ ( ( 1st ‘ 𝑓 ) ‘ 𝑥 ) |
| 17 | 4 9 8 11 16 | cmpo | ⊢ ( 𝑓 ∈ ( 𝑐 Func 𝑑 ) , 𝑥 ∈ ( Base ‘ 𝑐 ) ↦ ( ( 1st ‘ 𝑓 ) ‘ 𝑥 ) ) |
| 18 | 8 11 | cxp | ⊢ ( ( 𝑐 Func 𝑑 ) × ( Base ‘ 𝑐 ) ) |
| 19 | vy | ⊢ 𝑦 | |
| 20 | 15 12 | cfv | ⊢ ( 1st ‘ 𝑥 ) |
| 21 | vm | ⊢ 𝑚 | |
| 22 | 19 | cv | ⊢ 𝑦 |
| 23 | 22 12 | cfv | ⊢ ( 1st ‘ 𝑦 ) |
| 24 | vn | ⊢ 𝑛 | |
| 25 | va | ⊢ 𝑎 | |
| 26 | 21 | cv | ⊢ 𝑚 |
| 27 | cnat | ⊢ Nat | |
| 28 | 5 7 27 | co | ⊢ ( 𝑐 Nat 𝑑 ) |
| 29 | 24 | cv | ⊢ 𝑛 |
| 30 | 26 29 28 | co | ⊢ ( 𝑚 ( 𝑐 Nat 𝑑 ) 𝑛 ) |
| 31 | vg | ⊢ 𝑔 | |
| 32 | c2nd | ⊢ 2nd | |
| 33 | 15 32 | cfv | ⊢ ( 2nd ‘ 𝑥 ) |
| 34 | chom | ⊢ Hom | |
| 35 | 5 34 | cfv | ⊢ ( Hom ‘ 𝑐 ) |
| 36 | 22 32 | cfv | ⊢ ( 2nd ‘ 𝑦 ) |
| 37 | 33 36 35 | co | ⊢ ( ( 2nd ‘ 𝑥 ) ( Hom ‘ 𝑐 ) ( 2nd ‘ 𝑦 ) ) |
| 38 | 25 | cv | ⊢ 𝑎 |
| 39 | 36 38 | cfv | ⊢ ( 𝑎 ‘ ( 2nd ‘ 𝑦 ) ) |
| 40 | 26 12 | cfv | ⊢ ( 1st ‘ 𝑚 ) |
| 41 | 33 40 | cfv | ⊢ ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑥 ) ) |
| 42 | 36 40 | cfv | ⊢ ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑦 ) ) |
| 43 | 41 42 | cop | ⊢ 〈 ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑥 ) ) , ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑦 ) ) 〉 |
| 44 | cco | ⊢ comp | |
| 45 | 7 44 | cfv | ⊢ ( comp ‘ 𝑑 ) |
| 46 | 29 12 | cfv | ⊢ ( 1st ‘ 𝑛 ) |
| 47 | 36 46 | cfv | ⊢ ( ( 1st ‘ 𝑛 ) ‘ ( 2nd ‘ 𝑦 ) ) |
| 48 | 43 47 45 | co | ⊢ ( 〈 ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑥 ) ) , ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑦 ) ) 〉 ( comp ‘ 𝑑 ) ( ( 1st ‘ 𝑛 ) ‘ ( 2nd ‘ 𝑦 ) ) ) |
| 49 | 26 32 | cfv | ⊢ ( 2nd ‘ 𝑚 ) |
| 50 | 33 36 49 | co | ⊢ ( ( 2nd ‘ 𝑥 ) ( 2nd ‘ 𝑚 ) ( 2nd ‘ 𝑦 ) ) |
| 51 | 31 | cv | ⊢ 𝑔 |
| 52 | 51 50 | cfv | ⊢ ( ( ( 2nd ‘ 𝑥 ) ( 2nd ‘ 𝑚 ) ( 2nd ‘ 𝑦 ) ) ‘ 𝑔 ) |
| 53 | 39 52 48 | co | ⊢ ( ( 𝑎 ‘ ( 2nd ‘ 𝑦 ) ) ( 〈 ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑥 ) ) , ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑦 ) ) 〉 ( comp ‘ 𝑑 ) ( ( 1st ‘ 𝑛 ) ‘ ( 2nd ‘ 𝑦 ) ) ) ( ( ( 2nd ‘ 𝑥 ) ( 2nd ‘ 𝑚 ) ( 2nd ‘ 𝑦 ) ) ‘ 𝑔 ) ) |
| 54 | 25 31 30 37 53 | cmpo | ⊢ ( 𝑎 ∈ ( 𝑚 ( 𝑐 Nat 𝑑 ) 𝑛 ) , 𝑔 ∈ ( ( 2nd ‘ 𝑥 ) ( Hom ‘ 𝑐 ) ( 2nd ‘ 𝑦 ) ) ↦ ( ( 𝑎 ‘ ( 2nd ‘ 𝑦 ) ) ( 〈 ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑥 ) ) , ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑦 ) ) 〉 ( comp ‘ 𝑑 ) ( ( 1st ‘ 𝑛 ) ‘ ( 2nd ‘ 𝑦 ) ) ) ( ( ( 2nd ‘ 𝑥 ) ( 2nd ‘ 𝑚 ) ( 2nd ‘ 𝑦 ) ) ‘ 𝑔 ) ) ) |
| 55 | 24 23 54 | csb | ⊢ ⦋ ( 1st ‘ 𝑦 ) / 𝑛 ⦌ ( 𝑎 ∈ ( 𝑚 ( 𝑐 Nat 𝑑 ) 𝑛 ) , 𝑔 ∈ ( ( 2nd ‘ 𝑥 ) ( Hom ‘ 𝑐 ) ( 2nd ‘ 𝑦 ) ) ↦ ( ( 𝑎 ‘ ( 2nd ‘ 𝑦 ) ) ( 〈 ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑥 ) ) , ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑦 ) ) 〉 ( comp ‘ 𝑑 ) ( ( 1st ‘ 𝑛 ) ‘ ( 2nd ‘ 𝑦 ) ) ) ( ( ( 2nd ‘ 𝑥 ) ( 2nd ‘ 𝑚 ) ( 2nd ‘ 𝑦 ) ) ‘ 𝑔 ) ) ) |
| 56 | 21 20 55 | csb | ⊢ ⦋ ( 1st ‘ 𝑥 ) / 𝑚 ⦌ ⦋ ( 1st ‘ 𝑦 ) / 𝑛 ⦌ ( 𝑎 ∈ ( 𝑚 ( 𝑐 Nat 𝑑 ) 𝑛 ) , 𝑔 ∈ ( ( 2nd ‘ 𝑥 ) ( Hom ‘ 𝑐 ) ( 2nd ‘ 𝑦 ) ) ↦ ( ( 𝑎 ‘ ( 2nd ‘ 𝑦 ) ) ( 〈 ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑥 ) ) , ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑦 ) ) 〉 ( comp ‘ 𝑑 ) ( ( 1st ‘ 𝑛 ) ‘ ( 2nd ‘ 𝑦 ) ) ) ( ( ( 2nd ‘ 𝑥 ) ( 2nd ‘ 𝑚 ) ( 2nd ‘ 𝑦 ) ) ‘ 𝑔 ) ) ) |
| 57 | 9 19 18 18 56 | cmpo | ⊢ ( 𝑥 ∈ ( ( 𝑐 Func 𝑑 ) × ( Base ‘ 𝑐 ) ) , 𝑦 ∈ ( ( 𝑐 Func 𝑑 ) × ( Base ‘ 𝑐 ) ) ↦ ⦋ ( 1st ‘ 𝑥 ) / 𝑚 ⦌ ⦋ ( 1st ‘ 𝑦 ) / 𝑛 ⦌ ( 𝑎 ∈ ( 𝑚 ( 𝑐 Nat 𝑑 ) 𝑛 ) , 𝑔 ∈ ( ( 2nd ‘ 𝑥 ) ( Hom ‘ 𝑐 ) ( 2nd ‘ 𝑦 ) ) ↦ ( ( 𝑎 ‘ ( 2nd ‘ 𝑦 ) ) ( 〈 ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑥 ) ) , ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑦 ) ) 〉 ( comp ‘ 𝑑 ) ( ( 1st ‘ 𝑛 ) ‘ ( 2nd ‘ 𝑦 ) ) ) ( ( ( 2nd ‘ 𝑥 ) ( 2nd ‘ 𝑚 ) ( 2nd ‘ 𝑦 ) ) ‘ 𝑔 ) ) ) ) |
| 58 | 17 57 | cop | ⊢ 〈 ( 𝑓 ∈ ( 𝑐 Func 𝑑 ) , 𝑥 ∈ ( Base ‘ 𝑐 ) ↦ ( ( 1st ‘ 𝑓 ) ‘ 𝑥 ) ) , ( 𝑥 ∈ ( ( 𝑐 Func 𝑑 ) × ( Base ‘ 𝑐 ) ) , 𝑦 ∈ ( ( 𝑐 Func 𝑑 ) × ( Base ‘ 𝑐 ) ) ↦ ⦋ ( 1st ‘ 𝑥 ) / 𝑚 ⦌ ⦋ ( 1st ‘ 𝑦 ) / 𝑛 ⦌ ( 𝑎 ∈ ( 𝑚 ( 𝑐 Nat 𝑑 ) 𝑛 ) , 𝑔 ∈ ( ( 2nd ‘ 𝑥 ) ( Hom ‘ 𝑐 ) ( 2nd ‘ 𝑦 ) ) ↦ ( ( 𝑎 ‘ ( 2nd ‘ 𝑦 ) ) ( 〈 ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑥 ) ) , ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑦 ) ) 〉 ( comp ‘ 𝑑 ) ( ( 1st ‘ 𝑛 ) ‘ ( 2nd ‘ 𝑦 ) ) ) ( ( ( 2nd ‘ 𝑥 ) ( 2nd ‘ 𝑚 ) ( 2nd ‘ 𝑦 ) ) ‘ 𝑔 ) ) ) ) 〉 |
| 59 | 1 3 2 2 58 | cmpo | ⊢ ( 𝑐 ∈ Cat , 𝑑 ∈ Cat ↦ 〈 ( 𝑓 ∈ ( 𝑐 Func 𝑑 ) , 𝑥 ∈ ( Base ‘ 𝑐 ) ↦ ( ( 1st ‘ 𝑓 ) ‘ 𝑥 ) ) , ( 𝑥 ∈ ( ( 𝑐 Func 𝑑 ) × ( Base ‘ 𝑐 ) ) , 𝑦 ∈ ( ( 𝑐 Func 𝑑 ) × ( Base ‘ 𝑐 ) ) ↦ ⦋ ( 1st ‘ 𝑥 ) / 𝑚 ⦌ ⦋ ( 1st ‘ 𝑦 ) / 𝑛 ⦌ ( 𝑎 ∈ ( 𝑚 ( 𝑐 Nat 𝑑 ) 𝑛 ) , 𝑔 ∈ ( ( 2nd ‘ 𝑥 ) ( Hom ‘ 𝑐 ) ( 2nd ‘ 𝑦 ) ) ↦ ( ( 𝑎 ‘ ( 2nd ‘ 𝑦 ) ) ( 〈 ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑥 ) ) , ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑦 ) ) 〉 ( comp ‘ 𝑑 ) ( ( 1st ‘ 𝑛 ) ‘ ( 2nd ‘ 𝑦 ) ) ) ( ( ( 2nd ‘ 𝑥 ) ( 2nd ‘ 𝑚 ) ( 2nd ‘ 𝑦 ) ) ‘ 𝑔 ) ) ) ) 〉 ) |
| 60 | 0 59 | wceq | ⊢ evalF = ( 𝑐 ∈ Cat , 𝑑 ∈ Cat ↦ 〈 ( 𝑓 ∈ ( 𝑐 Func 𝑑 ) , 𝑥 ∈ ( Base ‘ 𝑐 ) ↦ ( ( 1st ‘ 𝑓 ) ‘ 𝑥 ) ) , ( 𝑥 ∈ ( ( 𝑐 Func 𝑑 ) × ( Base ‘ 𝑐 ) ) , 𝑦 ∈ ( ( 𝑐 Func 𝑑 ) × ( Base ‘ 𝑐 ) ) ↦ ⦋ ( 1st ‘ 𝑥 ) / 𝑚 ⦌ ⦋ ( 1st ‘ 𝑦 ) / 𝑛 ⦌ ( 𝑎 ∈ ( 𝑚 ( 𝑐 Nat 𝑑 ) 𝑛 ) , 𝑔 ∈ ( ( 2nd ‘ 𝑥 ) ( Hom ‘ 𝑐 ) ( 2nd ‘ 𝑦 ) ) ↦ ( ( 𝑎 ‘ ( 2nd ‘ 𝑦 ) ) ( 〈 ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑥 ) ) , ( ( 1st ‘ 𝑚 ) ‘ ( 2nd ‘ 𝑦 ) ) 〉 ( comp ‘ 𝑑 ) ( ( 1st ‘ 𝑛 ) ‘ ( 2nd ‘ 𝑦 ) ) ) ( ( ( 2nd ‘ 𝑥 ) ( 2nd ‘ 𝑚 ) ( 2nd ‘ 𝑦 ) ) ‘ 𝑔 ) ) ) ) 〉 ) |