Wuthering heights database

/*
Sigrid Preuss: Database for Wuthering Heights (November 1997)
*/

parent(earnshaw,hindley).
parent(earnshaw,catherine).
parent(earnshaw,heathcliff).
parent(linton,edgar).
parent(linton,isabell).
parent(hindley,hareton).
parent(francies,hareton).
parent(edgar,cathy).
parent(catherine,cathy).
parent(heathcliff,linton_junior).
parent(isabell,linton_junior).

female(catherine).
female(isabell).
female(cathy).

male(earnshaw).
male(hindley).
male(heathcliff).
male(linton).
male(edgar).
male(hareton).
male(linton_junior).

wife(catherine,edgar).
wife(isabell,heathcliff).
wife(cathy,linton_junior).
wife(cathy,hareton).

husband(X,Y):-wife(Y,X).

daughter(X,Y):-parent(Y,X),female(X).
son(X,Y):-parent(Y,X),male(X).

father(X,Y):-parent(X,Y),male(X).
mother(X,Y):-parent(X,Y),female(X).

death(earnshaw,first).
death(linton,second).
death(francies,third).
death(catherine,fourth).
death(edgar,fifth).
death(hindley,sixth).
death(isabell,seventh).
death(linton_junior,eighth).
death(heathcliff,ninth).

home(wuthering_heights,earnshaw).
home(wuthering_heights,hindley).
home(wuthering_heights,catherine).
home(wuthering_heights,heathcliff).
home(wuthering_heights,francies).
home(wuthering_heights,hareton).
home(thrushcross_grange,linton).
home(wuthering_heights,edgar).
home(wuthering_heights,isabell).
home(wuthering_heights,catherine).