fact: Definition numfield_roots (p : {poly rat}) := if (p != 0) =P true isn't ReflectT p_neq0 then [::] else projT1 (sig2_eqW (numfieldP p_neq0)).
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)