Proof
fun (A B U : Ens) (i : IN U (Cartesian A B)) =>
in_cartesian_pr1 A B U (Cartesian_pr2 A B U i).

(* Specifications: *)
Theorem Cartesian_proj2_th :
forall (A B U : Ens) (i : IN U (Cartesian A B)), IN (PR2 U) B.