Ok I figured it out. I can just substitute the rule in the query and
replace the whole "Related" rule by the same conditionals in the query:
(defquery find-person-with-name-not-related-to-id
""
(declare (variables ?surn ?id))
(Individual (id ?someone) (surn $? ?surn $?) (givn $? ?givn $?))
(Individual (id ?id))
(not
(or (or (Ancestor (ansc ?someone) (desc ?id)) (Ancestor (ansc
?id) (desc ?someone)))
(and (Ancestor (ansc ?ansc) (desc ?someone)) (Ancestor (ansc
?ansc) (desc ?id))))
)
)
--------------------------------------------------------------------
To unsubscribe, send the words 'unsubscribe jess-users [EMAIL PROTECTED]'
in the BODY of a message to [EMAIL PROTECTED], NOT to the list
(use your own address!) List problems? Notify [EMAIL PROTECTED]
--------------------------------------------------------------------
