fact: Definition monalgOver_pred (S : {pred G}) := fun g : {malg G[K]} => all (fun m => g@_m \in S) (msupp g).
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat) mathcomp(seq path choice finset fintype finfun) mathcomp(tuple bigop ssralg ssrint ssrnum) xfinmap