このディレクトリの索引
#  
#  二つの集合が等しいかどうかの判定は、
#  


二つの集合が等しい([],[]).
二つの集合が等しい([A|R1],L2) :-
        select(A,L2,R2),
        二つの集合が等しい(R1,R2).