(************* restricted_to ***********)

Definition restricted_to (A F : Ens) :=
  Set_Of F (fun M : Ens => IN (PR1 M) A).

Theorem restricted_to_th8 : forall (A F : Ens) (f : is_a_function F) (X : Ens) (i : IN X (intersection A (Domain F))), EQ (EV F X) (EV (restricted_to A F) X).