[inferbo][easy] Simplify mk_MinMax

Reviewed By: jvillard

Differential Revision: D7556208

fbshipit-source-id: cc667fb
master
Mehdi Bouaziz 7 years ago committed by Facebook Github Bot
parent c258e988fe
commit 5260558fef

@ -377,18 +377,16 @@ module Bound = struct
let is_mone_symbol : t -> bool = fun x -> get_mone_symbol_opt x <> None let is_mone_symbol : t -> bool = fun x -> get_mone_symbol_opt x <> None
let mk_MinMax (c, sign, m, d, s) = let mk_MinMax (c, sign, m, d, s) =
if Symbol.is_unsigned s then if Symbol.is_unsigned s && d <= 0 then
match m with match m with
| Min when d <= 0 -> | Min ->
of_int (Sign.eval_int sign c d) of_int (Sign.eval_int sign c d)
| Max when d <= 0 -> ( | Max ->
match sign with match sign with
| Plus -> | Plus ->
Linear (c, SymLinear.singleton_one s) Linear (c, SymLinear.singleton_one s)
| Minus -> | Minus ->
Linear (c, SymLinear.singleton_minus_one s) ) Linear (c, SymLinear.singleton_minus_one s)
| _ ->
MinMax (c, sign, m, d, s)
else MinMax (c, sign, m, d, s) else MinMax (c, sign, m, d, s)

Loading…
Cancel
Save