let zs_union : dzone -> dzone -> dzone = F.e_app2 "zs_union"