let separated z1 z2 =
      match z1,z2 with
        | D.Aloc(_,l1) , D.Aloc(_,l2) -> disj l1 l2
        | _ -> Wp_parameters.not_yet_implemented "separation of zones with range"