proposition: Lemma homog_piE p : p \is d.-homog for mf = (pihomog p == p).
proof: Proof. apply: (sameP idP); apply: (iffP idP); last by move /pihomog_dE ->. by move=> /eqP <-; apply/pihomogP. 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