fact: Record ext_data := ExtData { ext_size : nat; ext_ep : ext_size.-tuple L; ext_pw : ext_size.-tuple nat }.
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)