fact: Fixpoint HomotopyExtendableAlong (n : nat) {A B} {Q : B -> Type} (f : A -> B) (C : sig Q -> Type) : Type := match n with | 0 => Unit | S n => ((forall (p : forall (a:A) (v:Q (f a)), C (f a;v)), HomotopyExtensionAlong f C p) * (forall (h k : forall z, C z), HomotopyExtendableAlong n f (fun z => h z = k z))) end.
imports: HoTT.Basics HoTT.Types Equiv.PathSplit PathAny Cubical.DPath Cubical.DPathSquare Colimits.Coeq Colimits.MappingCylinder