fact: Definition apply_args_of {T} : forall {l}, funs_of T l -> args_of l -> T := fix f l := match l as l return funs_of T l -> args_of l -> T with | [m: ] => fun t _ => t | X :m: l => fun F '(x, a) => f l (F x) a end.
imports: Coq.Strings.String Mtac2(Base Logic Datatypes List MFix MTeleMatch)