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