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