proposition: Lemma iscaleA (c1 c2 : R) (p : {ipoly R[n]}) : c1%:IP * (c2%:IP * p) = (c1 * c2)%:IP * p.
proof: Proof. by rewrite mulrA rmorphM /=. 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