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

Lemma InCPOCP {n : nat} : forall p (cp : cartesianPower positive (S (S n))),
InCP p cp <-> InCP p (OCP cp).