masc(X) :- pere(X, Y).
fem(X) :- mere(X, Y).

pers(X) :- fem(X).
pers(X) :- masc(X).


ancetre(X, X).
ancetre(A, D) :- pere(A, G), ancetre(G, D).
ancetre(A, D) :- mere(A, G), ancetre(G, D).