let separated z1 z2 =
    match z1,z2 with
      | D.Aloc(_,l1) , D.Aloc(_,l2) ->
          Hlib.separated (pointer_of_loc l1) (pointer_of_loc l2)
      | _ -> Wp_parameters.not_yet_implemented "separated of regions in Hoare"