doenca(estagioavancadocancer).
doenca(faseavancadacarie).
doenca(faseavancadatartaro).
doenca(fasedabolha).
doenca(fasedacicatrizacao).
doenca(fasedaferidacrosta).
doenca(fasedaulceracao).
doenca(faseinicialafta).
doenca(faseinicialcarie).
doenca(faseinicialcancer).
doenca(faseinicialplaca).
doenca(faseinicialtartaro).
doenca(faseintermediariaafta).
doenca(gengivite).
doenca(halitoseintermediaria).
doenca(halitosemoderada).
doenca(halitosesevera).
doenca(periodontite).
doenca(prurido).

sintoma(tumormaiorque4).
sintoma(tumoresparramadolinfonodo).
sintoma(buraconodente).
sintoma(dormoderada).
sintoma(placavisivel).
sintoma(calcificacaodaplaca).
sintoma(grupobolhaslabios).
sintoma(formacaocrosta).
sintoma(feridacrostacastanha).
sintoma(rebentamentobolha).
sintoma(formigamento).
sintoma(inflamacao).
sintoma(dorleve).
sintoma(manchadente).
sintoma(tumormenorque4).
sintoma(sangramentegengiva).
sintoma(inchacogengiva).
sintoma(placavisivel).
sintoma(vermelhidao).
sintoma(ferida).
sintoma(alteracaodorgengiva).
sintoma(malhalitoconstante).
sintoma(malhalitoesporadico).
sintoma(malhalitoforte).
sintoma(desconfortogengiva).
sintoma(mudancaoformagengiva).
sintoma(alteracaocorgengiva).
sintoma(possivelperdadente).
sintoma(ardencialabial).
sintoma(pruridolabiosnariz).

tratamento(cirurgia).
tratamento(radioterapia).
tratamento(quimioterapia).
tratamento(obturacao).
tratamento(tratarcompomada).
tratamento(remedioscaseiros).
tratamento(curanatural).
tratamento(escovacao).
tratamento(fluor).
tratamento(remocaodaplaca).
tratamento(antibiotico).
tratamento(raspagem).
tratamento(usarfiodental).
tratamento(limpezabucal).
tratamento(remocaosaburra).
tratamento(verificaragenteexterno).
tratamento(remocaotoxina).


prevencao(naoestarsobfortestress).
prevencao(escovarosdentes).
prevencao(naoingerirdoces).
prevencao(usarfiodental).
prevencao(visitardentistaregularmente).
prevencao(naofumar).
prevencao(naomascartabaco).
prevencao(evitarexposicaoexcessivaaosol).
prevencao(ingerirpoucoalcool).
prevencao(limpezacorretadalingua).
prevencao(evitarcontatolabialcomalguemquepossua).
prevencao(nenhum).


doenca_relacionada_sintoma(estagioavancadocancer,tumormaiorque4).
doenca_relacionada_sintoma(estagioavancadocancer,tumoresparramadolinfonodo).

%faseavancadacarie
doenca_relacionada_sintoma(faseavancadacarie,buraconodente).
doenca_relacionada_sintoma(faseavancadacarie,dormoderada).

%faseavancadatartaro
doenca_relacionada_sintoma(faseavancadatartaro	,placavisivel).
doenca_relacionada_sintoma(faseavancadatartaro	,calcificacaodaplaca).
doenca_relacionada_sintoma(faseavancadatartaro	,dormoderada).

%fasedabolha
doenca_relacionada_sintoma(fasedabolha,grupobolhaslabios).

%fasedacicatrizacao
doenca_relacionada_sintoma(fasedacicatrizacao,formacaocrosta).

%fasedaferidacrosta
doenca_relacionada_sintoma(fasedaferidacrosta,rebentamentobolha).

%fasedaulceracao
doenca_relacionada_sintoma(miopia,corneaachatada).

%faseinicialafta
doenca_relacionada_sintoma(faseinicialafta,formigamento).
doenca_relacionada_sintoma(faseinicialafta,inflamacao).

%faseinicialcarie
doenca_relacionada_sintoma(faseinicialcarie,dorleve).
doenca_relacionada_sintoma(faseinicialcarie,manchadente).

%faseinicialcancer
doenca_relacionada_sintoma(faseinicialcancer,tumormenorque4).

%faseinicialplaca
doenca_relacionada_sintoma(faseinicialplaca,sangramentegengiva).
doenca_relacionada_sintoma(faseinicialplaca,inchaco).
doenca_relacionada_sintoma(faseinicialplaca,inchacogengiva).

%faseinicialtartaro
doenca_relacionada_sintoma(faseinicialtartaro,placavisivel).

%faseintermediariaafta
doenca_relacionada_sintoma(gengivite,vermelhidao).
doenca_relacionada_sintoma(gengivite,ferida).

%gengivite
doenca_relacionada_sintoma(gengivite,sangramentegengiva).
doenca_relacionada_sintoma(gengivite,inchacogengiva).
doenca_relacionada_sintoma(gengivite,alteracaocorgengiva).,

%halitoseintermediaria
doenca_relacionada_sintoma(halitoseintermediaria,malhalitoconstante).

%halitosemoderada
doenca_relacionada_sintoma(halitosemoderada,malhalitoesporadico).

%halitosesevera
doenca_relacionada_sintoma(halitosesevera,malhalitoforte).

%periodontite
doenca_relacionada_sintoma(periodontite,sangramentegengiva).
doenca_relacionada_sintoma(periodontite,desconfortogengiva).
doenca_relacionada_sintoma(periodontite,mudancaoformagengiva).
doenca_relacionada_sintoma(periodontite,alteracaocorgengiva).
doenca_relacionada_sintoma(periodontite,possivelperdadente).

%gengivite
doenca_relacionada_sintoma(prurido,ardencialabial).
doenca_relacionada_sintoma(prurido,pruridolabiosnariz).


%relações doenças-tratamento

%astigmatismo
doenca_relacionada_tratamento(estagioavancadocancer,cirurgia).
doenca_relacionada_tratamento(estagioavancadocancer,radioterapia).
doenca_relacionada_tratamento(estagioavancadocancer,quimioterapia).

%catarata
doenca_relacionada_tratamento(faseavancadacarie,obturacao).

%estrabismo
doenca_relacionada_tratamento(faseavancadatartaro,obturacao).
doenca_relacionada_tratamento(fasedabolha,tratarcompomada).
doenca_relacionada_tratamento(fasedacicatrizacao,tratarcompomada).

%conjutivite
doenca_relacionada_tratamento(fasedaferidacrosta,tratarcompomada).
doenca_relacionada_tratamento(fasedaulceracao,tratarcompomada).
doenca_relacionada_tratamento(faseinicialafta,remedioscaseiros).

%glaucoma
doenca_relacionada_tratamento(faseinicialafta,curanatural).
doenca_relacionada_tratamento(faseinicialcarie,escovacao).
doenca_relacionada_tratamento(faseinicialcarie,fluor).

%hipermetropia
doenca_relacionada_tratamento(faseinicialcancer,cirurgia).
doenca_relacionada_tratamento(faseinicialcancer,radioterapia).
doenca_relacionada_tratamento(faseinicialplaca,remocaodaplaca).
doenca_relacionada_tratamento(faseinicialtartaro,remocaodaplaca).

%miopia
doenca_relacionada_tratamento(faseinicialtartaro,escovacao).
doenca_relacionada_tratamento(faseintermediariaafta,antibiotico).
doenca_relacionada_tratamento(gengivite,escovacao).
doenca_relacionada_tratamento(gengivite,raspagem).
doenca_relacionada_tratamento(gengivite,usarfiodental).


%tercol
doenca_relacionada_tratamento(halitoseintermediaria,limpezabucal).
doenca_relacionada_tratamento(halitoseintermediaria,remocaosaburra).
doenca_relacionada_tratamento(halitosemoderada,remocaosaburra).
doenca_relacionada_tratamento(halitosesevera,verificaragenteexterno).
doenca_relacionada_tratamento(periodontite,raspagem).
doenca_relacionada_tratamento(periodontite,antibiotico).
doenca_relacionada_tratamento(periodontite,remocaotoxina).
doenca_relacionada_tratamento(prurido,tratarcompomada).

doenca_relacionada_prevencao(estagioavancadocancer,naofumar).
doenca_relacionada_prevencao(estagioavancadocancer,naomascartabaco).
doenca_relacionada_prevencao(estagioavancadocancer,evitarexposicaoexcessivaaosol).
doenca_relacionada_prevencao(estagioavancadocancer,ingerirpoucoalcool).

doenca_relacionada_prevencao(faseavancadacarie,escovarosdentes).
doenca_relacionada_prevencao(faseavancadacarie,naoingerirdoces).
doenca_relacionada_prevencao(faseavancadacarie,usarfiodental).
doenca_relacionada_prevencao(faseavancadacarie,visitardentistaregularmente).
doenca_relacionada_prevencao(faseinicialcarie,visitardentistaregularmente).
doenca_relacionada_prevencao(faseinicialcarie,escovarosdentes).
doenca_relacionada_prevencao(faseinicialcarie,naoingerirdoces).
doenca_relacionada_prevencao(faseinicialcarie,usarfiodental).

doenca_relacionada_prevencao(faseavancadatartaro,usarfiodental).
doenca_relacionada_prevencao(faseavancadatartaro,escovarosdentes).
doenca_relacionada_prevencao(faseinicialtartaro,usarfiodental).
doenca_relacionada_prevencao(faseinicialtartaro,escovarosdentes).

doenca_relacionada_prevencao(fasedabolha,nenhum).
doenca_relacionada_prevencao(fasedacicatrizacao,nenhum).
doenca_relacionada_prevencao(fasedaferidacrosta,nenhum).
doenca_relacionada_prevencao(fasedaulceracao,nenhum).

doenca_relacionada_prevencao(faseinicialafta,naoestarsobfortestress).
doenca_relacionada_prevencao(faseintermediariaafta,naoestarsobfortestress).

doenca_relacionada_prevencao(halitoseintermediaria,escovarosdentes).
doenca_relacionada_prevencao(halitoseintermediaria,usarfiodental).
doenca_relacionada_prevencao(halitosemoderada,escovarosdentes).
doenca_relacionada_prevencao(halitosemoderada,usarfiodental).
doenca_relacionada_prevencao(halitosesevera,escovarosdentes).
doenca_relacionada_prevencao(halitosesevera,usarfiodental).

doenca_relacionada_prevencao(gengivite,nenhum).

doenca_relacionada_prevencao(periodontite,nenhum).

doenca_relacionada_prevencao(prurido,nenhum).


avaliaSintoma([A|B],X) :- doenca_relacionada_sintoma(X,A), avaliaSintoma(B,X).
avaliaSintoma([],X):- write(X),write('  '), imprimir(X).

imprimir(X) :- doenca(X),write(' '), doenca_relacionada_tratamento(X,Y), write(' Tratamento : '), write(Y), write(' '), doenca_relacionada_prevencao(X,Z), write(' Prevenção: '), write(Z), write(' '). 


verificaSintomas([X|Y]) :- sintoma(X), verificaSintomas(Y).
verificaSintomas([]) :- write('').


start(X) :- write('Bem-vindo ao agente SmartTooth! Digite os sintomas no seguinte formato: [sintoma1,sintoma2...]: '),nl,read(A),((verificaSintomas(A),
avaliaSintoma(A,X))
;(not(verificaSintomas(A)),write(A),write('existe algum digitado que não é sintoma'))).