diff --git a/src/lib/clpz.pl b/src/lib/clpz.pl index 4fa4b846..a4f66256 100644 --- a/src/lib/clpz.pl +++ b/src/lib/clpz.pl @@ -99,7 +99,11 @@ fd_inf/2, fd_sup/2, fd_size/2, - fd_dom/2 + fd_dom/2, + + % for use in predicates from library(reif) + (#=)/3, + (#<)/3 % called from goal_expansion % clpz_equal/2, @@ -7740,6 +7744,21 @@ plusterm_(CV, T0, T0+T) :- coeff_var_term(CV, T). coeff_var_term(C-V, T) :- ( C =:= 1 -> T = ?(V) ; T = C * ?(V) ). +/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + Reified predicates for use with predicates from library(reif). +- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */ + +#=(X, Y, T) :- + X #= Y #<==> B, + zo_t(B, T). + +#<(X, Y, T) :- + X #< Y #<==> B, + zo_t(B, T). + +zo_t(0, false). +zo_t(1, true). + /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Generated predicates - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */