proposition: Lemma monalgOverZ : {in S & monalgOver S, forall c g, c *: g \is a monalgOver S}.
proof: Proof. move=> c g Sc Sg; apply/monalgOverP=> k. by rewrite mcoeffZ rpredM //; apply/(monalgOverP S). Qed.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(seq path choice finset fintype finfun) mathcomp(tuple bigop ssralg ssrint ssrnum) xfinmap