diff options
| author |  Adam Chlipala <adamc@hcoop.net> | 2008-08-16 14:32:18 -0400 |
|---|---|---|
| committer | Adam Chlipala <adamc@hcoop.net> | 2008-08-16 14:32:18 -0400 |
| commit | b4f1361d2dff2e180e4656efa491b275707cdf02 (patch) | |
| tree | dc76b47422a5d2bcdbd78d9b9ab35fe30b4991c8 /src/elab_util.sig | |
| parent | c8fa648dbc2489ca4a56abbb27d94819fb75b5ec (diff) | |
Initial type class support
Diffstat (limited to 'src/elab_util.sig')
| -rw-r--r-- | src/elab_util.sig | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/elab_util.sig b/src/elab_util.sig index e33e956b..57883073 100644 --- a/src/elab_util.sig +++ b/src/elab_util.sig @@ -75,6 +75,11 @@ structure Exp : sig con : (Elab.con', 'state, 'abort) Search.mapfolder, exp : (Elab.exp', 'state, 'abort) Search.mapfolder} -> (Elab.exp, 'state, 'abort) Search.mapfolder + val mapB : {kind : Elab.kind' -> Elab.kind', + con : 'context -> Elab.con' -> Elab.con', + exp : 'context -> Elab.exp' -> Elab.exp', + bind : 'context * binder -> 'context} + -> 'context -> (Elab.exp -> Elab.exp) val exists : {kind : Elab.kind' -> bool, con : Elab.con' -> bool, exp : Elab.exp' -> bool} -> Elab.exp -> bool |