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 card_orbit_in_stab G x :
G \subset D -> (#|orbit to G x| * #|'C_G[x | to]|)%N = #|G|.