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