fact: Definition act_morph to x := forall a b, to x (a * b) = to (to x a) b.
imports: mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat div seq) mathcomp(fintype bigop finset fingroup morphism perm) mathcomp(automorphism quotient)