fact: Fixpoint flattenT (t : Telescope) (X : Type) := match t with | bottom => X | tele A B => forall a : A, flattenT (B a) X end.
imports: Fiat.Common.Coq__8_4__8_5__Compat Coq.Relations.Relation_Definitions Coq.Classes.Morphisms