Step | Hyp | Ref
| Expression |
1 | | fucpropd.1 |
. . . . 5
⊢ (𝜑 → (Homf
‘𝐴) =
(Homf ‘𝐵)) |
2 | | fucpropd.2 |
. . . . 5
⊢ (𝜑 →
(compf‘𝐴) = (compf‘𝐵)) |
3 | | fucpropd.3 |
. . . . 5
⊢ (𝜑 → (Homf
‘𝐶) =
(Homf ‘𝐷)) |
4 | | fucpropd.4 |
. . . . 5
⊢ (𝜑 →
(compf‘𝐶) = (compf‘𝐷)) |
5 | | fucpropd.a |
. . . . 5
⊢ (𝜑 → 𝐴 ∈ Cat) |
6 | | fucpropd.b |
. . . . 5
⊢ (𝜑 → 𝐵 ∈ Cat) |
7 | | fucpropd.c |
. . . . 5
⊢ (𝜑 → 𝐶 ∈ Cat) |
8 | | fucpropd.d |
. . . . 5
⊢ (𝜑 → 𝐷 ∈ Cat) |
9 | 1, 2, 3, 4, 5, 6, 7, 8 | funcpropd 16383 |
. . . 4
⊢ (𝜑 → (𝐴 Func 𝐶) = (𝐵 Func 𝐷)) |
10 | 9 | opeq2d 4347 |
. . 3
⊢ (𝜑 → 〈(Base‘ndx),
(𝐴 Func 𝐶)〉 = 〈(Base‘ndx), (𝐵 Func 𝐷)〉) |
11 | 1, 2, 3, 4, 5, 6, 7, 8 | natpropd 16459 |
. . . 4
⊢ (𝜑 → (𝐴 Nat 𝐶) = (𝐵 Nat 𝐷)) |
12 | 11 | opeq2d 4347 |
. . 3
⊢ (𝜑 → 〈(Hom ‘ndx),
(𝐴 Nat 𝐶)〉 = 〈(Hom ‘ndx), (𝐵 Nat 𝐷)〉) |
13 | 9 | sqxpeqd 5065 |
. . . . 5
⊢ (𝜑 → ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) = ((𝐵 Func 𝐷) × (𝐵 Func 𝐷))) |
14 | 9 | adantr 480 |
. . . . 5
⊢ ((𝜑 ∧ 𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶))) → (𝐴 Func 𝐶) = (𝐵 Func 𝐷)) |
15 | | nfv 1830 |
. . . . . 6
⊢
Ⅎ𝑓(𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) |
16 | | nfcsb1v 3515 |
. . . . . . 7
⊢
Ⅎ𝑓⦋(1st ‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))) |
17 | 16 | a1i 11 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) → Ⅎ𝑓⦋(1st ‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) |
18 | | fvex 6113 |
. . . . . . 7
⊢
(1st ‘𝑣) ∈ V |
19 | 18 | a1i 11 |
. . . . . 6
⊢ ((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) → (1st ‘𝑣) ∈ V) |
20 | | nfv 1830 |
. . . . . . . 8
⊢
Ⅎ𝑔((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) |
21 | | nfcsb1v 3515 |
. . . . . . . . 9
⊢
Ⅎ𝑔⦋(2nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))) |
22 | 21 | a1i 11 |
. . . . . . . 8
⊢ (((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) → Ⅎ𝑔⦋(2nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) |
23 | | fvex 6113 |
. . . . . . . . 9
⊢
(2nd ‘𝑣) ∈ V |
24 | 23 | a1i 11 |
. . . . . . . 8
⊢ (((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) → (2nd ‘𝑣) ∈ V) |
25 | 11 | ad3antrrr 762 |
. . . . . . . . . . 11
⊢ ((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) → (𝐴 Nat 𝐶) = (𝐵 Nat 𝐷)) |
26 | 25 | oveqd 6566 |
. . . . . . . . . 10
⊢ ((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) → (𝑔(𝐴 Nat 𝐶)ℎ) = (𝑔(𝐵 Nat 𝐷)ℎ)) |
27 | 25 | oveqdr 6573 |
. . . . . . . . . 10
⊢
(((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ 𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ)) → (𝑓(𝐴 Nat 𝐶)𝑔) = (𝑓(𝐵 Nat 𝐷)𝑔)) |
28 | 1 | homfeqbas 16179 |
. . . . . . . . . . . 12
⊢ (𝜑 → (Base‘𝐴) = (Base‘𝐵)) |
29 | 28 | ad4antr 764 |
. . . . . . . . . . 11
⊢
(((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) → (Base‘𝐴) = (Base‘𝐵)) |
30 | | eqid 2610 |
. . . . . . . . . . . 12
⊢
(Base‘𝐶) =
(Base‘𝐶) |
31 | | eqid 2610 |
. . . . . . . . . . . 12
⊢ (Hom
‘𝐶) = (Hom
‘𝐶) |
32 | | eqid 2610 |
. . . . . . . . . . . 12
⊢
(comp‘𝐶) =
(comp‘𝐶) |
33 | | eqid 2610 |
. . . . . . . . . . . 12
⊢
(comp‘𝐷) =
(comp‘𝐷) |
34 | 3 | ad5antr 766 |
. . . . . . . . . . . 12
⊢
((((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) ∧ 𝑥 ∈ (Base‘𝐴)) → (Homf
‘𝐶) =
(Homf ‘𝐷)) |
35 | 4 | ad5antr 766 |
. . . . . . . . . . . 12
⊢
((((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) ∧ 𝑥 ∈ (Base‘𝐴)) →
(compf‘𝐶) = (compf‘𝐷)) |
36 | | eqid 2610 |
. . . . . . . . . . . . . 14
⊢
(Base‘𝐴) =
(Base‘𝐴) |
37 | | relfunc 16345 |
. . . . . . . . . . . . . . 15
⊢ Rel
(𝐴 Func 𝐶) |
38 | | simpllr 795 |
. . . . . . . . . . . . . . . 16
⊢
(((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) → 𝑓 = (1st ‘𝑣)) |
39 | | simp-4r 803 |
. . . . . . . . . . . . . . . . . 18
⊢
(((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) → (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) |
40 | 39 | simpld 474 |
. . . . . . . . . . . . . . . . 17
⊢
(((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) → 𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶))) |
41 | | xp1st 7089 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) → (1st ‘𝑣) ∈ (𝐴 Func 𝐶)) |
42 | 40, 41 | syl 17 |
. . . . . . . . . . . . . . . 16
⊢
(((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) → (1st ‘𝑣) ∈ (𝐴 Func 𝐶)) |
43 | 38, 42 | eqeltrd 2688 |
. . . . . . . . . . . . . . 15
⊢
(((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) → 𝑓 ∈ (𝐴 Func 𝐶)) |
44 | | 1st2ndbr 7108 |
. . . . . . . . . . . . . . 15
⊢ ((Rel
(𝐴 Func 𝐶) ∧ 𝑓 ∈ (𝐴 Func 𝐶)) → (1st ‘𝑓)(𝐴 Func 𝐶)(2nd ‘𝑓)) |
45 | 37, 43, 44 | sylancr 694 |
. . . . . . . . . . . . . 14
⊢
(((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) → (1st ‘𝑓)(𝐴 Func 𝐶)(2nd ‘𝑓)) |
46 | 36, 30, 45 | funcf1 16349 |
. . . . . . . . . . . . 13
⊢
(((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) → (1st ‘𝑓):(Base‘𝐴)⟶(Base‘𝐶)) |
47 | 46 | ffvelrnda 6267 |
. . . . . . . . . . . 12
⊢
((((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((1st ‘𝑓)‘𝑥) ∈ (Base‘𝐶)) |
48 | | simplr 788 |
. . . . . . . . . . . . . . . 16
⊢
(((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) → 𝑔 = (2nd ‘𝑣)) |
49 | | xp2nd 7090 |
. . . . . . . . . . . . . . . . 17
⊢ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) → (2nd ‘𝑣) ∈ (𝐴 Func 𝐶)) |
50 | 40, 49 | syl 17 |
. . . . . . . . . . . . . . . 16
⊢
(((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) → (2nd ‘𝑣) ∈ (𝐴 Func 𝐶)) |
51 | 48, 50 | eqeltrd 2688 |
. . . . . . . . . . . . . . 15
⊢
(((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) → 𝑔 ∈ (𝐴 Func 𝐶)) |
52 | | 1st2ndbr 7108 |
. . . . . . . . . . . . . . 15
⊢ ((Rel
(𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶)) → (1st ‘𝑔)(𝐴 Func 𝐶)(2nd ‘𝑔)) |
53 | 37, 51, 52 | sylancr 694 |
. . . . . . . . . . . . . 14
⊢
(((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) → (1st ‘𝑔)(𝐴 Func 𝐶)(2nd ‘𝑔)) |
54 | 36, 30, 53 | funcf1 16349 |
. . . . . . . . . . . . 13
⊢
(((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) → (1st ‘𝑔):(Base‘𝐴)⟶(Base‘𝐶)) |
55 | 54 | ffvelrnda 6267 |
. . . . . . . . . . . 12
⊢
((((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((1st ‘𝑔)‘𝑥) ∈ (Base‘𝐶)) |
56 | 39 | simprd 478 |
. . . . . . . . . . . . . . 15
⊢
(((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) → ℎ ∈ (𝐴 Func 𝐶)) |
57 | | 1st2ndbr 7108 |
. . . . . . . . . . . . . . 15
⊢ ((Rel
(𝐴 Func 𝐶) ∧ ℎ ∈ (𝐴 Func 𝐶)) → (1st ‘ℎ)(𝐴 Func 𝐶)(2nd ‘ℎ)) |
58 | 37, 56, 57 | sylancr 694 |
. . . . . . . . . . . . . 14
⊢
(((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) → (1st ‘ℎ)(𝐴 Func 𝐶)(2nd ‘ℎ)) |
59 | 36, 30, 58 | funcf1 16349 |
. . . . . . . . . . . . 13
⊢
(((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) → (1st ‘ℎ):(Base‘𝐴)⟶(Base‘𝐶)) |
60 | 59 | ffvelrnda 6267 |
. . . . . . . . . . . 12
⊢
((((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((1st ‘ℎ)‘𝑥) ∈ (Base‘𝐶)) |
61 | | eqid 2610 |
. . . . . . . . . . . . 13
⊢ (𝐴 Nat 𝐶) = (𝐴 Nat 𝐶) |
62 | | simplrr 797 |
. . . . . . . . . . . . . 14
⊢
((((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔)) |
63 | 61, 62 | nat1st2nd 16434 |
. . . . . . . . . . . . 13
⊢
((((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝑎 ∈ (〈(1st ‘𝑓), (2nd ‘𝑓)〉(𝐴 Nat 𝐶)〈(1st ‘𝑔), (2nd ‘𝑔)〉)) |
64 | | simpr 476 |
. . . . . . . . . . . . 13
⊢
((((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝑥 ∈ (Base‘𝐴)) |
65 | 61, 63, 36, 31, 64 | natcl 16436 |
. . . . . . . . . . . 12
⊢
((((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) ∧ 𝑥 ∈ (Base‘𝐴)) → (𝑎‘𝑥) ∈ (((1st ‘𝑓)‘𝑥)(Hom ‘𝐶)((1st ‘𝑔)‘𝑥))) |
66 | | simplrl 796 |
. . . . . . . . . . . . . 14
⊢
((((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ)) |
67 | 61, 66 | nat1st2nd 16434 |
. . . . . . . . . . . . 13
⊢
((((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝑏 ∈ (〈(1st ‘𝑔), (2nd ‘𝑔)〉(𝐴 Nat 𝐶)〈(1st ‘ℎ), (2nd ‘ℎ)〉)) |
68 | 61, 67, 36, 31, 64 | natcl 16436 |
. . . . . . . . . . . 12
⊢
((((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) ∧ 𝑥 ∈ (Base‘𝐴)) → (𝑏‘𝑥) ∈ (((1st ‘𝑔)‘𝑥)(Hom ‘𝐶)((1st ‘ℎ)‘𝑥))) |
69 | 30, 31, 32, 33, 34, 35, 47, 55, 60, 65, 68 | comfeqval 16191 |
. . . . . . . . . . 11
⊢
((((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐶)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)) = ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥))) |
70 | 29, 69 | mpteq12dva 4662 |
. . . . . . . . . 10
⊢
(((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) ∧ (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ) ∧ 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔))) → (𝑥 ∈ (Base‘𝐴) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐶)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥))) = (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))) |
71 | 26, 27, 70 | mpt2eq123dva 6614 |
. . . . . . . . 9
⊢ ((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) → (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ), 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔) ↦ (𝑥 ∈ (Base‘𝐴) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐶)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))) = (𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) |
72 | | csbeq1a 3508 |
. . . . . . . . . 10
⊢ (𝑔 = (2nd ‘𝑣) → (𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))) = ⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) |
73 | 72 | adantl 481 |
. . . . . . . . 9
⊢ ((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) → (𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))) = ⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) |
74 | 71, 73 | eqtrd 2644 |
. . . . . . . 8
⊢ ((((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) ∧ 𝑔 = (2nd ‘𝑣)) → (𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ), 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔) ↦ (𝑥 ∈ (Base‘𝐴) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐶)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))) = ⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) |
75 | 20, 22, 24, 74 | csbiedf 3520 |
. . . . . . 7
⊢ (((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) → ⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ), 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔) ↦ (𝑥 ∈ (Base‘𝐴) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐶)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))) = ⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) |
76 | | csbeq1a 3508 |
. . . . . . . 8
⊢ (𝑓 = (1st ‘𝑣) →
⦋(2nd ‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))) = ⦋(1st
‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) |
77 | 76 | adantl 481 |
. . . . . . 7
⊢ (((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) → ⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))) = ⦋(1st
‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) |
78 | 75, 77 | eqtrd 2644 |
. . . . . 6
⊢ (((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) ∧ 𝑓 = (1st ‘𝑣)) → ⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ), 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔) ↦ (𝑥 ∈ (Base‘𝐴) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐶)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))) = ⦋(1st
‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) |
79 | 15, 17, 19, 78 | csbiedf 3520 |
. . . . 5
⊢ ((𝜑 ∧ (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)) ∧ ℎ ∈ (𝐴 Func 𝐶))) → ⦋(1st
‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ), 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔) ↦ (𝑥 ∈ (Base‘𝐴) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐶)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))) = ⦋(1st
‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) |
80 | 13, 14, 79 | mpt2eq123dva 6614 |
. . . 4
⊢ (𝜑 → (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)), ℎ ∈ (𝐴 Func 𝐶) ↦ ⦋(1st
‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ), 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔) ↦ (𝑥 ∈ (Base‘𝐴) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐶)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) = (𝑣 ∈ ((𝐵 Func 𝐷) × (𝐵 Func 𝐷)), ℎ ∈ (𝐵 Func 𝐷) ↦ ⦋(1st
‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))))) |
81 | 80 | opeq2d 4347 |
. . 3
⊢ (𝜑 → 〈(comp‘ndx),
(𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)), ℎ ∈ (𝐴 Func 𝐶) ↦ ⦋(1st
‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ), 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔) ↦ (𝑥 ∈ (Base‘𝐴) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐶)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))))〉 = 〈(comp‘ndx), (𝑣 ∈ ((𝐵 Func 𝐷) × (𝐵 Func 𝐷)), ℎ ∈ (𝐵 Func 𝐷) ↦ ⦋(1st
‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))))〉) |
82 | 10, 12, 81 | tpeq123d 4227 |
. 2
⊢ (𝜑 → {〈(Base‘ndx),
(𝐴 Func 𝐶)〉, 〈(Hom ‘ndx), (𝐴 Nat 𝐶)〉, 〈(comp‘ndx), (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)), ℎ ∈ (𝐴 Func 𝐶) ↦ ⦋(1st
‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ), 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔) ↦ (𝑥 ∈ (Base‘𝐴) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐶)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))))〉} = {〈(Base‘ndx),
(𝐵 Func 𝐷)〉, 〈(Hom ‘ndx), (𝐵 Nat 𝐷)〉, 〈(comp‘ndx), (𝑣 ∈ ((𝐵 Func 𝐷) × (𝐵 Func 𝐷)), ℎ ∈ (𝐵 Func 𝐷) ↦ ⦋(1st
‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))))〉}) |
83 | | eqid 2610 |
. . 3
⊢ (𝐴 FuncCat 𝐶) = (𝐴 FuncCat 𝐶) |
84 | | eqid 2610 |
. . 3
⊢ (𝐴 Func 𝐶) = (𝐴 Func 𝐶) |
85 | | eqidd 2611 |
. . 3
⊢ (𝜑 → (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)), ℎ ∈ (𝐴 Func 𝐶) ↦ ⦋(1st
‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ), 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔) ↦ (𝑥 ∈ (Base‘𝐴) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐶)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) = (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)), ℎ ∈ (𝐴 Func 𝐶) ↦ ⦋(1st
‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ), 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔) ↦ (𝑥 ∈ (Base‘𝐴) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐶)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))))) |
86 | 83, 84, 61, 36, 32, 5, 7, 85 | fucval 16441 |
. 2
⊢ (𝜑 → (𝐴 FuncCat 𝐶) = {〈(Base‘ndx), (𝐴 Func 𝐶)〉, 〈(Hom ‘ndx), (𝐴 Nat 𝐶)〉, 〈(comp‘ndx), (𝑣 ∈ ((𝐴 Func 𝐶) × (𝐴 Func 𝐶)), ℎ ∈ (𝐴 Func 𝐶) ↦ ⦋(1st
‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐴 Nat 𝐶)ℎ), 𝑎 ∈ (𝑓(𝐴 Nat 𝐶)𝑔) ↦ (𝑥 ∈ (Base‘𝐴) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐶)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))))〉}) |
87 | | eqid 2610 |
. . 3
⊢ (𝐵 FuncCat 𝐷) = (𝐵 FuncCat 𝐷) |
88 | | eqid 2610 |
. . 3
⊢ (𝐵 Func 𝐷) = (𝐵 Func 𝐷) |
89 | | eqid 2610 |
. . 3
⊢ (𝐵 Nat 𝐷) = (𝐵 Nat 𝐷) |
90 | | eqid 2610 |
. . 3
⊢
(Base‘𝐵) =
(Base‘𝐵) |
91 | | eqidd 2611 |
. . 3
⊢ (𝜑 → (𝑣 ∈ ((𝐵 Func 𝐷) × (𝐵 Func 𝐷)), ℎ ∈ (𝐵 Func 𝐷) ↦ ⦋(1st
‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥))))) = (𝑣 ∈ ((𝐵 Func 𝐷) × (𝐵 Func 𝐷)), ℎ ∈ (𝐵 Func 𝐷) ↦ ⦋(1st
‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))))) |
92 | 87, 88, 89, 90, 33, 6, 8, 91 | fucval 16441 |
. 2
⊢ (𝜑 → (𝐵 FuncCat 𝐷) = {〈(Base‘ndx), (𝐵 Func 𝐷)〉, 〈(Hom ‘ndx), (𝐵 Nat 𝐷)〉, 〈(comp‘ndx), (𝑣 ∈ ((𝐵 Func 𝐷) × (𝐵 Func 𝐷)), ℎ ∈ (𝐵 Func 𝐷) ↦ ⦋(1st
‘𝑣) / 𝑓⦌⦋(2nd
‘𝑣) / 𝑔⦌(𝑏 ∈ (𝑔(𝐵 Nat 𝐷)ℎ), 𝑎 ∈ (𝑓(𝐵 Nat 𝐷)𝑔) ↦ (𝑥 ∈ (Base‘𝐵) ↦ ((𝑏‘𝑥)(〈((1st ‘𝑓)‘𝑥), ((1st ‘𝑔)‘𝑥)〉(comp‘𝐷)((1st ‘ℎ)‘𝑥))(𝑎‘𝑥)))))〉}) |
93 | 82, 86, 92 | 3eqtr4d 2654 |
1
⊢ (𝜑 → (𝐴 FuncCat 𝐶) = (𝐵 FuncCat 𝐷)) |