diff options
author | 2008-11-08 14:42:52 -0500 | |
---|---|---|
committer | 2008-11-08 14:42:52 -0500 | |
commit | 437a207ec01c2ab18bb424cc2d6d36b59f3c8efb (patch) | |
tree | a7076475ba537b7e8b99d2133d5f0b6340e55e61 /src/core_util.sig | |
parent | 901b6d55e625be136ddd677a3d8a36e5068de2ae (diff) |
Broaden set of possible especializations
Diffstat (limited to 'src/core_util.sig')
-rw-r--r-- | src/core_util.sig | 8 |
1 files changed, 8 insertions, 0 deletions
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} |