(0) Obligation:

Clauses:

goal :- ','(lte(X, s(s(s(s(0))))), even(X)).
lte(0, Y).
lte(X, s(Y)) :- ','(no(zero(X)), ','(p(X, P), lte(P, Y))).
even(0).
even(s(s(X))) :- even(X).
p(0, 0).
p(s(X), X).
zero(0).
no(X) :- ','(X, ','(!, failure(a))).
no(X1).
failure(b).

Queries:

goal().

(1) CutEliminatorProof (SOUND transformation)

Eliminated all cuts by simply ignoring them[PROLOG].

(2) Obligation:

Clauses:

goal :- ','(lte(X, s(s(s(s(0))))), even(X)).
lte(0, Y).
lte(X, s(Y)) :- ','(no(zero(X)), ','(p(X, P), lte(P, Y))).
even(0).
even(s(s(X))) :- even(X).
p(0, 0).
p(s(X), X).
zero(0).
no(X) :- ','(X, failure(a)).
no(X1).
failure(b).

Queries:

goal().