06.07. deletesublist/3

Schreibe ein Prädikat deletesublist/3, das drei Listen als Argumente nimmt und gelingt, wenn die dritte Liste das Resultat ist,das man erhält, wenn man alle Vorkommen von Elementen der ersten Liste aus der zweiten Liste löscht.

?-delete_sublist([a,b],[b,a,c,a,b,d],[c,d]).
true.
?-delete_sublist([],[c,d],[c,d]).
true.
?-delete_sublist([a,b],[],[]).
true.
?-delete_sublist([a,b,c],[a,b,c,d],X).
X=[d].