diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2009-04-09 12:31:56 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2009-04-09 12:31:56 -0400 |
| commit | a75aaa90b3b827f9ef002491bc081df36260f136 (patch) | |
| tree | dddbb02bac0b5dae304255f3ba1f8f95d7af21a6 /src/elab_util.sig | |
| parent | ed34aa061c7d9ba68d8f2419b22c2a0b6b6ce812 (diff) | |
Made type class system very general; demo compiles
Diffstat (limited to 'src/elab_util.sig')
| -rw-r--r-- | src/elab_util.sig | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/elab_util.sig b/src/elab_util.sig index 817f885f..5b4bc46a 100644 --- a/src/elab_util.sig +++ b/src/elab_util.sig @@ -62,6 +62,10 @@ structure Con : sig val map : {kind : Elab.kind' -> Elab.kind', con : Elab.con' -> Elab.con'} -> Elab.con -> Elab.con + val existsB : {kind : 'context * Elab.kind' -> bool, + con : 'context * Elab.con' -> bool, + bind : 'context * binder -> 'context} + -> 'context -> Elab.con -> bool val exists : {kind : Elab.kind' -> bool, con : Elab.con' -> bool} -> Elab.con -> bool |