fact: Definition example_pair : run 30 (Pair (APP (LAM (VAR ZV)) EUnit) (APP (LAM (VAR ZV)) EUnit)) = MkΣ (Closure (Pair (APP (LAM (VAR ZV)) EUnit) (APP (LAM (VAR ZV)) EUnit)) NoCl) MT := eq_refl.
imports: Category.Lib Category.Instance.Lambda.Exp Category.Instance.Lambda.Eval