Hypotheses (inj_f : injective f) (f_0 : f 0 = 0).

(* Specifications: *)
Lemma size_map_inj_poly p : size p^f = size p.
Lemma map_inj_poly : injective (map_poly f).
Lemma lead_coef_map_inj p : lead_coef p^f = f (lead_coef p).
Section Additive.