AI (Family Tree)

male(james1).
male(charles1).
male(charles2).
male(james2).
male(jeorge1).

female(catherine).
female(elizabeth).
female(sophia).

parent(charles1, james1).
parent(elizabeth, james1).
parent(charles2, charles1).
parent(catherine, charles1).
parent(james2, charles1).
parent(sophia, elizabeth).
parent(jeorge1, sophia).

father(X,Y):-male(Y), parent(X,Y).
mother(X,Y):-female(Y), parent(X,Y).
son(X,Y):-male(Y), parent(Y,X).
daughter(X,Y):-female(X), parent(Y, X).
sister(X,Y):-female(Y), parent(X,Par),parent(Y,Par), X\=Y.
brother(X,Y):-male(Y), parent(X,Par),parent(Y,Par), X\=Y.