proposition: Lemma example_roots_uniq : uniq example_roots.
proof: Proof. rewrite -separable_prod_XsubC -ratr_example_poly. by rewrite separable_map separable_example. 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)