arbol genealogico.pl~

%hombres
hombre(pedro).
hombre(manuel).
hombre(arturo).

%mujer
mujer(maria).
mujer(lucia).
mujer(camila).

%padre e hij@
padre(pedro,manuel).
padre(pedro,arturo).
padre(pedro,maria).

%madre e hij@
madre(maria,lucia).
madre(maria,camila).

%niño o niña
niño(X,Y):-
    hijo(X,Y).
niño(X,Y):-
    hija(X,Y).

%hijo
hijo(X,Y):-
    (padre(Y,X);madre(Y,X)),
    hombre(X).

%hija
hija(X,Y):-
    padre(Y,X),
    mujer(X).

%hermanos
hermano-o-hermana(X,Y):-
    hermano(X,Y).
hermano-o-hermana(X,Y):-
    hermana(X,Y).

%X es hermano de Y
hermano(X,Y):-
    hijo(X,Z),
    niño(Y,Z),
    X\==Y.

%X es hermana de Y
hermana(X,Y):-
    hija(X,Z),
    niño(Y,Z),
    X\==Y.