fact: Fixpoint snoc {a : Type} (x : a) (xs : list a) : list a := match xs with | [] => [x] | x :: xs => x :: snoc x xs end.
imports: Coq.Lists.List Category.Lib Category.Instance.Lambda.Ty Category.Instance.Lambda.Exp Category.Instance.Lambda.Value Category.Instance.Lambda.Ren Equations(Equations)