Theorem natpropd 18046

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 17967	. . 3 ⊢ (𝜑 → (𝐴 Func 𝐶) = (𝐵 Func 𝐷))
10	9	adantr 480	. . 3 ⊢ ((𝜑 ∧ 𝑓 ∈ (𝐴 Func 𝐶)) → (𝐴 Func 𝐶) = (𝐵 Func 𝐷))
11		nfv 1913	. . . 4 ⊢ Ⅎ𝑟(𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶)))
12		nfcsb1v 3946	. . . . 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 6935	. . . 4 ⊢ ((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) → (1st ‘𝑓) ∈ V)
15		nfv 1913	. . . . . 6 ⊢ Ⅎ𝑠((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓))
16		nfcsb1v 3946	. . . . . . 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 6935	. . . . . 6 ⊢ (((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) → (1st ‘𝑔) ∈ V)
19		eqid 2740	. . . . . . . . . . 11 ⊢ (Base‘𝐶) = (Base‘𝐶)
20		eqid 2740	. . . . . . . . . . 11 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
21		eqid 2740	. . . . . . . . . . 11 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
22	3	ad4antr 731	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑥 ∈ (Base‘𝐴)) → (Homf ‘𝐶) = (Homf ‘𝐷))
23		eqid 2740	. . . . . . . . . . . . 13 ⊢ (Base‘𝐴) = (Base‘𝐴)
24		simplr 768	. . . . . . . . . . . . . 14 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑟 = (1st ‘𝑓))
25		relfunc 17926	. . . . . . . . . . . . . . 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 8083	. . . . . . . . . . . . . . 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 5188	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑟(𝐴 Func 𝐶)(2nd ‘𝑓))
31	23, 19, 30	funcf1 17930	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑟:(Base‘𝐴)⟶(Base‘𝐶))
32	31	ffvelcdmda 7118	. . . . . . . . . . 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 8083	. . . . . . . . . . . . . . 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 5188	. . . . . . . . . . . . 13 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑠(𝐴 Func 𝐶)(2nd ‘𝑔))
38	23, 19, 37	funcf1 17930	. . . . . . . . . . . 12 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → 𝑠:(Base‘𝐴)⟶(Base‘𝐶))
39	38	ffvelcdmda 7118	. . . . . . . . . . 11 ⊢ (((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑥 ∈ (Base‘𝐴)) → (𝑠‘𝑥) ∈ (Base‘𝐶))
40	19, 20, 21, 22, 32, 39	homfeqval 17755	. . . . . . . . . 10 ⊢ (((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑥 ∈ (Base‘𝐴)) → ((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = ((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)))
41	40	ixpeq2dva 8970	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)))
42	1	homfeqbas 17754	. . . . . . . . . . 11 ⊢ (𝜑 → (Base‘𝐴) = (Base‘𝐵))
43	42	ad3antrrr 729	. . . . . . . . . 10 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → (Base‘𝐴) = (Base‘𝐵))
44	43	ixpeq1d 8967	. . . . . . . . 9 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) = X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)))
45	41, 44	eqtrd 2780	. . . . . . . 8 ⊢ ((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) → X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)))
46		fveq2 6920	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → (𝑟‘𝑥) = (𝑟‘𝑧))
47		fveq2 6920	. . . . . . . . . . . 12 ⊢ (𝑥 = 𝑧 → (𝑠‘𝑥) = (𝑠‘𝑧))
48	46, 47	oveq12d 7466	. . . . . . . . . . 11 ⊢ (𝑥 = 𝑧 → ((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = ((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)))
49	48	cbvixpv 8973	. . . . . . . . . 10 ⊢ X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) = X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))
50	49	eleq2i 2836	. . . . . . . . 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 2740	. . . . . . . . . . . . 13 ⊢ (Hom ‘𝐴) = (Hom ‘𝐴)
54		eqid 2740	. . . . . . . . . . . . 13 ⊢ (Hom ‘𝐵) = (Hom ‘𝐵)
55	1	ad6antr 735	. . . . . . . . . . . . 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 17755	. . . . . . . . . . . 12 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑥(Hom ‘𝐴)𝑦) = (𝑥(Hom ‘𝐵)𝑦))
59		eqid 2740	. . . . . . . . . . . . . 14 ⊢ (comp‘𝐶) = (comp‘𝐶)
60		eqid 2740	. . . . . . . . . . . . . 14 ⊢ (comp‘𝐷) = (comp‘𝐷)
61	3	ad7antr 737	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (Homf ‘𝐶) = (Homf ‘𝐷))
62	4	ad7antr 737	. . . . . . . . . . . . . 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 725	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝑟:(Base‘𝐴)⟶(Base‘𝐶))
65	64	ffvelcdmda 7118	. . . . . . . . . . . . . . 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 725	. . . . . . . . . . . . . . . 16 ⊢ ((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝑠:(Base‘𝐴)⟶(Base‘𝐶))
68	67	ffvelcdmda 7118	. . . . . . . . . . . . . . 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 729	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → 𝑟(𝐴 Func 𝐶)(2nd ‘𝑓))
71	23, 53, 20, 70, 56, 57	funcf2 17932	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑥(2nd ‘𝑓)𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑟‘𝑥)(Hom ‘𝐶)(𝑟‘𝑦)))
72	71	ffvelcdmda 7118	. . . . . . . . . . . . . 14 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → ((𝑥(2nd ‘𝑓)𝑦)‘ℎ) ∈ ((𝑟‘𝑥)(Hom ‘𝐶)(𝑟‘𝑦)))
73		fveq2 6920	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑦 → (𝑟‘𝑧) = (𝑟‘𝑦))
74		fveq2 6920	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑦 → (𝑠‘𝑧) = (𝑠‘𝑦))
75	73, 74	oveq12d 7466	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = 𝑦 → ((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)) = ((𝑟‘𝑦)(Hom ‘𝐶)(𝑠‘𝑦)))
76	75	fvixp 8960	. . . . . . . . . . . . . . 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 17766	. . . . . . . . . . . . 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 6920	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑥 → (𝑟‘𝑧) = (𝑟‘𝑥))
81		fveq2 6920	. . . . . . . . . . . . . . . . 17 ⊢ (𝑧 = 𝑥 → (𝑠‘𝑧) = (𝑠‘𝑥))
82	80, 81	oveq12d 7466	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 = 𝑥 → ((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧)) = ((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)))
83	82	fvixp 8960	. . . . . . . . . . . . . . 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 729	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → 𝑠(𝐴 Func 𝐶)(2nd ‘𝑔))
86	23, 53, 20, 85, 56, 57	funcf2 17932	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (𝑥(2nd ‘𝑔)𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑠‘𝑥)(Hom ‘𝐶)(𝑠‘𝑦)))
87	86	ffvelcdmda 7118	. . . . . . . . . . . . . 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 17766	. . . . . . . . . . . . 13 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥)))
89	78, 88	eqeq12d 2756	. . . . . . . . . . . 12 ⊢ ((((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)) → (((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥)) ↔ ((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))))
90	58, 89	raleqbidva 3340	. . . . . . . . . . 11 ⊢ (((((((𝜑 ∧ (𝑓 ∈ (𝐴 Func 𝐶) ∧ 𝑔 ∈ (𝐴 Func 𝐶))) ∧ 𝑟 = (1st ‘𝑓)) ∧ 𝑠 = (1st ‘𝑔)) ∧ 𝑎 ∈ X𝑧 ∈ (Base‘𝐴)((𝑟‘𝑧)(Hom ‘𝐶)(𝑠‘𝑧))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (∀ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥)) ↔ ∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))))
91	52, 90	raleqbidva 3340	. . . . . . . . . 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 3340	. . . . . . . . 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 3460	. . . . . . 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 3935	. . . . . . . 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 2780	. . . . . 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 3952	. . . . 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 3935	. . . . . 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 2780	. . . 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 3952	. . 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 7524	. 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 2740	. . 3 ⊢ (𝐴 Nat 𝐶) = (𝐴 Nat 𝐶)
105	104, 23, 53, 20, 59	natfval 18014	. 2 ⊢ (𝐴 Nat 𝐶) = (𝑓 ∈ (𝐴 Func 𝐶), 𝑔 ∈ (𝐴 Func 𝐶) ↦ ⦋(1st ‘𝑓) / 𝑟⦌⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐴)((𝑟‘𝑥)(Hom ‘𝐶)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐴)∀𝑦 ∈ (Base‘𝐴)∀ℎ ∈ (𝑥(Hom ‘𝐴)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐶)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐶)(𝑠‘𝑦))(𝑎‘𝑥))})
106		eqid 2740	. . 3 ⊢ (𝐵 Nat 𝐷) = (𝐵 Nat 𝐷)
107		eqid 2740	. . 3 ⊢ (Base‘𝐵) = (Base‘𝐵)
108	106, 107, 54, 21, 60	natfval 18014	. 2 ⊢ (𝐵 Nat 𝐷) = (𝑓 ∈ (𝐵 Func 𝐷), 𝑔 ∈ (𝐵 Func 𝐷) ↦ ⦋(1st ‘𝑓) / 𝑟⦌⦋(1st ‘𝑔) / 𝑠⦌{𝑎 ∈ X𝑥 ∈ (Base‘𝐵)((𝑟‘𝑥)(Hom ‘𝐷)(𝑠‘𝑥)) ∣ ∀𝑥 ∈ (Base‘𝐵)∀𝑦 ∈ (Base‘𝐵)∀ℎ ∈ (𝑥(Hom ‘𝐵)𝑦)((𝑎‘𝑦)(⟨(𝑟‘𝑥), (𝑟‘𝑦)⟩(comp‘𝐷)(𝑠‘𝑦))((𝑥(2nd ‘𝑓)𝑦)‘ℎ)) = (((𝑥(2nd ‘𝑔)𝑦)‘ℎ)(⟨(𝑟‘𝑥), (𝑠‘𝑥)⟩(comp‘𝐷)(𝑠‘𝑦))(𝑎‘𝑥))})
109	103, 105, 108	3eqtr4g 2805	1 ⊢ (𝜑 → (𝐴 Nat 𝐶) = (𝐵 Nat 𝐷))

Syntax hints:   → wi 4   ↔ wb 206   ∧ wa 395   = wceq 1537   ∈ wcel 2108  Ⅎwnfc 2893  ∀wral 3067  {crab 3443  Vcvv 3488  ⦋csb 3921  ⟨cop 4654   class class class wbr 5166  Rel wrel 5705  ⟶wf 6569  ‘cfv 6573  (class class class)co 7448   ∈ cmpo 7450  1^st c1st 8028  2^nd c2nd 8029  Xcixp 8955  Basecbs 17258  Hom chom 17322  compcco 17323  Catccat 17722  Hom_f chomf 17724  comp_fccomf 17725   Func cfunc 17918   Nat cnat 18009

This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1793  ax-4 1807  ax-5 1909  ax-6 1967  ax-7 2007  ax-8 2110  ax-9 2118  ax-10 2141  ax-11 2158  ax-12 2178  ax-ext 2711  ax-rep 5303  ax-sep 5317  ax-nul 5324  ax-pow 5383  ax-pr 5447  ax-un 7770

This theorem depends on definitions:  df-bi 207  df-an 396  df-or 847  df-3an 1089  df-tru 1540  df-fal 1550  df-ex 1778  df-nf 1782  df-sb 2065  df-mo 2543  df-eu 2572  df-clab 2718  df-cleq 2732  df-clel 2819  df-nfc 2895  df-ne 2947  df-ral 3068  df-rex 3077  df-reu 3389  df-rab 3444  df-v 3490  df-sbc 3805  df-csb 3922  df-dif 3979  df-un 3981  df-in 3983  df-ss 3993  df-nul 4353  df-if 4549  df-pw 4624  df-sn 4649  df-pr 4651  df-op 4655  df-uni 4932  df-iun 5017  df-br 5167  df-opab 5229  df-mpt 5250  df-id 5593  df-xp 5706  df-rel 5707  df-cnv 5708  df-co 5709  df-dm 5710  df-rn 5711  df-res 5712  df-ima 5713  df-iota 6525  df-fun 6575  df-fn 6576  df-f 6577  df-f1 6578  df-fo 6579  df-f1o 6580  df-fv 6581  df-riota 7404  df-ov 7451  df-oprab 7452  df-mpo 7453  df-1st 8030  df-2nd 8031  df-map 8886  df-ixp 8956  df-cat 17726  df-cid 17727  df-homf 17728  df-comf 17729  df-func 17922  df-nat 18011

This theorem is referenced by:  fucpropd  18047