fact: Definition object_map := forall gT : finGroupType, {set gT} -> {set gT}.
imports: mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat fintype) mathcomp(bigop finset fingroup morphism automorphism) mathcomp(quotient gproduct)