Metamath Proof Explorer


Theorem moni

Description: Property of a monomorphism. (Contributed by Mario Carneiro, 2-Jan-2017)

Ref Expression
Hypotheses ismon.b ⊢ B = Base C
ismon.h ⊢ H = Hom ⁡ C
ismon.o ⊢ · ˙ = comp ⁡ C
ismon.s ⊢ M = Mono ⁡ C
ismon.c ⊢ φ → C ∈ Cat
ismon.x ⊢ φ → X ∈ B
ismon.y ⊢ φ → Y ∈ B
moni.z ⊢ φ → Z ∈ B
moni.f ⊢ φ → F ∈ X M Y
moni.g ⊢ φ → G ∈ Z H X
moni.k ⊢ φ → K ∈ Z H X
Assertion moni ⊢ φ → F Z X · ˙ Y G = F Z X · ˙ Y K ↔ G = K

Proof

Step Hyp Ref Expression
1 ismon.b ⊢ B = Base C
2 ismon.h ⊢ H = Hom ⁡ C
3 ismon.o ⊢ · ˙ = comp ⁡ C
4 ismon.s ⊢ M = Mono ⁡ C
5 ismon.c ⊢ φ → C ∈ Cat
6 ismon.x ⊢ φ → X ∈ B
7 ismon.y ⊢ φ → Y ∈ B
8 moni.z ⊢ φ → Z ∈ B
9 moni.f ⊢ φ → F ∈ X M Y
10 moni.g ⊢ φ → G ∈ Z H X
11 moni.k ⊢ φ → K ∈ Z H X
12 1 2 3 4 5 6 7 ismon2 ⊢ φ → F ∈ X M Y ↔ F ∈ X H Y ∧ ∀ z ∈ B ∀ g ∈ z H X ∀ h ∈ z H X F z X · ˙ Y g = F z X · ˙ Y h → g = h
13 9 12 mpbid ⊢ φ → F ∈ X H Y ∧ ∀ z ∈ B ∀ g ∈ z H X ∀ h ∈ z H X F z X · ˙ Y g = F z X · ˙ Y h → g = h
14 13 simprd ⊢ φ → ∀ z ∈ B ∀ g ∈ z H X ∀ h ∈ z H X F z X · ˙ Y g = F z X · ˙ Y h → g = h
15 10 adantr ⊢ φ ∧ z = Z → G ∈ Z H X
16 simpr ⊢ φ ∧ z = Z → z = Z
17 16 oveq1d ⊢ φ ∧ z = Z → z H X = Z H X
18 15 17 eleqtrrd ⊢ φ ∧ z = Z → G ∈ z H X
19 11 adantr ⊢ φ ∧ z = Z → K ∈ Z H X
20 19 17 eleqtrrd ⊢ φ ∧ z = Z → K ∈ z H X
21 20 adantr ⊢ φ ∧ z = Z ∧ g = G → K ∈ z H X
22 simpllr ⊢ φ ∧ z = Z ∧ g = G ∧ h = K → z = Z
23 22 opeq1d ⊢ φ ∧ z = Z ∧ g = G ∧ h = K → z X = Z X
24 23 oveq1d ⊢ φ ∧ z = Z ∧ g = G ∧ h = K → z X · ˙ Y = Z X · ˙ Y
25 eqidd ⊢ φ ∧ z = Z ∧ g = G ∧ h = K → F = F
26 simplr ⊢ φ ∧ z = Z ∧ g = G ∧ h = K → g = G
27 24 25 26 oveq123d ⊢ φ ∧ z = Z ∧ g = G ∧ h = K → F z X · ˙ Y g = F Z X · ˙ Y G
28 simpr ⊢ φ ∧ z = Z ∧ g = G ∧ h = K → h = K
29 24 25 28 oveq123d ⊢ φ ∧ z = Z ∧ g = G ∧ h = K → F z X · ˙ Y h = F Z X · ˙ Y K
30 27 29 eqeq12d ⊢ φ ∧ z = Z ∧ g = G ∧ h = K → F z X · ˙ Y g = F z X · ˙ Y h ↔ F Z X · ˙ Y G = F Z X · ˙ Y K
31 26 28 eqeq12d ⊢ φ ∧ z = Z ∧ g = G ∧ h = K → g = h ↔ G = K
32 30 31 imbi12d ⊢ φ ∧ z = Z ∧ g = G ∧ h = K → F z X · ˙ Y g = F z X · ˙ Y h → g = h ↔ F Z X · ˙ Y G = F Z X · ˙ Y K → G = K
33 21 32 rspcdv ⊢ φ ∧ z = Z ∧ g = G → ∀ h ∈ z H X F z X · ˙ Y g = F z X · ˙ Y h → g = h → F Z X · ˙ Y G = F Z X · ˙ Y K → G = K
34 18 33 rspcimdv ⊢ φ ∧ z = Z → ∀ g ∈ z H X ∀ h ∈ z H X F z X · ˙ Y g = F z X · ˙ Y h → g = h → F Z X · ˙ Y G = F Z X · ˙ Y K → G = K
35 8 34 rspcimdv ⊢ φ → ∀ z ∈ B ∀ g ∈ z H X ∀ h ∈ z H X F z X · ˙ Y g = F z X · ˙ Y h → g = h → F Z X · ˙ Y G = F Z X · ˙ Y K → G = K
36 14 35 mpd ⊢ φ → F Z X · ˙ Y G = F Z X · ˙ Y K → G = K
37 oveq2 ⊢ G = K → F Z X · ˙ Y G = F Z X · ˙ Y K
38 36 37 impbid1 ⊢ φ → F Z X · ˙ Y G = F Z X · ˙ Y K ↔ G = K