proposition: Lemma pihomog_ne0 d b p : d != b -> p \is d.-homog for mf -> pihomog b p = 0.
proof: Proof. move=> ne /dhomogP hom; rewrite pihomogE big_seq_cond. by apply/big_pred0 => m; apply/contraNF: ne=> /andP[/hom->]. Qed.
imports: HB(structures) mathcomp(ssreflect ssrfun ssrbool eqtype ssrnat seq path) mathcomp(choice fintype tuple finfun bigop finset binomial) mathcomp(order fingroup perm ssralg zmodp poly ssrint) mathcomp(matrix vector) mathcomp(bigenough) ssrcomplements freeg