/* Definition de la relation chercher_ou_inserer/2 */

chercher_ou_inserer(Mot,X,[Mot,X,_,_]).

chercher_ou_inserer(Mot,Valeur,[Mot1,_,Gauche,_]):-
	Mot @< Mot1,
	chercher_ou_inserer(Mot,Valeur,Gauche).

chercher_ou_inserer(Mot,Valeur,[Mot1,_,_,Droit]):-
	Mot @> Mot1,
	chercher_ou_inserer(Mot,Valeur,Droit).


/* Dictionnaire */

dico([avion,plane,[arbre,tree,_,_],[peuple,people,_,_]]).


