ARBOL A

masculino(erasto).
femenino(Ofelia).
masculino(fernando).
masculino(sergio).
masculino(gabriel).
femenino(laura).

masculino(cipriano).
femenino(marina).
femenino(gloria).
femenino(luisa).
femenino(ceci).
masculino(miguel).

femenino(fernanda).
femenino(edith).
femenino(ofe).

masculino(luciano).
masculino(abraham).
masculino(jesus).
masculino(cristian).
masculino(ivan).
masculino(segio).
femenino(sandra).
masculino(erick).
masculino(ivan).
femenino(monica).
femenino(diana).
femenino(graciela).
femenino(elena).

padre(erasto,fernando).
padre(erasto,sergio).
padre(erasto,gabriel).
padre(erasto,laura).
padre(ofelia,fernando).
padre(ofelia,sergio).
padre(ofelia,gabriel).
padre(ofelia,laura).

padre(cipriano,gloria).
padre(cipriano,luisa).
padre(cipriano,ceci).
padre(cipriano,miguel).
padre(marina,gloria).
padre(marina,luisa).
padre(marina,ceci).
padre(marina,miguel).

padre(fernando,edith).
padre(fernando,fernanda).
padre(fernando,ofe).
padre(gloria,edith).
padre(gloria,fernanda).
padre(gloria,ofe).

padre(luisa,ivan).
padre(luisa,abraham).
padre(luisa,,moni).
padre(luisa,diana).
padre(miguel,miguel).
padre(laura,luciano).
padre(sergio,sandra).
padre(sergio,sergio).
padre(sergio,erick).
padre(gabriel,jesus).
padre(gabriel,cristian).
padre(gabriel,elena).
padre(gabriel,graciela).

abuelo(X,Y):-masculino(X),padre(X,Z),padre(Z,Y).
abuela(X,Y):-femenino(X),padre(X,Z),padre(Z,Y).
nieto(X,Y):-maculino(Y),abuelo(X,Y).
nieta(X,Y):-femenino(Y),abuelo(X,Y).
hijo(X,Y):-masculino(Y),padre(X,Y).
hija(X,Y):-femenino(Y),padre(X,Y).
hermano(X,Y):-masculino(X),padre(Z,Y),padre(Z,X).
hermana(X,Y):-femenino(Y),padre(Z,Y),padre(Z,X).
tio(X,Y):-masculino(X),padre(Z,Y),hermano(X,Z).
tia(X,Y):-femenino(X),padre(Z,Y),hermano(X,Z).
primo(X,Y):-masculino(X),tio(Z,Y),padre(Z,X).
prima(X,Y):-femenino(X),tio(Z,Y),padre(Z,X).
ancestros(X,Y):-padre(X,Y).
ancestros(X,Y):-ancestros(X,Z),padre(Z,Y).

ARBOL B

masculino(pablo).
femenino(ursula).
masculino(juan).
femenino(rosa).
femenino(clara).
femenino(francisca).

masculino(camilo).
femenino(andrea).
masculino(pedro).
femenino(cirila).
femenino(petra).

femenino(eliza).
femenino(angy).
masculino(margarito).
masculino(alex).
femenino(betty).

masculino(javier).

masculino(aurelio)
femenino(lucia).
femenino(cata).

femenina(catalina)
masculino(ramon).
masculino(alejandro).
femenino(eva).

masculino(francisco).
masculino(jesus).
masculino(salvador).
femenino(olivia).

padre(pablo,juan).
padre(pablo,rosa).
padre(pablo,clara).
padre(pablo,francisca).
padre(ursula,juan).
padre(ursula,rosa).
padre(ursula,clara).
padre(ursula,francisca).

padre(camilo,pedro).
padre(camilo,cirila).
padre(camilo,petra).
padre(andrea,pedro).
padre(andrea,cirila).
padre(andrea,petra).

padre(juan,eliza).
padre(juan,angy).
padre(juan,margarito).
padre(juan,alex).
padre(juan,betty).
padre(petra,eliza).
padre(petra,angy).
padre(petra,margarito).
padre(petra,alex).
padre(petra,betty).

padre(rosa,javier).

padre(aurelio,cata).
padre(aurelio,lucia).
padre(clara,cata).
padre(clara,lucia).

padre(pedro,ramon).
padre(pedro,alejandro).
padre(pedro,eva).
padre(catalina,ramon).
padre(catalina,alejandro).
padre(catalina,eva).

padre(francisco,salvador).
padre(francisco,jesus).
padre(francisco,olivia).
padre(cirila,salvador).
padre(cirila,jesus).
padre(cirila,olivia).

EJEMPLOS: