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 17616

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 17577	. 2 ⊢ Rel (𝐴 Func 𝐶)
2		relfunc 17577	. 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 17418	. . . . 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 17418	. . . . 5 ⊢ (𝜑 → (𝐶 ∈ Cat ↔ 𝐷 ∈ Cat))
13	7, 12	anbi12d 631	. . . 4 ⊢ (𝜑 → ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) ↔ (𝐵 ∈ Cat ∧ 𝐷 ∈ Cat)))
14		2fveq3 6779	. . . . . . . . . . . . 13 ⊢ (𝑧 = 𝑤 → (𝑓‘(1^st ‘𝑧)) = (𝑓‘(1^st ‘𝑤)))
15		2fveq3 6779	. . . . . . . . . . . . 13 ⊢ (𝑧 = 𝑤 → (𝑓‘(2^nd ‘𝑧)) = (𝑓‘(2^nd ‘𝑤)))
16	14, 15	oveq12d 7293	. . . . . . . . . . . 12 ⊢ (𝑧 = 𝑤 → ((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) = ((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))))
17		fveq2 6774	. . . . . . . . . . . 12 ⊢ (𝑧 = 𝑤 → ((Hom ‘𝐴)‘𝑧) = ((Hom ‘𝐴)‘𝑤))
18	16, 17	oveq12d 7293	. . . . . . . . . . 11 ⊢ (𝑧 = 𝑤 → (((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧)) = (((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))
19	18	cbvixpv 8703	. . . . . . . . . 10 ⊢ X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧)) = X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤))
20	19	eleq2i 2830	. . . . . . . . 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 723	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (Hom_f ‘𝐴) = (Hom_f ‘𝐵))
23	4	ad2antrr 723	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (comp_f‘𝐴) = (comp_f‘𝐵))
24	5	ad2antrr 723	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝐴 ∈ 𝑉)
25	6	ad2antrr 723	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝐵 ∈ 𝑉)
26	22, 23, 24, 25	cidpropd 17419	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (Id‘𝐴) = (Id‘𝐵))
27	26	fveq1d 6776	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((Id‘𝐴)‘𝑥) = ((Id‘𝐵)‘𝑥))
28	27	fveq2d 6778	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)))
29	8, 9, 10, 11	cidpropd 17419	. . . . . . . . . . . . 13 ⊢ (𝜑 → (Id‘𝐶) = (Id‘𝐷))
30	29	ad2antrr 723	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (Id‘𝐶) = (Id‘𝐷))
31	30	fveq1d 6776	. . . . . . . . . . 11 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((Id‘𝐶)‘(𝑓‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)))
32	28, 31	eqeq12d 2754	. . . . . . . . . 10 ⊢ (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓‘𝑥)) ↔ ((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥))))
33		eqid 2738	. . . . . . . . . . . . . . . . . 18 ⊢ (Base‘𝐴) = (Base‘𝐴)
34		eqid 2738	. . . . . . . . . . . . . . . . . 18 ⊢ (Hom ‘𝐴) = (Hom ‘𝐴)
35		eqid 2738	. . . . . . . . . . . . . . . . . 18 ⊢ (comp‘𝐴) = (comp‘𝐴)
36		eqid 2738	. . . . . . . . . . . . . . . . . 18 ⊢ (comp‘𝐵) = (comp‘𝐵)
37	3	ad6antr 733	. . . . . . . . . . . . . . . . . 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 733	. . . . . . . . . . . . . . . . . 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 783	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑥 ∈ (Base‘𝐴))
40		simp-4r 781	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑦 ∈ (Base‘𝐴))
41		simpllr 773	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑧 ∈ (Base‘𝐴))
42		simplr 766	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦))
43		simpr 485	. . . . . . . . . . . . . . . . . 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 17417	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚) = (𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚))
45	44	fveq2d 6778	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → ((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = ((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)))
46		eqid 2738	. . . . . . . . . . . . . . . . 17 ⊢ (Base‘𝐶) = (Base‘𝐶)
47		eqid 2738	. . . . . . . . . . . . . . . . 17 ⊢ (Hom ‘𝐶) = (Hom ‘𝐶)
48		eqid 2738	. . . . . . . . . . . . . . . . 17 ⊢ (comp‘𝐶) = (comp‘𝐶)
49		eqid 2738	. . . . . . . . . . . . . . . . 17 ⊢ (comp‘𝐷) = (comp‘𝐷)
50	8	ad6antr 733	. . . . . . . . . . . . . . . . 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 733	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (comp_f‘𝐶) = (comp_f‘𝐷))
52		simprl 768	. . . . . . . . . . . . . . . . . . 19 ⊢ ((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) → 𝑓:(Base‘𝐴)⟶(Base‘𝐶))
53	52	ad5antr 731	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑓:(Base‘𝐴)⟶(Base‘𝐶))
54	53, 39	ffvelrnd 6962	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑓‘𝑥) ∈ (Base‘𝐶))
55	53, 40	ffvelrnd 6962	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑓‘𝑦) ∈ (Base‘𝐶))
56	53, 41	ffvelrnd 6962	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑓‘𝑧) ∈ (Base‘𝐶))
57		df-ov 7278	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑥𝑔𝑦) = (𝑔‘⟨𝑥, 𝑦⟩)
58		simprr 770	. . . . . . . . . . . . . . . . . . . . . . . 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 753	. . . . . . . . . . . . . . . . . . . . . . 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 481	. . . . . . . . . . . . . . . . . . . . . 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 5626	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑥 ∈ (Base‘𝐴) ∧ 𝑦 ∈ (Base‘𝐴)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
62	61	ad5ant23 757	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
63		vex 3436	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ 𝑥 ∈ V
64		vex 3436	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ 𝑦 ∈ V
65	63, 64	op1std 7841	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → (1^st ‘𝑤) = 𝑥)
66	65	fveq2d 6778	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → (𝑓‘(1^st ‘𝑤)) = (𝑓‘𝑥))
67	63, 64	op2ndd 7842	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → (2^nd ‘𝑤) = 𝑦)
68	67	fveq2d 6778	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → (𝑓‘(2^nd ‘𝑤)) = (𝑓‘𝑦))
69	66, 68	oveq12d 7293	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → ((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) = ((𝑓‘𝑥)(Hom ‘𝐶)(𝑓‘𝑦)))
70		fveq2 6774	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → ((Hom ‘𝐴)‘𝑤) = ((Hom ‘𝐴)‘⟨𝑥, 𝑦⟩))
71		df-ov 7278	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑥(Hom ‘𝐴)𝑦) = ((Hom ‘𝐴)‘⟨𝑥, 𝑦⟩)
72	70, 71	eqtr4di 2796	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → ((Hom ‘𝐴)‘𝑤) = (𝑥(Hom ‘𝐴)𝑦))
73	69, 72	oveq12d 7293	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑤 = ⟨𝑥, 𝑦⟩ → (((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)) = (((𝑓‘𝑥)(Hom ‘𝐶)(𝑓‘𝑦)) ↑_m (𝑥(Hom ‘𝐴)𝑦)))
74	73	fvixp 8690	. . . . . . . . . . . . . . . . . . . . . 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 2843	. . . . . . . . . . . . . . . . . . . 20 ⊢ ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑥𝑔𝑦) ∈ (((𝑓‘𝑥)(Hom ‘𝐶)(𝑓‘𝑦)) ↑_m (𝑥(Hom ‘𝐴)𝑦)))
77		elmapi 8637	. . . . . . . . . . . . . . . . . . . 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 481	. . . . . . . . . . . . . . . . . 18 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑥𝑔𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑓‘𝑥)(Hom ‘𝐶)(𝑓‘𝑦)))
80	79, 42	ffvelrnd 6962	. . . . . . . . . . . . . . . . 17 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → ((𝑥𝑔𝑦)‘𝑚) ∈ ((𝑓‘𝑥)(Hom ‘𝐶)(𝑓‘𝑦)))
81		df-ov 7278	. . . . . . . . . . . . . . . . . . . . 21 ⊢ (𝑦𝑔𝑧) = (𝑔‘⟨𝑦, 𝑧⟩)
82		opelxpi 5626	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ ((𝑦 ∈ (Base‘𝐴) ∧ 𝑧 ∈ (Base‘𝐴)) → ⟨𝑦, 𝑧⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
83	82	adantll 711	. . . . . . . . . . . . . . . . . . . . . 22 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → ⟨𝑦, 𝑧⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
84		vex 3436	. . . . . . . . . . . . . . . . . . . . . . . . . . 27 ⊢ 𝑧 ∈ V
85	64, 84	op1std 7841	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑤 = ⟨𝑦, 𝑧⟩ → (1^st ‘𝑤) = 𝑦)
86	85	fveq2d 6778	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑤 = ⟨𝑦, 𝑧⟩ → (𝑓‘(1^st ‘𝑤)) = (𝑓‘𝑦))
87	64, 84	op2ndd 7842	. . . . . . . . . . . . . . . . . . . . . . . . . 26 ⊢ (𝑤 = ⟨𝑦, 𝑧⟩ → (2^nd ‘𝑤) = 𝑧)
88	87	fveq2d 6778	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑤 = ⟨𝑦, 𝑧⟩ → (𝑓‘(2^nd ‘𝑤)) = (𝑓‘𝑧))
89	86, 88	oveq12d 7293	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑤 = ⟨𝑦, 𝑧⟩ → ((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) = ((𝑓‘𝑦)(Hom ‘𝐶)(𝑓‘𝑧)))
90		fveq2 6774	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑤 = ⟨𝑦, 𝑧⟩ → ((Hom ‘𝐴)‘𝑤) = ((Hom ‘𝐴)‘⟨𝑦, 𝑧⟩))
91		df-ov 7278	. . . . . . . . . . . . . . . . . . . . . . . . 25 ⊢ (𝑦(Hom ‘𝐴)𝑧) = ((Hom ‘𝐴)‘⟨𝑦, 𝑧⟩)
92	90, 91	eqtr4di 2796	. . . . . . . . . . . . . . . . . . . . . . . 24 ⊢ (𝑤 = ⟨𝑦, 𝑧⟩ → ((Hom ‘𝐴)‘𝑤) = (𝑦(Hom ‘𝐴)𝑧))
93	89, 92	oveq12d 7293	. . . . . . . . . . . . . . . . . . . . . . 23 ⊢ (𝑤 = ⟨𝑦, 𝑧⟩ → (((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)) = (((𝑓‘𝑦)(Hom ‘𝐶)(𝑓‘𝑧)) ↑_m (𝑦(Hom ‘𝐴)𝑧)))
94	93	fvixp 8690	. . . . . . . . . . . . . . . . . . . . . 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 2843	. . . . . . . . . . . . . . . . . . . 20 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑦𝑔𝑧) ∈ (((𝑓‘𝑦)(Hom ‘𝐶)(𝑓‘𝑧)) ↑_m (𝑦(Hom ‘𝐴)𝑧)))
97		elmapi 8637	. . . . . . . . . . . . . . . . . . . 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 481	. . . . . . . . . . . . . . . . . 18 ⊢ ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑦𝑔𝑧):(𝑦(Hom ‘𝐴)𝑧)⟶((𝑓‘𝑦)(Hom ‘𝐶)(𝑓‘𝑧)))
100	99	ffvelrnda 6961	. . . . . . . . . . . . . . . . 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 17417	. . . . . . . . . . . . . . . 16 ⊢ (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐶)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))
102	45, 101	eqeq12d 2754	. . . . . . . . . . . . . . 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 3111	. . . . . . . . . . . . . 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 3111	. . . . . . . . . . . . 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 2738	. . . . . . . . . . . . . . 15 ⊢ (Hom ‘𝐵) = (Hom ‘𝐵)
106	22	ad2antrr 723	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (Hom_f ‘𝐴) = (Hom_f ‘𝐵))
107		simpllr 773	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → 𝑥 ∈ (Base‘𝐴))
108		simplr 766	. . . . . . . . . . . . . . 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 17406	. . . . . . . . . . . . . 14 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑥(Hom ‘𝐴)𝑦) = (𝑥(Hom ‘𝐵)𝑦))
110		simpr 485	. . . . . . . . . . . . . . . 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 17406	. . . . . . . . . . . . . . 15 ⊢ (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔 ∈ X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1^st ‘𝑤))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑤))) ↑_m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑦(Hom ‘𝐴)𝑧) = (𝑦(Hom ‘𝐵)𝑧))
112	111	raleqdv 3348	. . . . . . . . . . . . . 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 3336	. . . . . . . . . . . . 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 278	. . . . . . . . . . . 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 3111	. . . . . . . . . . 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 3111	. . . . . . . . . 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 631	. . . . . . . . 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 3111	. . . . . . . 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 2738	. . . . . . . . . . . . . 14 ⊢ (Hom ‘𝐷) = (Hom ‘𝐷)
122	8	ad2antrr 723	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (Hom_f ‘𝐶) = (Hom_f ‘𝐷))
123		simplr 766	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → 𝑓:(Base‘𝐴)⟶(Base‘𝐶))
124		xp1st 7863	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴)) → (1^st ‘𝑧) ∈ (Base‘𝐴))
125	124	adantl 482	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (1^st ‘𝑧) ∈ (Base‘𝐴))
126	123, 125	ffvelrnd 6962	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (𝑓‘(1^st ‘𝑧)) ∈ (Base‘𝐶))
127		xp2nd 7864	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴)) → (2^nd ‘𝑧) ∈ (Base‘𝐴))
128	127	adantl 482	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (2^nd ‘𝑧) ∈ (Base‘𝐴))
129	123, 128	ffvelrnd 6962	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (𝑓‘(2^nd ‘𝑧)) ∈ (Base‘𝐶))
130	46, 47, 121, 122, 126, 129	homfeqval 17406	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) = ((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))))
131	3	ad2antrr 723	. . . . . . . . . . . . . . . 16 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (Hom_f ‘𝐴) = (Hom_f ‘𝐵))
132	33, 34, 105, 131, 125, 128	homfeqval 17406	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((1^st ‘𝑧)(Hom ‘𝐴)(2^nd ‘𝑧)) = ((1^st ‘𝑧)(Hom ‘𝐵)(2^nd ‘𝑧)))
133		df-ov 7278	. . . . . . . . . . . . . . 15 ⊢ ((1^st ‘𝑧)(Hom ‘𝐴)(2^nd ‘𝑧)) = ((Hom ‘𝐴)‘⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
134		df-ov 7278	. . . . . . . . . . . . . . 15 ⊢ ((1^st ‘𝑧)(Hom ‘𝐵)(2^nd ‘𝑧)) = ((Hom ‘𝐵)‘⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
135	132, 133, 134	3eqtr3g 2801	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐴)‘⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩) = ((Hom ‘𝐵)‘⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩))
136		1st2nd2 7870	. . . . . . . . . . . . . . . 16 ⊢ (𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴)) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
137	136	adantl 482	. . . . . . . . . . . . . . 15 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → 𝑧 = ⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩)
138	137	fveq2d 6778	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐴)‘𝑧) = ((Hom ‘𝐴)‘⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩))
139	137	fveq2d 6778	. . . . . . . . . . . . . 14 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐵)‘𝑧) = ((Hom ‘𝐵)‘⟨(1^st ‘𝑧), (2^nd ‘𝑧)⟩))
140	135, 138, 139	3eqtr4d 2788	. . . . . . . . . . . . 13 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐴)‘𝑧) = ((Hom ‘𝐵)‘𝑧))
141	130, 140	oveq12d 7293	. . . . . . . . . . . 12 ⊢ (((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (((𝑓‘(1^st ‘𝑧))(Hom ‘𝐶)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐴)‘𝑧)) = (((𝑓‘(1^st ‘𝑧))(Hom ‘𝐷)(𝑓‘(2^nd ‘𝑧))) ↑_m ((Hom ‘𝐵)‘𝑧)))
142	141	ixpeq2dva 8700	. . . . . . . . . . 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 17405	. . . . . . . . . . . . . 14 ⊢ (𝜑 → (Base‘𝐴) = (Base‘𝐵))
144	143	sqxpeqd 5621	. . . . . . . . . . . . 13 ⊢ (𝜑 → ((Base‘𝐴) × (Base‘𝐴)) = ((Base‘𝐵) × (Base‘𝐵)))
145	144	adantr 481	. . . . . . . . . . . 12 ⊢ ((𝜑 ∧ 𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → ((Base‘𝐴) × (Base‘𝐴)) = ((Base‘𝐵) × (Base‘𝐵)))
146	145	ixpeq1d 8697	. . . . . . . . . . 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 2778	. . . . . . . . . 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 2824	. . . . . . . . 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 17405	. . . . . . . . . 10 ⊢ (𝜑 → (Base‘𝐶) = (Base‘𝐷))
151	143, 150	feq23d 6595	. . . . . . . . 9 ⊢ (𝜑 → (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ↔ 𝑓:(Base‘𝐵)⟶(Base‘𝐷)))
152	151	anbi1d 630	. . . . . . . 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 278	. . . . . . 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 481	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐴)) → (Base‘𝐴) = (Base‘𝐵))
155	154	raleqdv 3348	. . . . . . . . . 10 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐴)) → (∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))
156	154, 155	raleqbidv 3336	. . . . . . . . 9 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐴)) → (∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))))
157	156	anbi2d 629	. . . . . . . 8 ⊢ ((𝜑 ∧ 𝑥 ∈ (Base‘𝐴)) → ((((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ (((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))))
158	143, 157	raleqbidva 3354	. . . . . . 7 ⊢ (𝜑 → (∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓‘𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓‘𝑥), (𝑓‘𝑦)⟩(comp‘𝐷)(𝑓‘𝑧))((𝑥𝑔𝑦)‘𝑚)))))
159	153, 158	anbi12d 631	. . . . . 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 278	. . . . 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 1088	. . . . 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 1088	. . . . 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 631	. . 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 5075	. . . . 5 ⊢ (𝑓(𝐴 Func 𝐶)𝑔 ↔ ⟨𝑓, 𝑔⟩ ∈ (𝐴 Func 𝐶))
166		funcrcl 17578	. . . . 5 ⊢ (⟨𝑓, 𝑔⟩ ∈ (𝐴 Func 𝐶) → (𝐴 ∈ Cat ∧ 𝐶 ∈ Cat))
167	165, 166	sylbi 216	. . . 4 ⊢ (𝑓(𝐴 Func 𝐶)𝑔 → (𝐴 ∈ Cat ∧ 𝐶 ∈ Cat))
168		eqid 2738	. . . . 5 ⊢ (Id‘𝐴) = (Id‘𝐴)
169		eqid 2738	. . . . 5 ⊢ (Id‘𝐶) = (Id‘𝐶)
170		simpl 483	. . . . 5 ⊢ ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) → 𝐴 ∈ Cat)
171		simpr 485	. . . . 5 ⊢ ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) → 𝐶 ∈ Cat)
172	33, 46, 34, 47, 168, 169, 35, 48, 170, 171	isfunc 17579	. . . 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 819	. . 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 5075	. . . . 5 ⊢ (𝑓(𝐵 Func 𝐷)𝑔 ↔ ⟨𝑓, 𝑔⟩ ∈ (𝐵 Func 𝐷))
175		funcrcl 17578	. . . . 5 ⊢ (⟨𝑓, 𝑔⟩ ∈ (𝐵 Func 𝐷) → (𝐵 ∈ Cat ∧ 𝐷 ∈ Cat))
176	174, 175	sylbi 216	. . . 4 ⊢ (𝑓(𝐵 Func 𝐷)𝑔 → (𝐵 ∈ Cat ∧ 𝐷 ∈ Cat))
177		eqid 2738	. . . . 5 ⊢ (Base‘𝐵) = (Base‘𝐵)
178		eqid 2738	. . . . 5 ⊢ (Base‘𝐷) = (Base‘𝐷)
179		eqid 2738	. . . . 5 ⊢ (Id‘𝐵) = (Id‘𝐵)
180		eqid 2738	. . . . 5 ⊢ (Id‘𝐷) = (Id‘𝐷)
181		simpl 483	. . . . 5 ⊢ ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) → 𝐵 ∈ Cat)
182		simpr 485	. . . . 5 ⊢ ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) → 𝐷 ∈ Cat)
183	177, 178, 105, 121, 179, 180, 36, 49, 181, 182	isfunc 17579	. . . 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 819	. . 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 5704	1 ⊢ (𝜑 → (𝐴 Func 𝐶) = (𝐵 Func 𝐷))

Colors of variables: wff setvar class

Syntax hints: → wi 4 ↔ wb 205 ∧ wa 396 ∧ w3a 1086 = wceq 1539 ∈ wcel 2106 ∀wral 3064 ⟨cop 4567 class class class wbr 5074 × cxp 5587 ⟶wf 6429 ‘cfv 6433 (class class class)co 7275 1^st c1st 7829 2^nd c2nd 7830 ↑_m cmap 8615 Xcixp 8685 Basecbs 16912 Hom chom 16973 compcco 16974 Catccat 17373 Idccid 17374 Hom_f chomf 17375 comp_fccomf 17376 Func cfunc 17569

This theorem was proved from axioms: ax-mp 5 ax-1 6 ax-2 7 ax-3 8 ax-gen 1798 ax-4 1812 ax-5 1913 ax-6 1971 ax-7 2011 ax-8 2108 ax-9 2116 ax-10 2137 ax-11 2154 ax-12 2171 ax-ext 2709 ax-rep 5209 ax-sep 5223 ax-nul 5230 ax-pow 5288 ax-pr 5352 ax-un 7588

This theorem depends on definitions: df-bi 206 df-an 397 df-or 845 df-3an 1088 df-tru 1542 df-fal 1552 df-ex 1783 df-nf 1787 df-sb 2068 df-mo 2540 df-eu 2569 df-clab 2716 df-cleq 2730 df-clel 2816 df-nfc 2889 df-ne 2944 df-ral 3069 df-rex 3070 df-reu 3072 df-rab 3073 df-v 3434 df-sbc 3717 df-csb 3833 df-dif 3890 df-un 3892 df-in 3894 df-ss 3904 df-nul 4257 df-if 4460 df-pw 4535 df-sn 4562 df-pr 4564 df-op 4568 df-uni 4840 df-iun 4926 df-br 5075 df-opab 5137 df-mpt 5158 df-id 5489 df-xp 5595 df-rel 5596 df-cnv 5597 df-co 5598 df-dm 5599 df-rn 5600 df-res 5601 df-ima 5602 df-iota 6391 df-fun 6435 df-fn 6436 df-f 6437 df-f1 6438 df-fo 6439 df-f1o 6440 df-fv 6441 df-riota 7232 df-ov 7278 df-oprab 7279 df-mpo 7280 df-1st 7831 df-2nd 7832 df-map 8617 df-ixp 8686 df-cat 17377 df-cid 17378 df-homf 17379 df-comf 17380 df-func 17573

This theorem is referenced by: funcres2c 17617 fullpropd 17636 fthpropd 17637 ressffth 17654 natpropd 17694 fucpropd 17695 funcsetcres2 17808

W3C validator