czesc_wsp([], X, []).
czesc_wsp([X |R], Y, [X|Z]) :- member(X, Y), !, czesc_wsp(R, Y, Z).
czesc_wsp([X|R], Y, Z) :- czesc_wsp(R, Y, Z).

czesc_wsp([1, 2, 8], [2, 5, 6, 8], C).