let ptr_rel op l1 l2 =
    match op with
      | Lt -> M.lt_loc l1 l2
      | Gt -> M.lt_loc l2 l1
      | Le -> M.le_loc l1 l2
      | Ge -> M.le_loc l2 l1
      | Eq -> M.equal_loc l1 l2
      | Ne -> F.p_not (M.equal_loc l1 l2)
      | _ ->  WpLog.fatal "[ptr_rel] non pointer relation"