summaryrefslogtreecommitdiff
path: root/src/pretty_print_lem.ml
diff options
context:
space:
mode:
authorBrian Campbell2017-10-24 10:11:08 +0100
committerBrian Campbell2017-10-24 10:11:08 +0100
commit8247d49d993777d0721c1aebeec0909dacd1a2cb (patch)
tree8ab781f30a91f40a4c5534a0505dc482d6b26b82 /src/pretty_print_lem.ml
parent0c50d5d193535f277454d2fcd70e0dc502fb2c23 (diff)
Remove special case for boolean (as opposed to bool)
Diffstat (limited to 'src/pretty_print_lem.ml')
-rw-r--r--src/pretty_print_lem.ml1
1 files changed, 0 insertions, 1 deletions
diff --git a/src/pretty_print_lem.ml b/src/pretty_print_lem.ml
index 0cb95db1..ac766e89 100644
--- a/src/pretty_print_lem.ml
+++ b/src/pretty_print_lem.ml
@@ -212,7 +212,6 @@ let doc_typ_lem, doc_atomic_typ_lem =
| _ -> atomic_typ sequential mwords atyp_needed ty
and atomic_typ sequential mwords atyp_needed ((Typ_aux (t, _)) as ty) = match t with
| Typ_id (Id_aux (Id "bool",_)) -> string "bool"
- | Typ_id (Id_aux (Id "boolean",_)) -> string "bool"
| Typ_id (Id_aux (Id "bit",_)) -> string "bitU"
| Typ_id (id) ->
(*if List.exists ((=) (string_of_id id)) regtypes