diff options
| author | Brian Campbell | 2018-03-13 14:39:05 +0000 |
|---|---|---|
| committer | Brian Campbell | 2018-03-13 14:39:05 +0000 |
| commit | 535f4736f3632e8959a7ebc7f5f43c8d6abc1325 (patch) | |
| tree | 381e97f057cdc8e4020bdfc2f0a65cb70a7a0c21 /src/pretty_print_lem.ml | |
| parent | 4c82d1db7bf57a05beb03d7d8adc476750926de6 (diff) | |
Merge funcls for Lem output, making it suitable for testing with OCaml
Diffstat (limited to 'src/pretty_print_lem.ml')
| -rw-r--r-- | src/pretty_print_lem.ml | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/src/pretty_print_lem.ml b/src/pretty_print_lem.ml index f2136f07..4bb3b553 100644 --- a/src/pretty_print_lem.ml +++ b/src/pretty_print_lem.ml @@ -1198,6 +1198,9 @@ let get_id = function module StringSet = Set.Make(String) +(* Strictly speaking, Lem doesn't support multiple clauses for a single function + joined by "and", although it has worked for Isabelle before. However, all + the funcls should have been merged by the merge_funcls rewrite now. *) let doc_fundef_rhs_lem (FD_aux(FD_function(r, typa, efa, funcls),fannot) as fd) = separate_map (hardline ^^ string "and ") doc_funcl_lem funcls |