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