% === Descrição do elemento comum para g, p e gp.
descrição_gp(S) :-
sn(S,SN),na(S,NA),n(S,N),g(S,G),p(S,P),eb(S,EB),es(S,ES),tr(S,TR),cat(S,CAT),
sigla(eb,EB,DescriçãoEstabilidade),
sigla(es,ES,DescriçãoEstado),
sigla(tr,TR,DescriçãoTransição),
sigla(ct,CAT,DescriçãoCategoria),
format("~s \t~s \t~d\t~d\t~d\t~s \t~s \t~s \t~s~n",[SN,N,NA,G,P,DescriçãoEstado,DescriçãoEstabilidade,DescriçãoTransição,DescriçãoCategoria]).