このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/db/1316769778/221
#  DBMSはMysqlの5.0.87です。 
#   
#  +------+------------+---------+----------+ 
#  | id   | product_id | assy_id | parts_id | 
#  +------+------------+---------+----------+ 
#  |    1 |          1 |      12 |        1 | 
#  |    2 |          1 |      12 |        2 | 
#  |    3 |          1 |      12 |        3 | 
#  |    4 |          1 |      12 |        3 | 
#  |    5 |          1 |      12 |        5 | 
#  +------+------------+---------+----------+ 
#   
#  上記のテーブルで、product_id、assy_id、parts_idが同じレコードが2行以上有るものを抽出したいのです。 
#  上記の例だとidが3と4のレコードになります。 
#   
# 
# 

'上記のテーブルで、product_id、assy_id、parts_idが同じレコードが2行以上有るものを抽出する'(_id) :-
        findsetof([_product_id,_assy_id,_parts_id],(
                    テーブル(_id,_product_id,_assy_id,_parts_id)),
                LL),
        append(_,[[_product_id,_assy_id,_parts_id]|_],LL),
        count(テーブル(_,_product_id,_assy_id,_parts_id),Count),
        Count >= 2.