Canonical Structure Id_MON : MonMor_setoid m m :=
  Build_MonMor Id_MON_unit_law Id_MON_op_law.

(* Specifications: *)
Lemma Idl_MON : Idl_law Comp_MON Id_MON.
Lemma Idr_MON : Idr_law Comp_MON Id_MON.