“Протекайте, если элемент в разных списках одинаково” Ответ

Протекайте, если элемент в разных списках одинаково

common_list([X],[X]).
common_list([X|Tail],Y):- member(X,Y).
common_list([X|Tail],Y):- common_list(Tail,Y).