fact: Fixpoint cm_Sum (l: list M) {struct l}: M := match l with |nil => [0] |cons a k => a [+] (cm_Sum k) 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