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.