diff options
Diffstat (limited to 'src/elab_util.sig')
-rw-r--r-- | src/elab_util.sig | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/elab_util.sig b/src/elab_util.sig index 895f836c..1f7ff2f9 100644 --- a/src/elab_util.sig +++ b/src/elab_util.sig @@ -35,12 +35,22 @@ end structure Con : sig val mapfold : {kind : (Elab.kind', 'state, 'abort) Search.mapfolder, - con : (Elab.con', 'state, 'abort) Search.mapfolder} + con : (Elab.con', 'state, 'abort) Search.mapfolder} -> (Elab.con, 'state, 'abort) Search.mapfolder val exists : {kind : Elab.kind' -> bool, con : Elab.con' -> bool} -> Elab.con -> bool end +structure Exp : sig + val mapfold : {kind : (Elab.kind', 'state, 'abort) Search.mapfolder, + con : (Elab.con', 'state, 'abort) Search.mapfolder, + exp : (Elab.exp', 'state, 'abort) Search.mapfolder} + -> (Elab.exp, 'state, 'abort) Search.mapfolder + val exists : {kind : Elab.kind' -> bool, + con : Elab.con' -> bool, + exp : Elab.exp' -> bool} -> Elab.exp -> bool +end + val declBinds : ElabEnv.env -> Elab.decl -> ElabEnv.env end |