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

Theorem funcpropd 17627
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 17588 . 2 Rel (𝐴 Func 𝐶)
2 relfunc 17588 . 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 17429 . . . . 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 17429 . . . . 5 (𝜑 → (𝐶 ∈ Cat ↔ 𝐷 ∈ Cat))
137, 12anbi12d 631 . . . 4 (𝜑 → ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) ↔ (𝐵 ∈ Cat ∧ 𝐷 ∈ Cat)))
14 2fveq3 6776 . . . . . . . . . . . . 13 (𝑧 = 𝑤 → (𝑓‘(1st𝑧)) = (𝑓‘(1st𝑤)))
15 2fveq3 6776 . . . . . . . . . . . . 13 (𝑧 = 𝑤 → (𝑓‘(2nd𝑧)) = (𝑓‘(2nd𝑤)))
1614, 15oveq12d 7290 . . . . . . . . . . . 12 (𝑧 = 𝑤 → ((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) = ((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))))
17 fveq2 6771 . . . . . . . . . . . 12 (𝑧 = 𝑤 → ((Hom ‘𝐴)‘𝑧) = ((Hom ‘𝐴)‘𝑤))
1816, 17oveq12d 7290 . . . . . . . . . . 11 (𝑧 = 𝑤 → (((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧)) = (((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))
1918cbvixpv 8695 . . . . . . . . . 10 X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧)) = X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤))
2019eleq2i 2832 . . . . . . . . 9 (𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧)) ↔ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))
2120anbi2i 623 . . . . . . . 8 ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧))) ↔ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤))))
223ad2antrr 723 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (Homf𝐴) = (Homf𝐵))
234ad2antrr 723 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (compf𝐴) = (compf𝐵))
245ad2antrr 723 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝐴𝑉)
256ad2antrr 723 . . . . . . . . . . . . . 14 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → 𝐵𝑉)
2622, 23, 24, 25cidpropd 17430 . . . . . . . . . . . . 13 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (Id‘𝐴) = (Id‘𝐵))
2726fveq1d 6773 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((Id‘𝐴)‘𝑥) = ((Id‘𝐵)‘𝑥))
2827fveq2d 6775 . . . . . . . . . . 11 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)))
298, 9, 10, 11cidpropd 17430 . . . . . . . . . . . . 13 (𝜑 → (Id‘𝐶) = (Id‘𝐷))
3029ad2antrr 723 . . . . . . . . . . . 12 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (Id‘𝐶) = (Id‘𝐷))
3130fveq1d 6773 . . . . . . . . . . 11 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((Id‘𝐶)‘(𝑓𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)))
3228, 31eqeq12d 2756 . . . . . . . . . 10 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ↔ ((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥))))
33 eqid 2740 . . . . . . . . . . . . . . . . . 18 (Base‘𝐴) = (Base‘𝐴)
34 eqid 2740 . . . . . . . . . . . . . . . . . 18 (Hom ‘𝐴) = (Hom ‘𝐴)
35 eqid 2740 . . . . . . . . . . . . . . . . . 18 (comp‘𝐴) = (comp‘𝐴)
36 eqid 2740 . . . . . . . . . . . . . . . . . 18 (comp‘𝐵) = (comp‘𝐵)
373ad6antr 733 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (Homf𝐴) = (Homf𝐵))
384ad6antr 733 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (compf𝐴) = (compf𝐵))
39 simp-5r 783 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑥 ∈ (Base‘𝐴))
40 simp-4r 781 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑦 ∈ (Base‘𝐴))
41 simpllr 773 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑧 ∈ (Base‘𝐴))
42 simplr 766 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦))
43 simpr 485 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧))
4433, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43comfeqval 17428 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚) = (𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚))
4544fveq2d 6775 . . . . . . . . . . . . . . . 16 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → ((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = ((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)))
46 eqid 2740 . . . . . . . . . . . . . . . . 17 (Base‘𝐶) = (Base‘𝐶)
47 eqid 2740 . . . . . . . . . . . . . . . . 17 (Hom ‘𝐶) = (Hom ‘𝐶)
48 eqid 2740 . . . . . . . . . . . . . . . . 17 (comp‘𝐶) = (comp‘𝐶)
49 eqid 2740 . . . . . . . . . . . . . . . . 17 (comp‘𝐷) = (comp‘𝐷)
508ad6antr 733 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (Homf𝐶) = (Homf𝐷))
519ad6antr 733 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (compf𝐶) = (compf𝐷))
52 simprl 768 . . . . . . . . . . . . . . . . . . 19 ((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) → 𝑓:(Base‘𝐴)⟶(Base‘𝐶))
5352ad5antr 731 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → 𝑓:(Base‘𝐴)⟶(Base‘𝐶))
5453, 39ffvelrnd 6959 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑓𝑥) ∈ (Base‘𝐶))
5553, 40ffvelrnd 6959 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑓𝑦) ∈ (Base‘𝐶))
5653, 41ffvelrnd 6959 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑓𝑧) ∈ (Base‘𝐶))
57 df-ov 7275 . . . . . . . . . . . . . . . . . . . . 21 (𝑥𝑔𝑦) = (𝑔‘⟨𝑥, 𝑦⟩)
58 simprr 770 . . . . . . . . . . . . . . . . . . . . . . . 24 ((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) → 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))
5958ad5ant12 753 . . . . . . . . . . . . . . . . . . . . . . 23 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))
6059adantr 481 . . . . . . . . . . . . . . . . . . . . . 22 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))
61 opelxpi 5627 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑥 ∈ (Base‘𝐴) ∧ 𝑦 ∈ (Base‘𝐴)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
6261ad5ant23 757 . . . . . . . . . . . . . . . . . . . . . 22 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
63 vex 3435 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝑥 ∈ V
64 vex 3435 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝑦 ∈ V
6563, 64op1std 7835 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑤 = ⟨𝑥, 𝑦⟩ → (1st𝑤) = 𝑥)
6665fveq2d 6775 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑤 = ⟨𝑥, 𝑦⟩ → (𝑓‘(1st𝑤)) = (𝑓𝑥))
6763, 64op2ndd 7836 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑤 = ⟨𝑥, 𝑦⟩ → (2nd𝑤) = 𝑦)
6867fveq2d 6775 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑤 = ⟨𝑥, 𝑦⟩ → (𝑓‘(2nd𝑤)) = (𝑓𝑦))
6966, 68oveq12d 7290 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑤 = ⟨𝑥, 𝑦⟩ → ((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) = ((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)))
70 fveq2 6771 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑤 = ⟨𝑥, 𝑦⟩ → ((Hom ‘𝐴)‘𝑤) = ((Hom ‘𝐴)‘⟨𝑥, 𝑦⟩))
71 df-ov 7275 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑥(Hom ‘𝐴)𝑦) = ((Hom ‘𝐴)‘⟨𝑥, 𝑦⟩)
7270, 71eqtr4di 2798 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑤 = ⟨𝑥, 𝑦⟩ → ((Hom ‘𝐴)‘𝑤) = (𝑥(Hom ‘𝐴)𝑦))
7369, 72oveq12d 7290 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑤 = ⟨𝑥, 𝑦⟩ → (((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)) = (((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)) ↑m (𝑥(Hom ‘𝐴)𝑦)))
7473fvixp 8682 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)) ∧ ⟨𝑥, 𝑦⟩ ∈ ((Base‘𝐴) × (Base‘𝐴))) → (𝑔‘⟨𝑥, 𝑦⟩) ∈ (((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)) ↑m (𝑥(Hom ‘𝐴)𝑦)))
7560, 62, 74syl2anc 584 . . . . . . . . . . . . . . . . . . . . 21 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑔‘⟨𝑥, 𝑦⟩) ∈ (((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)) ↑m (𝑥(Hom ‘𝐴)𝑦)))
7657, 75eqeltrid 2845 . . . . . . . . . . . . . . . . . . . 20 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑥𝑔𝑦) ∈ (((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)) ↑m (𝑥(Hom ‘𝐴)𝑦)))
77 elmapi 8629 . . . . . . . . . . . . . . . . . . . 20 ((𝑥𝑔𝑦) ∈ (((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)) ↑m (𝑥(Hom ‘𝐴)𝑦)) → (𝑥𝑔𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)))
7876, 77syl 17 . . . . . . . . . . . . . . . . . . 19 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑥𝑔𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)))
7978adantr 481 . . . . . . . . . . . . . . . . . 18 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (𝑥𝑔𝑦):(𝑥(Hom ‘𝐴)𝑦)⟶((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)))
8079, 42ffvelrnd 6959 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → ((𝑥𝑔𝑦)‘𝑚) ∈ ((𝑓𝑥)(Hom ‘𝐶)(𝑓𝑦)))
81 df-ov 7275 . . . . . . . . . . . . . . . . . . . . 21 (𝑦𝑔𝑧) = (𝑔‘⟨𝑦, 𝑧⟩)
82 opelxpi 5627 . . . . . . . . . . . . . . . . . . . . . . 23 ((𝑦 ∈ (Base‘𝐴) ∧ 𝑧 ∈ (Base‘𝐴)) → ⟨𝑦, 𝑧⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
8382adantll 711 . . . . . . . . . . . . . . . . . . . . . 22 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → ⟨𝑦, 𝑧⟩ ∈ ((Base‘𝐴) × (Base‘𝐴)))
84 vex 3435 . . . . . . . . . . . . . . . . . . . . . . . . . . 27 𝑧 ∈ V
8564, 84op1std 7835 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑤 = ⟨𝑦, 𝑧⟩ → (1st𝑤) = 𝑦)
8685fveq2d 6775 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑤 = ⟨𝑦, 𝑧⟩ → (𝑓‘(1st𝑤)) = (𝑓𝑦))
8764, 84op2ndd 7836 . . . . . . . . . . . . . . . . . . . . . . . . . 26 (𝑤 = ⟨𝑦, 𝑧⟩ → (2nd𝑤) = 𝑧)
8887fveq2d 6775 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑤 = ⟨𝑦, 𝑧⟩ → (𝑓‘(2nd𝑤)) = (𝑓𝑧))
8986, 88oveq12d 7290 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑤 = ⟨𝑦, 𝑧⟩ → ((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) = ((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)))
90 fveq2 6771 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑤 = ⟨𝑦, 𝑧⟩ → ((Hom ‘𝐴)‘𝑤) = ((Hom ‘𝐴)‘⟨𝑦, 𝑧⟩))
91 df-ov 7275 . . . . . . . . . . . . . . . . . . . . . . . . 25 (𝑦(Hom ‘𝐴)𝑧) = ((Hom ‘𝐴)‘⟨𝑦, 𝑧⟩)
9290, 91eqtr4di 2798 . . . . . . . . . . . . . . . . . . . . . . . 24 (𝑤 = ⟨𝑦, 𝑧⟩ → ((Hom ‘𝐴)‘𝑤) = (𝑦(Hom ‘𝐴)𝑧))
9389, 92oveq12d 7290 . . . . . . . . . . . . . . . . . . . . . . 23 (𝑤 = ⟨𝑦, 𝑧⟩ → (((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)) = (((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)) ↑m (𝑦(Hom ‘𝐴)𝑧)))
9493fvixp 8682 . . . . . . . . . . . . . . . . . . . . . 22 ((𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)) ∧ ⟨𝑦, 𝑧⟩ ∈ ((Base‘𝐴) × (Base‘𝐴))) → (𝑔‘⟨𝑦, 𝑧⟩) ∈ (((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)) ↑m (𝑦(Hom ‘𝐴)𝑧)))
9559, 83, 94syl2anc 584 . . . . . . . . . . . . . . . . . . . . 21 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑔‘⟨𝑦, 𝑧⟩) ∈ (((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)) ↑m (𝑦(Hom ‘𝐴)𝑧)))
9681, 95eqeltrid 2845 . . . . . . . . . . . . . . . . . . . 20 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑦𝑔𝑧) ∈ (((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)) ↑m (𝑦(Hom ‘𝐴)𝑧)))
97 elmapi 8629 . . . . . . . . . . . . . . . . . . . 20 ((𝑦𝑔𝑧) ∈ (((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)) ↑m (𝑦(Hom ‘𝐴)𝑧)) → (𝑦𝑔𝑧):(𝑦(Hom ‘𝐴)𝑧)⟶((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)))
9896, 97syl 17 . . . . . . . . . . . . . . . . . . 19 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑦𝑔𝑧):(𝑦(Hom ‘𝐴)𝑧)⟶((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)))
9998adantr 481 . . . . . . . . . . . . . . . . . 18 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (𝑦𝑔𝑧):(𝑦(Hom ‘𝐴)𝑧)⟶((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)))
10099ffvelrnda 6958 . . . . . . . . . . . . . . . . 17 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → ((𝑦𝑔𝑧)‘𝑛) ∈ ((𝑓𝑦)(Hom ‘𝐶)(𝑓𝑧)))
10146, 47, 48, 49, 50, 51, 54, 55, 56, 80, 100comfeqval 17428 . . . . . . . . . . . . . . . 16 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))
10245, 101eqeq12d 2756 . . . . . . . . . . . . . . 15 (((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) ∧ 𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)) → (((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
103102ralbidva 3122 . . . . . . . . . . . . . 14 ((((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) ∧ 𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)) → (∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
104103ralbidva 3122 . . . . . . . . . . . . 13 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
105 eqid 2740 . . . . . . . . . . . . . . 15 (Hom ‘𝐵) = (Hom ‘𝐵)
10622ad2antrr 723 . . . . . . . . . . . . . . 15 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (Homf𝐴) = (Homf𝐵))
107 simpllr 773 . . . . . . . . . . . . . . 15 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → 𝑥 ∈ (Base‘𝐴))
108 simplr 766 . . . . . . . . . . . . . . 15 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → 𝑦 ∈ (Base‘𝐴))
10933, 34, 105, 106, 107, 108homfeqval 17417 . . . . . . . . . . . . . 14 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑥(Hom ‘𝐴)𝑦) = (𝑥(Hom ‘𝐵)𝑦))
110 simpr 485 . . . . . . . . . . . . . . . 16 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → 𝑧 ∈ (Base‘𝐴))
11133, 34, 105, 106, 108, 110homfeqval 17417 . . . . . . . . . . . . . . 15 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (𝑦(Hom ‘𝐴)𝑧) = (𝑦(Hom ‘𝐵)𝑧))
112111raleqdv 3347 . . . . . . . . . . . . . 14 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
113109, 112raleqbidv 3335 . . . . . . . . . . . . 13 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
114104, 113bitrd 278 . . . . . . . . . . . 12 (((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) ∧ 𝑧 ∈ (Base‘𝐴)) → (∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
115114ralbidva 3122 . . . . . . . . . . 11 ((((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) ∧ 𝑦 ∈ (Base‘𝐴)) → (∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
116115ralbidva 3122 . . . . . . . . . 10 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → (∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
11732, 116anbi12d 631 . . . . . . . . 9 (((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) ∧ 𝑥 ∈ (Base‘𝐴)) → ((((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ (((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))))
118117ralbidva 3122 . . . . . . . 8 ((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑤 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑤))(Hom ‘𝐶)(𝑓‘(2nd𝑤))) ↑m ((Hom ‘𝐴)‘𝑤)))) → (∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))))
11921, 118sylan2b 594 . . . . . . 7 ((𝜑 ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧)))) → (∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))))
120119pm5.32da 579 . . . . . 6 (𝜑 → (((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))))
121 eqid 2740 . . . . . . . . . . . . . 14 (Hom ‘𝐷) = (Hom ‘𝐷)
1228ad2antrr 723 . . . . . . . . . . . . . 14 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (Homf𝐶) = (Homf𝐷))
123 simplr 766 . . . . . . . . . . . . . . 15 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → 𝑓:(Base‘𝐴)⟶(Base‘𝐶))
124 xp1st 7857 . . . . . . . . . . . . . . . 16 (𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴)) → (1st𝑧) ∈ (Base‘𝐴))
125124adantl 482 . . . . . . . . . . . . . . 15 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (1st𝑧) ∈ (Base‘𝐴))
126123, 125ffvelrnd 6959 . . . . . . . . . . . . . 14 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (𝑓‘(1st𝑧)) ∈ (Base‘𝐶))
127 xp2nd 7858 . . . . . . . . . . . . . . . 16 (𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴)) → (2nd𝑧) ∈ (Base‘𝐴))
128127adantl 482 . . . . . . . . . . . . . . 15 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (2nd𝑧) ∈ (Base‘𝐴))
129123, 128ffvelrnd 6959 . . . . . . . . . . . . . 14 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (𝑓‘(2nd𝑧)) ∈ (Base‘𝐶))
13046, 47, 121, 122, 126, 129homfeqval 17417 . . . . . . . . . . . . 13 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) = ((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))))
1313ad2antrr 723 . . . . . . . . . . . . . . . 16 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (Homf𝐴) = (Homf𝐵))
13233, 34, 105, 131, 125, 128homfeqval 17417 . . . . . . . . . . . . . . 15 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((1st𝑧)(Hom ‘𝐴)(2nd𝑧)) = ((1st𝑧)(Hom ‘𝐵)(2nd𝑧)))
133 df-ov 7275 . . . . . . . . . . . . . . 15 ((1st𝑧)(Hom ‘𝐴)(2nd𝑧)) = ((Hom ‘𝐴)‘⟨(1st𝑧), (2nd𝑧)⟩)
134 df-ov 7275 . . . . . . . . . . . . . . 15 ((1st𝑧)(Hom ‘𝐵)(2nd𝑧)) = ((Hom ‘𝐵)‘⟨(1st𝑧), (2nd𝑧)⟩)
135132, 133, 1343eqtr3g 2803 . . . . . . . . . . . . . 14 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐴)‘⟨(1st𝑧), (2nd𝑧)⟩) = ((Hom ‘𝐵)‘⟨(1st𝑧), (2nd𝑧)⟩))
136 1st2nd2 7864 . . . . . . . . . . . . . . . 16 (𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴)) → 𝑧 = ⟨(1st𝑧), (2nd𝑧)⟩)
137136adantl 482 . . . . . . . . . . . . . . 15 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → 𝑧 = ⟨(1st𝑧), (2nd𝑧)⟩)
138137fveq2d 6775 . . . . . . . . . . . . . 14 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐴)‘𝑧) = ((Hom ‘𝐴)‘⟨(1st𝑧), (2nd𝑧)⟩))
139137fveq2d 6775 . . . . . . . . . . . . . 14 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐵)‘𝑧) = ((Hom ‘𝐵)‘⟨(1st𝑧), (2nd𝑧)⟩))
140135, 138, 1393eqtr4d 2790 . . . . . . . . . . . . 13 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → ((Hom ‘𝐴)‘𝑧) = ((Hom ‘𝐵)‘𝑧))
141130, 140oveq12d 7290 . . . . . . . . . . . 12 (((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) ∧ 𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))) → (((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧)) = (((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐵)‘𝑧)))
142141ixpeq2dva 8692 . . . . . . . . . . 11 ((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧)) = X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐵)‘𝑧)))
1433homfeqbas 17416 . . . . . . . . . . . . . 14 (𝜑 → (Base‘𝐴) = (Base‘𝐵))
144143sqxpeqd 5622 . . . . . . . . . . . . 13 (𝜑 → ((Base‘𝐴) × (Base‘𝐴)) = ((Base‘𝐵) × (Base‘𝐵)))
145144adantr 481 . . . . . . . . . . . 12 ((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → ((Base‘𝐴) × (Base‘𝐴)) = ((Base‘𝐵) × (Base‘𝐵)))
146145ixpeq1d 8689 . . . . . . . . . . 11 ((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐵)‘𝑧)) = X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐵)‘𝑧)))
147142, 146eqtrd 2780 . . . . . . . . . 10 ((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧)) = X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐵)‘𝑧)))
148147eleq2d 2826 . . . . . . . . 9 ((𝜑𝑓:(Base‘𝐴)⟶(Base‘𝐶)) → (𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧)) ↔ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐵)‘𝑧))))
149148pm5.32da 579 . . . . . . . 8 (𝜑 → ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧))) ↔ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐵)‘𝑧)))))
1508homfeqbas 17416 . . . . . . . . . 10 (𝜑 → (Base‘𝐶) = (Base‘𝐷))
151143, 150feq23d 6593 . . . . . . . . 9 (𝜑 → (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ↔ 𝑓:(Base‘𝐵)⟶(Base‘𝐷)))
152151anbi1d 630 . . . . . . . 8 (𝜑 → ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐵)‘𝑧))) ↔ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐵)‘𝑧)))))
153149, 152bitrd 278 . . . . . . 7 (𝜑 → ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧))) ↔ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐵)‘𝑧)))))
154143adantr 481 . . . . . . . . . 10 ((𝜑𝑥 ∈ (Base‘𝐴)) → (Base‘𝐴) = (Base‘𝐵))
155154raleqdv 3347 . . . . . . . . . 10 ((𝜑𝑥 ∈ (Base‘𝐴)) → (∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
156154, 155raleqbidv 3335 . . . . . . . . 9 ((𝜑𝑥 ∈ (Base‘𝐴)) → (∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)) ↔ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))
157156anbi2d 629 . . . . . . . 8 ((𝜑𝑥 ∈ (Base‘𝐴)) → ((((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ (((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))))
158143, 157raleqbidva 3353 . . . . . . 7 (𝜑 → (∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))) ↔ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))))
159153, 158anbi12d 631 . . . . . 6 (𝜑 → (((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ ((𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐵)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))))
160120, 159bitrd 278 . . . . 5 (𝜑 → (((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ ((𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐵)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))))
161 df-3an 1088 . . . . 5 ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))))
162 df-3an 1088 . . . . 5 ((𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐵)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ ((𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐵)‘𝑧))) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))))
163160, 161, 1623bitr4g 314 . . . 4 (𝜑 → ((𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))) ↔ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐵)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))))
16413, 163anbi12d 631 . . 3 (𝜑 → (((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))) ↔ ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) ∧ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐵)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚)))))))
165 df-br 5080 . . . . 5 (𝑓(𝐴 Func 𝐶)𝑔 ↔ ⟨𝑓, 𝑔⟩ ∈ (𝐴 Func 𝐶))
166 funcrcl 17589 . . . . 5 (⟨𝑓, 𝑔⟩ ∈ (𝐴 Func 𝐶) → (𝐴 ∈ Cat ∧ 𝐶 ∈ Cat))
167165, 166sylbi 216 . . . 4 (𝑓(𝐴 Func 𝐶)𝑔 → (𝐴 ∈ Cat ∧ 𝐶 ∈ Cat))
168 eqid 2740 . . . . 5 (Id‘𝐴) = (Id‘𝐴)
169 eqid 2740 . . . . 5 (Id‘𝐶) = (Id‘𝐶)
170 simpl 483 . . . . 5 ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) → 𝐴 ∈ Cat)
171 simpr 485 . . . . 5 ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) → 𝐶 ∈ Cat)
17233, 46, 34, 47, 168, 169, 35, 48, 170, 171isfunc 17590 . . . 4 ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) → (𝑓(𝐴 Func 𝐶)𝑔 ↔ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))))
173167, 172biadanii 819 . . 3 (𝑓(𝐴 Func 𝐶)𝑔 ↔ ((𝐴 ∈ Cat ∧ 𝐶 ∈ Cat) ∧ (𝑓:(Base‘𝐴)⟶(Base‘𝐶) ∧ 𝑔X𝑧 ∈ ((Base‘𝐴) × (Base‘𝐴))(((𝑓‘(1st𝑧))(Hom ‘𝐶)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐴)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐴)(((𝑥𝑔𝑥)‘((Id‘𝐴)‘𝑥)) = ((Id‘𝐶)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐴)∀𝑧 ∈ (Base‘𝐴)∀𝑚 ∈ (𝑥(Hom ‘𝐴)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐴)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐴)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐶)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))))
174 df-br 5080 . . . . 5 (𝑓(𝐵 Func 𝐷)𝑔 ↔ ⟨𝑓, 𝑔⟩ ∈ (𝐵 Func 𝐷))
175 funcrcl 17589 . . . . 5 (⟨𝑓, 𝑔⟩ ∈ (𝐵 Func 𝐷) → (𝐵 ∈ Cat ∧ 𝐷 ∈ Cat))
176174, 175sylbi 216 . . . 4 (𝑓(𝐵 Func 𝐷)𝑔 → (𝐵 ∈ Cat ∧ 𝐷 ∈ Cat))
177 eqid 2740 . . . . 5 (Base‘𝐵) = (Base‘𝐵)
178 eqid 2740 . . . . 5 (Base‘𝐷) = (Base‘𝐷)
179 eqid 2740 . . . . 5 (Id‘𝐵) = (Id‘𝐵)
180 eqid 2740 . . . . 5 (Id‘𝐷) = (Id‘𝐷)
181 simpl 483 . . . . 5 ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) → 𝐵 ∈ Cat)
182 simpr 485 . . . . 5 ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) → 𝐷 ∈ Cat)
183177, 178, 105, 121, 179, 180, 36, 49, 181, 182isfunc 17590 . . . 4 ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) → (𝑓(𝐵 Func 𝐷)𝑔 ↔ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐵)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))))
184176, 183biadanii 819 . . 3 (𝑓(𝐵 Func 𝐷)𝑔 ↔ ((𝐵 ∈ Cat ∧ 𝐷 ∈ Cat) ∧ (𝑓:(Base‘𝐵)⟶(Base‘𝐷) ∧ 𝑔X𝑧 ∈ ((Base‘𝐵) × (Base‘𝐵))(((𝑓‘(1st𝑧))(Hom ‘𝐷)(𝑓‘(2nd𝑧))) ↑m ((Hom ‘𝐵)‘𝑧)) ∧ ∀𝑥 ∈ (Base‘𝐵)(((𝑥𝑔𝑥)‘((Id‘𝐵)‘𝑥)) = ((Id‘𝐷)‘(𝑓𝑥)) ∧ ∀𝑦 ∈ (Base‘𝐵)∀𝑧 ∈ (Base‘𝐵)∀𝑚 ∈ (𝑥(Hom ‘𝐵)𝑦)∀𝑛 ∈ (𝑦(Hom ‘𝐵)𝑧)((𝑥𝑔𝑧)‘(𝑛(⟨𝑥, 𝑦⟩(comp‘𝐵)𝑧)𝑚)) = (((𝑦𝑔𝑧)‘𝑛)(⟨(𝑓𝑥), (𝑓𝑦)⟩(comp‘𝐷)(𝑓𝑧))((𝑥𝑔𝑦)‘𝑚))))))
185164, 173, 1843bitr4g 314 . 2 (𝜑 → (𝑓(𝐴 Func 𝐶)𝑔𝑓(𝐵 Func 𝐷)𝑔))
1861, 2, 185eqbrrdiv 5703 1 (𝜑 → (𝐴 Func 𝐶) = (𝐵 Func 𝐷))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wb 205  wa 396  w3a 1086   = wceq 1542  wcel 2110  wral 3066  cop 4573   class class class wbr 5079   × cxp 5588  wf 6428  cfv 6432  (class class class)co 7272  1st c1st 7823  2nd c2nd 7824  m cmap 8607  Xcixp 8677  Basecbs 16923  Hom chom 16984  compcco 16985  Catccat 17384  Idccid 17385  Homf chomf 17386  compfccomf 17387   Func cfunc 17580
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1802  ax-4 1816  ax-5 1917  ax-6 1975  ax-7 2015  ax-8 2112  ax-9 2120  ax-10 2141  ax-11 2158  ax-12 2175  ax-ext 2711  ax-rep 5214  ax-sep 5227  ax-nul 5234  ax-pow 5292  ax-pr 5356  ax-un 7583
This theorem depends on definitions:  df-bi 206  df-an 397  df-or 845  df-3an 1088  df-tru 1545  df-fal 1555  df-ex 1787  df-nf 1791  df-sb 2072  df-mo 2542  df-eu 2571  df-clab 2718  df-cleq 2732  df-clel 2818  df-nfc 2891  df-ne 2946  df-ral 3071  df-rex 3072  df-reu 3073  df-rab 3075  df-v 3433  df-sbc 3721  df-csb 3838  df-dif 3895  df-un 3897  df-in 3899  df-ss 3909  df-nul 4263  df-if 4466  df-pw 4541  df-sn 4568  df-pr 4570  df-op 4574  df-uni 4846  df-iun 4932  df-br 5080  df-opab 5142  df-mpt 5163  df-id 5490  df-xp 5596  df-rel 5597  df-cnv 5598  df-co 5599  df-dm 5600  df-rn 5601  df-res 5602  df-ima 5603  df-iota 6390  df-fun 6434  df-fn 6435  df-f 6436  df-f1 6437  df-fo 6438  df-f1o 6439  df-fv 6440  df-riota 7229  df-ov 7275  df-oprab 7276  df-mpo 7277  df-1st 7825  df-2nd 7826  df-map 8609  df-ixp 8678  df-cat 17388  df-cid 17389  df-homf 17390  df-comf 17391  df-func 17584
This theorem is referenced by:  funcres2c  17628  fullpropd  17647  fthpropd  17648  ressffth  17665  natpropd  17705  fucpropd  17706  funcsetcres2  17819
  Copyright terms: Public domain W3C validator