Section comp_com_def.
Variables (axf bxg cxh : Com_ob) (f : Com_arrow axf bxg)
(g : Com_arrow bxg cxh).
Definition Comp_com_mor := Mor_com_arrow f o Mor_com_arrow g.
Canonical Structure Comp_com_arrow := Build_Com_arrow Comp_com_law.
End comp_com_def.
(* composition operator *)
Definition Comp_Comma := Build_Comp Comp_com_congl Comp_com_congr.
(* Id *)

Lemma Id_com_law : forall axf : Com_ob, Com_law (Id (Ob_com_ob axf)).