fact: Definition map_gal (g : gal_of E) : gal_of (iota @: E) := gal (iota @: E) (map_ahom iota g).
imports: HB(structures) mathcomp(all_ssreflect all_fingroup all_algebra) mathcomp(all_solvable all_field) Abel(various char0)