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).