comparison src/cjr_env.sig @ 181:31dfab1d4050

Cjrize ECon
author Adam Chlipala <adamc@hcoop.net>
date Sun, 03 Aug 2008 11:17:33 -0400
parents a991431b77eb
children 8e9f97508f0d
comparison
equal deleted inserted replaced
180:c7a5c8e0a0e0 181:31dfab1d4050
37 exception UnboundStruct of int 37 exception UnboundStruct of int
38 38
39 val pushDatatype : env -> string -> int -> (string * int * Cjr.typ option) list -> env 39 val pushDatatype : env -> string -> int -> (string * int * Cjr.typ option) list -> env
40 val lookupDatatype : env -> int -> string * (string * int * Cjr.typ option) list 40 val lookupDatatype : env -> int -> string * (string * int * Cjr.typ option) list
41 41
42 val lookupConstructor : env -> int -> string * Cjr.typ option * int
43
42 val pushERel : env -> string -> Cjr.typ -> env 44 val pushERel : env -> string -> Cjr.typ -> env
43 val lookupERel : env -> int -> string * Cjr.typ 45 val lookupERel : env -> int -> string * Cjr.typ
44 val listERels : env -> (string * Cjr.typ) list 46 val listERels : env -> (string * Cjr.typ) list
45 val countERels : env -> int 47 val countERels : env -> int
46 48