fact: Definition hfibertohfp {X Y : UU} (f : X -> Y) (y : Y) (xe : hfiber f y) : hfp (λ t : unit, y) f := tpair (λ tx : unit × X, (f (pr2 tx)) = y) (make_dirprod tt (pr1 xe)) (pr2 xe).
imports: UniMath.Foundations.Preamble