`{Univalence} {A B : Type} (f : A -> B) `{O_inverts O' f} : ooExtendableAlong f (fun _ => Type_ O). Proof. rapply ooextendable_TypeO_from_extension; intros P. exists (fun x => (OO_descend_O_inverts f P x ; OO_descend_O_inverts_inO f P x)). intros x; apply path_TypeO, path_universe_uncurried; cbn. exact (OO_descend_O_inverts_beta f P x). Defined.
Require Import HoTT.Basics HoTT.Types. Require Import HFiber Extensions Limits.Pullback. Require Import Modality Accessible Modalities.Localization.