/* Borra todas las apariciones de un elemento en una lista simple */

borrar(_,[],[]).

borrar(X,[X],[]).

borrar(X,[X|Cola1],Cola2):-
				borrar(X,Cola1,Cola2).

borrar(X,[Y|Cola1],[Y|Cola2]):- 
				borrar(X,Cola1,Cola2).
