pripada([],_).
pripada([X|R],[X,M]):-pripada(R,M).

podlista([G|R],[G|Y]):-pripada(R,Y),!.
podlista([G|R],[X|Y]):-podlista([G|R],Y).

/* Poziva se sa: podlista(ManjaLista,VecaLista) */