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 G x : G \subset D -> #|orbit to G x| = #|G : 'C_G[x | to]|.