(0) Obligation:

Clauses:

thief(john).
thief(X) :- ','(thief(X), !).

Queries:

thief(g).