diff options
| author | Thomas Bauereiss | 2017-10-19 16:19:51 +0100 |
|---|---|---|
| committer | Thomas Bauereiss | 2017-10-19 16:19:51 +0100 |
| commit | b85544a76135808641e9e225d5a38e5011ef0321 (patch) | |
| tree | 57bc5a00bd493a3ff654ce266e80de0d6d5cb14f /src/rewriter.mli | |
| parent | 40a5395c1be351cb8abccb3ccc6fc4399d2d0e70 (diff) | |
| parent | 6e05fb8d6d6a86658c7f8a4fc7bd555c6bad1380 (diff) | |
Merge branch 'experiments' of bitbucket.org:Peter_Sewell/sail into experiments
Diffstat (limited to 'src/rewriter.mli')
| -rw-r--r-- | src/rewriter.mli | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/rewriter.mli b/src/rewriter.mli index e42d9b3a..73337de4 100644 --- a/src/rewriter.mli +++ b/src/rewriter.mli @@ -60,6 +60,8 @@ val rewrite_undefined : tannot defs -> tannot defs val rewrite_defs_ocaml : (string * (tannot defs -> tannot defs)) list (*Perform rewrites to exclude AST nodes not supported for ocaml out*) val rewrite_defs_lem : (string * (tannot defs -> tannot defs)) list (*Perform rewrites to exclude AST nodes not supported for lem out*) +val simple_typ : typ -> typ + (* the type of interpretations of pattern-matching expressions *) type ('a,'pat,'pat_aux,'fpat,'fpat_aux) pat_alg = { p_lit : lit -> 'pat_aux |