proposition: Lemma irreducible_example : irreducible_poly poly_example.
proof: Proof. rewrite poly_exampleEint; apply: (@eisenstein 2) => // [|||i]; rewrite ?lead_coefE ?size_poly_example_int ?pesimp//. by move: i; do 6!case=> //. 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)