(********** Cartesian product *********)


Definition PowerPlus (A : Ens) := union A (Powerset A).

(* Specifications: *)
Theorem PowerPlus_th1 : forall A : Ens, SUB A (PowerPlus A).
Theorem PowerPlus_th2 : forall A : Ens, SUB (Powerset A) (PowerPlus A).
Lemma powerplus1_Out : IN (PAIR X Y) (Powerset PP).