proposition: Lemma radical_pradical U x p : pradical U x p -> radical U x p.
proof: Proof. case/pradicalP=> prime_p xpU; apply/radicalP; split=> //. by case/primeP: prime_p => /ltnW. 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)