let xzone_disj z1 z2 = (* TODO: SMP *)
      L.disj (term_of_xzone z1) (term_of_xzone z2)