:- module(osadat,[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(A,B) :- apja(A,B).
   
apja(a,b).
apja(a,c).
apja(b,d).
apja(b,e).
apja(e,f).
  