Section MaxAinvProps.
Variables K N : {group rT}.
End MaxAinvProps.
Definition asimple (K : {set rT}) := maxainv K 1.
Implicit Types (H K : {group rT}) (s : seq {group rT}).
Definition acomps K s :=
((last K s) == 1%G) && path [rel x y : {group rT} | maxainv x y] K s.

Lemma acomps_cons K H s : acomps K (H :: s) -> acomps H s.