add missing fact to beginning of tmember_t/3 (#1275)

2022-02-11 17:25:01 -07:00
parent 42da543980
commit 60dd47c696
1 changed files with 1 additions and 0 deletions
--- a/src/lib/reif.pl
+++ b/src/lib/reif.pl
@@ -79,5 +79,6 @@ tmember(P_2, [X|Xs]) :-

 :- meta_predicate(tmember_t(2, ?, ?)).

+tmember_t(_P_2, [], false).
 tmember_t(P_2, [X|Xs], T) :-
   if_( call(P_2, X), T = true, tmember_t(P_2, Xs, T) ).