(* The Monoid of inverse pairs *)

(* Specifications: *)
Lemma Mass_Inverses : Monoid_ass Inverses_op.
Lemma Inverses_unit_invs : Inverses_rel (Munit A) (Munit A).
Canonical Structure Inverses_unit :=
Build_Inverses Inverses_unit_invs Inverses_unit_invs.
Lemma Midl_Inverses : Monoid_idl Inverses_op Inverses_unit.
Lemma Midr_Inverses : Monoid_idr Inverses_op Inverses_unit.
Canonical Structure Inverses_Monoid :=
Build_Monoid Mass_Inverses Midl_Inverses Midr_Inverses.