Record is_a_function_on (D F : Ens) : Prop := 
  {function_on_fn : is_a_function F; function_on_dom : EQ D (Domain F)}.Record is_a_function_on (D F : Ens) : Prop := 
  {function_on_fn : is_a_function F; function_on_dom : EQ D (Domain F)}.Record is_a_function_on (D F : Ens) : Prop := 
  {function_on_fn : is_a_function F; function_on_dom : EQ D (Domain F)}.

(* Specifications: *)
Theorem function_is_a_function_on : forall (F : Ens) (f : is_a_function F), is_a_function_on (Domain F) F.
Lemma function_1_Out_F : EQ Y V.
Theorem function_th1 : forall (F : Ens) (f : is_a_function F) (X Y : Ens) (i : IN (PAIR X Y) F), EQ Y (EV F X).