Prolog - Necesito ayuda en un programa de prolog.

% Predicado para obtener la cabeza de una lista no vacía.
obtener_cabeza([Cabeza | _], Cabeza).

% Predicado para combinar sublistas de manera alternada.
combinar_sublistas([], []).
combinar_sublistas([Sublista | Resto], [Cabeza | RestoResultado]) :-
obtener_cabeza(Sublista, Cabeza),
combinar_sublistas(Resto, RestoResultado).

% Predicado principal para combinar sublistas de manera alternada.
combinar_listas(ListaOriginal, Resultado) :-
combinar_sublistas(ListaOriginal, Resultado).

Tengo este codigo, y cuando hago la siguiente consulta, ?- combinar_listas([[a,b,c],[d,e],[f,g,h,i]], Resultado).
me da como resultado: Resultado = [a, d, f]. en vez de seguir con el resto de los elementos de las sublistas y deberia darme el siguiente resultado, Resultado = [a, d, f, b, e, g, c, h, i].
Como puedo hacer para que me de el resultado esperado? Desde ya muchas gracias.