proposition: Lemma poly_exampleEint : poly_example = map_poly intr poly_example_int.
proof: Proof. pose simp := (rmorphB, rmorphD, map_polyZ, map_polyXn, map_polyX, map_polyC). by do !rewrite [map_poly _ _]simp/= ?natz. Qed.
imports: HB(structures) mathcomp(all_ssreflect all_fingroup all_algebra) mathcomp(all_solvable all_field polyrcf) Abel(various classic_ext map_gal algR) Abel(char0 cyclotomic_ext real_closed_ext)