Theorem natpropd 17939

Description: If two categories have the same set of objects, morphisms, and compositions, then they have the same natural transformations. (Contributed by Mario Carneiro, 26-Jan-2017.)

Hypotheses

Ref	Expression
fucpropd.1	⊢ (𝜑 → (Homf ‘𝐴) = (Homf ‘𝐵))
fucpropd.2	⊢ (𝜑 → (compf‘𝐴) = (compf‘𝐵))
fucpropd.3	⊢ (𝜑 → (Homf ‘𝐶) = (Homf ‘𝐷))
fucpropd.4	⊢ (𝜑 → (compf‘𝐶) = (compf‘𝐷))
fucpropd.a	⊢ (𝜑 → 𝐴 ∈ Cat)
fucpropd.b	⊢ (𝜑 → 𝐵 ∈ Cat)
fucpropd.c	⊢ (𝜑 → 𝐶 ∈ Cat)
fucpropd.d	⊢ (𝜑 → 𝐷 ∈ Cat)

Assertion

Ref	Expression
natpropd	⊢ (𝜑 → (𝐴 Nat 𝐶) = (𝐵 Nat 𝐷))

Proof of Theorem natpropd

Dummy variables 𝑎 𝑓 𝑔 ℎ 𝑟 𝑠 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		fucpropd.1	. . . 4 ⊢ (𝜑 → (Homf ‘𝐴) = (Homf ‘𝐵))
2		fucpropd.2	. . . 4 ⊢ (𝜑 → (compf‘𝐴) = (compf‘𝐵))
3		fucpropd.3	. . . 4 ⊢ (𝜑 → (Homf ‘𝐶) = (Homf ‘𝐷))
4		fucpropd.4	. . . 4 ⊢ (𝜑 → (compf‘𝐶) = (compf‘𝐷))
5		fucpropd.a	. . . 4 ⊢ (𝜑 → 𝐴 ∈ Cat)
6		fucpropd.b	. . . 4 ⊢ (𝜑 → 𝐵 ∈ Cat)
7		fucpropd.c	. . . 4 ⊢ (𝜑 → 𝐶 ∈ Cat)
8		fucpropd.d	. . . 4 ⊢ (𝜑 → 𝐷 ∈ Cat)
9	1, 2, 3, 4, 5, 6, 7, 8	funcpropd 17860	. . 3 ⊢ (𝜑 → (𝐴 Func 𝐶) = (𝐵 Func 𝐷))
10	9	adantr 480	. . 3 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝐴 Func 𝐶)) → (𝐴 Func 𝐶) = (𝐵 Func 𝐷))
11		nfv 1916	. . . 4 ⊢ Ⅎ𝑟(𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶)))
12		nfcsb1v 3918	. . . . 5 ⊢ Ⅎ𝑟⦋(1st ‘𝑓) / 𝑟⦌⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))}
13	12	a1i 11	. . . 4 ⊢ ((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) → Ⅎ𝑟⦋(1st ‘𝑓) / 𝑟⦌⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))})
14		fvexd 6906	. . . 4 ⊢ ((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) → (1st ‘𝑓) ∈ V)
15		nfv 1916	. . . . . 6 ⊢ Ⅎ𝑠((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓))
16		nfcsb1v 3918	. . . . . . 7 ⊢ Ⅎ𝑠⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))}
17	16	a1i 11	. . . . . 6 ⊢ (((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) → Ⅎ𝑠⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))})
18		fvexd 6906	. . . . . 6 ⊢ (((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) → (1st ‘𝑔) ∈ V)
19		eqid 2731	. . . . . . . . . . 11 ⊢ (Base‘𝐶) = (Base‘𝐶)
20		eqid 2731	. . . . . . . . . . 11 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
21		eqid 2731	. . . . . . . . . . 11 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
22	3	ad4antr 729	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑥 ∈ (Base‘𝐴)) → (Homf ‘𝐶) = (Homf ‘𝐷))
23		eqid 2731	. . . . . . . . . . . . 13 ⊢ (Base‘𝐴) = (Base‘𝐴)
24		simplr 766	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑟 = (1st ‘𝑓))
25		relfunc 17819	. . . . . . . . . . . . . . 15 ⊢ Rel (𝐴 Func 𝐶)
26		simpllr 773	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶)))
27	26	simpld 494	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑓 ∈ (𝐴 Func 𝐶))
28		1st2ndbr 8032	. . . . . . . . . . . . . . 15 ⊢ ((Rel (𝐴 Func 𝐶) ∧ 𝑓 ∈ (𝐴 Func 𝐶)) → (1st ‘𝑓)(𝐴 Func 𝐶)(2nd ‘𝑓))
29	25, 27, 28	sylancr 586	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → (1st ‘𝑓)(𝐴 Func 𝐶)(2nd ‘𝑓))
30	24, 29	eqbrtrd 5170	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑟(𝐴 Func 𝐶)(2nd ‘𝑓))
31	23, 19, 30	funcf1 17823	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑟:(Base‘𝐴)⟶(Base‘𝐶))
32	31	ffvelcdmda 7086	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑥 ∈ (Base‘𝐴)) → (𝑟‘𝑥) ∈ (Base‘𝐶))
33		simpr 484	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑠 = (1st ‘𝑔))
34	26	simprd 495	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑔 ∈ (𝐴 Func 𝐶))
35		1st2ndbr 8032	. . . . . . . . . . . . . . 15 ⊢ ((Rel (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶)) → (1st ‘𝑔)(𝐴 Func 𝐶)(2nd ‘𝑔))
36	25, 34, 35	sylancr 586	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → (1st ‘𝑔)(𝐴 Func 𝐶)(2nd ‘𝑔))
37	33, 36	eqbrtrd 5170	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑠(𝐴 Func 𝐶)(2nd ‘𝑔))
38	23, 19, 37	funcf1 17823	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑠:(Base‘𝐴)⟶(Base‘𝐶))
39	38	ffvelcdmda 7086	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑥 ∈ (Base‘𝐴)) → (𝑠‘𝑥) ∈ (Base‘𝐶))
40	19, 20, 21, 22, 32, 39	homfeqval 17648	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑥 ∈ (Base‘𝐴)) → ((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = ((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)))
41	40	ixpeq2dva 8912	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)))
42	1	homfeqbas 17647	. . . . . . . . . . 11 ⊢ (𝜑 → (Base‘𝐴) = (Base‘𝐵))
43	42	ad3antrrr 727	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → (Base‘𝐴) = (Base‘𝐵))
44	43	ixpeq1d 8909	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) = X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)))
45	41, 44	eqtrd 2771	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)))
46		fveq2 6891	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → (𝑟‘𝑥) = (𝑟‘𝑧))
47		fveq2 6891	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → (𝑠‘𝑥) = (𝑠‘𝑧))
48	46, 47	oveq12d 7430	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑧 → ((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = ((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)))
49	48	cbvixpv 8915	. . . . . . . . . 10 ⊢ X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))
50	49	eleq2i 2824	. . . . . . . . 9 ⊢ (𝑎 ∈ X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) ↔ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)))
51	43	adantr 480	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) → (Base‘𝐴) = (Base‘𝐵))
52	51	adantr 480	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) → (Base‘𝐴) = (Base‘𝐵))
53		eqid 2731	. . . . . . . . . . . . 13 ⊢ (Hom ‘𝐴) = (Hom ‘𝐴)
54		eqid 2731	. . . . . . . . . . . . 13 ⊢ (Hom ‘𝐵) = (Hom ‘𝐵)
55	1	ad6antr 733	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (Homf ‘𝐴) = (Homf ‘𝐵))
56		simplr 766	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → 𝑥 ∈ (Base‘𝐴))
57		simpr 484	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → 𝑦 ∈ (Base‘𝐴))
58	23, 53, 54, 55, 56, 57	homfeqval 17648	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑥(Hom ‘𝐴)𝑦) = (𝑥(Hom ‘𝐵)𝑦))
59		eqid 2731	. . . . . . . . . . . . . 14 ⊢ (comp‘𝐶) = (comp‘𝐶)
60		eqid 2731	. . . . . . . . . . . . . 14 ⊢ (comp‘𝐷) = (comp‘𝐷)
61	3	ad7antr 735	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (Homf ‘𝐶) = (Homf ‘𝐷))
62	4	ad7antr 735	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (compf‘𝐶) = (compf‘𝐷))
63	32	ad5ant13 754	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑟‘𝑥) ∈ (Base‘𝐶))
64	31	ad2antrr 723	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝑟:(Base‘𝐴)⟶(Base‘𝐶))
65	64	ffvelcdmda 7086	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑟‘𝑦) ∈ (Base‘𝐶))
66	65	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑟‘𝑦) ∈ (Base‘𝐶))
67	38	ad2antrr 723	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝑠:(Base‘𝐴)⟶(Base‘𝐶))
68	67	ffvelcdmda 7086	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑠‘𝑦) ∈ (Base‘𝐶))
69	68	adantr 480	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑠‘𝑦) ∈ (Base‘𝐶))
70	30	ad3antrrr 727	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → 𝑟(𝐴 Func 𝐶)(2nd ‘𝑓))
71	23, 53, 20, 70, 56, 57	funcf2 17825	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑥(2nd ‘𝑓)𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑟‘𝑥)(Hom ‘𝐶)(𝑟‘𝑦)))
72	71	ffvelcdmda 7086	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → ((𝑥(2nd ‘𝑓)𝑦)‘ℎ) ∈ ((𝑟‘𝑥)(Hom ‘𝐶)(𝑟‘𝑦)))
73		fveq2 6891	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑦 → (𝑟‘𝑧) = (𝑟‘𝑦))
74		fveq2 6891	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑦 → (𝑠‘𝑧) = (𝑠‘𝑦))
75	73, 74	oveq12d 7430	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = 𝑦 → ((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)) = ((𝑟‘𝑦)(Hom ‘𝐶)(𝑠‘𝑦)))
76	75	fvixp 8902	. . . . . . . . . . . . . . 15 ⊢ ((𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑎‘𝑦) ∈ ((𝑟‘𝑦)(Hom ‘𝐶)(𝑠‘𝑦)))
77	76	ad5ant24 758	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑎‘𝑦) ∈ ((𝑟‘𝑦)(Hom ‘𝐶)(𝑠‘𝑦)))
78	19, 20, 59, 60, 61, 62, 63, 66, 69, 72, 77	comfeqval 17659	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → ((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = ((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)))
79	39	ad5ant13 754	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑠‘𝑥) ∈ (Base‘𝐶))
80		fveq2 6891	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑥 → (𝑟‘𝑧) = (𝑟‘𝑥))
81		fveq2 6891	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑥 → (𝑠‘𝑧) = (𝑠‘𝑥))
82	80, 81	oveq12d 7430	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = 𝑥 → ((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)) = ((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)))
83	82	fvixp 8902	. . . . . . . . . . . . . . 15 ⊢ ((𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)) ∧ 𝑥 ∈ (Base‘𝐴)) → (𝑎‘𝑥) ∈ ((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)))
84	83	ad5ant23 757	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑎‘𝑥) ∈ ((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)))
85	37	ad3antrrr 727	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → 𝑠(𝐴 Func 𝐶)(2nd ‘𝑔))
86	23, 53, 20, 85, 56, 57	funcf2 17825	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑥(2nd ‘𝑔)𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑠‘𝑥)(Hom ‘𝐶)(𝑠‘𝑦)))
87	86	ffvelcdmda 7086	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → ((𝑥(2nd ‘𝑔)𝑦)‘ℎ) ∈ ((𝑠‘𝑥)(Hom ‘𝐶)(𝑠‘𝑦)))
88	19, 20, 59, 60, 61, 62, 63, 79, 69, 84, 87	comfeqval 17659	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥)))
89	78, 88	eqeq12d 2747	. . . . . . . . . . . 12 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥)) ↔ ((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))))
90	58, 89	raleqbidva 3326	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (∀ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥)) ↔ ∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))))
91	52, 90	raleqbidva 3326	. . . . . . . . . 10 ⊢ ((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) → (∀𝑦 ∈ (Base‘𝐴)∀ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥)) ↔ ∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))))
92	51, 91	raleqbidva 3326	. . . . . . . . 9 ⊢ (((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) → (∀𝑥 ∈ (Base‘𝐴)∀𝑦 ∈ (Base‘𝐴)∀ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥)) ↔ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))))
93	50, 92	sylan2b 593	. . . . . . . 8 ⊢ (((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥))) → (∀𝑥 ∈ (Base‘𝐴)∀𝑦 ∈ (Base‘𝐴)∀ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥)) ↔ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))))
94	45, 93	rabeqbidva 3447	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → {𝑎 ∈ X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐴)∀𝑦 ∈ (Base‘𝐴)∀ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥))} = {𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))})
95		csbeq1a 3907	. . . . . . . 8 ⊢ (𝑠 = (1st ‘𝑔) → {𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))} = ⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))})
96	95	adantl 481	. . . . . . 7 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → {𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))} = ⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))})
97	94, 96	eqtrd 2771	. . . . . 6 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → {𝑎 ∈ X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐴)∀𝑦 ∈ (Base‘𝐴)∀ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥))} = ⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))})
98	15, 17, 18, 97	csbiedf 3924	. . . . 5 ⊢ (((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) → ⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐴)∀𝑦 ∈ (Base‘𝐴)∀ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥))} = ⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))})
99		csbeq1a 3907	. . . . . 6 ⊢ (𝑟 = (1st ‘𝑓) → ⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))} = ⦋(1st ‘𝑓) / 𝑟⦌⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))})
100	99	adantl 481	. . . . 5 ⊢ (((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) → ⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))} = ⦋(1st ‘𝑓) / 𝑟⦌⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))})
101	98, 100	eqtrd 2771	. . . 4 ⊢ (((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) → ⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐴)∀𝑦 ∈ (Base‘𝐴)∀ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥))} = ⦋(1st ‘𝑓) / 𝑟⦌⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))})
102	11, 13, 14, 101	csbiedf 3924	. . 3 ⊢ ((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) → ⦋(1st ‘𝑓) / 𝑟⦌⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐴)∀𝑦 ∈ (Base‘𝐴)∀ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥))} = ⦋(1st ‘𝑓) / 𝑟⦌⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))})
103	9, 10, 102	mpoeq123dva 7486	. 2 ⊢ (𝜑 → (𝑓 ∈ (𝐴 Func 𝐶), 𝑔 ∈ (𝐴 Func 𝐶) ↦ ⦋(1st ‘𝑓) / 𝑟⦌⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐴)∀𝑦 ∈ (Base‘𝐴)∀ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥))}) = (𝑓 ∈ (𝐵 Func 𝐷), 𝑔 ∈ (𝐵 Func 𝐷) ↦ ⦋(1st ‘𝑓) / 𝑟⦌⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))}))
104		eqid 2731	. . 3 ⊢ (𝐴 Nat 𝐶) = (𝐴 Nat 𝐶)
105	104, 23, 53, 20, 59	natfval 17907	. 2 ⊢ (𝐴 Nat 𝐶) = (𝑓 ∈ (𝐴 Func 𝐶), 𝑔 ∈ (𝐴 Func 𝐶) ↦ ⦋(1st ‘𝑓) / 𝑟⦌⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐴)∀𝑦 ∈ (Base‘𝐴)∀ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥))})
106		eqid 2731	. . 3 ⊢ (𝐵 Nat 𝐷) = (𝐵 Nat 𝐷)
107		eqid 2731	. . 3 ⊢ (Base‘𝐵) = (Base‘𝐵)
108	106, 107, 54, 21, 60	natfval 17907	. 2 ⊢ (𝐵 Nat 𝐷) = (𝑓 ∈ (𝐵 Func 𝐷), 𝑔 ∈ (𝐵 Func 𝐷) ↦ ⦋(1st ‘𝑓) / 𝑟⦌⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))})
109	103, 105, 108	3eqtr4g 2796	1 ⊢ (𝜑 → (𝐴 Nat 𝐶) = (𝐵 Nat 𝐷))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 395   = wceq 1540   ∈ wcel 2105  Ⅎwnfc 2882  ∀wral 3060  {crab 3431  Vcvv 3473  ⦋csb 3893  ⟨cop 4634   class class class wbr 5148  Rel wrel 5681  ⟶wf 6539  ‘cfv 6543  (class class class)co 7412   ∈ cmpo 7414  1^st c1st 7977  2^nd c2nd 7978  Xcixp 8897  Basecbs 17151  Hom chom 17215  compcco 17216  Catccat 17615  Hom_f chomf 17617  comp_fccomf 17618   Func cfunc 17811   Nat cnat 17902

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1796  ax-4 1810  ax-5 1912  ax-6 1970  ax-7 2010  ax-8 2107  ax-9 2115  ax-10 2136  ax-11 2153  ax-12 2170  ax-ext 2702  ax-rep 5285  ax-sep 5299  ax-nul 5306  ax-pow 5363  ax-pr 5427  ax-un 7729

This theorem depends on definitions:  df-bi 206  df-an 396  df-or 845  df-3an 1088  df-tru 1543  df-fal 1553  df-ex 1781  df-nf 1785  df-sb 2067  df-mo 2533  df-eu 2562  df-clab 2709  df-cleq 2723  df-clel 2809  df-nfc 2884  df-ne 2940  df-ral 3061  df-rex 3070  df-reu 3376  df-rab 3432  df-v 3475  df-sbc 3778  df-csb 3894  df-dif 3951  df-un 3953  df-in 3955  df-ss 3965  df-nul 4323  df-if 4529  df-pw 4604  df-sn 4629  df-pr 4631  df-op 4635  df-uni 4909  df-iun 4999  df-br 5149  df-opab 5211  df-mpt 5232  df-id 5574  df-xp 5682  df-rel 5683  df-cnv 5684  df-co 5685  df-dm 5686  df-rn 5687  df-res 5688  df-ima 5689  df-iota 6495  df-fun 6545  df-fn 6546  df-f 6547  df-f1 6548  df-fo 6549  df-f1o 6550  df-fv 6551  df-riota 7368  df-ov 7415  df-oprab 7416  df-mpo 7417  df-1st 7979  df-2nd 7980  df-map 8828  df-ixp 8898  df-cat 17619  df-cid 17620  df-homf 17621  df-comf 17622  df-func 17815  df-nat 17904

This theorem is referenced by:  fucpropd  17940