Помогите написать программу для вычисления декартова произведения множеств - Prolog

Формулировка задачи:

Помогите написать программу для вычисления декартова произведения множеств

Решение задачи: «Помогите написать программу для вычисления декартова произведения множеств»

Листинг программы

добавить(il,integer,il).
добавить([Г|Хвост],Эл,[Г|Результат]):- добавить(Хвост,Эл,Результат).
добавить([],Эл,[Эл]).
добавить([1,2,3,4],5,Список).
 
Результаты без отсечения
?- добавить([1,2,3,4],5,Список).
Список = [1, 2, 3, 4, 5].

Объяснение кода листинга программы

В представленном коде реализована процедура добавить для операции над множествами в языке программирования Prolog. Она добавляет элемент к множеству, а если элемент уже присутствует в множестве, то увеличивает его счетчик. Список без отсечения, полученный в результате выполнения запроса, будет следующим: [1, 2, 3, 4, 5]. Пояснение к коду:

Добавление элемента к пустому множеству:
- добавить(il, integer, il)
- il - пустое множество (не содержит элементов), integer - добавляемый элемент.
- Результат: il - пустое множество.
Добавление элемента к непустому множеству:
- добавить([Г|Хвост], Эл, [Г|Результат])
- Г - первый элемент множества, Хвост - остальные элементы множества, Эл - добавляемый элемент,
- Результат - объединение множества Хвост и добавленного элемента Эл.
Добавление элемента к полному множеству:
- добавить([], Эл, [Эл])
- Эл - добавляемый элемент, [Эл] - множество, состоящее только из Эл.
- Результат - множество, состоящее только из Эл. Пример использования: ?- добавить([1,2,3,4],5, Список). Список = [1, 2, 3, 4, 5].