:- module(arpadhaz,[el/2]).

/* Egy modul definiálásakor fel kell sorolni az átadandó predikátumokat. 
   Ezeket majd közvetlenül is el lehet érni, a többit csak a modul nevének megadásával.
*/

el(INNEN,IDE):- szuloje(INNEN,IDE).


/*Itt adtuk meg, hogy mit értünk a gráf élén.*/


/*A továbbiak pedig az adatok. Természetesen a 
"szuloje" predikátumnév helyett lehetett volna "el"-et is
írni, ekkor nem kellene az előző szabály, de talán így 
olvashatóbb.

(Adatok forrása: Kilián Imre)
*/


szuloje('álmos', 'árpád').
szuloje('árpád', zolta).
szuloje('árpád', tarhos).
szuloje('árpád', 'üllő').
szuloje('árpád', jutas).
szuloje(tarhos,tevel).
szuloje('tormás',tar).
szuloje(tar,'koppány').
szuloje('üllő','ézelő').
szuloje(jutas,fajsz).
szuloje(zolta,taksony).
szuloje(taksony, 'géza').
szuloje('géza',szent-'istván').
szuloje(szent-'istván',szent-imre).
szuloje(taksony,'mihály').
szuloje('mihály',vazul).
szuloje('mihály','szár'-'lászló').

szuloje(vazul,levente).
szuloje(vazul,1-'andrás').
szuloje(vazul,1-'béla').
szuloje(1-'andrás',adelhaid).
szuloje(1-'andrás',salamon).
szuloje(1-'andrás','dávid').
szuloje(1-'béla',1-'géza').
szuloje(1-'béla',szent-'lászló').
szuloje(1-'béla',lampert).
szuloje(1-'béla','zsófia').
szuloje(1-'béla','eufémia').
szuloje(1-'béla',ilona).

szuloje(1-'géza','könyves'-'kálmán').
szuloje(1-'géza','gézafi'-'álmos').

szuloje(szent-'lászló',piroska).

szuloje('könyves'-'kálmán','zsófia').
szuloje('könyves'-'kálmán',2-'istván').
szuloje('könyves'-'kálmán','kálmánfi'-'lászló').
szuloje('könyves'-'kálmán',borisz).

szuloje('gézafi'-'álmos',adelhaid).
szuloje('gézafi'-'álmos',hedvig).
szuloje('gézafi'-'álmos',vak-'béla').

szuloje(vak-'béla',2-'géza').
szuloje(vak-'béla',2-'lászló').
szuloje(vak-'béla',4-'istván').
szuloje(vak-'béla','bélafi'-'zsófia').
szuloje(vak-'béla','bélafi'-'álmos').
szuloje(vak-'béla','gertrúd').


szuloje(2-'géza',3-'istván').
szuloje(2-'géza','gézafi'-'géza').
szuloje(2-'géza',3-'béla').
szuloje(2-'géza','gézafi'-'árpád').
szuloje(2-'géza',szent-'erzsébet').
szuloje(2-'géza',odola).

szuloje(3-'béla','bélafi'-imre).
szuloje(3-'béla',2-'andrás').
szuloje(3-'béla','bélafi'-salamon).
szuloje(3-'béla','bélafi'-'istván').
szuloje(3-'béla','bélafi'-margit).
szuloje(3-'béla',konstancia).

szuloje('bélafi'-imre,3-'lászló').

szuloje(2-'andrás','andrásfi'-'mária').
szuloje(2-'andrás',4-'béla').
szuloje(2-'andrás','andrásfi'-'erzsébet').
szuloje(2-'andrás','andrásfi'-'kálmán').
szuloje(2-'andrás','andrásfi'-'andrás').
szuloje(2-'andrás','andrásfi'-'istván').
szuloje(2-'andrás','jolánta').

szuloje(4-'béla',kinga).
szuloje(4-'béla',anna).
szuloje(4-'béla','bélafi'-'erzsébet').
szuloje(4-'béla',konstancia).
szuloje(4-'béla','jolán').
szuloje(4-'béla',5-'istván').
szuloje(4-'béla',szent-margit).

szuloje(5-'istván','istvánfi'-'erzsébet').
szuloje(5-'istván',katalin).
szuloje(5-'istván','istvánfi'-'mária').
szuloje(5-'istván',4-'lászló').
szuloje(5-'istván','istvánfi'-'andrás').

szuloje('andrásfi'-'istván',3-'andrás').

szuloje(3-'andrás',3-'andrásfi'-'erzsébet').
