fact: Fixpoint extend_tele@{i} (Δ : Tel@{i}) : forall (Γ : telescope Δ -> t@{i}), t@{i} := match Δ with | inj A => fun Γ => ext A Γ | ext A f => fun Γ => ext A (fun a => extend_tele (f a) (fun fa => Γ &(a & fa))) end.
imports: Equations Utf8 DepElimDec