proposition: Fact kHomExtend_scalable_subproof : scalable kHomf.
proof: Proof. move=> k a; rewrite /kHomf !linearZ /=. rewrite -[rhs in _ = rhs]mulr_algl -hornerZ; congr _.[_]. by apply/polyP => i; rewrite !(coefZ, coef_map) /= !mulr_algl linearZ. Qed.
imports: HB(structures) mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat seq div) mathcomp(choice fintype tuple finfun bigop ssralg poly) mathcomp(polydiv finset fingroup morphism quotient perm) mathcomp(action zmodp cyclic matrix mxalgebra vector) mathcomp(falgebra fieldext separable)