From f4351288c5b57b130c0a75e5e84a445ca513527f Mon Sep 17 00:00:00 2001 From: Adam Chlipala Date: Thu, 31 Jul 2008 10:06:27 -0400 Subject: Elaborating some basic pattern matching --- src/elab_env.sig | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'src/elab_env.sig') 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 -- cgit v1.2.3