Canonical Structure S_equaz_constr := Build_Setoid_pred S_equaz_reg.Definition S_equaz_ob := SubSetoid S_equaz_constr.Definition S_equaz_mor := RestrictedMap (Id_map A) S_equaz_constr.

(* Specifications: *)
Lemma S_equaz_law1 : Equalizer_law1 f S_equaz_mor.
Lemma Check_S_equaz_constr : forall d : D, S_equaz_pred (h d).