ispred(X,Y):- name(X,L1),name(Y,L2),manje(L1,L2).

manje([],[_|_]).
manje([X|_],[Y|_]):- X<Y.
manje([G1|R1],[G2,R2]):- G1=G2,manje(R1,R2).

/* Poziva se sa: ispred(Atom1,Atom2). */