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