2d7ccc1278
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1712 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
24 lines
276 B
Plaintext
24 lines
276 B
Plaintext
|
|
:- object(database,
|
|
imports(solver, proof_tree, tracer)).
|
|
|
|
:- public(p/1).
|
|
:- private(q/2, r/1, s/1, t/2).
|
|
:- dynamic(p/1, q/2, r/1, s/1, t/2).
|
|
|
|
p(X) :- q(X, Y), r(Y).
|
|
|
|
q(X, Y) :- s(X), t(X, Y).
|
|
|
|
r(a).
|
|
r(b).
|
|
|
|
s(1).
|
|
s(2).
|
|
s(3).
|
|
|
|
t(1, a).
|
|
t(2, b).
|
|
|
|
:- end_object.
|