proposition: Lemma inv_map_is_ahom (E : {subfield L}) (f : gal_of (iota @: E)) : ahom_in E (inv_map_hom iota f).
proof: Proof. rewrite inv_map_ahom_in ?limg_gal ?limgS ?subvf//. by rewrite -k1HomE -gal_kHom ?sub1v ?gal1. Qed.
imports: HB(structures) mathcomp(all_ssreflect all_fingroup all_algebra) mathcomp(all_solvable all_field) Abel(various char0)