fact: Fixpoint RTele_App {isort rsort} {it : ITele isort} : forall (a : ATele it), RTele rsort it -> selem_of (ITele_App a) -> stype_of rsort := match it as it' with | iBase _ => fun _ rt => rt | iTele f => fun '(existT _ t a) rt => RTele_App a (rt t) end.
imports: Mtac2(Logic Datatypes List Sorts Base MTeleMatch MFix) Mtac2.tactics(Tactics ImportedTactics) Strings.String