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"