fact: Definition modulo : object_map := fun gT A => coset (F2 A) @*^-1 (F1 (A / (F2 A))).
imports: mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat fintype) mathcomp(bigop finset fingroup morphism automorphism) mathcomp(quotient gproduct)