fact: Definition apply_arg {s} (i : ITele s) : forall (a : ATele i), msigT (ATele) := match i with | iBase s => fun args => mexistT ATele (iBase s) args | iTele f => fun '(existT _ a args) => mexistT ATele (f a) args end.
imports: Mtac2(Logic Datatypes List Sorts Base MTeleMatch MFix) Mtac2.tactics(Tactics ImportedTactics) Strings.String Mtac2.lib.Specif