Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Whoops, should check compile.

  • Loading branch information...
commit 54511dd2a4e689b6ff997faa5979306f4ffae0ac 1 parent 234332d
Luke Palmer authored February 18, 2009

Showing 1 changed file with 2 additions and 1 deletion. Show diff stats Hide diff stats

  1. 3  experiments/icl.hs
3  experiments/icl.hs
@@ -22,6 +22,7 @@ data Term
22 22
     | Term :% Term
23 23
     | L
24 24
     | G
  25
+    deriving (Show)
25 26
 
26 27
 -- This first section implements Aβη.  (==) is β-equality.
27 28
 instance Eq Term where
@@ -89,7 +90,7 @@ withNeutral rng f = do
89 90
     local (Map.insert n rng) $ f (Neutral n)
90 91
 
91 92
 prove :: Term -> Proof ()
92  
-prove t = go . rwhnf
  93
+prove = go . rwhnf
93 94
     where
94 95
     go (G :% x :% y :% z) = do  -- rule Gi
95 96
         prove (L :% x)

0 notes on commit 54511dd

Please sign in to comment.
Something went wrong with that request. Please try again.