Definition CPToSS {m:nat} (cp : cartesianPower positive m) : SS.elt.

Lemma CPToSSOKAux {m m' : nat} : forall (cp : cartesianPower positive (S (S m))) (cp' : cartesianPower positive (S (S m'))) e s, S.Equal (CPToSS cp) s -> memCPAux m' cp' s = true -> InCP e cp' -> InCP e cp.