(0) Obligation:

Clauses:

add(X, 0, X).
add(X, Y, s(Z)) :- ','(no(zero(Y)), ','(p(Y, P), add(X, P, Z))).
p(0, 0).
p(s(X), X).
zero(0).
no(X) :- ','(X, ','(!, failure(a))).
no(X).
failure(b).

Queries:

add(a,g,a).

(1) CutEliminatorProof (SOUND transformation)

Eliminated all cuts by simply ignoring them[PROLOG].

(2) Obligation:

Clauses:

add(X, 0, X).
add(X, Y, s(Z)) :- ','(no(zero(Y)), ','(p(Y, P), add(X, P, Z))).
p(0, 0).
p(s(X), X).
zero(0).
no(X) :- ','(X, failure(a)).
no(X).
failure(b).

Queries:

add(a,g,a).