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