diff --git a/src/lib/dif.pl b/src/lib/dif.pl index 20842b27..73d65518 100644 --- a/src/lib/dif.pl +++ b/src/lib/dif.pl @@ -65,7 +65,7 @@ dif(X, Y) :- gather_dif_goals(_, []) --> []. gather_dif_goals(V, [(X \== Y) | Goals]) --> - ( { term_variables(X, [V0 | _]), + ( { term_variables(X-Y, [V0 | _]), V == V0 } -> [dif:dif(X, Y)] ; []