fact: Fixpoint TTele_ty (M : Type -> Type) t := match t with | ttbase X => M X | tttele F => forall x, TTele_ty M (F x) end.
imports: Mtac2(Base Datatypes List MTele MTeleMatch MTeleMatchDef MFixDef Sorts tactics.Tactics) Strings.String