Mercurial > urweb
diff src/elab_env.sig @ 11:e97c6d335869
Simple elaboration working
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Fri, 28 Mar 2008 15:20:46 -0400 |
parents | 14b533dbe6cc |
children | 6049e2193bf2 |
line wrap: on
line diff
--- a/src/elab_env.sig Fri Mar 28 13:59:03 2008 -0400 +++ b/src/elab_env.sig Fri Mar 28 15:20:46 2008 -0400 @@ -42,9 +42,9 @@ val pushCRel : env -> string -> Elab.kind -> env val lookupCRel : env -> int -> string * Elab.kind - val pushCNamed : env -> string -> Elab.kind -> env * int - val pushCNamedAs : env -> string -> int -> Elab.kind -> env - val lookupCNamed : env -> int -> string * Elab.kind + val pushCNamed : env -> string -> Elab.kind -> Elab.con option -> env * int + val pushCNamedAs : env -> string -> int -> Elab.kind -> Elab.con option -> env + val lookupCNamed : env -> int -> string * Elab.kind * Elab.con option val lookupC : env -> string -> Elab.kind var