let pcmp_operator op x y =
match op with
| Eq -> M.equal_loc_bool x y
| Ne -> F.e_not ( M.equal_loc_bool x y)
| Lt -> M.lt_loc_bool x y
| Le -> M.le_loc_bool x y
| Ge -> M.le_loc_bool y x
| Gt -> M.lt_loc_bool y x
| _ -> WpLog.fatal "[pcmp_operator] non comparator"