proposition: Lemma solvable_by_pradical_radical (E F : {subfield L}) : solvable_by radical E F -> solvable_by pradical E F.
proof: Proof. by case=> [R /pradicalext_radicalext ERe FR]; exists R. 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)