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"