fact: Hypotheses (Da : a \in D) (sAD : A \subset D) (sSR : S \subset R).
imports: mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat div seq) mathcomp(fintype bigop finset fingroup morphism perm) mathcomp(automorphism quotient)