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_law4 : Pullback_law4 S_pulb_p S_pulb_q S_pulb_diese.