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"