fact: Definition invariant_factor A B C := [&& A \subset 'N(B), A \subset 'N(C) & B <| C].
imports: mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat seq path) mathcomp(fintype bigop finset fingroup morphism) mathcomp(automorphism quotient action commutator center)