summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorThomas Bauereiss2017-11-07 16:18:14 +0000
committerThomas Bauereiss2017-11-07 16:18:14 +0000
commit9dc4a4bb20a53889b0aee43563d41fd7065a226a (patch)
tree09f2941193060c1a6d0af541c7a1768305a7c174 /src
parenta06fef246172dd97d68e4fef77132a375554db73 (diff)
Fix typo in constraint rewriter
Diffstat (limited to 'src')
-rw-r--r--src/rewriter.ml2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/rewriter.ml b/src/rewriter.ml
index e7bd6913..edda208d 100644
--- a/src/rewriter.ml
+++ b/src/rewriter.ml
@@ -2561,7 +2561,7 @@ let rewrite_constraint =
let rec rewrite_nc (NC_aux (nc_aux, l)) = mk_exp (rewrite_nc_aux nc_aux)
and rewrite_nc_aux = function
| NC_bounded_ge (n1, n2) -> E_app_infix (mk_exp (E_sizeof n1), mk_id ">=", mk_exp (E_sizeof n2))
- | NC_bounded_le (n1, n2) -> E_app_infix (mk_exp (E_sizeof n1), mk_id ">=", mk_exp (E_sizeof n2))
+ | NC_bounded_le (n1, n2) -> E_app_infix (mk_exp (E_sizeof n1), mk_id "<=", mk_exp (E_sizeof n2))
| NC_equal (n1, n2) -> E_app_infix (mk_exp (E_sizeof n1), mk_id "==", mk_exp (E_sizeof n2))
| NC_not_equal (n1, n2) -> E_app_infix (mk_exp (E_sizeof n1), mk_id "!=", mk_exp (E_sizeof n2))
| NC_and (nc1, nc2) -> E_app_infix (rewrite_nc nc1, mk_id "&", rewrite_nc nc2)