proposition: Lemma R_is_CMonoid : is_CMonoid RSemiGroup (0%R).
proof: Proof. constructor. unfold is_rht_unit. intro x. apply Rplus_0_r. unfold is_lft_unit. apply Rplus_0_l. Qed.
imports: CoRN.algebra.CSetoids CoRN.algebra.CSemiGroups CoRN.algebra.CMonoids CoRN.algebra.CGroups CoRN.tactics.CornTac CoRN.algebra.CAbGroups CoRN.algebra.CRings CoRN.algebra.CFields CoRN.algebra.COrdFields CoRN.reals.CReals Coq.Reals.RIneq Coq.Reals.Rcomplete Coq.Reals.Rlimit Coq.Reals.Rbasic_fun Coq(Lra)