Mercurial > urweb
comparison 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 |
comparison
equal
deleted
inserted
replaced
710:71409a4ccb67 | 711:7292bcb7c02d |
---|---|
70 val lookupConstructor : env -> string -> (Elab.datatype_kind * int * string list * Elab.con option * int) option | 70 val lookupConstructor : env -> string -> (Elab.datatype_kind * int * string list * Elab.con option * int) option |
71 | 71 |
72 val pushClass : env -> int -> env | 72 val pushClass : env -> int -> env |
73 val isClass : env -> Elab.con -> bool | 73 val isClass : env -> Elab.con -> bool |
74 val resolveClass : env -> Elab.con -> Elab.exp option | 74 val resolveClass : env -> Elab.con -> Elab.exp option |
75 val listClasses : env -> (Elab.con * (Elab.con * Elab.exp) list) list | |
75 | 76 |
76 val pushERel : env -> string -> Elab.con -> env | 77 val pushERel : env -> string -> Elab.con -> env |
77 val lookupERel : env -> int -> string * Elab.con | 78 val lookupERel : env -> int -> string * Elab.con |
78 | 79 |
79 val pushENamed : env -> string -> Elab.con -> env * int | 80 val pushENamed : env -> string -> Elab.con -> env * int |