Variables (iR : ringType) (f : {additive aR -> rR}).
Local Notation "p ^f" := (map_poly (GRing.Additive.apply f) p) : ring_scope.

Lemma coef_map p i : p^f`_i = f p`_i.
Canonical map_poly_rmorphism := RMorphism map_poly_is_rmorphism.