%% Ejemplo de familia.
%% ?- padre_de(adan, ana).
%% ?- hermanos(carlos,carla).
%% etc.

padre_de(Padre,Hijo) :-
        padre(Padre),
        persona(Hijo).
madre_de(Madre,Hijo) :-
        madre(Madre),
	persona(Hijo).
hermanos(X,Y) :-
	padre_de(Z,X),
	padre_de(Z,Y).
hermanos(X,Y) :-
	madre_de(Z,X),
	madre_de(Z,Y).
abuelo_de(A,C) :-
	padre_de(A,B),
	padre_de(B,C).

padre(adan).
padre(juan).
madre(eva).
padre(carlos).

persona(juana).
persona(carla).
persona(maria).
persona(ana).
persona(carlos).
