Prolog - Lista prolog

Necesito crear una lista en prolog, que devuelva true si sus elementos son iguales:

todos_iguales([a,a,a]).
true

Ayuda por favor
Y gracias :)

iguales( [ ] ) :- ! , true. %caso base
iguales( [ _ ] ) :- ! , true. %caso base
iguales( [ X , X | Lista ] ) :- iguales( [ X | Lista ] ). % Llamada recursiva