proposition: Lemma size_example_roots : size example_roots = 5%N.
proof: Proof. have /(congr1 (fun p : {poly _} => size p)) := ratr_example_poly. by rewrite size_map_poly size_poly_example size_prod_XsubC => -[]. 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)