diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-09-13 10:30:45 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-09-13 10:30:45 -0400 |
| commit | 2ad30811b217c0880f8ea65a7da0f755ec0cf9e6 (patch) | |
| tree | a8c55c74f05acc784c8d0afb9237d867b0e3e680 /src/elab_util.sig | |
| parent | a12b7d5677662153dd69c14945c0d88f447425a3 (diff) | |
foldTR2
Diffstat (limited to 'src/elab_util.sig')
| -rw-r--r-- | src/elab_util.sig | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/elab_util.sig b/src/elab_util.sig index 57883073..f4edd972 100644 --- a/src/elab_util.sig +++ b/src/elab_util.sig @@ -38,7 +38,7 @@ end structure Con : sig datatype binder = Rel of string * Elab.kind - | Named of string * Elab.kind + | Named of string * int * Elab.kind val mapfoldB : {kind : (Elab.kind', 'state, 'abort) Search.mapfolder, con : ('context, Elab.con', 'state, 'abort) Search.mapfolderB, @@ -62,7 +62,7 @@ end structure Exp : sig datatype binder = RelC of string * Elab.kind - | NamedC of string * Elab.kind + | NamedC of string * int * Elab.kind | RelE of string * Elab.con | NamedE of string * Elab.con @@ -88,7 +88,7 @@ end structure Sgn : sig datatype binder = RelC of string * Elab.kind - | NamedC of string * Elab.kind + | NamedC of string * int * Elab.kind | Str of string * Elab.sgn | Sgn of string * Elab.sgn @@ -117,7 +117,7 @@ end structure Decl : sig datatype binder = RelC of string * Elab.kind - | NamedC of string * Elab.kind + | NamedC of string * int * Elab.kind | RelE of string * Elab.con | NamedE of string * Elab.con | Str of string * Elab.sgn |