profmedia([a,b,[[c,a]]],a,L).

profmedia([a,b,a],a,L).

----------------------

casou(h1,m1,10).
casou(h1,m2,20).
casou(h2,m1,12).
separou(h1,m1,12).
morreu(m1,19).
morreu(h1,21).

----------------------

casou(h1,m1,10).
casou(h2,m2,20).
casou(h3,m3,20).
separou(h1,m1,12).
separou(h2,m2,22).
separou(h3,m3,23).
morreu(m1,13).
morreu(h1,24).