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 ‘ 𝑦 ) ) ‘ 𝑔 ) ) ) ) 〉 ) |