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