Definition fixLastCP {T:Type} {n:nat} (appPred : cartesianPower T (S (S n)) -> Prop) (t : T) : cartesianPower T (S n) -> Prop.

Lemma fixLastCPOK {T:Type} {n:nat} : forall (appPred : cartesianPower T (S (S n)) -> Prop) (cp : cartesianPower T (S n)) (t : T), appPred (consTailCP cp t) = (fixLastCP appPred t) cp.