From 437a207ec01c2ab18bb424cc2d6d36b59f3c8efb Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 8 Nov 2008 14:42:52 -0500
Subject: Broaden set of possible especializations

---
 src/core_util.sig | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/core_util.sig')

diff --git a/src/core_util.sig b/src/core_util.sig
index 2ae75305..51dee8f4 100644
--- a/src/core_util.sig
+++ b/src/core_util.sig
@@ -73,6 +73,8 @@ structure Con : sig
 end
 
 structure Exp : sig
+    val compare : Core.exp * Core.exp -> order
+
     datatype binder =
              RelC of string * Core.kind
            | NamedC of string * int * Core.kind * Core.con option
@@ -108,6 +110,12 @@ structure Exp : sig
                   con : Core.con' -> bool,
                   exp : Core.exp' -> bool} -> Core.exp -> bool
 
+    val existsB : {kind : Core.kind' -> bool,
+                   con : 'context * Core.con' -> bool,
+                   exp : 'context * Core.exp' -> bool,
+                   bind : 'context * binder -> 'context}
+                  -> 'context -> Core.exp -> bool
+
     val foldMap : {kind : Core.kind' * 'state -> Core.kind' * 'state,
                    con : Core.con' * 'state -> Core.con' * 'state,
                    exp : Core.exp' * 'state -> Core.exp' * 'state}
-- 
cgit v1.2.3