Theorem natpropd 17977

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 17898	. . 3 ⊢ (𝜑 → (𝐴 Func 𝐶) = (𝐵 Func 𝐷))
10	9	adantr 479	. . 3 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝐴 Func 𝐶)) → (𝐴 Func 𝐶) = (𝐵 Func 𝐷))
11		nfv 1909	. . . 4 ⊢ Ⅎ𝑟(𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶)))
12		nfcsb1v 3919	. . . . 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 6917	. . . 4 ⊢ ((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) → (1st ‘𝑓) ∈ V)
15		nfv 1909	. . . . . 6 ⊢ Ⅎ𝑠((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓))
16		nfcsb1v 3919	. . . . . . 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 6917	. . . . . 6 ⊢ (((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) → (1st ‘𝑔) ∈ V)
19		eqid 2728	. . . . . . . . . . 11 ⊢ (Base‘𝐶) = (Base‘𝐶)
20		eqid 2728	. . . . . . . . . . 11 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
21		eqid 2728	. . . . . . . . . . 11 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
22	3	ad4antr 730	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑥 ∈ (Base‘𝐴)) → (Homf ‘𝐶) = (Homf ‘𝐷))
23		eqid 2728	. . . . . . . . . . . . 13 ⊢ (Base‘𝐴) = (Base‘𝐴)
24		simplr 767	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑟 = (1st ‘𝑓))
25		relfunc 17857	. . . . . . . . . . . . . . 15 ⊢ Rel (𝐴 Func 𝐶)
26		simpllr 774	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶)))
27	26	simpld 493	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑓 ∈ (𝐴 Func 𝐶))
28		1st2ndbr 8054	. . . . . . . . . . . . . . 15 ⊢ ((Rel (𝐴 Func 𝐶) ∧ 𝑓 ∈ (𝐴 Func 𝐶)) → (1st ‘𝑓)(𝐴 Func 𝐶)(2nd ‘𝑓))
29	25, 27, 28	sylancr 585	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → (1st ‘𝑓)(𝐴 Func 𝐶)(2nd ‘𝑓))
30	24, 29	eqbrtrd 5174	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑟(𝐴 Func 𝐶)(2nd ‘𝑓))
31	23, 19, 30	funcf1 17861	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑟:(Base‘𝐴)⟶(Base‘𝐶))
32	31	ffvelcdmda 7099	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑥 ∈ (Base‘𝐴)) → (𝑟‘𝑥) ∈ (Base‘𝐶))
33		simpr 483	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑠 = (1st ‘𝑔))
34	26	simprd 494	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑔 ∈ (𝐴 Func 𝐶))
35		1st2ndbr 8054	. . . . . . . . . . . . . . 15 ⊢ ((Rel (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶)) → (1st ‘𝑔)(𝐴 Func 𝐶)(2nd ‘𝑔))
36	25, 34, 35	sylancr 585	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → (1st ‘𝑔)(𝐴 Func 𝐶)(2nd ‘𝑔))
37	33, 36	eqbrtrd 5174	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑠(𝐴 Func 𝐶)(2nd ‘𝑔))
38	23, 19, 37	funcf1 17861	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑠:(Base‘𝐴)⟶(Base‘𝐶))
39	38	ffvelcdmda 7099	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑥 ∈ (Base‘𝐴)) → (𝑠‘𝑥) ∈ (Base‘𝐶))
40	19, 20, 21, 22, 32, 39	homfeqval 17686	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑥 ∈ (Base‘𝐴)) → ((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = ((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)))
41	40	ixpeq2dva 8939	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)))
42	1	homfeqbas 17685	. . . . . . . . . . 11 ⊢ (𝜑 → (Base‘𝐴) = (Base‘𝐵))
43	42	ad3antrrr 728	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → (Base‘𝐴) = (Base‘𝐵))
44	43	ixpeq1d 8936	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) = X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)))
45	41, 44	eqtrd 2768	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)))
46		fveq2 6902	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → (𝑟‘𝑥) = (𝑟‘𝑧))
47		fveq2 6902	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → (𝑠‘𝑥) = (𝑠‘𝑧))
48	46, 47	oveq12d 7444	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑧 → ((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = ((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)))
49	48	cbvixpv 8942	. . . . . . . . . 10 ⊢ X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))
50	49	eleq2i 2821	. . . . . . . . 9 ⊢ (𝑎 ∈ X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) ↔ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)))
51	43	adantr 479	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) → (Base‘𝐴) = (Base‘𝐵))
52	51	adantr 479	. . . . . . . . . . 11 ⊢ ((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) → (Base‘𝐴) = (Base‘𝐵))
53		eqid 2728	. . . . . . . . . . . . 13 ⊢ (Hom ‘𝐴) = (Hom ‘𝐴)
54		eqid 2728	. . . . . . . . . . . . 13 ⊢ (Hom ‘𝐵) = (Hom ‘𝐵)
55	1	ad6antr 734	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (Homf ‘𝐴) = (Homf ‘𝐵))
56		simplr 767	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → 𝑥 ∈ (Base‘𝐴))
57		simpr 483	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → 𝑦 ∈ (Base‘𝐴))
58	23, 53, 54, 55, 56, 57	homfeqval 17686	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑥(Hom ‘𝐴)𝑦) = (𝑥(Hom ‘𝐵)𝑦))
59		eqid 2728	. . . . . . . . . . . . . 14 ⊢ (comp‘𝐶) = (comp‘𝐶)
60		eqid 2728	. . . . . . . . . . . . . 14 ⊢ (comp‘𝐷) = (comp‘𝐷)
61	3	ad7antr 736	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (Homf ‘𝐶) = (Homf ‘𝐷))
62	4	ad7antr 736	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (compf‘𝐶) = (compf‘𝐷))
63	32	ad5ant13 755	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑟‘𝑥) ∈ (Base‘𝐶))
64	31	ad2antrr 724	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝑟:(Base‘𝐴)⟶(Base‘𝐶))
65	64	ffvelcdmda 7099	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑟‘𝑦) ∈ (Base‘𝐶))
66	65	adantr 479	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑟‘𝑦) ∈ (Base‘𝐶))
67	38	ad2antrr 724	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝑠:(Base‘𝐴)⟶(Base‘𝐶))
68	67	ffvelcdmda 7099	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑠‘𝑦) ∈ (Base‘𝐶))
69	68	adantr 479	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑠‘𝑦) ∈ (Base‘𝐶))
70	30	ad3antrrr 728	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → 𝑟(𝐴 Func 𝐶)(2nd ‘𝑓))
71	23, 53, 20, 70, 56, 57	funcf2 17863	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑥(2nd ‘𝑓)𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑟‘𝑥)(Hom ‘𝐶)(𝑟‘𝑦)))
72	71	ffvelcdmda 7099	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → ((𝑥(2nd ‘𝑓)𝑦)‘ℎ) ∈ ((𝑟‘𝑥)(Hom ‘𝐶)(𝑟‘𝑦)))
73		fveq2 6902	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑦 → (𝑟‘𝑧) = (𝑟‘𝑦))
74		fveq2 6902	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑦 → (𝑠‘𝑧) = (𝑠‘𝑦))
75	73, 74	oveq12d 7444	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = 𝑦 → ((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)) = ((𝑟‘𝑦)(Hom ‘𝐶)(𝑠‘𝑦)))
76	75	fvixp 8929	. . . . . . . . . . . . . . 15 ⊢ ((𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑎‘𝑦) ∈ ((𝑟‘𝑦)(Hom ‘𝐶)(𝑠‘𝑦)))
77	76	ad5ant24 759	. . . . . . . . . . . . . 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 17697	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → ((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = ((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)))
79	39	ad5ant13 755	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑠‘𝑥) ∈ (Base‘𝐶))
80		fveq2 6902	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑥 → (𝑟‘𝑧) = (𝑟‘𝑥))
81		fveq2 6902	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑥 → (𝑠‘𝑧) = (𝑠‘𝑥))
82	80, 81	oveq12d 7444	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = 𝑥 → ((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)) = ((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)))
83	82	fvixp 8929	. . . . . . . . . . . . . . 15 ⊢ ((𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)) ∧ 𝑥 ∈ (Base‘𝐴)) → (𝑎‘𝑥) ∈ ((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)))
84	83	ad5ant23 758	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑎‘𝑥) ∈ ((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)))
85	37	ad3antrrr 728	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → 𝑠(𝐴 Func 𝐶)(2nd ‘𝑔))
86	23, 53, 20, 85, 56, 57	funcf2 17863	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑥(2nd ‘𝑔)𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑠‘𝑥)(Hom ‘𝐶)(𝑠‘𝑦)))
87	86	ffvelcdmda 7099	. . . . . . . . . . . . . 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 17697	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥)))
89	78, 88	eqeq12d 2744	. . . . . . . . . . . 12 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥)) ↔ ((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))))
90	58, 89	raleqbidva 3325	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (∀ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥)) ↔ ∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))))
91	52, 90	raleqbidva 3325	. . . . . . . . . 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 3325	. . . . . . . . 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 592	. . . . . . . 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 3908	. . . . . . . 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 480	. . . . . . 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 2768	. . . . . 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 3925	. . . . 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 3908	. . . . . 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 480	. . . . 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 2768	. . . 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 3925	. . 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 7501	. 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 2728	. . 3 ⊢ (𝐴 Nat 𝐶) = (𝐴 Nat 𝐶)
105	104, 23, 53, 20, 59	natfval 17945	. 2 ⊢ (𝐴 Nat 𝐶) = (𝑓 ∈ (𝐴 Func 𝐶), 𝑔 ∈ (𝐴 Func 𝐶) ↦ ⦋(1st ‘𝑓) / 𝑟⦌⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐴)∀𝑦 ∈ (Base‘𝐴)∀ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥))})
106		eqid 2728	. . 3 ⊢ (𝐵 Nat 𝐷) = (𝐵 Nat 𝐷)
107		eqid 2728	. . 3 ⊢ (Base‘𝐵) = (Base‘𝐵)
108	106, 107, 54, 21, 60	natfval 17945	. 2 ⊢ (𝐵 Nat 𝐷) = (𝑓 ∈ (𝐵 Func 𝐷), 𝑔 ∈ (𝐵 Func 𝐷) ↦ ⦋(1st ‘𝑓) / 𝑟⦌⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))})
109	103, 105, 108	3eqtr4g 2793	1 ⊢ (𝜑 → (𝐴 Nat 𝐶) = (𝐵 Nat 𝐷))

Syntax hints:   → wi 4   ↔ wb 205   ∧ wa 394   = wceq 1533   ∈ wcel 2098  Ⅎwnfc 2879  ∀wral 3058  {crab 3430  Vcvv 3473  ⦋csb 3894  ⟨cop 4638   class class class wbr 5152  Rel wrel 5687  ⟶wf 6549  ‘cfv 6553  (class class class)co 7426   ∈ cmpo 7428  1^st c1st 7999  2^nd c2nd 8000  Xcixp 8924  Basecbs 17189  Hom chom 17253  compcco 17254  Catccat 17653  Hom_f chomf 17655  comp_fccomf 17656   Func cfunc 17849   Nat cnat 17940

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1789  ax-4 1803  ax-5 1905  ax-6 1963  ax-7 2003  ax-8 2100  ax-9 2108  ax-10 2129  ax-11 2146  ax-12 2166  ax-ext 2699  ax-rep 5289  ax-sep 5303  ax-nul 5310  ax-pow 5369  ax-pr 5433  ax-un 7748

This theorem depends on definitions:  df-bi 206  df-an 395  df-or 846  df-3an 1086  df-tru 1536  df-fal 1546  df-ex 1774  df-nf 1778  df-sb 2060  df-mo 2529  df-eu 2558  df-clab 2706  df-cleq 2720  df-clel 2806  df-nfc 2881  df-ne 2938  df-ral 3059  df-rex 3068  df-reu 3375  df-rab 3431  df-v 3475  df-sbc 3779  df-csb 3895  df-dif 3952  df-un 3954  df-in 3956  df-ss 3966  df-nul 4327  df-if 4533  df-pw 4608  df-sn 4633  df-pr 4635  df-op 4639  df-uni 4913  df-iun 5002  df-br 5153  df-opab 5215  df-mpt 5236  df-id 5580  df-xp 5688  df-rel 5689  df-cnv 5690  df-co 5691  df-dm 5692  df-rn 5693  df-res 5694  df-ima 5695  df-iota 6505  df-fun 6555  df-fn 6556  df-f 6557  df-f1 6558  df-fo 6559  df-f1o 6560  df-fv 6561  df-riota 7382  df-ov 7429  df-oprab 7430  df-mpo 7431  df-1st 8001  df-2nd 8002  df-map 8855  df-ixp 8925  df-cat 17657  df-cid 17658  df-homf 17659  df-comf 17660  df-func 17853  df-nat 17942

This theorem is referenced by:  fucpropd  17978