fact: Definition equiv_pmap_pbaut_pfibration `{Univalence} {Y F : pType@{u}} : (Y ->* pBAut@{u v} F) <~> { p : { q : pSlice Y & forall y:Y, merely (hfiber q.2 y <~> F) } & pfiber p.1.2 <~>* F } := (equiv_sigma_pfibration_O (subuniverse_merely_equiv F)) oE pequiv_pequiv_postcompose pequiv_pbaut_typeOp.
imports: HoTT.Basics HoTT.Types Constant HoTT.Truncations ObjectClassifier Homotopy.ExactSequence Pointed