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"