diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-03-28 13:59:03 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-03-28 13:59:03 -0400 |
| commit | 8c7878bfb0622f9aa99b404e3793c5aa17443966 (patch) | |
| tree | c065fade680b997035a01c27601f4a1838f3b1ac /src/elab_util.sig | |
| parent | 1469fd94659b3562ea7e3c180e0366194717a287 (diff) | |
Start of elaborating expressions
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 |