From cfa81e3508eff96cee83bb6b61e389bee3907f8a Mon Sep 17 00:00:00 2001
From: "William J. Bowman" <wjb@williamjbowman.com>
Date: Fri, 8 Jan 2016 19:44:40 -0500
Subject: [PATCH] Fixed issue with type-infer, application case

Application case was expecting type-infer to return a normal form.
This cannot be expected.
---
 curnel/redex-core.rkt | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/curnel/redex-core.rkt b/curnel/redex-core.rkt
index 164d6c6..a5b2a5c 100644
--- a/curnel/redex-core.rkt
+++ b/curnel/redex-core.rkt
@@ -877,7 +877,9 @@
    ----------------- "DTR-Product"
    (type-infer Δ Γ (Π (x : t_0) t) U)]
 
-  [(type-infer Δ Γ e_0 (Π (x_0 : t_0) t_1))
+  [(type-infer Δ Γ e_0 t)
+   ;; Cannot rely on type-infer producing normal forms.
+   (where (Π (x_0 : t_0) t_1) (reduce Δ t))
    (type-check Δ Γ e_1 t_0)
    (where t_3 (subst t_1 x_0 e_1))
    ----------------- "DTR-Application"
@@ -1186,6 +1188,10 @@
             ,zero?)
            (λ (x : nat) (λ (x_ih : (Π (x : nat) bool))
                                ,ih-equal?)))))
+  (check-holds
+    (type-check ,Δ (∅ nat-equal? : (Π (x-D«4158» : nat) ((λ (x«4159» : nat) (Π (x«4160» : nat) bool)) x-D«4158»)))
+                                ((nat-equal? zero) zero)
+                bool))
   (check-holds
     (type-check ,Δ ∅
                 ,nat-equal?