Proof
fun (A : Ens) (P : Ens -> Prop) (X : Ens) (h : IN X A) (k : P X) =>
Set_Of_pr1 A P X (Build_Restriction P A X k h).

Theorem Set_Of_th2 :
forall (A : Ens) (P : Ens -> Prop) (X : Ens) (h : IN X (Set_Of A P)), P X.