Erkennen, ob ein Prädikat beweisen Unified etwas

Question

Ich habe ein Prädikat, das seine Argumente vereinen kann, zum Beispiel:

foo(X) :- X = 42.

Wie kann ich feststellen, ob, während foo(X) beweist, Vereinigung X verändert? Zum Beispiel würde ich gerne wissen, ob writeln(X), foo(X), writeln(X) den gleichen Wert für X zweimal drucken würde, ohne tatsächlich zu drucken.

Meine eigentliche Implementierung von foo/1 ist eigentlich viel komplexer, also bitte nicht spezifisch für die vereinfachte Version oben vorschlagen. In meinem Programm foo(X) vereinfacht X mit Unification, aber foo(X) muss möglicherweise mehrmals bewiesen werden, bis alle Vereinfachungen durchgeführt worden sind. Ich möchte in der Lage sein, ein foohelper(X) Prädikat zu schreiben, das foo(X) aufruft, bis X stoppt, vereinheitlicht zu werden.

Answer 1

Vielleicht können Sie den Standard term_variables/2 Prädikat verwenden? Sie können es vor und nach dem Aufruf des Ziels mit Ihrem Ziel aufrufen und prüfen, ob die zurückgegebenen Variablenlisten unterschiedlich sind. Etwas wie:

..., 
term_variables(foo(X), Vars0), 
foo(X), 
term_variables(foo(X), Vars), 
( Vars0 == Vars -> 
    write(simplified) 
; write(not_simplified) 
), 
... 

Answer 2

Angenommen, wir nur syntaktische Vereinigung haben - das heißt, keine Einschränkungen:

:- meta_predicate(call_instantiated(0,?)). 

call_instantiated(Goal_0, Instantiated) :- 
    copy_term(Goal_0, Copy_0), 
    Goal_0, 
    ( subsumes_term(Goal_0, Copy_0) -> % succeeds iff equal u.t.r. 
     Instantiated = false 
    ; Instantiated = true 
    ). 

Beachten Sie, dass Goal_0 wird oder nicht weiter instanziert werden. Obiges subsumes_term/2 testet, ob Goal_0 jetzt "allgemeiner" ist als Copy_0. Natürlich kann es nicht allgemeiner sein, so effektiv, dass der Test testet, ob die Begriffe bis zur Umbenennung von Variablen identisch sind oder nicht.

Im Vergleich zur Verwendung von term_variables/2, wie @PauloMoura angezeigt hat, könnte dies möglicherweise nicht effizienter sein. Es hängt in erster Linie von der Effizienz von subsumes_term/2 ab.