Mercurial > urweb
diff src/elab_env.sig @ 42:b3fbbc6cb1e5
Elaborating 'where'
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 19 Jun 2008 16:35:40 -0400 |
parents | 02f42e9a1825 |
children | d3cc191cb25f |
line wrap: on
line diff
--- a/src/elab_env.sig Thu Jun 19 16:04:28 2008 -0400 +++ b/src/elab_env.sig Thu Jun 19 16:35:40 2008 -0400 @@ -76,10 +76,10 @@ val declBinds : env -> Elab.decl -> env val sgiBinds : env -> Elab.sgn_item -> env + val hnormSgn : env -> Elab.sgn -> Elab.sgn + val projectCon : env -> { sgn : Elab.sgn, str : Elab.str, field : string } -> (Elab.kind * Elab.con option) option val projectVal : env -> { sgn : Elab.sgn, str : Elab.str, field : string } -> Elab.con option val projectStr : env -> { sgn : Elab.sgn, str : Elab.str, field : string } -> Elab.sgn option - - end