(0) Obligation:
Clauses:
list([]).
list(X) :- ','(no(empty(X)), ','(tail(X, T), list(T))).
tail([], []).
tail(.(X, Xs), Xs).
empty(X).
no(X) :- ','(X, ','(!, failure(a))).
no(X1).
failure(b).
Queries:
list(g).
(1) CutEliminatorProof (SOUND transformation)
Eliminated all cuts by simply ignoring them[PROLOG].
(2) Obligation:
Clauses:
list([]).
list(X) :- ','(no(empty(X)), ','(tail(X, T), list(T))).
tail([], []).
tail(.(X, Xs), Xs).
empty(X).
no(X) :- ','(X, failure(a)).
no(X1).
failure(b).
Queries:
list(g).