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

Theorem funcpropd 16325
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 16287 . 2 Rel (𝐴 Func 𝐶)
2 relfunc 16287 . 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 16134 . . . . 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 16134 . . . . 5 (𝜑 → (𝐶 ∈ Cat ↔ 𝐷 ∈ Cat))
137, 12anbi12d 742 . . . 4 (𝜑 → ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) ↔ (𝐵 ∈ Cat ∧ 𝐷 ∈ Cat)))
14 fveq2 6084 . . . . . . . . . . . . . 14 (𝑧 = 𝑤 → (1st𝑧) = (1st𝑤))
1514fveq2d 6088 . . . . . . . . . . . . 13 (𝑧 = 𝑤 → (𝑓‘(1st𝑧)) = (𝑓‘(1st𝑤)))
16 fveq2 6084 . . . . . . . . . . . . . 14 (𝑧 = 𝑤 → (2nd𝑧) = (2nd𝑤))
1716fveq2d 6088 . . . . . . . . . . . . 13 (𝑧 = 𝑤 → (𝑓‘(2nd𝑧)) = (𝑓‘(2nd𝑤)))
1815, 17oveq12d 6541 . . . . . . . . . . . 12 (𝑧 = 𝑤 → ((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) = ((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))))
19 fveq2 6084 . . . . . . . . . . . 12 (𝑧 = 𝑤 → ((Hom ‘𝐴)‘𝑧) = ((Hom ‘𝐴)‘𝑤))
2018, 19oveq12d 6541 . . . . . . . . . . 11 (𝑧 = 𝑤 → (((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) = (((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))
2120cbvixpv 7785 . . . . . . . . . 10 X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) = X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤))
2221eleq2i 2675 . . . . . . . . 9 (𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) ↔ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))
2322anbi2i 725 . . . . . . . 8 ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧))) ↔ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤))))
243ad2antrr 757 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (Homf𝐴) = (Homf𝐵))
254ad2antrr 757 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (compf𝐴) = (compf𝐵))
265ad2antrr 757 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝐴𝑉)
276ad2antrr 757 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝐵𝑉)
2824, 25, 26, 27cidpropd 16135 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (Id‘𝐴) = (Id‘𝐵))
2928fveq1d 6086 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((Id‘𝐴)‘𝑥) = ((Id‘𝐵)‘𝑥))
3029fveq2d 6088 . . . . . . . . . . 11 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)))
318, 9, 10, 11cidpropd 16135 . . . . . . . . . . . . 13 (𝜑 → (Id‘𝐶) = (Id‘𝐷))
3231ad2antrr 757 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (Id‘𝐶) = (Id‘𝐷))
3332fveq1d 6086 . . . . . . . . . . 11 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((Id‘𝐶)‘(𝑓𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)))
3430, 33eqeq12d 2620 . . . . . . . . . 10 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ↔ ((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥))))
35 eqid 2605 . . . . . . . . . . . . . . . . . 18 (Base‘𝐴) = (Base‘𝐴)
36 eqid 2605 . . . . . . . . . . . . . . . . . 18 (Hom ‘𝐴) = (Hom ‘𝐴)
37 eqid 2605 . . . . . . . . . . . . . . . . . 18 (comp‘𝐴) = (comp‘𝐴)
38 eqid 2605 . . . . . . . . . . . . . . . . . 18 (comp‘𝐵) = (comp‘𝐵)
393ad6antr 767 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (Homf𝐴) = (Homf𝐵))
404ad6antr 767 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (compf𝐴) = (compf𝐵))
41 simp-5r 804 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑥 ∈ (Base‘𝐴))
42 simp-4r 802 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑦 ∈ (Base‘𝐴))
43 simpllr 794 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑧 ∈ (Base‘𝐴))
44 simplr 787 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦))
45 simpr 475 . . . . . . . . . . . . . . . . . 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 16133 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚) = (𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚))
4746fveq2d 6088 . . . . . . . . . . . . . . . 16 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → ((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = ((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)))
48 eqid 2605 . . . . . . . . . . . . . . . . 17 (Base‘𝐶) = (Base‘𝐶)
49 eqid 2605 . . . . . . . . . . . . . . . . 17 (Hom ‘𝐶) = (Hom ‘𝐶)
50 eqid 2605 . . . . . . . . . . . . . . . . 17 (comp‘𝐶) = (comp‘𝐶)
51 eqid 2605 . . . . . . . . . . . . . . . . 17 (comp‘𝐷) = (comp‘𝐷)
528ad6antr 767 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (Homf𝐶) = (Homf𝐷))
539ad6antr 767 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (compf𝐶) = (compf𝐷))
54 simprl 789 . . . . . . . . . . . . . . . . . . 19 ((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) → 𝑓:(Base‘𝐴)⟶(Base‘𝐶))
5554ad5antr 765 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑓:(Base‘𝐴)⟶(Base‘𝐶))
5655, 41ffvelrnd 6249 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑓𝑥) ∈ (Base‘𝐶))
5755, 42ffvelrnd 6249 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑓𝑦) ∈ (Base‘𝐶))
5855, 43ffvelrnd 6249 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑓𝑧) ∈ (Base‘𝐶))
59 df-ov 6526 . . . . . . . . . . . . . . . . . . . . 21 (𝑥𝑔𝑦) = (𝑔‘⟨𝑥, 𝑦⟩)
60 simprr 791 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) → 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))
6160ad3antrrr 761 . . . . . . . . . . . . . . . . . . . . . . 23 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))
6261adantr 479 . . . . . . . . . . . . . . . . . . . . . 22 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))
63 simp-4r 802 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → 𝑥 ∈ (Base‘𝐴))
64 simpllr 794 . . . . . . . . . . . . . . . . . . . . . . 23 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → 𝑦 ∈ (Base‘𝐴))
65 opelxpi 5058 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑥 ∈ (Base‘𝐴) ∧ 𝑦 ∈ (Base‘𝐴)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
6663, 64, 65syl2anc 690 . . . . . . . . . . . . . . . . . . . . . 22 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
67 vex 3171 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝑥 ∈ V
68 vex 3171 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝑦 ∈ V
6967, 68op1std 7042 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑤 = ⟨𝑥, 𝑦⟩ → (1st𝑤) = 𝑥)
7069fveq2d 6088 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑤 = ⟨𝑥, 𝑦⟩ → (𝑓‘(1st𝑤)) = (𝑓𝑥))
7167, 68op2ndd 7043 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑤 = ⟨𝑥, 𝑦⟩ → (2nd𝑤) = 𝑦)
7271fveq2d 6088 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑤 = ⟨𝑥, 𝑦⟩ → (𝑓‘(2nd𝑤)) = (𝑓𝑦))
7370, 72oveq12d 6541 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑤 = ⟨𝑥, 𝑦⟩ → ((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) = ((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)))
74 fveq2 6084 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑤 = ⟨𝑥, 𝑦⟩ → ((Hom ‘𝐴)‘𝑤) = ((Hom ‘𝐴)‘⟨𝑥, 𝑦⟩))
75 df-ov 6526 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑥(Hom ‘𝐴)𝑦) = ((Hom ‘𝐴)‘⟨𝑥, 𝑦⟩)
7674, 75syl6eqr 2657 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑤 = ⟨𝑥, 𝑦⟩ → ((Hom ‘𝐴)‘𝑤) = (𝑥(Hom ‘𝐴)𝑦))
7773, 76oveq12d 6541 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑤 = ⟨𝑥, 𝑦⟩ → (((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)) = (((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)) ↑𝑚 (𝑥(Hom ‘𝐴)𝑦)))
7877fvixp 7772 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)) ∧ ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐴) × (Base‘𝐴))) → (𝑔‘⟨𝑥, 𝑦⟩) ∈ (((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)) ↑𝑚 (𝑥(Hom ‘𝐴)𝑦)))
7962, 66, 78syl2anc 690 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑔‘⟨𝑥, 𝑦⟩) ∈ (((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)) ↑𝑚 (𝑥(Hom ‘𝐴)𝑦)))
8059, 79syl5eqel 2687 . . . . . . . . . . . . . . . . . . . 20 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑥𝑔𝑦) ∈ (((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)) ↑𝑚 (𝑥(Hom ‘𝐴)𝑦)))
81 elmapi 7738 . . . . . . . . . . . . . . . . . . . 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 479 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑥𝑔𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)))
8483, 44ffvelrnd 6249 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → ((𝑥𝑔𝑦)‘𝑚) ∈ ((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)))
85 df-ov 6526 . . . . . . . . . . . . . . . . . . . . 21 (𝑦𝑔𝑧) = (𝑔‘⟨𝑦, 𝑧⟩)
86 opelxpi 5058 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑦 ∈ (Base‘𝐴) ∧ 𝑧 ∈ (Base‘𝐴)) → ⟨𝑦, 𝑧⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
8786adantll 745 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → ⟨𝑦, 𝑧⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
88 vex 3171 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝑧 ∈ V
8968, 88op1std 7042 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑤 = ⟨𝑦, 𝑧⟩ → (1st𝑤) = 𝑦)
9089fveq2d 6088 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑤 = ⟨𝑦, 𝑧⟩ → (𝑓‘(1st𝑤)) = (𝑓𝑦))
9168, 88op2ndd 7043 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑤 = ⟨𝑦, 𝑧⟩ → (2nd𝑤) = 𝑧)
9291fveq2d 6088 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑤 = ⟨𝑦, 𝑧⟩ → (𝑓‘(2nd𝑤)) = (𝑓𝑧))
9390, 92oveq12d 6541 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑤 = ⟨𝑦, 𝑧⟩ → ((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) = ((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)))
94 fveq2 6084 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑤 = ⟨𝑦, 𝑧⟩ → ((Hom ‘𝐴)‘𝑤) = ((Hom ‘𝐴)‘⟨𝑦, 𝑧⟩))
95 df-ov 6526 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦(Hom ‘𝐴)𝑧) = ((Hom ‘𝐴)‘⟨𝑦, 𝑧⟩)
9694, 95syl6eqr 2657 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑤 = ⟨𝑦, 𝑧⟩ → ((Hom ‘𝐴)‘𝑤) = (𝑦(Hom ‘𝐴)𝑧))
9793, 96oveq12d 6541 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑤 = ⟨𝑦, 𝑧⟩ → (((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)) = (((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)) ↑𝑚 (𝑦(Hom ‘𝐴)𝑧)))
9897fvixp 7772 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)) ∧ ⟨𝑦, 𝑧⟩ ∈ ((Base‘𝐴) × (Base‘𝐴))) → (𝑔‘⟨𝑦, 𝑧⟩) ∈ (((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)) ↑𝑚 (𝑦(Hom ‘𝐴)𝑧)))
9961, 87, 98syl2anc 690 . . . . . . . . . . . . . . . . . . . . 21 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑔‘⟨𝑦, 𝑧⟩) ∈ (((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)) ↑𝑚 (𝑦(Hom ‘𝐴)𝑧)))
10085, 99syl5eqel 2687 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑦𝑔𝑧) ∈ (((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)) ↑𝑚 (𝑦(Hom ‘𝐴)𝑧)))
101 elmapi 7738 . . . . . . . . . . . . . . . . . . . 20 ((𝑦𝑔𝑧) ∈ (((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)) ↑𝑚 (𝑦(Hom ‘𝐴)𝑧)) → (𝑦𝑔𝑧):(𝑦(Hom ‘𝐴)𝑧)⟶((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)))
102100, 101syl 17 . . . . . . . . . . . . . . . . . . 19 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑦𝑔𝑧):(𝑦(Hom ‘𝐴)𝑧)⟶((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)))
103102adantr 479 . . . . . . . . . . . . . . . . . 18 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑦𝑔𝑧):(𝑦(Hom ‘𝐴)𝑧)⟶((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)))
104103ffvelrnda 6248 . . . . . . . . . . . . . . . . 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 16133 . . . . . . . . . . . . . . . 16 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))
10647, 105eqeq12d 2620 . . . . . . . . . . . . . . 15 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
107106ralbidva 2963 . . . . . . . . . . . . . 14 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
108107ralbidva 2963 . . . . . . . . . . . . 13 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
109 eqid 2605 . . . . . . . . . . . . . . 15 (Hom ‘𝐵) = (Hom ‘𝐵)
11024ad2antrr 757 . . . . . . . . . . . . . . 15 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (Homf𝐴) = (Homf𝐵))
111 simpllr 794 . . . . . . . . . . . . . . 15 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → 𝑥 ∈ (Base‘𝐴))
112 simplr 787 . . . . . . . . . . . . . . 15 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → 𝑦 ∈ (Base‘𝐴))
11335, 36, 109, 110, 111, 112homfeqval 16122 . . . . . . . . . . . . . 14 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑥(Hom ‘𝐴)𝑦) = (𝑥(Hom ‘𝐵)𝑦))
114 simpr 475 . . . . . . . . . . . . . . . 16 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → 𝑧 ∈ (Base‘𝐴))
11535, 36, 109, 110, 112, 114homfeqval 16122 . . . . . . . . . . . . . . 15 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑦(Hom ‘𝐴)𝑧) = (𝑦(Hom ‘𝐵)𝑧))
116115raleqdv 3116 . . . . . . . . . . . . . 14 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
117113, 116raleqbidv 3124 . . . . . . . . . . . . 13 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
118108, 117bitrd 266 . . . . . . . . . . . 12 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
119118ralbidva 2963 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑𝑚 ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
120119ralbidva 2963 . . . . . . . . . 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 742 . . . . . . . . 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 2963 . . . . . . . 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 490 . . . . . . 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 670 . . . . . 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 2605 . . . . . . . . . . . . . 14 (Hom ‘𝐷) = (Hom ‘𝐷)
1268ad2antrr 757 . . . . . . . . . . . . . 14 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (Homf𝐶) = (Homf𝐷))
127 simplr 787 . . . . . . . . . . . . . . 15 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → 𝑓:(Base‘𝐴)⟶(Base‘𝐶))
128 xp1st 7062 . . . . . . . . . . . . . . . 16 (𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴)) → (1st𝑧) ∈ (Base‘𝐴))
129128adantl 480 . . . . . . . . . . . . . . 15 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (1st𝑧) ∈ (Base‘𝐴))
130127, 129ffvelrnd 6249 . . . . . . . . . . . . . 14 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (𝑓‘(1st𝑧)) ∈ (Base‘𝐶))
131 xp2nd 7063 . . . . . . . . . . . . . . . 16 (𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴)) → (2nd𝑧) ∈ (Base‘𝐴))
132131adantl 480 . . . . . . . . . . . . . . 15 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (2nd𝑧) ∈ (Base‘𝐴))
133127, 132ffvelrnd 6249 . . . . . . . . . . . . . 14 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (𝑓‘(2nd𝑧)) ∈ (Base‘𝐶))
13448, 49, 125, 126, 130, 133homfeqval 16122 . . . . . . . . . . . . 13 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) = ((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))))
1353ad2antrr 757 . . . . . . . . . . . . . . . 16 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (Homf𝐴) = (Homf𝐵))
13635, 36, 109, 135, 129, 132homfeqval 16122 . . . . . . . . . . . . . . 15 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((1st𝑧)(Hom ‘𝐴)(2nd𝑧)) = ((1st𝑧)(Hom ‘𝐵)(2nd𝑧)))
137 df-ov 6526 . . . . . . . . . . . . . . 15 ((1st𝑧)(Hom ‘𝐴)(2nd𝑧)) = ((Hom ‘𝐴)‘⟨(1st𝑧), (2nd𝑧)⟩)
138 df-ov 6526 . . . . . . . . . . . . . . 15 ((1st𝑧)(Hom ‘𝐵)(2nd𝑧)) = ((Hom ‘𝐵)‘⟨(1st𝑧), (2nd𝑧)⟩)
139136, 137, 1383eqtr3g 2662 . . . . . . . . . . . . . 14 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐴)‘⟨(1st𝑧), (2nd𝑧)⟩) = ((Hom ‘𝐵)‘⟨(1st𝑧), (2nd𝑧)⟩))
140 1st2nd2 7069 . . . . . . . . . . . . . . . 16 (𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴)) → 𝑧 = ⟨(1st𝑧), (2nd𝑧)⟩)
141140adantl 480 . . . . . . . . . . . . . . 15 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → 𝑧 = ⟨(1st𝑧), (2nd𝑧)⟩)
142141fveq2d 6088 . . . . . . . . . . . . . 14 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐴)‘𝑧) = ((Hom ‘𝐴)‘⟨(1st𝑧), (2nd𝑧)⟩))
143141fveq2d 6088 . . . . . . . . . . . . . 14 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐵)‘𝑧) = ((Hom ‘𝐵)‘⟨(1st𝑧), (2nd𝑧)⟩))
144139, 142, 1433eqtr4d 2649 . . . . . . . . . . . . 13 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐴)‘𝑧) = ((Hom ‘𝐵)‘𝑧))
145134, 144oveq12d 6541 . . . . . . . . . . . 12 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) = (((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)))
146145ixpeq2dva 7782 . . . . . . . . . . 11 ((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) = X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)))
1473homfeqbas 16121 . . . . . . . . . . . . . 14 (𝜑 → (Base‘𝐴) = (Base‘𝐵))
148147sqxpeqd 5051 . . . . . . . . . . . . 13 (𝜑 → ((Base‘𝐴) × (Base‘𝐴)) = ((Base‘𝐵) × (Base‘𝐵)))
149148adantr 479 . . . . . . . . . . . 12 ((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → ((Base‘𝐴) × (Base‘𝐴)) = ((Base‘𝐵) × (Base‘𝐵)))
150149ixpeq1d 7779 . . . . . . . . . . 11 ((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)) = X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)))
151146, 150eqtrd 2639 . . . . . . . . . 10 ((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) = X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)))
152151eleq2d 2668 . . . . . . . . 9 ((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → (𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) ↔ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧))))
153152pm5.32da 670 . . . . . . . 8 (𝜑 → ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧))) ↔ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)))))
1548homfeqbas 16121 . . . . . . . . . 10 (𝜑 → (Base‘𝐶) = (Base‘𝐷))
155147, 154feq23d 5935 . . . . . . . . 9 (𝜑 → (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ↔ 𝑓:(Base‘𝐵)⟶(Base‘𝐷)))
156155anbi1d 736 . . . . . . . 8 (𝜑 → ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧))) ↔ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)))))
157153, 156bitrd 266 . . . . . . 7 (𝜑 → ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧))) ↔ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)))))
158147adantr 479 . . . . . . . . . 10 ((𝜑𝑥 ∈ (Base‘𝐴)) → (Base‘𝐴) = (Base‘𝐵))
159158raleqdv 3116 . . . . . . . . . 10 ((𝜑𝑥 ∈ (Base‘𝐴)) → (∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
160158, 159raleqbidv 3124 . . . . . . . . 9 ((𝜑𝑥 ∈ (Base‘𝐴)) → (∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
161160anbi2d 735 . . . . . . . 8 ((𝜑𝑥 ∈ (Base‘𝐴)) → ((((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ (((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))))
162147, 161raleqbidva 3126 . . . . . . 7 (𝜑 → (∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))))
163157, 162anbi12d 742 . . . . . 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 266 . . . . 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 1032 . . . . 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 1032 . . . . 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 301 . . . 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 742 . . 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 4574 . . . . 5 (𝑓(𝐴 Func 𝐶)𝑔 ↔ ⟨𝑓, 𝑔⟩ ∈ (𝐴 Func 𝐶))
170 funcrcl 16288 . . . . 5 (⟨𝑓, 𝑔⟩ ∈ (𝐴 Func 𝐶) → (𝐴 ∈ Cat ∧ 𝐶 ∈ Cat))
171169, 170sylbi 205 . . . 4 (𝑓(𝐴 Func 𝐶)𝑔 → (𝐴 ∈ Cat ∧ 𝐶 ∈ Cat))
172 eqid 2605 . . . . 5 (Id‘𝐴) = (Id‘𝐴)
173 eqid 2605 . . . . 5 (Id‘𝐶) = (Id‘𝐶)
174 simpl 471 . . . . 5 ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) → 𝐴 ∈ Cat)
175 simpr 475 . . . . 5 ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) → 𝐶 ∈ Cat)
17635, 48, 36, 49, 172, 173, 37, 50, 174, 175isfunc 16289 . . . 4 ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) → (𝑓(𝐴 Func 𝐶)𝑔 ↔ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐴)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))))
177171, 176biadan2 671 . . 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 4574 . . . . 5 (𝑓(𝐵 Func 𝐷)𝑔 ↔ ⟨𝑓, 𝑔⟩ ∈ (𝐵 Func 𝐷))
179 funcrcl 16288 . . . . 5 (⟨𝑓, 𝑔⟩ ∈ (𝐵 Func 𝐷) → (𝐵 ∈ Cat ∧ 𝐷 ∈ Cat))
180178, 179sylbi 205 . . . 4 (𝑓(𝐵 Func 𝐷)𝑔 → (𝐵 ∈ Cat ∧ 𝐷 ∈ Cat))
181 eqid 2605 . . . . 5 (Base‘𝐵) = (Base‘𝐵)
182 eqid 2605 . . . . 5 (Base‘𝐷) = (Base‘𝐷)
183 eqid 2605 . . . . 5 (Id‘𝐵) = (Id‘𝐵)
184 eqid 2605 . . . . 5 (Id‘𝐷) = (Id‘𝐷)
185 simpl 471 . . . . 5 ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) → 𝐵 ∈ Cat)
186 simpr 475 . . . . 5 ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) → 𝐷 ∈ Cat)
187181, 182, 109, 125, 183, 184, 38, 51, 185, 186isfunc 16289 . . . 4 ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) → (𝑓(𝐵 Func 𝐷)𝑔 ↔ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑𝑚 ((Hom ‘𝐵)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))))
188180, 187biadan2 671 . . 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 301 . 2 (𝜑 → (𝑓(𝐴 Func 𝐶)𝑔𝑓(𝐵 Func 𝐷)𝑔))
1901, 2, 189eqbrrdiv 5126 1 (𝜑 → (𝐴 Func 𝐶) = (𝐵 Func 𝐷))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 194  wa 382  w3a 1030   = wceq 1474  wcel 1975  wral 2891  cop 4126   class class class wbr 4573   × cxp 5022  wf 5782  cfv 5786  (class class class)co 6523  1st c1st 7030  2nd c2nd 7031  𝑚 cmap 7717  Xcixp 7767  Basecbs 15637  Hom chom 15721  compcco 15722  Catccat 16090  Idccid 16091  Homf chomf 16092  compfccomf 16093   Func cfunc 16279
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1711  ax-4 1726  ax-5 1825  ax-6 1873  ax-7 1920  ax-8 1977  ax-9 1984  ax-10 2004  ax-11 2019  ax-12 2031  ax-13 2228  ax-ext 2585  ax-rep 4689  ax-sep 4699  ax-nul 4708  ax-pow 4760  ax-pr 4824  ax-un 6820
This theorem depends on definitions:  df-bi 195  df-or 383  df-an 384  df-3an 1032  df-tru 1477  df-fal 1480  df-ex 1695  df-nf 1700  df-sb 1866  df-eu 2457  df-mo 2458  df-clab 2592  df-cleq 2598  df-clel 2601  df-nfc 2735  df-ne 2777  df-ral 2896  df-rex 2897  df-reu 2898  df-rab 2900  df-v 3170  df-sbc 3398  df-csb 3495  df-dif 3538  df-un 3540  df-in 3542  df-ss 3549  df-nul 3870  df-if 4032  df-pw 4105  df-sn 4121  df-pr 4123  df-op 4127  df-uni 4363  df-iun 4447  df-br 4574  df-opab 4634  df-mpt 4635  df-id 4939  df-xp 5030  df-rel 5031  df-cnv 5032  df-co 5033  df-dm 5034  df-rn 5035  df-res 5036  df-ima 5037  df-iota 5750  df-fun 5788  df-fn 5789  df-f 5790  df-f1 5791  df-fo 5792  df-f1o 5793  df-fv 5794  df-riota 6485  df-ov 6526  df-oprab 6527  df-mpt2 6528  df-1st 7032  df-2nd 7033  df-map 7719  df-ixp 7768  df-cat 16094  df-cid 16095  df-homf 16096  df-comf 16097  df-func 16283
This theorem is referenced by:  funcres2c  16326  fullpropd  16345  fthpropd  16346  ressffth  16363  natpropd  16401  fucpropd  16402  funcsetcres2  16508
  Copyright terms: Public domain W3C validator