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)}.

Theorem function_is_a_function_on : forall (F : Ens) (f : is_a_function F), is_a_function_on (Domain F) F.