
concatenar([],L,L).

concatenar([X|L1],L2,[X|L3]):- concatenar(L1,L2,L3).


sublista(S,L):-
        concatenar(_,L2,L),
        concatenar(S,_,L2).


pertenece(X,L):-
	sublista([X],L).
