Definition CPToSS {m:nat} (cp : cartesianPower positive m) : SS.elt.

Lemma CoappDupPerm {m : nat} :
forall (cp : cartesianPower positive m),
~ List.NoDup (CPToList cp) ->
exists e, exists l, Permutation.Permutation (CPToList (ListToCP (e :: e :: l) e)) (CPToList cp).