diff --git a/src/lib/clpz.pl b/src/lib/clpz.pl index c0c30681..d699cad1 100644 --- a/src/lib/clpz.pl +++ b/src/lib/clpz.pl @@ -5384,6 +5384,7 @@ run_propagator(pmax(X,Y,Z), MState) --> ; Z > X -> queue_goal(Z = Y) ; { false } % Z < X ) + ; Y == Z -> kill(MState), queue_goal(Y #>= X) ; { fd_get(Y, _, YInf, YSup, _) }, ( { YInf cis_gt n(X) } -> queue_goal(Z = Y) ; { YSup cis_lt n(X) } -> queue_goal(Z = X) @@ -5419,6 +5420,7 @@ run_propagator(pmin(X,Y,Z), MState) --> ; Z < X -> Z = Y ; { false } % Z > X ) + ; Y == Z -> kill(MState), queue_goal(Y #=< X) ; { fd_get(Y, _, YInf, YSup, _) }, ( { YSup cis_lt n(X) } -> Z = Y ; { YInf cis_gt n(X) } -> Z = X