Module Import PosSort := Sort PosOrder.
Definition OCPAux {n : nat} (cp : cartesianPower positive (S (S n))) := (PosSort.sort (CPToList cp)).

Lemma PermSorted : forall (l l' : list positive),
Permutation.Permutation l l' ->
StronglySorted (fun x x0 : positive => is_true (x <=? x0)%positive) l ->
StronglySorted (fun x x0 : positive => is_true (x <=? x0)%positive) l' ->
l = l'.