fact: Definition modality_from_inO_sigma (O : ReflectiveSubuniverse) (H : forall (A:Type) (B:A -> Type) {A_inO : In O A} `{forall a, In O (B a)}, (In O {x:A & B x})) : Modality.
imports: HoTT.Basics HoTT.Types HFiber Extensions Factorization Limits.Pullback ReflectiveSubuniverse