fact: Record CoreflectiveSubuniverse := { inF : Type -> HProp ; F_coreflector : Type -> Type ; F_inF : forall X, inF (F_coreflector X) ; fromF : forall X, F_coreflector X -> X ; isequiv_fromF_postcompose : forall {Y X} {Y_inF : inF Y}, IsEquiv (fun (g : Y -> F_coreflector X) => fromF X o g) }.
imports: HoTT.Basics HoTT.Types Modalities.Modality Modalities.Open