Tematica

aplicarcategoria([Primero|[]],[Lista]):- findall(Categoria,categoria(Primero,Categoria),Lista),!.
aplicarcategoria([Primero|Cola],[Lista|List]):-
        aplicarcategoria(Cola,List),
        findall(Categoria,categoria(Primero,Categoria),Lista).

miembrodetodos([Primero|[]],X):- member(X,Primero).
miembrodetodos([Primero|Cola],X):-
        member(X,Primero),
        miembrodetodos(Cola,X).

tematica(Fiesta,Tematica):-
    fiesta(Fiesta,_),
    findall(Disfraz,eligioDisfraz(_,Disfraz,Fiesta),Lista),
    aplicarcategoria(Lista,Categorias),
    miembrodetodos(Categorias,Tematica).