Variables (D : Setoid) (h : Map D A).
Hypothesis p : Equalizer_eq f h.

(* Specifications: *)
Lemma Check_S_equaz_constr : forall d : D, S_equaz_pred (h d).
Canonical Structure S_equaz_fun (d : D) :=
Build_SubType (Check_S_equaz_constr d).
Lemma S_equaz_map_law : Map_law S_equaz_fun.
Canonical Structure S_equaz_diese := Build_Map S_equaz_map_law.