# Derive ancestors from parent relationships.

fact Parent(alice, bob).
fact Parent(bob, carol).
fact Parent(carol, dave).

rule Parent(?X, ?Y) -> Ancestor(?X, ?Y).
rule Ancestor(?X, ?Y), Parent(?Y, ?Z) -> Ancestor(?X, ?Z).

run.
query Ancestor(?X, ?Y)?