fact: Fixpoint Ft (t : term S1) : term S2 := match t with | Var x => Var x | Fun f ts => Fun (F f) (Vcast (Vmap Ft ts) (HF f)) end.
imports: Coq(List Morphisms Setoid) CoLoR(LogicUtil ATrs VecUtil RelUtil SN ARules SetUtil NatUtil)