{A : Type} (B : A -> Type) `{In O A} {B_inO : In O {x:A & B x}} (x : A) : In O (B x) := inO_equiv_inO _ (hfiber_fibration x B)^-1.
Require Import HoTT.Basics HoTT.Types. Require Import Equiv.BiInv Extensions HProp HFiber NullHomotopy Limits.Pullback. Require Import Homotopy.IdentitySystems. Require Import Colimits.Pushout.