prueba.pl

unir([],L,L).
unir([X|L1],L2,[X|L3]) :- unir(L1,L2,L3).