From 49c123050b2bc8a24f250fcc0d55e49484bc604c Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 2 Aug 2008 11:15:32 -0400
Subject: Case through corify

---
 src/core_env.sig | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/core_env.sig')

diff --git a/src/core_env.sig b/src/core_env.sig
index b2005fa8..220c1da8 100644
--- a/src/core_env.sig
+++ b/src/core_env.sig
@@ -45,6 +45,8 @@ signature CORE_ENV = sig
     val pushDatatype : env -> string -> int -> (string * int * Core.con option) list -> env
     val lookupDatatype : env -> int -> string * (string * int * Core.con option) list
 
+    val lookupConstructor : env -> int -> string * Core.con option * int
+
     val pushERel : env -> string -> Core.con -> env
     val lookupERel : env -> int -> string * Core.con
 
-- 
cgit v1.2.3