(* Specifications: *)
Lemma minus_n_0 : forall n, n-0 = n.
Definition lastCP {T:Type} {n:nat} (cp : cartesianPower T (S n)) : T.
Lemma CP_ind {T:Type} {n : nat} : forall (cp cp' : cartesianPower T (S (S n))),
headCP cp = headCP cp' -> tailCP cp = tailCP cp' -> cp = cp'.