End mor_prod_map2.
Variables (a b c a' b' c' : C) (f : a --> b) (f' : a' --> b')
(g : b --> c) (g' : b' --> c').

Lemma Eq_Mor_prod :
Mor_prod f f' o Mor_prod g g' =_S Mor_prod (f o g) (f' o g').