%% cut([[1,2],[2,3]],[[1,2]],Relationships) %% Output = [] cut2(Rels, [], Rels). cut2(Rels1, RelsToCut,Rels3) :- RelsToCut = [Item | Items], delete(Rels1,Item,Rels4), cut2(Rels4,Items,Rels3).