Write a prolog program to find the smallest element in a list. Don't use exist function below

min([Head | []], Head). min([Head | Tail], TailMin) :- min(Tail, TailMin), TailMin =< Head. min([Head | Tail], Head) :- min(Tail, TailMin), TailMin > Head.