diff options
| author | Brian Campbell | 2019-05-28 17:35:05 +0100 |
|---|---|---|
| committer | Brian Campbell | 2019-05-28 17:38:51 +0100 |
| commit | e6b66c74e01315a6b34223cf328ec600373df658 (patch) | |
| tree | 934a502f564ef2bcbab3d19f36d39d8a57c5c169 /src | |
| parent | 956d4ce8151fe45a09fac1bd664167dbb8dace63 (diff) | |
Coq: don't output complex bool types at let expressions
Diffstat (limited to 'src')
| -rw-r--r-- | src/pretty_print_coq.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/pretty_print_coq.ml b/src/pretty_print_coq.ml index af40578c..f1128d7a 100644 --- a/src/pretty_print_coq.ml +++ b/src/pretty_print_coq.ml @@ -2226,7 +2226,7 @@ let doc_exp, doc_let = (separate space [string "let"; doc_id id; coloneq]) (top_exp ctxt false e) | LB_val(P_aux (P_typ (typ,P_aux (P_id id,_)),_),e) - when Util.is_none (is_auto_decomposed_exist ctxt (env_of e) typ) && + when Util.is_none (is_auto_decomposed_exist ctxt (env_of e) ~rawbools:true typ) && not (is_enum (env_of e) id) -> prefix 2 1 (separate space [string "let"; doc_id id; colon; doc_typ ctxt (env_of e) typ; coloneq]) |