End CompositionSeries.
(******************************************************************************)
(* Helper lemmas for group actions.                                           *)
(******************************************************************************)
Section MoreGroupAction.
Variables (aT rT : finGroupType).
Variables (A : {group aT}) (D : {group rT}).
Variable to : groupAction A D.

Lemma gactsI (N1 N2 : {set rT}) :
[acts A, on N1 | to] -> [acts A, on N2 | to] -> [acts A, on N1 :&: N2 | to].