fact: Definition pevfib {A X : pType} (f : X ->* A) : pcomp (X -> A) f ->* A := Build_pMap _ _ (fun g : pcomp (X -> A) f => g.1 pt) (point_eq f).
imports: HoTT(Basics Types Truncations.Core Pointed.Core Homotopy.Cover)