fact: Fixpoint subs1 s (t : Te) := match t with | Def.Var x => s x | Def.Fun f => t | Def.App u v => App (subs1 s u) (subs1 s v) | Def.Lam x u => Lam x (subs1 (update x (Var x) s) u) end.
imports: Coq(SetoidList Basics Morphisms) CoLoR(BoolUtil LogicUtil RelUtil VecUtil EqUtil)