From 83430cc520eadaffac2ebab258696f9146ada9b0 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Tue, 8 Sep 2009 19:42:12 -0400 Subject: 'more' demos working after optimizer fix --- src/mono_util.sig | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'src/mono_util.sig') diff --git a/src/mono_util.sig b/src/mono_util.sig index 2a96211a..06290e7d 100644 --- a/src/mono_util.sig +++ b/src/mono_util.sig @@ -72,6 +72,10 @@ structure Exp : sig val exists : {typ : Mono.typ' -> bool, exp : Mono.exp' -> bool} -> Mono.exp -> bool + val existsB : {typ : Mono.typ' -> bool, + exp : 'context * Mono.exp' -> bool, + bind : 'context * binder -> 'context} -> 'context -> Mono.exp -> bool + val foldB : {typ : Mono.typ' * 'state -> 'state, exp : 'context * Mono.exp' * 'state -> 'state, bind : 'context * binder -> 'context} -- cgit v1.2.3