Proof Domain_th1_Out.
(***** same thing for Range *********)
Definition Range (R : Ens) := REPLACEMENT (Range_prop R).

Theorem Range_pr2 : forall (R X : Ens) (i : IN X (Range R)), Range_prop R X.
Proof fun R : Ens => REPLACEMENT_pr2 (Range_prop R) (Range_prop_bounded R).