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

Theorem monpropd 16595
Description: If two categories have the same set of objects, morphisms, and compositions, then they have the same monomorphisms. (Contributed by Mario Carneiro, 3-Jan-2017.)
Hypotheses
Ref Expression
monpropd.3 (𝜑 → (Homf𝐶) = (Homf𝐷))
monpropd.4 (𝜑 → (compf𝐶) = (compf𝐷))
monpropd.c (𝜑𝐶 ∈ Cat)
monpropd.d (𝜑𝐷 ∈ Cat)
Assertion
Ref Expression
monpropd (𝜑 → (Mono‘𝐶) = (Mono‘𝐷))

Proof of Theorem monpropd
Dummy variables 𝑎 𝑏 𝑐 𝑓 𝑔 are mutually distinct and distinct from all other variables.
StepHypRef Expression
1 eqid 2802 . . . . . . . . . . . 12 (Base‘𝐶) = (Base‘𝐶)
2 eqid 2802 . . . . . . . . . . . 12 (Hom ‘𝐶) = (Hom ‘𝐶)
3 eqid 2802 . . . . . . . . . . . 12 (Hom ‘𝐷) = (Hom ‘𝐷)
4 monpropd.3 . . . . . . . . . . . . . 14 (𝜑 → (Homf𝐶) = (Homf𝐷))
54ad2antrr 708 . . . . . . . . . . . . 13 (((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) → (Homf𝐶) = (Homf𝐷))
65ad2antrr 708 . . . . . . . . . . . 12 (((((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏)) ∧ 𝑐 ∈ (Base‘𝐶)) → (Homf𝐶) = (Homf𝐷))
7 simpr 473 . . . . . . . . . . . 12 (((((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏)) ∧ 𝑐 ∈ (Base‘𝐶)) → 𝑐 ∈ (Base‘𝐶))
8 simp-4r 794 . . . . . . . . . . . 12 (((((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏)) ∧ 𝑐 ∈ (Base‘𝐶)) → 𝑎 ∈ (Base‘𝐶))
91, 2, 3, 6, 7, 8homfeqval 16555 . . . . . . . . . . 11 (((((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏)) ∧ 𝑐 ∈ (Base‘𝐶)) → (𝑐(Hom ‘𝐶)𝑎) = (𝑐(Hom ‘𝐷)𝑎))
10 eqid 2802 . . . . . . . . . . . 12 (comp‘𝐶) = (comp‘𝐶)
11 eqid 2802 . . . . . . . . . . . 12 (comp‘𝐷) = (comp‘𝐷)
124ad5antr 719 . . . . . . . . . . . 12 ((((((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏)) ∧ 𝑐 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎)) → (Homf𝐶) = (Homf𝐷))
13 monpropd.4 . . . . . . . . . . . . 13 (𝜑 → (compf𝐶) = (compf𝐷))
1413ad5antr 719 . . . . . . . . . . . 12 ((((((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏)) ∧ 𝑐 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎)) → (compf𝐶) = (compf𝐷))
15 simplr 776 . . . . . . . . . . . 12 ((((((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏)) ∧ 𝑐 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎)) → 𝑐 ∈ (Base‘𝐶))
16 simp-5r 798 . . . . . . . . . . . 12 ((((((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏)) ∧ 𝑐 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎)) → 𝑎 ∈ (Base‘𝐶))
17 simp-4r 794 . . . . . . . . . . . 12 ((((((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏)) ∧ 𝑐 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎)) → 𝑏 ∈ (Base‘𝐶))
18 simpr 473 . . . . . . . . . . . 12 ((((((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏)) ∧ 𝑐 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎)) → 𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎))
19 simpllr 784 . . . . . . . . . . . 12 ((((((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏)) ∧ 𝑐 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎)) → 𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏))
201, 2, 10, 11, 12, 14, 15, 16, 17, 18, 19comfeqval 16566 . . . . . . . . . . 11 ((((((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏)) ∧ 𝑐 ∈ (Base‘𝐶)) ∧ 𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎)) → (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐶)𝑏)𝑔) = (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔))
219, 20mpteq12dva 4919 . . . . . . . . . 10 (((((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏)) ∧ 𝑐 ∈ (Base‘𝐶)) → (𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐶)𝑏)𝑔)) = (𝑔 ∈ (𝑐(Hom ‘𝐷)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔)))
2221cnveqd 5493 . . . . . . . . 9 (((((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏)) ∧ 𝑐 ∈ (Base‘𝐶)) → (𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐶)𝑏)𝑔)) = (𝑔 ∈ (𝑐(Hom ‘𝐷)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔)))
2322funeqd 6117 . . . . . . . 8 (((((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏)) ∧ 𝑐 ∈ (Base‘𝐶)) → (Fun (𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐶)𝑏)𝑔)) ↔ Fun (𝑔 ∈ (𝑐(Hom ‘𝐷)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔))))
2423ralbidva 3169 . . . . . . 7 ((((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) ∧ 𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏)) → (∀𝑐 ∈ (Base‘𝐶)Fun (𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐶)𝑏)𝑔)) ↔ ∀𝑐 ∈ (Base‘𝐶)Fun (𝑔 ∈ (𝑐(Hom ‘𝐷)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔))))
2524rabbidva 3374 . . . . . 6 (((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) → {𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏) ∣ ∀𝑐 ∈ (Base‘𝐶)Fun (𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐶)𝑏)𝑔))} = {𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏) ∣ ∀𝑐 ∈ (Base‘𝐶)Fun (𝑔 ∈ (𝑐(Hom ‘𝐷)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔))})
26 simplr 776 . . . . . . . 8 (((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) → 𝑎 ∈ (Base‘𝐶))
27 simpr 473 . . . . . . . 8 (((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) → 𝑏 ∈ (Base‘𝐶))
281, 2, 3, 5, 26, 27homfeqval 16555 . . . . . . 7 (((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) → (𝑎(Hom ‘𝐶)𝑏) = (𝑎(Hom ‘𝐷)𝑏))
294homfeqbas 16554 . . . . . . . . 9 (𝜑 → (Base‘𝐶) = (Base‘𝐷))
3029ad2antrr 708 . . . . . . . 8 (((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) → (Base‘𝐶) = (Base‘𝐷))
3130raleqdv 3329 . . . . . . 7 (((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) → (∀𝑐 ∈ (Base‘𝐶)Fun (𝑔 ∈ (𝑐(Hom ‘𝐷)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔)) ↔ ∀𝑐 ∈ (Base‘𝐷)Fun (𝑔 ∈ (𝑐(Hom ‘𝐷)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔))))
3228, 31rabeqbidv 3381 . . . . . 6 (((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) → {𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏) ∣ ∀𝑐 ∈ (Base‘𝐶)Fun (𝑔 ∈ (𝑐(Hom ‘𝐷)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔))} = {𝑓 ∈ (𝑎(Hom ‘𝐷)𝑏) ∣ ∀𝑐 ∈ (Base‘𝐷)Fun (𝑔 ∈ (𝑐(Hom ‘𝐷)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔))})
3325, 32eqtrd 2836 . . . . 5 (((𝜑𝑎 ∈ (Base‘𝐶)) ∧ 𝑏 ∈ (Base‘𝐶)) → {𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏) ∣ ∀𝑐 ∈ (Base‘𝐶)Fun (𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐶)𝑏)𝑔))} = {𝑓 ∈ (𝑎(Hom ‘𝐷)𝑏) ∣ ∀𝑐 ∈ (Base‘𝐷)Fun (𝑔 ∈ (𝑐(Hom ‘𝐷)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔))})
34333impa 1129 . . . 4 ((𝜑𝑎 ∈ (Base‘𝐶) ∧ 𝑏 ∈ (Base‘𝐶)) → {𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏) ∣ ∀𝑐 ∈ (Base‘𝐶)Fun (𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐶)𝑏)𝑔))} = {𝑓 ∈ (𝑎(Hom ‘𝐷)𝑏) ∣ ∀𝑐 ∈ (Base‘𝐷)Fun (𝑔 ∈ (𝑐(Hom ‘𝐷)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔))})
3534mpt2eq3dva 6943 . . 3 (𝜑 → (𝑎 ∈ (Base‘𝐶), 𝑏 ∈ (Base‘𝐶) ↦ {𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏) ∣ ∀𝑐 ∈ (Base‘𝐶)Fun (𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐶)𝑏)𝑔))}) = (𝑎 ∈ (Base‘𝐶), 𝑏 ∈ (Base‘𝐶) ↦ {𝑓 ∈ (𝑎(Hom ‘𝐷)𝑏) ∣ ∀𝑐 ∈ (Base‘𝐷)Fun (𝑔 ∈ (𝑐(Hom ‘𝐷)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔))}))
36 mpt2eq12 6939 . . . 4 (((Base‘𝐶) = (Base‘𝐷) ∧ (Base‘𝐶) = (Base‘𝐷)) → (𝑎 ∈ (Base‘𝐶), 𝑏 ∈ (Base‘𝐶) ↦ {𝑓 ∈ (𝑎(Hom ‘𝐷)𝑏) ∣ ∀𝑐 ∈ (Base‘𝐷)Fun (𝑔 ∈ (𝑐(Hom ‘𝐷)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔))}) = (𝑎 ∈ (Base‘𝐷), 𝑏 ∈ (Base‘𝐷) ↦ {𝑓 ∈ (𝑎(Hom ‘𝐷)𝑏) ∣ ∀𝑐 ∈ (Base‘𝐷)Fun (𝑔 ∈ (𝑐(Hom ‘𝐷)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔))}))
3729, 29, 36syl2anc 575 . . 3 (𝜑 → (𝑎 ∈ (Base‘𝐶), 𝑏 ∈ (Base‘𝐶) ↦ {𝑓 ∈ (𝑎(Hom ‘𝐷)𝑏) ∣ ∀𝑐 ∈ (Base‘𝐷)Fun (𝑔 ∈ (𝑐(Hom ‘𝐷)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔))}) = (𝑎 ∈ (Base‘𝐷), 𝑏 ∈ (Base‘𝐷) ↦ {𝑓 ∈ (𝑎(Hom ‘𝐷)𝑏) ∣ ∀𝑐 ∈ (Base‘𝐷)Fun (𝑔 ∈ (𝑐(Hom ‘𝐷)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔))}))
3835, 37eqtrd 2836 . 2 (𝜑 → (𝑎 ∈ (Base‘𝐶), 𝑏 ∈ (Base‘𝐶) ↦ {𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏) ∣ ∀𝑐 ∈ (Base‘𝐶)Fun (𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐶)𝑏)𝑔))}) = (𝑎 ∈ (Base‘𝐷), 𝑏 ∈ (Base‘𝐷) ↦ {𝑓 ∈ (𝑎(Hom ‘𝐷)𝑏) ∣ ∀𝑐 ∈ (Base‘𝐷)Fun (𝑔 ∈ (𝑐(Hom ‘𝐷)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔))}))
39 eqid 2802 . . 3 (Mono‘𝐶) = (Mono‘𝐶)
40 monpropd.c . . 3 (𝜑𝐶 ∈ Cat)
411, 2, 10, 39, 40monfval 16590 . 2 (𝜑 → (Mono‘𝐶) = (𝑎 ∈ (Base‘𝐶), 𝑏 ∈ (Base‘𝐶) ↦ {𝑓 ∈ (𝑎(Hom ‘𝐶)𝑏) ∣ ∀𝑐 ∈ (Base‘𝐶)Fun (𝑔 ∈ (𝑐(Hom ‘𝐶)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐶)𝑏)𝑔))}))
42 eqid 2802 . . 3 (Base‘𝐷) = (Base‘𝐷)
43 eqid 2802 . . 3 (Mono‘𝐷) = (Mono‘𝐷)
44 monpropd.d . . 3 (𝜑𝐷 ∈ Cat)
4542, 3, 11, 43, 44monfval 16590 . 2 (𝜑 → (Mono‘𝐷) = (𝑎 ∈ (Base‘𝐷), 𝑏 ∈ (Base‘𝐷) ↦ {𝑓 ∈ (𝑎(Hom ‘𝐷)𝑏) ∣ ∀𝑐 ∈ (Base‘𝐷)Fun (𝑔 ∈ (𝑐(Hom ‘𝐷)𝑎) ↦ (𝑓(⟨𝑐, 𝑎⟩(comp‘𝐷)𝑏)𝑔))}))
4638, 41, 453eqtr4d 2846 1 (𝜑 → (Mono‘𝐶) = (Mono‘𝐷))
Colors of variables: wff setvar class
Syntax hints:  wi 4  wa 384   = wceq 1637  wcel 2155  wral 3092  {crab 3096  cop 4370  cmpt 4916  ccnv 5304  Fun wfun 6089  cfv 6095  (class class class)co 6868  cmpt2 6870  Basecbs 16062  Hom chom 16158  compcco 16159  Catccat 16523  Homf chomf 16525  compfccomf 16526  Monocmon 16586
This theorem was proved from axioms:  ax-mp 5  ax-1 6  ax-2 7  ax-3 8  ax-gen 1877  ax-4 1894  ax-5 2001  ax-6 2067  ax-7 2103  ax-8 2157  ax-9 2164  ax-10 2184  ax-11 2200  ax-12 2213  ax-13 2419  ax-ext 2781  ax-rep 4957  ax-sep 4968  ax-nul 4977  ax-pow 5029  ax-pr 5090  ax-un 7173
This theorem depends on definitions:  df-bi 198  df-an 385  df-or 866  df-3an 1102  df-tru 1641  df-ex 1860  df-nf 1864  df-sb 2060  df-eu 2633  df-mo 2634  df-clab 2789  df-cleq 2795  df-clel 2798  df-nfc 2933  df-ne 2975  df-ral 3097  df-rex 3098  df-reu 3099  df-rab 3101  df-v 3389  df-sbc 3628  df-csb 3723  df-dif 3766  df-un 3768  df-in 3770  df-ss 3777  df-nul 4111  df-if 4274  df-pw 4347  df-sn 4365  df-pr 4367  df-op 4371  df-uni 4624  df-iun 4707  df-br 4838  df-opab 4900  df-mpt 4917  df-id 5213  df-xp 5311  df-rel 5312  df-cnv 5313  df-co 5314  df-dm 5315  df-rn 5316  df-res 5317  df-ima 5318  df-iota 6058  df-fun 6097  df-fn 6098  df-f 6099  df-f1 6100  df-fo 6101  df-f1o 6102  df-fv 6103  df-ov 6871  df-oprab 6872  df-mpt2 6873  df-1st 7392  df-2nd 7393  df-homf 16529  df-comf 16530  df-mon 16588
This theorem is referenced by:  oppcepi  16597
  Copyright terms: Public domain W3C validator