Section ActsSetop.
Variables (A : {set aT}) (S T : {set rT}).
Hypotheses (AactS : [acts A, on S | to]) (AactT : [acts A, on T | to]).
Definition orbit_transversal A S := transversal (orbit to A @: S) S.
Canonical astab_group S := group (group_set_astab S).
Canonical astabs_group S := group (group_set_astabs S).
End OrbitStabilizer.

Lemma subgroup_transitivePin G H S x :
x \in S -> H \subset G -> G \subset D -> [transitive G, on S | to] ->
reflect ('C_G[x | to] * H = G) [transitive H, on S | to].