(O1 O2 : Subuniverse) `{O1 <= O2} (A : Type) `{PreReflects O1 A} : PreReflects O2 A. Proof. unshelve econstructor. - exact (O_reflector O1 A). - rapply (inO_leq O1 O2). - exact (to O1 A). Defined.
Require Import HoTT.Basics HoTT.Types. Require Import Equiv.BiInv Extensions HProp HFiber NullHomotopy Limits.Pullback. Require Import Homotopy.IdentitySystems. Require Import Colimits.Pushout.