pertenece(X,[X|_]).

pertenece(X,[_|Cola]):- pertenece(X,Cola).


/*
 * Si X no está en la lista L entonces se coloca en el primer lugar
 *
 */ 

incluir(X,L,L):-pertenece(X,L),!.

incluir(X,L,[X|L]).
