Mercurial > urweb
diff src/elab_env.sig @ 711:7292bcb7c02d
Made type class system very general; demo compiles
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Thu, 09 Apr 2009 12:31:56 -0400 |
parents | 588b9d16b00a |
children | 059074c8d2fc |
line wrap: on
line diff
--- a/src/elab_env.sig Tue Apr 07 20:38:01 2009 -0400 +++ b/src/elab_env.sig Thu Apr 09 12:31:56 2009 -0400 @@ -72,6 +72,7 @@ val pushClass : env -> int -> env val isClass : env -> Elab.con -> bool val resolveClass : env -> Elab.con -> Elab.exp option + val listClasses : env -> (Elab.con * (Elab.con * Elab.exp) list) list val pushERel : env -> string -> Elab.con -> env val lookupERel : env -> int -> string * Elab.con