Section s_equaz_diese_def.
Variables (D : Setoid) (h : Map D A).
Hypothesis p : Equalizer_eq f h.
Canonical Structure S_equaz_fun (d : D) :=
Build_SubType (Check_S_equaz_constr d).
Canonical Structure S_equaz_diese := Build_Map S_equaz_map_law.
End s_equaz_diese_def.

Lemma S_equaz_law2 : Equalizer_law2 S_equaz_mor S_equaz_diese.