Поиск младшего сына и индексы заданого элемента в списке - Prolog

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

Здравствуйте, Уважаемые! Собственно вопрос. На диалекте SWI Prolog yеобходимо сделать два задания: 1) найти младшего сына исходя из таких данных

father(bob, mary).
father(bob, jane).
man(bob).
man(jim).
age(bob,70).
age(jon, 20).
age(jim, 30).

С тем как найти просто сына вопросов не возникает

son(X,Y):-(father(Y,X);mother(Y,X)),man(X).

Но как определить что он младший? Идеи с поискам минимума между двумя сыновьями не работает как только оказывается что сын один. 2) Написать предикат IndicesOf для нахождения списка индексов всех вхождений елемента в список. Тут пыталась преобразовать вот такой код, но моих знаний явно не хватает:

find_pos([],_,0):-!.
find_pos([H|T],X,K):- X<>H,K1=K+1,find_pos(T,X,K1).
find_pos(_,_,K):-write(K),nl,!.

Уже несколько дней мучаюсь, и обыскала все и вся. Помогите пожалуйста в решении этих задач. 3 подобных уже сделала, а эти две ну никак не получаются.

Решение задачи: «Поиск младшего сына и индексы заданого элемента в списке»

textual
                            Листинг программы 
                        
                            all_sons(jim, L), select_yungest(L, X).