See the unit tests for examples.
?- \+ subsumes_chk(G, S), G subsumes S, subsumes_chk(G, S). G subsumes S.
subsumes_chk(G, apple), subsumes_chk(G, orange)