proposition: Lemma galois_numfield (p : {poly rat}) : galois 1 {: numfield p}.
proof: Proof. by apply/char0_galois; [exact/char_ext|rewrite sub1v|exact: normal_numfield]. 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)