fact: Fixpoint vars (t : term) : variables := match t with | Var x => x :: nil | Fun f v => let fix vars_vec n (ts : terms n) : variables := match ts with | Vnil => nil | Vcons t' ts' => vars t' ++ vars_vec _ ts' end in vars_vec (arity f) v end.
imports: CoLoR(ListUtil LogicUtil EqUtil BoolUtil NatUtil VecUtil VecMax ListMax)