fact: Definition commsqZtohfp {X X' Y Z : UU} (f : X -> Y) (f' : X' -> Y) (g : Z -> X) (g' : Z -> X') (h : commsqstr g' f' g f) : Z -> hfp f f' := λ z : _, tpair _ (make_dirprod (g z) (g' z)) (h z).
imports: UniMath.Foundations.Preamble