Theorem natpropd 17890

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 17813	. . 3 ⊢ (𝜑 → (𝐴 Func 𝐶) = (𝐵 Func 𝐷))
10	9	adantr 480	. . 3 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝐴 Func 𝐶)) → (𝐴 Func 𝐶) = (𝐵 Func 𝐷))
11		nfv 1915	. . . 4 ⊢ Ⅎ𝑟(𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶)))
12		nfcsb1v 3870	. . . . 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 6845	. . . 4 ⊢ ((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) → (1st ‘𝑓) ∈ V)
15		nfv 1915	. . . . . 6 ⊢ Ⅎ𝑠((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓))
16		nfcsb1v 3870	. . . . . . 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 6845	. . . . . 6 ⊢ (((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) → (1st ‘𝑔) ∈ V)
19		eqid 2733	. . . . . . . . . . 11 ⊢ (Base‘𝐶) = (Base‘𝐶)
20		eqid 2733	. . . . . . . . . . 11 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
21		eqid 2733	. . . . . . . . . . 11 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
22	3	ad4antr 732	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑥 ∈ (Base‘𝐴)) → (Homf ‘𝐶) = (Homf ‘𝐷))
23		eqid 2733	. . . . . . . . . . . . 13 ⊢ (Base‘𝐴) = (Base‘𝐴)
24		simplr 768	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑟 = (1st ‘𝑓))
25		relfunc 17773	. . . . . . . . . . . . . . 15 ⊢ Rel (𝐴 Func 𝐶)
26		simpllr 775	. . . . . . . . . . . . . . . 16 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶)))
27	26	simpld 494	. . . . . . . . . . . . . . 15 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑓 ∈ (𝐴 Func 𝐶))
28		1st2ndbr 7982	. . . . . . . . . . . . . . 15 ⊢ ((Rel (𝐴 Func 𝐶) ∧ 𝑓 ∈ (𝐴 Func 𝐶)) → (1st ‘𝑓)(𝐴 Func 𝐶)(2nd ‘𝑓))
29	25, 27, 28	sylancr 587	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → (1st ‘𝑓)(𝐴 Func 𝐶)(2nd ‘𝑓))
30	24, 29	eqbrtrd 5117	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑟(𝐴 Func 𝐶)(2nd ‘𝑓))
31	23, 19, 30	funcf1 17777	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑟:(Base‘𝐴)⟶(Base‘𝐶))
32	31	ffvelcdmda 7025	. . . . . . . . . . 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 7982	. . . . . . . . . . . . . . 15 ⊢ ((Rel (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶)) → (1st ‘𝑔)(𝐴 Func 𝐶)(2nd ‘𝑔))
36	25, 34, 35	sylancr 587	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → (1st ‘𝑔)(𝐴 Func 𝐶)(2nd ‘𝑔))
37	33, 36	eqbrtrd 5117	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑠(𝐴 Func 𝐶)(2nd ‘𝑔))
38	23, 19, 37	funcf1 17777	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑠:(Base‘𝐴)⟶(Base‘𝐶))
39	38	ffvelcdmda 7025	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑥 ∈ (Base‘𝐴)) → (𝑠‘𝑥) ∈ (Base‘𝐶))
40	19, 20, 21, 22, 32, 39	homfeqval 17607	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑥 ∈ (Base‘𝐴)) → ((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = ((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)))
41	40	ixpeq2dva 8844	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)))
42	1	homfeqbas 17606	. . . . . . . . . . 11 ⊢ (𝜑 → (Base‘𝐴) = (Base‘𝐵))
43	42	ad3antrrr 730	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → (Base‘𝐴) = (Base‘𝐵))
44	43	ixpeq1d 8841	. . . . . . . . 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 6830	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → (𝑟‘𝑥) = (𝑟‘𝑧))
47		fveq2 6830	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → (𝑠‘𝑥) = (𝑠‘𝑧))
48	46, 47	oveq12d 7372	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑧 → ((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = ((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)))
49	48	cbvixpv 8847	. . . . . . . . . 10 ⊢ X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))
50	49	eleq2i 2825	. . . . . . . . 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 2733	. . . . . . . . . . . . 13 ⊢ (Hom ‘𝐴) = (Hom ‘𝐴)
54		eqid 2733	. . . . . . . . . . . . 13 ⊢ (Hom ‘𝐵) = (Hom ‘𝐵)
55	1	ad6antr 736	. . . . . . . . . . . . 13 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (Homf ‘𝐴) = (Homf ‘𝐵))
56		simplr 768	. . . . . . . . . . . . 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 17607	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑥(Hom ‘𝐴)𝑦) = (𝑥(Hom ‘𝐵)𝑦))
59		eqid 2733	. . . . . . . . . . . . . 14 ⊢ (comp‘𝐶) = (comp‘𝐶)
60		eqid 2733	. . . . . . . . . . . . . 14 ⊢ (comp‘𝐷) = (comp‘𝐷)
61	3	ad7antr 738	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (Homf ‘𝐶) = (Homf ‘𝐷))
62	4	ad7antr 738	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (compf‘𝐶) = (compf‘𝐷))
63	32	ad5ant13 756	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑟‘𝑥) ∈ (Base‘𝐶))
64	31	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝑟:(Base‘𝐴)⟶(Base‘𝐶))
65	64	ffvelcdmda 7025	. . . . . . . . . . . . . . 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 726	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝑠:(Base‘𝐴)⟶(Base‘𝐶))
68	67	ffvelcdmda 7025	. . . . . . . . . . . . . . 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 730	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → 𝑟(𝐴 Func 𝐶)(2nd ‘𝑓))
71	23, 53, 20, 70, 56, 57	funcf2 17779	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑥(2nd ‘𝑓)𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑟‘𝑥)(Hom ‘𝐶)(𝑟‘𝑦)))
72	71	ffvelcdmda 7025	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → ((𝑥(2nd ‘𝑓)𝑦)‘ℎ) ∈ ((𝑟‘𝑥)(Hom ‘𝐶)(𝑟‘𝑦)))
73		fveq2 6830	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑦 → (𝑟‘𝑧) = (𝑟‘𝑦))
74		fveq2 6830	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑦 → (𝑠‘𝑧) = (𝑠‘𝑦))
75	73, 74	oveq12d 7372	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = 𝑦 → ((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)) = ((𝑟‘𝑦)(Hom ‘𝐶)(𝑠‘𝑦)))
76	75	fvixp 8834	. . . . . . . . . . . . . . 15 ⊢ ((𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑎‘𝑦) ∈ ((𝑟‘𝑦)(Hom ‘𝐶)(𝑠‘𝑦)))
77	76	ad5ant24 760	. . . . . . . . . . . . . 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 17618	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → ((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = ((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)))
79	39	ad5ant13 756	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑠‘𝑥) ∈ (Base‘𝐶))
80		fveq2 6830	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑥 → (𝑟‘𝑧) = (𝑟‘𝑥))
81		fveq2 6830	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑥 → (𝑠‘𝑧) = (𝑠‘𝑥))
82	80, 81	oveq12d 7372	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = 𝑥 → ((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)) = ((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)))
83	82	fvixp 8834	. . . . . . . . . . . . . . 15 ⊢ ((𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)) ∧ 𝑥 ∈ (Base‘𝐴)) → (𝑎‘𝑥) ∈ ((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)))
84	83	ad5ant23 759	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑎‘𝑥) ∈ ((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)))
85	37	ad3antrrr 730	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → 𝑠(𝐴 Func 𝐶)(2nd ‘𝑔))
86	23, 53, 20, 85, 56, 57	funcf2 17779	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑥(2nd ‘𝑔)𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑠‘𝑥)(Hom ‘𝐶)(𝑠‘𝑦)))
87	86	ffvelcdmda 7025	. . . . . . . . . . . . . 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 17618	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥)))
89	78, 88	eqeq12d 2749	. . . . . . . . . . . 12 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥)) ↔ ((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))))
90	58, 89	raleqbidva 3299	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (∀ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥)) ↔ ∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))))
91	52, 90	raleqbidva 3299	. . . . . . . . . 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 3299	. . . . . . . . 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 594	. . . . . . . 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 3412	. . . . . . 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 3860	. . . . . . . 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 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 3876	. . . . 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 3860	. . . . . 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 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 3876	. . 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 7428	. 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 2733	. . 3 ⊢ (𝐴 Nat 𝐶) = (𝐴 Nat 𝐶)
105	104, 23, 53, 20, 59	natfval 17860	. 2 ⊢ (𝐴 Nat 𝐶) = (𝑓 ∈ (𝐴 Func 𝐶), 𝑔 ∈ (𝐴 Func 𝐶) ↦ ⦋(1st ‘𝑓) / 𝑟⦌⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐴)∀𝑦 ∈ (Base‘𝐴)∀ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥))})
106		eqid 2733	. . 3 ⊢ (𝐵 Nat 𝐷) = (𝐵 Nat 𝐷)
107		eqid 2733	. . 3 ⊢ (Base‘𝐵) = (Base‘𝐵)
108	106, 107, 54, 21, 60	natfval 17860	. 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 206   ∧ wa 395   = wceq 1541   ∈ wcel 2113  Ⅎwnfc 2880  ∀wral 3048  {crab 3396  Vcvv 3437  ⦋csb 3846  ⟨cop 4583   class class class wbr 5095  Rel wrel 5626  ⟶wf 6484  ‘cfv 6488  (class class class)co 7354   ∈ cmpo 7356  1^st c1st 7927  2^nd c2nd 7928  Xcixp 8829  Basecbs 17124  Hom chom 17176  compcco 17177  Catccat 17574  Hom_f chomf 17576  comp_fccomf 17577   Func cfunc 17765   Nat cnat 17855

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 1911  ax-6 1968  ax-7 2009  ax-8 2115  ax-9 2123  ax-10 2146  ax-11 2162  ax-12 2182  ax-ext 2705  ax-rep 5221  ax-sep 5238  ax-nul 5248  ax-pow 5307  ax-pr 5374  ax-un 7676

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 848  df-3an 1088  df-tru 1544  df-fal 1554  df-ex 1781  df-nf 1785  df-sb 2068  df-mo 2537  df-eu 2566  df-clab 2712  df-cleq 2725  df-clel 2808  df-nfc 2882  df-ne 2930  df-ral 3049  df-rex 3058  df-reu 3348  df-rab 3397  df-v 3439  df-sbc 3738  df-csb 3847  df-dif 3901  df-un 3903  df-in 3905  df-ss 3915  df-nul 4283  df-if 4477  df-pw 4553  df-sn 4578  df-pr 4580  df-op 4584  df-uni 4861  df-iun 4945  df-br 5096  df-opab 5158  df-mpt 5177  df-id 5516  df-xp 5627  df-rel 5628  df-cnv 5629  df-co 5630  df-dm 5631  df-rn 5632  df-res 5633  df-ima 5634  df-iota 6444  df-fun 6490  df-fn 6491  df-f 6492  df-f1 6493  df-fo 6494  df-f1o 6495  df-fv 6496  df-riota 7311  df-ov 7357  df-oprab 7358  df-mpo 7359  df-1st 7929  df-2nd 7930  df-map 8760  df-ixp 8830  df-cat 17578  df-cid 17579  df-homf 17580  df-comf 17581  df-func 17769  df-nat 17857

This theorem is referenced by:  fucpropd  17891  natoppfb  49359  prcofpropd  49507