fact: Fixpoint power_CMonoid (m:M)(n:nat){struct n}:M:= match n with |0 => (cm_unit M) |(S p) => m [+] (power_CMonoid m p) end.
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