Definition ListToCP {T : Type} (l : list T) (Default : T) : cartesianPower T (length l).

Lemma CPCPL {T : Type} :
forall (a : T) l (cp1 : cartesianPower T (length (a :: l)))
(cp2 : cartesianPower T (S(length l))),
cp1 = cp2 -> CPToList cp1 = CPToList cp2.