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 OCPTlOK {n : nat} :
forall (cp : cartesianPower positive (S (S (S n)))),
headCP cp = headCP (OCP cp) ->
OCP (tailCP cp) = tailCP (OCP cp).