ewrite /iotaFz poly_rV_modp_K iotaPz_modp.
Qed.Definition subfx_scale a x := inj_subfx a * x.
Fact subfx_scalerA a b x :* b) x.
Proof. by rewrite /subfx_scale rmorphM mulrAe subfx_scale +%R.
Proof. by move=> a; apply: mulrDr. Qed.Proof. by move=> a b; rewrite /subfx_scale rmorphD mulrDl. Qed.
Definition subfx_lmodMixin :=LmodMixin subfx_scalerA subfx_scaler1r subfx_scalerDr subfx_scaliom ( *%R : subFExtend -> _).
Proof. by move=> a; apply: mulrA. Qed.Canonical subfx_lalgType := LalgType F subFExtend subfx_scaleAl.m subfx_lalgType.
Proof. by move=> a; apply: mulrCA. Qed.Canonical subfext_unitAlgType := [unitAlgType F of subFExtend].Proof. by move=> a q; rewrite -mul_polyC rmorphM. QedCanonical subfx_eval_lrmorphism := [lrmorphism of subfx_eval].