fact: Fixpoint flatten_append_forall {t : Telescope} : forall {t' : flattenT t Type}, flattenT (Telescope_append t t') Type -> flatten_forall t' -> Type := match t return forall {t' : flattenT t _}, flattenT (Telescope_append t t') Type -> flatten_forall t' -> Type with | bottom => fun t' P v => P v | tele A B => fun t' P v => forall a, @flatten_append_forall (B a) (t' a) (P a) (v a) end.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Relations.Relation_Definitions Coq.Classes.Morphisms