fact: Fixpoint args (t : Te) := match t as t return Tes (nb_args t) with | App u v => Vadd (args u) v | _ => Vnil end.
imports: Coq(FSets Structures.OrderedType) CoLoR(LogicUtil BoolUtil VecUtil FSetUtil NatUtil RelUtil SN SetUtil)