diff options
| author |  Adam Chlipala <adam@chlipala.net> | 2015-12-20 13:41:35 -0500 |
|---|---|---|
| committer | Adam Chlipala <adam@chlipala.net> | 2015-12-20 13:41:35 -0500 |
| commit | 7bf4f9f063dcdc9fc50ad6ac6143b113535b68f0 (patch) | |
| tree | 9e0153c58684ffc14955e809cb884dfe373c6779 /src/elab_util.sig | |
| parent | ee1a68c223c13b323121f67e8f135160d521d3fd (diff) | |
Unnest properly in presence of kind polymorphism
Diffstat (limited to 'src/elab_util.sig')
| -rw-r--r-- | src/elab_util.sig | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/elab_util.sig b/src/elab_util.sig index 6c08442b..dc07f6f8 100644 --- a/src/elab_util.sig +++ b/src/elab_util.sig @@ -41,6 +41,9 @@ structure Kind : sig val mapB : {kind : 'context -> Elab.kind' -> Elab.kind', bind : 'context * string -> 'context} -> 'context -> (Elab.kind -> Elab.kind) + val foldB : {kind : 'context * Elab.kind' * 'state -> 'state, + bind : 'context * string -> 'context} + -> 'context -> 'state -> Elab.kind -> 'state end structure Con : sig |