Section RestrictActionTheory.
Variables (aT : finGroupType) (D : {set aT}) (rT : finType).
Variables (to : action D rT).
Variables (A : {set aT}) (sAD : A \subset D).
Canonical morph_action := Action mact_is_action.
Canonical comp_action := Action comp_is_action.
Canonical perm_action := Action aperm_is_action.

Lemma perm_faithful A : [faithful A, on setT | perm_action].