( ground(Dom), Dom = L..U, integer(L), integer(U) ->
expansion_simpler(
( integer(Var) ->
- between(L, U, Var)
+ between:between(L, U, Var)
; clpz:clpz_in(Var, Dom)
), In)
; In = clpz:clpz_in(Var, Dom)
( maplist(call, Gs) -> Value is Expr, Goal = (Var =:= Value)
; Goal = false
).
-expansion_simpler(between(L,U,V), Goal) :- maplist(integer, [L,U,V]), !,
+expansion_simpler(between:between(L,U,V), Goal) :-
+ maplist(integer, [L,U,V]),
+ !,
( between(L,U,V) -> Goal = true
; Goal = false
).