From b4f1361d2dff2e180e4656efa491b275707cdf02 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Sat, 16 Aug 2008 14:32:18 -0400 Subject: Initial type class support --- src/elab_util.sig | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'src/elab_util.sig') diff --git a/src/elab_util.sig b/src/elab_util.sig index e33e956b..57883073 100644 --- a/src/elab_util.sig +++ b/src/elab_util.sig @@ -75,6 +75,11 @@ structure Exp : sig con : (Elab.con', 'state, 'abort) Search.mapfolder, exp : (Elab.exp', 'state, 'abort) Search.mapfolder} -> (Elab.exp, 'state, 'abort) Search.mapfolder + val mapB : {kind : Elab.kind' -> Elab.kind', + con : 'context -> Elab.con' -> Elab.con', + exp : 'context -> Elab.exp' -> Elab.exp', + bind : 'context * binder -> 'context} + -> 'context -> (Elab.exp -> Elab.exp) val exists : {kind : Elab.kind' -> bool, con : Elab.con' -> bool, exp : Elab.exp' -> bool} -> Elab.exp -> bool -- cgit v1.2.3