Definition S_pulb_prod := SubSetoid S_pulb_constr.
Definition S_pulb_p := RestrictedMap (Proj1_SPROD A C) S_pulb_constr.
Definition S_pulb_q := RestrictedMap (Proj2_SPROD A C) S_pulb_constr.

(* Specifications: *)
Lemma S_pulb_law1 : Pullback_law1 f g S_pulb_p S_pulb_q.
Section s_pulb_diese_def.