[sledge] Fix order of args in simp_div

Reviewed By: mbouaziz

Differential Revision: D14075523

fbshipit-source-id: 5a9c35384
master
Josh Berdine 6 years ago committed by Facebook Github Bot
parent 95f94537d7
commit 23f2d3a08e

@ -964,7 +964,7 @@ let simp_div x y =
let bits = Option.value_exn (Typ.prim_bit_size_of typ) in let bits = Option.value_exn (Typ.prim_bit_size_of typ) in
integer (Z.div ~bits i j) typ integer (Z.div ~bits i j) typ
(* e / 1 ==> e *) (* e / 1 ==> e *)
| Integer {data}, e when Z.equal Z.one data -> e | e, Integer {data} when Z.equal Z.one data -> e
| _ -> App {op= App {op= Div; arg= x}; arg= y} | _ -> App {op= App {op= Div; arg= x}; arg= y}
let simp_udiv x y = let simp_udiv x y =

Loading…
Cancel
Save