fact: Definition example1 : run 20 (APP (APP (LAM (APP (VAR ZV) (LAM EUnit))) (LAM (VAR ZV))) EUnit) = MkΣ (Closure EUnit (AddCl (Val EUnit Value.UnitP NoCl) (AddCl (Val (LAM (cod:=_) (VAR ZV)) (Value.LambdaP (VAR ZV)) NoCl) NoCl))) MT := eq_refl.
imports: Category.Lib Category.Instance.Lambda.Exp Category.Instance.Lambda.Eval