Mercurial > urweb
comparison src/elab_util.sig @ 198:ab86aa858e6c
'Option' datatype encoding
author | Adam Chlipala <adamc@hcoop.net> |
---|---|
date | Sat, 09 Aug 2008 19:23:31 -0400 |
parents | 8e9f97508f0d |
children | e86411f647c6 |
comparison
equal
deleted
inserted
replaced
197:b1b9bcfd8c42 | 198:ab86aa858e6c |
---|---|
25 * POSSIBILITY OF SUCH DAMAGE. | 25 * POSSIBILITY OF SUCH DAMAGE. |
26 *) | 26 *) |
27 | 27 |
28 signature ELAB_UTIL = sig | 28 signature ELAB_UTIL = sig |
29 | 29 |
30 val classifyDatatype : (string * int * Elab.con option) list -> Elab.datatype_kind | 30 val classifyDatatype : (string * int * 'a option) list -> Elab.datatype_kind |
31 | 31 |
32 structure Kind : sig | 32 structure Kind : sig |
33 val mapfold : (Elab.kind', 'state, 'abort) Search.mapfolder | 33 val mapfold : (Elab.kind', 'state, 'abort) Search.mapfolder |
34 -> (Elab.kind, 'state, 'abort) Search.mapfolder | 34 -> (Elab.kind, 'state, 'abort) Search.mapfolder |
35 val exists : (Elab.kind' -> bool) -> Elab.kind -> bool | 35 val exists : (Elab.kind' -> bool) -> Elab.kind -> bool |