(** From this, we deduce the introduction rule of the powerset: *)

(* Specifications: *)
Lemma powerset_intro :
forall (X : Typ1) (A : Rel X) (a : X) (Y : Typ1) (B : Rel Y) (b : Y),
SUB Y B b X A a ->
ELT Y B b (sum X (X -> Prop)) (POWER X A a) (out X (X -> Prop)).