Canonical pseries_group : {group gT} := group pseries_group_set.Local Notation ConsPred p := (@Cons nat_pred p%N) (only parsing).Implicit Types (A : {set aT}) (G H : {group aT}).

Lemma pseries_catl_id pi1s pi2s gT (G : {group gT}) : pseries pi1s (pseries (pi1s ++ pi2s) G) = pseries pi1s G.