Prolog II

kobieta(agnieszka).
kobieta(genowefa).
kobieta(janina).
kobieta(bozena).
kobieta(czarkamarka).


mezczyzna(augustyn).
mezczyzna(michal).
mezczyzna(bartosz).
mezczyzna(wojciech).
mezczyzna(kacper).
mezczyzna(grzegorz).
mezczyzna(czarekmarek).

rodzic(agnieszka, bartosz).
rodzic(michal, bartosz).
rodzic(augustyn, michal).
rodzic(genowefa, michal).
rodzic(janina, agnieszka).
rodzic(wojciech, agnieszka).
rodzic(janina, bozena).
rodzic(wojciech, bozena).
rodzic(bozena, kacper).
rodzic(gregorz, kacper).
rodzic(michal, czrekmarek).
rodzic(agnieszka, czarekmarek).
rodzic(michal, czarkamarka).
rodzic(agnieszka, czarkamarka).

potomek(X,Y) :- rodzic(X,Y).
ojciec(X,Y) :- mezczyzna(X), rodzic(X,Y).
matka(X,Y) :- kobieta(X), rodzic(X,Y).
dziadek(X,Y) :- mezczyzna(X), rodzic(Z,Y), rodzic(Y,Z).
babcia(X,Y) :- kobieta(X), rodzic(Z,Y), rodzic(Y,Z).
brat(X,Y) :- mezczyzna(X), rodzic(Z,X), rodzic(Z,Y), X \= Y.
siostra(X,Y) :- kobieta(X), rodzic(Z,X), rodzic(Z,Y), X \= Y.