在PROLOG中需要一些帮助 - ＆gt;错误：toplevel：未定义的过程：intersect / 3（DWIM无法纠正目标）

Question

为什么会出现此错误？我无法解决它......

错误：toplevel：未定义的程序：intersect / 3（DWIM无法纠正目标）

我的代码如下： 我尝试运行prg：intersect（[1,2,3]，[2,3,4]，X）。

contains(E,[E|_]).
contains(E,[_|T]):-contains(E,T).

intersect([],_,[]).
intersect([H,T1],T2,[H|T3]):-
      contains(H,T2),
      intersect(T1,T2,T3).
intersect([H,T1],T2,T3):-
    not(contains(H,T2)),
    intersect(T1,T2,T3).