Mercurial > urweb
comparison src/elab_env.sig @ 753:d484df4e841a
Preparing to allow views in SELECT FROM clauses
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Tue, 28 Apr 2009 14:02:23 -0400 |
parents | 059074c8d2fc |
children | 56bd4a4f6e66 |
comparison
equal
deleted
inserted
replaced
752:bc5cfd6cb30f | 753:d484df4e841a |
---|---|
69 | 69 |
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 : (Elab.con -> Elab.con) -> env -> Elab.con -> Elab.exp option | 74 val resolveClass : (Elab.con -> Elab.con) -> (Elab.con * Elab.con -> bool) |
75 -> env -> Elab.con -> Elab.exp option | |
75 val listClasses : env -> (Elab.con * (Elab.con * Elab.exp) list) list | 76 val listClasses : env -> (Elab.con * (Elab.con * Elab.exp) list) list |
76 | 77 |
77 val pushERel : env -> string -> Elab.con -> env | 78 val pushERel : env -> string -> Elab.con -> env |
78 val lookupERel : env -> int -> string * Elab.con | 79 val lookupERel : env -> int -> string * Elab.con |
79 | 80 |
116 | 117 |
117 val chaseMpath : env -> (int * string list) -> Elab.str * Elab.sgn | 118 val chaseMpath : env -> (int * string list) -> Elab.str * Elab.sgn |
118 | 119 |
119 val patBinds : env -> Elab.pat -> env | 120 val patBinds : env -> Elab.pat -> env |
120 | 121 |
122 exception Bad of Elab.con * Elab.con | |
123 | |
121 end | 124 end |