subsumes_term/2 (from ISO and UD #173).

2010-08-04 21:46:10 +01:00
parent 8592db72d7
commit cf3cb21fd7
2 changed files with 14 additions and 0 deletions
--- a/pl/utils.yap
+++ b/pl/utils.yap
@@ -643,3 +643,7 @@ nb_current(GlobalVariable, Val) :-
 	).


+subsumes_term(A,B) :-
+	\+ \+ terms:subsumes(A,B).
+
+