fact: Definition equiv_sigma_pfibration_O_connected@{u v +} `{Univalence} (O : Subuniverse) {Y F : pType@{u}} `{IsConnected 0 Y} `{inO : In O F} : (Y ->* [Type_ O, (pointed_type F; inO)]) <~> { p : pSlice@{u v} Y & pfiber p.2 <~>* F } := equiv_pfiber_fibration_pfibration oE equiv_sigma_fibration_Op_connected.
imports: HoTT.Basics HoTT.Types HFiber Limits.Pullback Pointed Truncations