Section s_pulb_diese_def.
Variables (D : Setoid) (t1 : Map D A) (t2 : Map D C).
Hypothesis H : Pullback_eq1 f g t1 t2.
Canonical Structure S_pulb_fun (d : D) :=
Build_SubType (Check_S_pulb_constr d).
Canonical Structure S_pulb_diese := Build_Map S_pulb_map_law.
End s_pulb_diese_def.

Lemma S_pulb_law3 : Pullback_law3 S_pulb_q S_pulb_diese.