fact: Record is_CMonoid (M : CSemiGroup) (Zero : M) : Prop := {runit : is_rht_unit (csg_op (c:=M)) Zero; lunit : is_lft_unit (csg_op (c:=M)) Zero}.
imports: Coq.Arith.Euclid CoRN.model.Zmod.Cmod CoRN.algebra.CSemiGroups CoRN.tactics.csetoid_rewrite CoRN.model.structures.Nsec CoRN.util.SetoidPermutation Coq.Setoids.Setoid Coq.Classes.Morphisms