From 8c7878bfb0622f9aa99b404e3793c5aa17443966 Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Fri, 28 Mar 2008 13:59:03 -0400 Subject: Start of elaborating expressions --- src/elab_util.sig | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'src/elab_util.sig') 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 -- cgit v1.2.3