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

Theorem funcpropd 16607
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 (𝜑 → (Homf𝐴) = (Homf𝐵))
funcpropd.2 (𝜑 → (compf𝐴) = (compf𝐵))
funcpropd.3 (𝜑 → (Homf𝐶) = (Homf𝐷))
funcpropd.4 (𝜑 → (compf𝐶) = (compf𝐷))
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.
StepHypRef Expression
1 relfunc 16569 . 2 Rel (𝐴 Func 𝐶)
2 relfunc 16569 . 2 Rel (𝐵 Func 𝐷)
3 funcpropd.1 . . . . . 6 (𝜑 → (Homf𝐴) = (Homf𝐵))
4 funcpropd.2 . . . . . 6 (𝜑 → (compf𝐴) = (compf𝐵))
5 funcpropd.a . . . . . 6 (𝜑𝐴𝑉)
6 funcpropd.b . . . . . 6 (𝜑𝐵𝑉)
73, 4, 5, 6catpropd 16416 . . . . 5 (𝜑 → (𝐴 ∈ Cat ↔ 𝐵 ∈ Cat))
8 funcpropd.3 . . . . . 6 (𝜑 → (Homf𝐶) = (Homf𝐷))
9 funcpropd.4 . . . . . 6 (𝜑 → (compf𝐶) = (compf𝐷))
10 funcpropd.c . . . . . 6 (𝜑𝐶𝑉)
11 funcpropd.d . . . . . 6 (𝜑𝐷𝑉)
128, 9, 10, 11catpropd 16416 . . . . 5 (𝜑 → (𝐶 ∈ Cat ↔ 𝐷 ∈ Cat))
137, 12anbi12d 747 . . . 4 (𝜑 → ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) ↔ (𝐵 ∈ Cat ∧ 𝐷 ∈ Cat)))
14 fveq2 6229 . . . . . . . . . . . . . 14 (𝑧 = 𝑤 → (1st𝑧) = (1st𝑤))
1514fveq2d 6233 . . . . . . . . . . . . 13 (𝑧 = 𝑤 → (𝑓‘(1st𝑧)) = (𝑓‘(1st𝑤)))
16 fveq2 6229 . . . . . . . . . . . . . 14 (𝑧 = 𝑤 → (2nd𝑧) = (2nd𝑤))
1716fveq2d 6233 . . . . . . . . . . . . 13 (𝑧 = 𝑤 → (𝑓‘(2nd𝑧)) = (𝑓‘(2nd𝑤)))
1815, 17oveq12d 6708 . . . . . . . . . . . 12 (𝑧 = 𝑤 → ((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) = ((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))))
19 fveq2 6229 . . . . . . . . . . . 12 (𝑧 = 𝑤 → ((Hom ‘𝐴)‘𝑧) = ((Hom ‘𝐴)‘𝑤))
2018, 19oveq12d 6708 . . . . . . . . . . 11 (𝑧 = 𝑤 → (((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) = (((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))
2120cbvixpv 7968 . . . . . . . . . 10 X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) = X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤))
2221eleq2i 2722 . . . . . . . . 9 (𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) ↔ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))
2322anbi2i 730 . . . . . . . 8 ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧))) ↔ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤))))
243ad2antrr 762 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (Homf𝐴) = (Homf𝐵))
254ad2antrr 762 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (compf𝐴) = (compf𝐵))
265ad2antrr 762 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝐴𝑉)
276ad2antrr 762 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝐵𝑉)
2824, 25, 26, 27cidpropd 16417 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (Id‘𝐴) = (Id‘𝐵))
2928fveq1d 6231 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((Id‘𝐴)‘𝑥) = ((Id‘𝐵)‘𝑥))
3029fveq2d 6233 . . . . . . . . . . 11 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)))
318, 9, 10, 11cidpropd 16417 . . . . . . . . . . . . 13 (𝜑 → (Id‘𝐶) = (Id‘𝐷))
3231ad2antrr 762 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (Id‘𝐶) = (Id‘𝐷))
3332fveq1d 6231 . . . . . . . . . . 11 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((Id‘𝐶)‘(𝑓𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)))
3430, 33eqeq12d 2666 . . . . . . . . . 10 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ↔ ((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥))))
35 eqid 2651 . . . . . . . . . . . . . . . . . 18 (Base‘𝐴) = (Base‘𝐴)
36 eqid 2651 . . . . . . . . . . . . . . . . . 18 (Hom ‘𝐴) = (Hom ‘𝐴)
37 eqid 2651 . . . . . . . . . . . . . . . . . 18 (comp‘𝐴) = (comp‘𝐴)
38 eqid 2651 . . . . . . . . . . . . . . . . . 18 (comp‘𝐵) = (comp‘𝐵)
393ad6antr 777 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (Homf𝐴) = (Homf𝐵))
404ad6antr 777 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (compf𝐴) = (compf𝐵))
41 simp-5r 826 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑥 ∈ (Base‘𝐴))
42 simp-4r 824 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑦 ∈ (Base‘𝐴))
43 simpllr 815 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑧 ∈ (Base‘𝐴))
44 simplr 807 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦))
45 simpr 476 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧))
4635, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45comfeqval 16415 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚) = (𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚))
4746fveq2d 6233 . . . . . . . . . . . . . . . 16 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → ((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = ((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)))
48 eqid 2651 . . . . . . . . . . . . . . . . 17 (Base‘𝐶) = (Base‘𝐶)
49 eqid 2651 . . . . . . . . . . . . . . . . 17 (Hom ‘𝐶) = (Hom ‘𝐶)
50 eqid 2651 . . . . . . . . . . . . . . . . 17 (comp‘𝐶) = (comp‘𝐶)
51 eqid 2651 . . . . . . . . . . . . . . . . 17 (comp‘𝐷) = (comp‘𝐷)
528ad6antr 777 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (Homf𝐶) = (Homf𝐷))
539ad6antr 777 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (compf𝐶) = (compf𝐷))
54 simprl 809 . . . . . . . . . . . . . . . . . . 19 ((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) → 𝑓:(Base‘𝐴)⟶(Base‘𝐶))
5554ad5antr 773 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑓:(Base‘𝐴)⟶(Base‘𝐶))
5655, 41ffvelrnd 6400 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑓𝑥) ∈ (Base‘𝐶))
5755, 42ffvelrnd 6400 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑓𝑦) ∈ (Base‘𝐶))
5855, 43ffvelrnd 6400 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑓𝑧) ∈ (Base‘𝐶))
59 df-ov 6693 . . . . . . . . . . . . . . . . . . . . 21 (𝑥𝑔𝑦) = (𝑔‘⟨𝑥, 𝑦⟩)
60 simprr 811 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) → 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))
6160ad3antrrr 766 . . . . . . . . . . . . . . . . . . . . . . 23 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))
6261adantr 480 . . . . . . . . . . . . . . . . . . . . . 22 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))
63 simp-4r 824 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → 𝑥 ∈ (Base‘𝐴))
64 simpllr 815 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → 𝑦 ∈ (Base‘𝐴))
65 opelxpi 5182 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑥 ∈ (Base‘𝐴) ∧ 𝑦 ∈ (Base‘𝐴)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
6663, 64, 65syl2anc 694 . . . . . . . . . . . . . . . . . . . . . 22 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
67 vex 3234 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝑥 ∈ V
68 vex 3234 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝑦 ∈ V
6967, 68op1std 7220 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑤 = ⟨𝑥, 𝑦⟩ → (1st𝑤) = 𝑥)
7069fveq2d 6233 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑤 = ⟨𝑥, 𝑦⟩ → (𝑓‘(1st𝑤)) = (𝑓𝑥))
7167, 68op2ndd 7221 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑤 = ⟨𝑥, 𝑦⟩ → (2nd𝑤) = 𝑦)
7271fveq2d 6233 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑤 = ⟨𝑥, 𝑦⟩ → (𝑓‘(2nd𝑤)) = (𝑓𝑦))
7370, 72oveq12d 6708 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑤 = ⟨𝑥, 𝑦⟩ → ((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) = ((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)))
74 fveq2 6229 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑤 = ⟨𝑥, 𝑦⟩ → ((Hom ‘𝐴)‘𝑤) = ((Hom ‘𝐴)‘⟨𝑥, 𝑦⟩))
75 df-ov 6693 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑥(Hom ‘𝐴)𝑦) = ((Hom ‘𝐴)‘⟨𝑥, 𝑦⟩)
7674, 75syl6eqr 2703 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑤 = ⟨𝑥, 𝑦⟩ → ((Hom ‘𝐴)‘𝑤) = (𝑥(Hom ‘𝐴)𝑦))
7773, 76oveq12d 6708 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑤 = ⟨𝑥, 𝑦⟩ → (((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)) = (((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)) ↑𝑚 (𝑥(Hom ‘𝐴)𝑦)))
7877fvixp 7955 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)) ∧ ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐴) × (Base‘𝐴))) → (𝑔‘⟨𝑥, 𝑦⟩) ∈ (((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)) ↑𝑚 (𝑥(Hom ‘𝐴)𝑦)))
7962, 66, 78syl2anc 694 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑔‘⟨𝑥, 𝑦⟩) ∈ (((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)) ↑𝑚 (𝑥(Hom ‘𝐴)𝑦)))
8059, 79syl5eqel 2734 . . . . . . . . . . . . . . . . . . . 20 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑥𝑔𝑦) ∈ (((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)) ↑𝑚 (𝑥(Hom ‘𝐴)𝑦)))
81 elmapi 7921 . . . . . . . . . . . . . . . . . . . 20 ((𝑥𝑔𝑦) ∈ (((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)) ↑𝑚 (𝑥(Hom ‘𝐴)𝑦)) → (𝑥𝑔𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)))
8280, 81syl 17 . . . . . . . . . . . . . . . . . . 19 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑥𝑔𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)))
8382adantr 480 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑥𝑔𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)))
8483, 44ffvelrnd 6400 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → ((𝑥𝑔𝑦)‘𝑚) ∈ ((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)))
85 df-ov 6693 . . . . . . . . . . . . . . . . . . . . 21 (𝑦𝑔𝑧) = (𝑔‘⟨𝑦, 𝑧⟩)
86 opelxpi 5182 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑦 ∈ (Base‘𝐴) ∧ 𝑧 ∈ (Base‘𝐴)) → ⟨𝑦, 𝑧⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
8786adantll 750 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → ⟨𝑦, 𝑧⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
88 vex 3234 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝑧 ∈ V
8968, 88op1std 7220 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑤 = ⟨𝑦, 𝑧⟩ → (1st𝑤) = 𝑦)
9089fveq2d 6233 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑤 = ⟨𝑦, 𝑧⟩ → (𝑓‘(1st𝑤)) = (𝑓𝑦))
9168, 88op2ndd 7221 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑤 = ⟨𝑦, 𝑧⟩ → (2nd𝑤) = 𝑧)
9291fveq2d 6233 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑤 = ⟨𝑦, 𝑧⟩ → (𝑓‘(2nd𝑤)) = (𝑓𝑧))
9390, 92oveq12d 6708 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑤 = ⟨𝑦, 𝑧⟩ → ((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) = ((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)))
94 fveq2 6229 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑤 = ⟨𝑦, 𝑧⟩ → ((Hom ‘𝐴)‘𝑤) = ((Hom ‘𝐴)‘⟨𝑦, 𝑧⟩))
95 df-ov 6693 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦(Hom ‘𝐴)𝑧) = ((Hom ‘𝐴)‘⟨𝑦, 𝑧⟩)
9694, 95syl6eqr 2703 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑤 = ⟨𝑦, 𝑧⟩ → ((Hom ‘𝐴)‘𝑤) = (𝑦(Hom ‘𝐴)𝑧))
9793, 96oveq12d 6708 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑤 = ⟨𝑦, 𝑧⟩ → (((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)) = (((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)) ↑𝑚 (𝑦(Hom ‘𝐴)𝑧)))
9897fvixp 7955 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)) ∧ ⟨𝑦, 𝑧⟩ ∈ ((Base‘𝐴) × (Base‘𝐴))) → (𝑔‘⟨𝑦, 𝑧⟩) ∈ (((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)) ↑𝑚 (𝑦(Hom ‘𝐴)𝑧)))
9961, 87, 98syl2anc 694 . . . . . . . . . . . . . . . . . . . . 21 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑔‘⟨𝑦, 𝑧⟩) ∈ (((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)) ↑𝑚 (𝑦(Hom ‘𝐴)𝑧)))
10085, 99syl5eqel 2734 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑦𝑔𝑧) ∈ (((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)) ↑𝑚 (𝑦(Hom ‘𝐴)𝑧)))
101 elmapi 7921 . . . . . . . . . . . . . . . . . . . 20 ((𝑦𝑔𝑧) ∈ (((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)) ↑𝑚 (𝑦(Hom ‘𝐴)𝑧)) → (𝑦𝑔𝑧):(𝑦(Hom ‘𝐴)𝑧)⟶((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)))
102100, 101syl 17 . . . . . . . . . . . . . . . . . . 19 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑦𝑔𝑧):(𝑦(Hom ‘𝐴)𝑧)⟶((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)))
103102adantr 480 . . . . . . . . . . . . . . . . . 18 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑦𝑔𝑧):(𝑦(Hom ‘𝐴)𝑧)⟶((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)))
104103ffvelrnda 6399 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → ((𝑦𝑔𝑧)‘𝑛) ∈ ((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)))
10548, 49, 50, 51, 52, 53, 56, 57, 58, 84, 104comfeqval 16415 . . . . . . . . . . . . . . . 16 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))
10647, 105eqeq12d 2666 . . . . . . . . . . . . . . 15 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
107106ralbidva 3014 . . . . . . . . . . . . . 14 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
108107ralbidva 3014 . . . . . . . . . . . . 13 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
109 eqid 2651 . . . . . . . . . . . . . . 15 (Hom ‘𝐵) = (Hom ‘𝐵)
11024ad2antrr 762 . . . . . . . . . . . . . . 15 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (Homf𝐴) = (Homf𝐵))
111 simpllr 815 . . . . . . . . . . . . . . 15 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → 𝑥 ∈ (Base‘𝐴))
112 simplr 807 . . . . . . . . . . . . . . 15 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → 𝑦 ∈ (Base‘𝐴))
11335, 36, 109, 110, 111, 112homfeqval 16404 . . . . . . . . . . . . . 14 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑥(Hom ‘𝐴)𝑦) = (𝑥(Hom ‘𝐵)𝑦))
114 simpr 476 . . . . . . . . . . . . . . . 16 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → 𝑧 ∈ (Base‘𝐴))
11535, 36, 109, 110, 112, 114homfeqval 16404 . . . . . . . . . . . . . . 15 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑦(Hom ‘𝐴)𝑧) = (𝑦(Hom ‘𝐵)𝑧))
116115raleqdv 3174 . . . . . . . . . . . . . 14 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
117113, 116raleqbidv 3182 . . . . . . . . . . . . 13 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
118108, 117bitrd 268 . . . . . . . . . . . 12 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
119118ralbidva 3014 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
120119ralbidva 3014 . . . . . . . . . 10 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
12134, 120anbi12d 747 . . . . . . . . 9 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ (((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))))
122121ralbidva 3014 . . . . . . . 8 ((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) → (∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))))
12323, 122sylan2b 491 . . . . . . 7 ((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)))) → (∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))))
124123pm5.32da 674 . . . . . 6 (𝜑 → (((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))))
125 eqid 2651 . . . . . . . . . . . . . 14 (Hom ‘𝐷) = (Hom ‘𝐷)
1268ad2antrr 762 . . . . . . . . . . . . . 14 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (Homf𝐶) = (Homf𝐷))
127 simplr 807 . . . . . . . . . . . . . . 15 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → 𝑓:(Base‘𝐴)⟶(Base‘𝐶))
128 xp1st 7242 . . . . . . . . . . . . . . . 16 (𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴)) → (1st𝑧) ∈ (Base‘𝐴))
129128adantl 481 . . . . . . . . . . . . . . 15 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (1st𝑧) ∈ (Base‘𝐴))
130127, 129ffvelrnd 6400 . . . . . . . . . . . . . 14 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (𝑓‘(1st𝑧)) ∈ (Base‘𝐶))
131 xp2nd 7243 . . . . . . . . . . . . . . . 16 (𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴)) → (2nd𝑧) ∈ (Base‘𝐴))
132131adantl 481 . . . . . . . . . . . . . . 15 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (2nd𝑧) ∈ (Base‘𝐴))
133127, 132ffvelrnd 6400 . . . . . . . . . . . . . 14 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (𝑓‘(2nd𝑧)) ∈ (Base‘𝐶))
13448, 49, 125, 126, 130, 133homfeqval 16404 . . . . . . . . . . . . 13 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) = ((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))))
1353ad2antrr 762 . . . . . . . . . . . . . . . 16 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (Homf𝐴) = (Homf𝐵))
13635, 36, 109, 135, 129, 132homfeqval 16404 . . . . . . . . . . . . . . 15 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((1st𝑧)(Hom ‘𝐴)(2nd𝑧)) = ((1st𝑧)(Hom ‘𝐵)(2nd𝑧)))
137 df-ov 6693 . . . . . . . . . . . . . . 15 ((1st𝑧)(Hom ‘𝐴)(2nd𝑧)) = ((Hom ‘𝐴)‘⟨(1st𝑧), (2nd𝑧)⟩)
138 df-ov 6693 . . . . . . . . . . . . . . 15 ((1st𝑧)(Hom ‘𝐵)(2nd𝑧)) = ((Hom ‘𝐵)‘⟨(1st𝑧), (2nd𝑧)⟩)
139136, 137, 1383eqtr3g 2708 . . . . . . . . . . . . . 14 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐴)‘⟨(1st𝑧), (2nd𝑧)⟩) = ((Hom ‘𝐵)‘⟨(1st𝑧), (2nd𝑧)⟩))
140 1st2nd2 7249 . . . . . . . . . . . . . . . 16 (𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴)) → 𝑧 = ⟨(1st𝑧), (2nd𝑧)⟩)
141140adantl 481 . . . . . . . . . . . . . . 15 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → 𝑧 = ⟨(1st𝑧), (2nd𝑧)⟩)
142141fveq2d 6233 . . . . . . . . . . . . . 14 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐴)‘𝑧) = ((Hom ‘𝐴)‘⟨(1st𝑧), (2nd𝑧)⟩))
143141fveq2d 6233 . . . . . . . . . . . . . 14 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐵)‘𝑧) = ((Hom ‘𝐵)‘⟨(1st𝑧), (2nd𝑧)⟩))
144139, 142, 1433eqtr4d 2695 . . . . . . . . . . . . 13 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐴)‘𝑧) = ((Hom ‘𝐵)‘𝑧))
145134, 144oveq12d 6708 . . . . . . . . . . . 12 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) = (((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)))
146145ixpeq2dva 7965 . . . . . . . . . . 11 ((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) = X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)))
1473homfeqbas 16403 . . . . . . . . . . . . . 14 (𝜑 → (Base‘𝐴) = (Base‘𝐵))
148147sqxpeqd 5175 . . . . . . . . . . . . 13 (𝜑 → ((Base‘𝐴) × (Base‘𝐴)) = ((Base‘𝐵) × (Base‘𝐵)))
149148adantr 480 . . . . . . . . . . . 12 ((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → ((Base‘𝐴) × (Base‘𝐴)) = ((Base‘𝐵) × (Base‘𝐵)))
150149ixpeq1d 7962 . . . . . . . . . . 11 ((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)) = X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)))
151146, 150eqtrd 2685 . . . . . . . . . 10 ((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) = X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)))
152151eleq2d 2716 . . . . . . . . 9 ((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → (𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) ↔ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧))))
153152pm5.32da 674 . . . . . . . 8 (𝜑 → ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧))) ↔ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)))))
1548homfeqbas 16403 . . . . . . . . . 10 (𝜑 → (Base‘𝐶) = (Base‘𝐷))
155147, 154feq23d 6078 . . . . . . . . 9 (𝜑 → (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ↔ 𝑓:(Base‘𝐵)⟶(Base‘𝐷)))
156155anbi1d 741 . . . . . . . 8 (𝜑 → ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧))) ↔ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)))))
157153, 156bitrd 268 . . . . . . 7 (𝜑 → ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧))) ↔ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)))))
158147adantr 480 . . . . . . . . . 10 ((𝜑𝑥 ∈ (Base‘𝐴)) → (Base‘𝐴) = (Base‘𝐵))
159158raleqdv 3174 . . . . . . . . . 10 ((𝜑𝑥 ∈ (Base‘𝐴)) → (∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
160158, 159raleqbidv 3182 . . . . . . . . 9 ((𝜑𝑥 ∈ (Base‘𝐴)) → (∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
161160anbi2d 740 . . . . . . . 8 ((𝜑𝑥 ∈ (Base‘𝐴)) → ((((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ (((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))))
162147, 161raleqbidva 3184 . . . . . . 7 (𝜑 → (∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))))
163157, 162anbi12d 747 . . . . . 6 (𝜑 → (((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ ((𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))))
164124, 163bitrd 268 . . . . 5 (𝜑 → (((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ ((𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))))
165 df-3an 1056 . . . . 5 ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))))
166 df-3an 1056 . . . . 5 ((𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ ((𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))))
167164, 165, 1663bitr4g 303 . . . 4 (𝜑 → ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))))
16813, 167anbi12d 747 . . 3 (𝜑 → (((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))) ↔ ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) ∧ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))))))
169 df-br 4686 . . . . 5 (𝑓(𝐴 Func 𝐶)𝑔 ↔ ⟨𝑓, 𝑔⟩ ∈ (𝐴 Func 𝐶))
170 funcrcl 16570 . . . . 5 (⟨𝑓, 𝑔⟩ ∈ (𝐴 Func 𝐶) → (𝐴 ∈ Cat ∧ 𝐶 ∈ Cat))
171169, 170sylbi 207 . . . 4 (𝑓(𝐴 Func 𝐶)𝑔 → (𝐴 ∈ Cat ∧ 𝐶 ∈ Cat))
172 eqid 2651 . . . . 5 (Id‘𝐴) = (Id‘𝐴)
173 eqid 2651 . . . . 5 (Id‘𝐶) = (Id‘𝐶)
174 simpl 472 . . . . 5 ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) → 𝐴 ∈ Cat)
175 simpr 476 . . . . 5 ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) → 𝐶 ∈ Cat)
17635, 48, 36, 49, 172, 173, 37, 50, 174, 175isfunc 16571 . . . 4 ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) → (𝑓(𝐴 Func 𝐶)𝑔 ↔ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))))
177171, 176biadan2 675 . . 3 (𝑓(𝐴 Func 𝐶)𝑔 ↔ ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))))
178 df-br 4686 . . . . 5 (𝑓(𝐵 Func 𝐷)𝑔 ↔ ⟨𝑓, 𝑔⟩ ∈ (𝐵 Func 𝐷))
179 funcrcl 16570 . . . . 5 (⟨𝑓, 𝑔⟩ ∈ (𝐵 Func 𝐷) → (𝐵 ∈ Cat ∧ 𝐷 ∈ Cat))
180178, 179sylbi 207 . . . 4 (𝑓(𝐵 Func 𝐷)𝑔 → (𝐵 ∈ Cat ∧ 𝐷 ∈ Cat))
181 eqid 2651 . . . . 5 (Base‘𝐵) = (Base‘𝐵)
182 eqid 2651 . . . . 5 (Base‘𝐷) = (Base‘𝐷)
183 eqid 2651 . . . . 5 (Id‘𝐵) = (Id‘𝐵)
184 eqid 2651 . . . . 5 (Id‘𝐷) = (Id‘𝐷)
185 simpl 472 . . . . 5 ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) → 𝐵 ∈ Cat)
186 simpr 476 . . . . 5 ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) → 𝐷 ∈ Cat)
187181, 182, 109, 125, 183, 184, 38, 51, 185, 186isfunc 16571 . . . 4 ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) → (𝑓(𝐵 Func 𝐷)𝑔 ↔ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))))
188180, 187biadan2 675 . . 3 (𝑓(𝐵 Func 𝐷)𝑔 ↔ ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) ∧ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))))
189168, 177, 1883bitr4g 303 . 2 (𝜑 → (𝑓(𝐴 Func 𝐶)𝑔𝑓(𝐵 Func 𝐷)𝑔))
1901, 2, 189eqbrrdiv 5252 1 (𝜑 → (𝐴 Func 𝐶) = (𝐵 Func 𝐷))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 196  wa 383  w3a 1054   = wceq 1523  wcel 2030  wral 2941  cop 4216   class class class wbr 4685   × cxp 5141  wf 5922  cfv 5926  (class class class)co 6690  1st c1st 7208  2nd c2nd 7209  𝑚 cmap 7899  Xcixp 7950  Basecbs 15904  Hom chom 15999  compcco 16000  Catccat 16372  Idccid 16373  Homf chomf 16374  compfccomf 16375   Func cfunc 16561
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1762  ax-4 1777  ax-5 1879  ax-6 1945  ax-7 1981  ax-8 2032  ax-9 2039  ax-10 2059  ax-11 2074  ax-12 2087  ax-13 2282  ax-ext 2631  ax-rep 4804  ax-sep 4814  ax-nul 4822  ax-pow 4873  ax-pr 4936  ax-un 6991
This theorem depends on definitions:  df-bi 197  df-or 384  df-an 385  df-3an 1056  df-tru 1526  df-fal 1529  df-ex 1745  df-nf 1750  df-sb 1938  df-eu 2502  df-mo 2503  df-clab 2638  df-cleq 2644  df-clel 2647  df-nfc 2782  df-ne 2824  df-ral 2946  df-rex 2947  df-reu 2948  df-rab 2950  df-v 3233  df-sbc 3469  df-csb 3567  df-dif 3610  df-un 3612  df-in 3614  df-ss 3621  df-nul 3949  df-if 4120  df-pw 4193  df-sn 4211  df-pr 4213  df-op 4217  df-uni 4469  df-iun 4554  df-br 4686  df-opab 4746  df-mpt 4763  df-id 5053  df-xp 5149  df-rel 5150  df-cnv 5151  df-co 5152  df-dm 5153  df-rn 5154  df-res 5155  df-ima 5156  df-iota 5889  df-fun 5928  df-fn 5929  df-f 5930  df-f1 5931  df-fo 5932  df-f1o 5933  df-fv 5934  df-riota 6651  df-ov 6693  df-oprab 6694  df-mpt2 6695  df-1st 7210  df-2nd 7211  df-map 7901  df-ixp 7951  df-cat 16376  df-cid 16377  df-homf 16378  df-comf 16379  df-func 16565
This theorem is referenced by:  funcres2c  16608  fullpropd  16627  fthpropd  16628  ressffth  16645  natpropd  16683  fucpropd  16684  funcsetcres2  16790
  Copyright terms: Public domain W3C validator