% === 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]).