(n : nat) {A B : Type} (C : B -> Type) (f : A -> B) (ext : ExtendableAlong n f C) (D E : forall b, C b -> Type) (g : forall b c, D b c -> E b c) `{forall b c, IsEquiv (g b c)} : ExtendableAlong_Over n f C D ext -> ExtendableAlong_Over n f C E ext := ' n C f ext D E (fun b c => Build_Equiv _ _ (g b c) _).
Require Import HoTT.Basics HoTT.Types. Require Import Extensions. Require Import ReflectiveSubuniverse Accessible. Import IsLocal_Internal.