funcpropd - Metamath Proof Explorer

	Metamath Proof Explorer		< Previous Next > Nearby theorems
Mirrors > Home > MPE Home > Th. List > funcpropd		Structured version Visualization version GIF version

Theorem funcpropd 17947

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

**Hypotheses**
Ref	Expression
funcpropd.1	⊢ (𝜑 → (Hom_f ‘𝐴) = (Hom_f ‘𝐵))
funcpropd.2	⊢ (𝜑 → (comp_f‘𝐴) = (comp_f‘𝐵))
funcpropd.3	⊢ (𝜑 → (Hom_f ‘𝐶) = (Hom_f ‘𝐷))
funcpropd.4	⊢ (𝜑 → (comp_f‘𝐶) = (comp_f‘𝐷))
funcpropd.a	⊢ (𝜑 → 𝐴 ∈ 𝑉)
funcpropd.b	⊢ (𝜑 → 𝐵 ∈ 𝑉)
funcpropd.c	⊢ (𝜑 → 𝐶 ∈ 𝑉)
funcpropd.d	⊢ (𝜑 → 𝐷 ∈ 𝑉)

**Assertion**
Ref	Expression
funcpropd	⊢ (𝜑 → (𝐴 Func 𝐶) = (𝐵 Func 𝐷))

Proof of Theorem funcpropd Dummy variables 𝑓 𝑔 𝑚 𝑛 𝑤 𝑥 𝑦 𝑧 are mutually distinct and distinct from all other variables.

Step	Hyp	Ref	Expression
1		relfunc 17907	. 2 ⊢ Rel (𝐴 Func 𝐶)
2		relfunc 17907	. 2 ⊢ Rel (𝐵 Func 𝐷)
3		funcpropd.1	. . . . . 6 ⊢ (𝜑 → (Hom_f ‘𝐴) = (Hom_f ‘𝐵))
4		funcpropd.2	. . . . . 6 ⊢ (𝜑 → (comp_f‘𝐴) = (comp_f‘𝐵))
5		funcpropd.a	. . . . . 6 ⊢ (𝜑 → 𝐴 ∈ 𝑉)
6		funcpropd.b	. . . . . 6 ⊢ (𝜑 → 𝐵 ∈ 𝑉)
7	3, 4, 5, 6	catpropd 17752	. . . . 5 ⊢ (𝜑 → (𝐴 ∈ Cat ↔ 𝐵 ∈ Cat))
8		funcpropd.3	. . . . . 6 ⊢ (𝜑 → (Hom_f ‘𝐶) = (Hom_f ‘𝐷))
9		funcpropd.4	. . . . . 6 ⊢ (𝜑 → (comp_f‘𝐶) = (comp_f‘𝐷))
10		funcpropd.c	. . . . . 6 ⊢ (𝜑 → 𝐶 ∈ 𝑉)
11		funcpropd.d	. . . . . 6 ⊢ (𝜑 → 𝐷 ∈ 𝑉)
12	8, 9, 10, 11	catpropd 17752	. . . . 5 ⊢ (𝜑 → (𝐶 ∈ Cat ↔ 𝐷 ∈ Cat))
13	7, 12	anbi12d 632	. . . 4 ⊢ (𝜑 → ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) ↔ (𝐵 ∈ Cat ∧ 𝐷 ∈ Cat)))
14		2fveq3 6911	. . . . . . . . . . . . 13 ⊢ (𝑧 = 𝑤 → (𝑓‘(1^st ‘𝑧)) = (𝑓‘(1^st ‘𝑤)))
15		2fveq3 6911	. . . . . . . . . . . . 13 ⊢ (𝑧 = 𝑤 → (𝑓‘(2^nd ‘𝑧)) = (𝑓‘(2^nd ‘𝑤)))
16	14, 15	oveq12d 7449	. . . . . . . . . . . 12 ⊢ (𝑧 = 𝑤 → ((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) = ((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))))
17		fveq2 6906	. . . . . . . . . . . 12 ⊢ (𝑧 = 𝑤 → ((Hom ‘𝐴)‘𝑧) = ((Hom ‘𝐴)‘𝑤))
18	16, 17	oveq12d 7449	. . . . . . . . . . 11 ⊢ (𝑧 = 𝑤 → (((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧)) = (((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))
19	18	cbvixpv 8955	. . . . . . . . . 10 ⊢ X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧)) = X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤))
20	19	eleq2i 2833	. . . . . . . . 9 ⊢ (𝑔 ∈ X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧)) ↔ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))
21	20	anbi2i 623	. . . . . . . 8 ⊢ ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧))) ↔ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤))))
22	3	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (Hom_f ‘𝐴) = (Hom_f ‘𝐵))
23	4	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (comp_f‘𝐴) = (comp_f‘𝐵))
24	5	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝐴 ∈ 𝑉)
25	6	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝐵 ∈ 𝑉)
26	22, 23, 24, 25	cidpropd 17753	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (Id‘𝐴) = (Id‘𝐵))
27	26	fveq1d 6908	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((Id‘𝐴)‘𝑥) = ((Id‘𝐵)‘𝑥))
28	27	fveq2d 6910	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)))
29	8, 9, 10, 11	cidpropd 17753	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Id‘𝐶) = (Id‘𝐷))
30	29	ad2antrr 726	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (Id‘𝐶) = (Id‘𝐷))
31	30	fveq1d 6908	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((Id‘𝐶)‘(𝑓‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)))
32	28, 31	eqeq12d 2753	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓‘𝑥)) ↔ ((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥))))
33		eqid 2737	. . . . . . . . . . . . . . . . . 18 ⊢ (Base‘𝐴) = (Base‘𝐴)
34		eqid 2737	. . . . . . . . . . . . . . . . . 18 ⊢ (Hom ‘𝐴) = (Hom ‘𝐴)
35		eqid 2737	. . . . . . . . . . . . . . . . . 18 ⊢ (comp‘𝐴) = (comp‘𝐴)
36		eqid 2737	. . . . . . . . . . . . . . . . . 18 ⊢ (comp‘𝐵) = (comp‘𝐵)
37	3	ad6antr 736	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (Hom_f ‘𝐴) = (Hom_f ‘𝐵))
38	4	ad6antr 736	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (comp_f‘𝐴) = (comp_f‘𝐵))
39		simp-5r 786	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑥 ∈ (Base‘𝐴))
40		simp-4r 784	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑦 ∈ (Base‘𝐴))
41		simpllr 776	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑧 ∈ (Base‘𝐴))
42		simplr 769	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦))
43		simpr 484	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧))
44	33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43	comfeqval 17751	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚) = (𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚))
45	44	fveq2d 6910	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → ((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = ((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)))
46		eqid 2737	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘𝐶) = (Base‘𝐶)
47		eqid 2737	. . . . . . . . . . . . . . . . 17 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
48		eqid 2737	. . . . . . . . . . . . . . . . 17 ⊢ (comp‘𝐶) = (comp‘𝐶)
49		eqid 2737	. . . . . . . . . . . . . . . . 17 ⊢ (comp‘𝐷) = (comp‘𝐷)
50	8	ad6antr 736	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (Hom_f ‘𝐶) = (Hom_f ‘𝐷))
51	9	ad6antr 736	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (comp_f‘𝐶) = (comp_f‘𝐷))
52		simprl 771	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) → 𝑓:(Base‘𝐴)⟶(Base‘𝐶))
53	52	ad5antr 734	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑓:(Base‘𝐴)⟶(Base‘𝐶))
54	53, 39	ffvelcdmd 7105	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑓‘𝑥) ∈ (Base‘𝐶))
55	53, 40	ffvelcdmd 7105	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑓‘𝑦) ∈ (Base‘𝐶))
56	53, 41	ffvelcdmd 7105	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑓‘𝑧) ∈ (Base‘𝐶))
57		df-ov 7434	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑥𝑔𝑦) = (𝑔‘⟨𝑥, 𝑦⟩)
58		simprr 773	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ ((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) → 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))
59	58	ad5ant12 756	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))
60	59	adantr 480	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))
61		opelxpi 5722	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑥 ∈ (Base‘𝐴) ∧ 𝑦 ∈ (Base‘𝐴)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
62	61	ad5ant23 760	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
63		vex 3484	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ 𝑥 ∈ V
64		vex 3484	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ 𝑦 ∈ V
65	63, 64	op1std 8024	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → (1^st ‘𝑤) = 𝑥)
66	65	fveq2d 6910	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → (𝑓‘(1^st ‘𝑤)) = (𝑓‘𝑥))
67	63, 64	op2ndd 8025	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → (2^nd ‘𝑤) = 𝑦)
68	67	fveq2d 6910	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → (𝑓‘(2^nd ‘𝑤)) = (𝑓‘𝑦))
69	66, 68	oveq12d 7449	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → ((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) = ((𝑓‘𝑥)(Hom ‘𝐶)(𝑓‘𝑦)))
70		fveq2 6906	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → ((Hom ‘𝐴)‘𝑤) = ((Hom ‘𝐴)‘⟨𝑥, 𝑦⟩))
71		df-ov 7434	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑥(Hom ‘𝐴)𝑦) = ((Hom ‘𝐴)‘⟨𝑥, 𝑦⟩)
72	70, 71	eqtr4di 2795	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → ((Hom ‘𝐴)‘𝑤) = (𝑥(Hom ‘𝐴)𝑦))
73	69, 72	oveq12d 7449	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → (((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)) = (((𝑓‘𝑥)(Hom ‘𝐶)(𝑓‘𝑦)) ↑_m (𝑥(Hom ‘𝐴)𝑦)))
74	73	fvixp 8942	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)) ∧ ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐴) × (Base‘𝐴))) → (𝑔‘⟨𝑥, 𝑦⟩) ∈ (((𝑓‘𝑥)(Hom ‘𝐶)(𝑓‘𝑦)) ↑_m (𝑥(Hom ‘𝐴)𝑦)))
75	60, 62, 74	syl2anc 584	. . . . . . . . . . . . . . . . . . . . 21 ⊢ ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑔‘⟨𝑥, 𝑦⟩) ∈ (((𝑓‘𝑥)(Hom ‘𝐶)(𝑓‘𝑦)) ↑_m (𝑥(Hom ‘𝐴)𝑦)))
76	57, 75	eqeltrid 2845	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑥𝑔𝑦) ∈ (((𝑓‘𝑥)(Hom ‘𝐶)(𝑓‘𝑦)) ↑_m (𝑥(Hom ‘𝐴)𝑦)))
77		elmapi 8889	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑥𝑔𝑦) ∈ (((𝑓‘𝑥)(Hom ‘𝐶)(𝑓‘𝑦)) ↑_m (𝑥(Hom ‘𝐴)𝑦)) → (𝑥𝑔𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑓‘𝑥)(Hom ‘𝐶)(𝑓‘𝑦)))
78	76, 77	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑥𝑔𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑓‘𝑥)(Hom ‘𝐶)(𝑓‘𝑦)))
79	78	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑥𝑔𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑓‘𝑥)(Hom ‘𝐶)(𝑓‘𝑦)))
80	79, 42	ffvelcdmd 7105	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → ((𝑥𝑔𝑦)‘𝑚) ∈ ((𝑓‘𝑥)(Hom ‘𝐶)(𝑓‘𝑦)))
81		df-ov 7434	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑦𝑔𝑧) = (𝑔‘⟨𝑦, 𝑧⟩)
82		opelxpi 5722	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑦 ∈ (Base‘𝐴) ∧ 𝑧 ∈ (Base‘𝐴)) → ⟨𝑦, 𝑧⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
83	82	adantll 714	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → ⟨𝑦, 𝑧⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
84		vex 3484	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ 𝑧 ∈ V
85	64, 84	op1std 8024	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑤 = ⟨𝑦, 𝑧⟩ → (1^st ‘𝑤) = 𝑦)
86	85	fveq2d 6910	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑤 = ⟨𝑦, 𝑧⟩ → (𝑓‘(1^st ‘𝑤)) = (𝑓‘𝑦))
87	64, 84	op2ndd 8025	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑤 = ⟨𝑦, 𝑧⟩ → (2^nd ‘𝑤) = 𝑧)
88	87	fveq2d 6910	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑤 = ⟨𝑦, 𝑧⟩ → (𝑓‘(2^nd ‘𝑤)) = (𝑓‘𝑧))
89	86, 88	oveq12d 7449	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑤 = ⟨𝑦, 𝑧⟩ → ((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) = ((𝑓‘𝑦)(Hom ‘𝐶)(𝑓‘𝑧)))
90		fveq2 6906	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑤 = ⟨𝑦, 𝑧⟩ → ((Hom ‘𝐴)‘𝑤) = ((Hom ‘𝐴)‘⟨𝑦, 𝑧⟩))
91		df-ov 7434	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑦(Hom ‘𝐴)𝑧) = ((Hom ‘𝐴)‘⟨𝑦, 𝑧⟩)
92	90, 91	eqtr4di 2795	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑤 = ⟨𝑦, 𝑧⟩ → ((Hom ‘𝐴)‘𝑤) = (𝑦(Hom ‘𝐴)𝑧))
93	89, 92	oveq12d 7449	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑤 = ⟨𝑦, 𝑧⟩ → (((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)) = (((𝑓‘𝑦)(Hom ‘𝐶)(𝑓‘𝑧)) ↑_m (𝑦(Hom ‘𝐴)𝑧)))
94	93	fvixp 8942	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)) ∧ ⟨𝑦, 𝑧⟩ ∈ ((Base‘𝐴) × (Base‘𝐴))) → (𝑔‘⟨𝑦, 𝑧⟩) ∈ (((𝑓‘𝑦)(Hom ‘𝐶)(𝑓‘𝑧)) ↑_m (𝑦(Hom ‘𝐴)𝑧)))
95	59, 83, 94	syl2anc 584	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑔‘⟨𝑦, 𝑧⟩) ∈ (((𝑓‘𝑦)(Hom ‘𝐶)(𝑓‘𝑧)) ↑_m (𝑦(Hom ‘𝐴)𝑧)))
96	81, 95	eqeltrid 2845	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑦𝑔𝑧) ∈ (((𝑓‘𝑦)(Hom ‘𝐶)(𝑓‘𝑧)) ↑_m (𝑦(Hom ‘𝐴)𝑧)))
97		elmapi 8889	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((𝑦𝑔𝑧) ∈ (((𝑓‘𝑦)(Hom ‘𝐶)(𝑓‘𝑧)) ↑_m (𝑦(Hom ‘𝐴)𝑧)) → (𝑦𝑔𝑧):(𝑦(Hom ‘𝐴)𝑧)⟶((𝑓‘𝑦)(Hom ‘𝐶)(𝑓‘𝑧)))
98	96, 97	syl 17	. . . . . . . . . . . . . . . . . . 19 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑦𝑔𝑧):(𝑦(Hom ‘𝐴)𝑧)⟶((𝑓‘𝑦)(Hom ‘𝐶)(𝑓‘𝑧)))
99	98	adantr 480	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑦𝑔𝑧):(𝑦(Hom ‘𝐴)𝑧)⟶((𝑓‘𝑦)(Hom ‘𝐶)(𝑓‘𝑧)))
100	99	ffvelcdmda 7104	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → ((𝑦𝑔𝑧)‘𝑛) ∈ ((𝑓‘𝑦)(Hom ‘𝐶)(𝑓‘𝑧)))
101	46, 47, 48, 49, 50, 51, 54, 55, 56, 80, 100	comfeqval 17751	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))
102	45, 101	eqeq12d 2753	. . . . . . . . . . . . . . 15 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))
103	102	ralbidva 3176	. . . . . . . . . . . . . 14 ⊢ ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))
104	103	ralbidva 3176	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))
105		eqid 2737	. . . . . . . . . . . . . . 15 ⊢ (Hom ‘𝐵) = (Hom ‘𝐵)
106	22	ad2antrr 726	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (Hom_f ‘𝐴) = (Hom_f ‘𝐵))
107		simpllr 776	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → 𝑥 ∈ (Base‘𝐴))
108		simplr 769	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → 𝑦 ∈ (Base‘𝐴))
109	33, 34, 105, 106, 107, 108	homfeqval 17740	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑥(Hom ‘𝐴)𝑦) = (𝑥(Hom ‘𝐵)𝑦))
110		simpr 484	. . . . . . . . . . . . . . . 16 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → 𝑧 ∈ (Base‘𝐴))
111	33, 34, 105, 106, 108, 110	homfeqval 17740	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑦(Hom ‘𝐴)𝑧) = (𝑦(Hom ‘𝐵)𝑧))
112	111	raleqdv 3326	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))
113	109, 112	raleqbidv 3346	. . . . . . . . . . . . 13 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))
114	104, 113	bitrd 279	. . . . . . . . . . . 12 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))
115	114	ralbidva 3176	. . . . . . . . . . 11 ⊢ ((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))
116	115	ralbidva 3176	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))
117	32, 116	anbi12d 632	. . . . . . . . 9 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ (((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))))
118	117	ralbidva 3176	. . . . . . . 8 ⊢ ((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) → (∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))))
119	21, 118	sylan2b 594	. . . . . . 7 ⊢ ((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧)))) → (∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))))
120	119	pm5.32da 579	. . . . . 6 ⊢ (𝜑 → (((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))))
121		eqid 2737	. . . . . . . . . . . . . 14 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
122	8	ad2antrr 726	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (Hom_f ‘𝐶) = (Hom_f ‘𝐷))
123		simplr 769	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → 𝑓:(Base‘𝐴)⟶(Base‘𝐶))
124		xp1st 8046	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴)) → (1^st ‘𝑧) ∈ (Base‘𝐴))
125	124	adantl 481	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (1^st ‘𝑧) ∈ (Base‘𝐴))
126	123, 125	ffvelcdmd 7105	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (𝑓‘(1^st ‘𝑧)) ∈ (Base‘𝐶))
127		xp2nd 8047	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴)) → (2^nd ‘𝑧) ∈ (Base‘𝐴))
128	127	adantl 481	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (2^nd ‘𝑧) ∈ (Base‘𝐴))
129	123, 128	ffvelcdmd 7105	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (𝑓‘(2^nd ‘𝑧)) ∈ (Base‘𝐶))
130	46, 47, 121, 122, 126, 129	homfeqval 17740	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) = ((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))))
131	3	ad2antrr 726	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (Hom_f ‘𝐴) = (Hom_f ‘𝐵))
132	33, 34, 105, 131, 125, 128	homfeqval 17740	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((1^st ‘𝑧)(Hom ‘𝐴)(2^nd ‘𝑧)) = ((1^st ‘𝑧)(Hom ‘𝐵)(2^nd ‘𝑧)))
133		df-ov 7434	. . . . . . . . . . . . . . 15 ⊢ ((1^st ‘𝑧)(Hom ‘𝐴)(2^nd ‘𝑧)) = ((Hom ‘𝐴)‘⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
134		df-ov 7434	. . . . . . . . . . . . . . 15 ⊢ ((1^st ‘𝑧)(Hom ‘𝐵)(2^nd ‘𝑧)) = ((Hom ‘𝐵)‘⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
135	132, 133, 134	3eqtr3g 2800	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐴)‘⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩) = ((Hom ‘𝐵)‘⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩))
136		1st2nd2 8053	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴)) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
137	136	adantl 481	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
138	137	fveq2d 6910	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐴)‘𝑧) = ((Hom ‘𝐴)‘⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩))
139	137	fveq2d 6910	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐵)‘𝑧) = ((Hom ‘𝐵)‘⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩))
140	135, 138, 139	3eqtr4d 2787	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐴)‘𝑧) = ((Hom ‘𝐵)‘𝑧))
141	130, 140	oveq12d 7449	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧)) = (((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧)))
142	141	ixpeq2dva 8952	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧)) = X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧)))
143	3	homfeqbas 17739	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (Base‘𝐴) = (Base‘𝐵))
144	143	sqxpeqd 5717	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((Base‘𝐴) × (Base‘𝐴)) = ((Base‘𝐵) × (Base‘𝐵)))
145	144	adantr 480	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → ((Base‘𝐴) × (Base‘𝐴)) = ((Base‘𝐵) × (Base‘𝐵)))
146	145	ixpeq1d 8949	. . . . . . . . . . 11 ⊢ ((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧)) = X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧)))
147	142, 146	eqtrd 2777	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧)) = X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧)))
148	147	eleq2d 2827	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → (𝑔 ∈ X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧)) ↔ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧))))
149	148	pm5.32da 579	. . . . . . . 8 ⊢ (𝜑 → ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧))) ↔ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧)))))
150	8	homfeqbas 17739	. . . . . . . . . 10 ⊢ (𝜑 → (Base‘𝐶) = (Base‘𝐷))
151	143, 150	feq23d 6731	. . . . . . . . 9 ⊢ (𝜑 → (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ↔ 𝑓:(Base‘𝐵)⟶(Base‘𝐷)))
152	151	anbi1d 631	. . . . . . . 8 ⊢ (𝜑 → ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧))) ↔ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧)))))
153	149, 152	bitrd 279	. . . . . . 7 ⊢ (𝜑 → ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧))) ↔ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧)))))
154	143	adantr 480	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐴)) → (Base‘𝐴) = (Base‘𝐵))
155	154	raleqdv 3326	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐴)) → (∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))
156	154, 155	raleqbidv 3346	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐴)) → (∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))
157	156	anbi2d 630	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐴)) → ((((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ (((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))))
158	143, 157	raleqbidva 3332	. . . . . . 7 ⊢ (𝜑 → (∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))))
159	153, 158	anbi12d 632	. . . . . 6 ⊢ (𝜑 → (((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ ((𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))))
160	120, 159	bitrd 279	. . . . 5 ⊢ (𝜑 → (((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ ((𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))))
161		df-3an 1089	. . . . 5 ⊢ ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))))
162		df-3an 1089	. . . . 5 ⊢ ((𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ ((𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))))
163	160, 161, 162	3bitr4g 314	. . . 4 ⊢ (𝜑 → ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))))
164	13, 163	anbi12d 632	. . 3 ⊢ (𝜑 → (((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))) ↔ ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) ∧ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))))))
165		df-br 5144	. . . . 5 ⊢ (𝑓(𝐴 Func 𝐶)𝑔 ↔ ⟨𝑓, 𝑔⟩ ∈ (𝐴 Func 𝐶))
166		funcrcl 17908	. . . . 5 ⊢ (⟨𝑓, 𝑔⟩ ∈ (𝐴 Func 𝐶) → (𝐴 ∈ Cat ∧ 𝐶 ∈ Cat))
167	165, 166	sylbi 217	. . . 4 ⊢ (𝑓(𝐴 Func 𝐶)𝑔 → (𝐴 ∈ Cat ∧ 𝐶 ∈ Cat))
168		eqid 2737	. . . . 5 ⊢ (Id‘𝐴) = (Id‘𝐴)
169		eqid 2737	. . . . 5 ⊢ (Id‘𝐶) = (Id‘𝐶)
170		simpl 482	. . . . 5 ⊢ ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) → 𝐴 ∈ Cat)
171		simpr 484	. . . . 5 ⊢ ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) → 𝐶 ∈ Cat)
172	33, 46, 34, 47, 168, 169, 35, 48, 170, 171	isfunc 17909	. . . 4 ⊢ ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) → (𝑓(𝐴 Func 𝐶)𝑔 ↔ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))))
173	167, 172	biadanii 822	. . 3 ⊢ (𝑓(𝐴 Func 𝐶)𝑔 ↔ ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))))
174		df-br 5144	. . . . 5 ⊢ (𝑓(𝐵 Func 𝐷)𝑔 ↔ ⟨𝑓, 𝑔⟩ ∈ (𝐵 Func 𝐷))
175		funcrcl 17908	. . . . 5 ⊢ (⟨𝑓, 𝑔⟩ ∈ (𝐵 Func 𝐷) → (𝐵 ∈ Cat ∧ 𝐷 ∈ Cat))
176	174, 175	sylbi 217	. . . 4 ⊢ (𝑓(𝐵 Func 𝐷)𝑔 → (𝐵 ∈ Cat ∧ 𝐷 ∈ Cat))
177		eqid 2737	. . . . 5 ⊢ (Base‘𝐵) = (Base‘𝐵)
178		eqid 2737	. . . . 5 ⊢ (Base‘𝐷) = (Base‘𝐷)
179		eqid 2737	. . . . 5 ⊢ (Id‘𝐵) = (Id‘𝐵)
180		eqid 2737	. . . . 5 ⊢ (Id‘𝐷) = (Id‘𝐷)
181		simpl 482	. . . . 5 ⊢ ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) → 𝐵 ∈ Cat)
182		simpr 484	. . . . 5 ⊢ ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) → 𝐷 ∈ Cat)
183	177, 178, 105, 121, 179, 180, 36, 49, 181, 182	isfunc 17909	. . . 4 ⊢ ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) → (𝑓(𝐵 Func 𝐷)𝑔 ↔ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))))
184	176, 183	biadanii 822	. . 3 ⊢ (𝑓(𝐵 Func 𝐷)𝑔 ↔ ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) ∧ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔 ∈ X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))))
185	164, 173, 184	3bitr4g 314	. 2 ⊢ (𝜑 → (𝑓(𝐴 Func 𝐶)𝑔 ↔ 𝑓(𝐵 Func 𝐷)𝑔))
186	1, 2, 185	eqbrrdiv 5804	1 ⊢ (𝜑 → (𝐴 Func 𝐶) = (𝐵 Func 𝐷))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 206 ∧ wa 395 ∧ w3a 1087 = wceq 1540 ∈ wcel 2108 ∀wral 3061 ⟨cop 4632 class class class wbr 5143 × cxp 5683 ⟶wf 6557 ‘cfv 6561 (class class class)co 7431 1^st c1st 8012 2^nd c2nd 8013 ↑_m cmap 8866 Xcixp 8937 Basecbs 17247 Hom chom 17308 compcco 17309 Catccat 17707 Idccid 17708 Hom_f chomf 17709 comp_fccomf 17710 Func cfunc 17899

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1795 ax-4 1809 ax-5 1910 ax-6 1967 ax-7 2007 ax-8 2110 ax-9 2118 ax-10 2141 ax-11 2157 ax-12 2177 ax-ext 2708 ax-rep 5279 ax-sep 5296 ax-nul 5306 ax-pow 5365 ax-pr 5432 ax-un 7755

This theorem depends on definitions: df-bi 207 df-an 396 df-or 849 df-3an 1089 df-tru 1543 df-fal 1553 df-ex 1780 df-nf 1784 df-sb 2065 df-mo 2540 df-eu 2569 df-clab 2715 df-cleq 2729 df-clel 2816 df-nfc 2892 df-ne 2941 df-ral 3062 df-rex 3071 df-reu 3381 df-rab 3437 df-v 3482 df-sbc 3789 df-csb 3900 df-dif 3954 df-un 3956 df-in 3958 df-ss 3968 df-nul 4334 df-if 4526 df-pw 4602 df-sn 4627 df-pr 4629 df-op 4633 df-uni 4908 df-iun 4993 df-br 5144 df-opab 5206 df-mpt 5226 df-id 5578 df-xp 5691 df-rel 5692 df-cnv 5693 df-co 5694 df-dm 5695 df-rn 5696 df-res 5697 df-ima 5698 df-iota 6514 df-fun 6563 df-fn 6564 df-f 6565 df-f1 6566 df-fo 6567 df-f1o 6568 df-fv 6569 df-riota 7388 df-ov 7434 df-oprab 7435 df-mpo 7436 df-1st 8014 df-2nd 8015 df-map 8868 df-ixp 8938 df-cat 17711 df-cid 17712 df-homf 17713 df-comf 17714 df-func 17903

This theorem is referenced by: funcres2c 17948 fullpropd 17967 fthpropd 17968 ressffth 17985 natpropd 18024 fucpropd 18025 funcsetcres2 18138

W3C validator