(0) Obligation:
Clauses:
less(0, s(X2)).
less(X, Y) :- ','(no(zero(X)), ','(p(X, X1), ','(p(Y, Y1), less(X1, Y1)))).
p(0, 0).
p(s(X), X).
zero(0).
no(X) :- ','(X, ','(!, failure(a))).
no(X3).
failure(b).
Queries:
less(g,a).
(1) CutEliminatorProof (SOUND transformation)
Eliminated all cuts by simply ignoring them[PROLOG].
(2) Obligation:
Clauses:
less(0, s(X2)).
less(X, Y) :- ','(no(zero(X)), ','(p(X, X1), ','(p(Y, Y1), less(X1, Y1)))).
p(0, 0).
p(s(X), X).
zero(0).
no(X) :- ','(X, failure(a)).
no(X3).
failure(b).
Queries:
less(g,a).