fact: Definition map_gal_is_morphism : {in setT &, {morph map_gal : x y / (x * y)%g >-> (x * y)%g}}.
imports: HB(structures) mathcomp(all_ssreflect all_fingroup all_algebra) mathcomp(all_solvable all_field) Abel(various char0)