Correct arithmetic inequalities accidentally broken in f5d9a67f36.

Example: ?- X #>= Y. %@ clpz:(X#>=Y).
2024-01-07 09:31:33 +01:00
parent 92b85d4ba6
commit 2f783f0aef
1 changed files with 1 additions and 1 deletions
--- a/src/lib/clpz.pl
+++ b/src/lib/clpz.pl
@@ -2759,7 +2759,7 @@ geq(A, B) -->
            (   { fd_get(B, BD, _) } ->
                { domain_supremum(BD, BS) },
                (   { AI cis_geq BS } -> true
-                ;   propagator_init_trigger(pgeq(A,B))
+                ;   { propagator_init_trigger(pgeq(A,B)) }
                )
            ;   (   { AI cis_geq n(B) } -> true
                ;   { domain_remove_smaller_than(AD, B, AD1) },