ancestor(pat, jan).
ancestor(pat, emma).