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).


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).

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).


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_possui_sintoma(estagioavancadocancer,tumormaiorque4).
doenca_possui_sintoma(estagioavancadocancer,tumoresparramadolinfonodo).

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

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

%fasedabolha
doenca_possui_sintoma(fasedabolha,grupobolhaslabios).

%fasedacicatrizacao
doenca_possui_sintoma(fasedacicatrizacao,formacaocrosta).

%fasedaferidacrosta
doenca_possui_sintoma(fasedaferidacrosta,rebentamentobolha).

%fasedaulceracao
doenca_possui_sintoma(miopia,corneaachatada).

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

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

%faseinicialcancer
doenca_possui_sintoma(faseinicialcancer,tumormenorque4).

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

%faseinicialtartaro
doenca_possui_sintoma(faseinicialtartaro,placavisivel).

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

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

%halitoseintermediaria
doenca_possui_sintoma(halitoseintermediaria,malhalitoconstante).

%halitosemoderada
doenca_possui_sintoma(halitosemoderada,malhalitoesporadico).

%halitosesevera
doenca_possui_sintoma(halitosesevera,malhalitoforte).

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

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

doenca_possui_tratamento(estagioavancadocancer,cirurgia).
doenca_possui_tratamento(estagioavancadocancer,radioterapia).
doenca_possui_tratamento(estagioavancadocancer,quimioterapia).

doenca_possui_tratamento(faseavancadacarie,obturacao).

doenca_possui_tratamento(faseavancadatartaro,obturacao).
doenca_possui_tratamento(fasedabolha,tratarcompomada).
doenca_possui_tratamento(fasedacicatrizacao,tratarcompomada).

doenca_possui_tratamento(fasedaferidacrosta,tratarcompomada).
doenca_possui_tratamento(fasedaulceracao,tratarcompomada).
doenca_possui_tratamento(faseinicialafta,remedioscaseiros).

doenca_possui_tratamento(faseinicialafta,curanatural).
doenca_possui_tratamento(faseinicialcarie,escovacao).
doenca_possui_tratamento(faseinicialcarie,fluor).

doenca_possui_tratamento(faseinicialcancer,cirurgia).
doenca_possui_tratamento(faseinicialcancer,radioterapia).
doenca_possui_tratamento(faseinicialplaca,remocaodaplaca).
doenca_possui_tratamento(faseinicialtartaro,remocaodaplaca).
doenca_possui_tratamento(faseinicialtartaro,escovacao).

doenca_possui_tratamento(faseintermediariaafta,antibiotico).
doenca_possui_tratamento(gengivite,escovacao).
doenca_possui_tratamento(gengivite,raspagem).
doenca_possui_tratamento(gengivite,usarfiodental).

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

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

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

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

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

doenca_possui_prevencao(faseinicialafta,naoestarsobfortestress).
doenca_possui_prevencao(faseintermediariaafta,naoestarsobfortestress).

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

doenca_possui_prevencao(gengivite,nenhum).

doenca_possui_prevencao(periodontite,nenhum).

doenca_possui_prevencao(prurido,nenhum).


doSintoma([A|B],X) :- doenca_possui_sintoma(X,A), doSintoma(B,X).
doSintoma([],X):- write(X),write('  '), imprimir(X).

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


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


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