Определение предиката
connect([ ], List, List). connect([X|List1], List2, [X|List3]) if connect(List1, List2, List3).