Prenex Implicits Mem_map_inv.
(* Setoids for extensional equality of functions *)

(* Specifications: *)
Lemma eqfun_refl A B (f : A -> B) : f =1 f. Proof. by []. Qed.
Lemma eqfun_sym A B (f1 f2 : A -> B) : f1 =1 f2 -> f2 =1 f1.
Lemma ImageIm A B C (f1 : B -> C) (f2 : A -> B) (X : Pred A) :
Image f1 (Image f2 X) =p Image (f1 \o f2) X.
Lemma ImageEq A B (f1 f2 : A -> B) (X : Pred A) :
f1 =1 f2 -> Image f1 X =p Image f2 X.