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

Lemma listInd {T : Type} : forall n (l l' : list T) Default,
length l = (S n) ->
length l' = (S n) ->
hd Default l = hd Default l' ->
tl l = tl l' ->
l = l'.