Programa Exemplo
progenitor(sara,isaque).
filho(Y,X) :- progenitor(X,Y).
progenitor(abraão,isaque).
progenitor(abraão,ismael).
progenitor(isaque,esaú).
progenitor(isaque,jacó).
progenitor(jacó,josé).
mae(X,Y) :- progenitor(X,Y),
mulher(X).
avo(X,Z) :- progenitor(X,Y),
progenitor(Y,Z).
mulher(sara).
irmao(X,Y) :- progenitor(Z,X),
progenitor(Z,Y).
homem(abraão).
homem(isaque).
homem(ismael).
homem(esaú).
homem(jacó).
homem(josé).
ancestral(X,Z) :- progenitor(X,Z).
ancestral(X,Z) :- progenitor(X,Y),
ancestral(Y,Z).