Revert "FIXED: corrections to expansion_simpler/2"

This reverts commit f3b848537a.

The root cause of this problem is a mistake in ground/1. See #2073.
This commit is contained in:
Markus Triska
2023-10-03 19:15:17 +02:00
parent 3ffea2d987
commit 7c10683e46

View File

@@ -3099,13 +3099,13 @@ expansion_simpler(Var is Expr0, Goal) :-
ground(Expr0), !,
phrase(expr_conds(Expr0, Expr), Gs),
( maplist(call, Gs) -> Value is Expr, Goal = (Var = Value)
; Goal = (Var is Expr0)
; Goal = false
).
expansion_simpler(Var =:= Expr0, Goal) :-
ground(Expr0), !,
phrase(expr_conds(Expr0, Expr), Gs),
( maplist(call, Gs) -> Value is Expr, Goal = (Var =:= Value)
; Goal = (Var =:= Expr0)
; Goal = false
).
expansion_simpler(between:between(L,U,V), Goal) :-
maplist(integer, [L,U,V]),