Proof
fun (A : Ens) (P : Ens -> Prop) =>
REPLACEMENT_pr2 (Restriction P A) (Restriction_bounded P A).

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