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