fact: Fixpoint filter (t : term) : term' := match t with | Var x => Var x | Fun f ts => @Fun Sig' f (Vfilter (pi f) (Vmap filter ts)) end.
imports: CoLoR(LogicUtil ATrs ListUtil NatUtil VecUtil SN BoolUtil RelUtil ListNodup VecFilterPerm ARelation ACompat NaryFunction BoundNat ListDec)