fact: Variables (h : {morphism R1 >-> rT2}) (f : {morphism D1 >-> aT2}).
imports: mathcomp(ssreflect ssrbool ssrfun eqtype ssrnat div seq) mathcomp(fintype bigop finset fingroup morphism perm) mathcomp(automorphism quotient)