(* Id *)
Variable m : Monoid.
Definition Id_MON_map := Id_SET m.

(* Specifications: *)
Lemma Id_MON_unit_law : MonUnit_law Id_MON_map.
Lemma Id_MON_op_law : MonOp_law Id_MON_map.
Canonical Structure Id_MON : MonMor_setoid m m :=
Build_MonMor Id_MON_unit_law Id_MON_op_law.