fact: Fixpoint RenExpandExp {Γ Γ' τ} (e : Exp Γ τ) : Exp (Γ ++ Γ') τ := match e with | EUnit => EUnit | Pair x y => Pair (RenExpandExp x) (RenExpandExp y) | Fst p => Fst (RenExpandExp p) | Snd p => Snd (RenExpandExp p) | VAR v => VAR (RenExpandVar v) | APP e1 e2 => APP (RenExpandExp e1) (RenExpandExp e2) | LAM e => LAM (RenExpandExp e) end.
imports: Coq.Lists.List Category.Lib Category.Instance.Lambda.Exp Category.Instance.Lambda.Value Equations(Equations)