(*************************************)
(************ Powerset  **************)
(*************************************)




Definition Powerset (X : Ens) := REPLACEMENT (fun Y : Ens => SUB Y X).

Theorem Powerset_th2 : forall (A X Y : Ens) (x : IN X (Powerset A)) (y : IN Y (Powerset A)), IN (union X Y) (Powerset A).