fact: Definition ooextendable_over_const {A B : Type} (C : B -> Type) (f : A -> B) (ext : ooExtendableAlong f C) (D : B -> Type) : ooExtendableAlong f D -> ooExtendableAlong_Over f C (fun b _ => D b) ext := fun ext' n => extendable_over_const n C f (ext n) D (ext' n).
imports: HoTT.Basics HoTT.Types Extensions ReflectiveSubuniverse Accessible