diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-07-31 10:06:27 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-07-31 10:06:27 -0400 |
| commit | f4351288c5b57b130c0a75e5e84a445ca513527f (patch) | |
| tree | c0e69cdf2d843fbf3c5d2853ce2effe487090970 /src/elab_env.sig | |
| parent | aa1b3a24913edd0dc97af0d1fc9e3dc0026a2460 (diff) | |
Elaborating some basic pattern matching
Diffstat (limited to 'src/elab_env.sig')
| -rw-r--r-- | src/elab_env.sig | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/elab_env.sig b/src/elab_env.sig index 0afa3114..ff45f056 100644 --- a/src/elab_env.sig +++ b/src/elab_env.sig @@ -54,9 +54,11 @@ signature ELAB_ENV = sig val pushDatatype : env -> int -> (string * int * Elab.con option) list -> env type datatyp val lookupDatatype : env -> int -> datatyp - val lookupConstructor : datatyp -> int -> string * Elab.con option + val lookupDatatypeConstructor : datatyp -> int -> string * Elab.con option val constructors : datatyp -> (string * int * Elab.con option) list + val lookupConstructor : env -> string -> (int * Elab.con option * int) option + val pushERel : env -> string -> Elab.con -> env val lookupERel : env -> int -> string * Elab.con |