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