let rec _Recherche_Type_Expr nomModule id our_Hash_table =
match our_Hash_table with
[] -> (Varia(id, Inconnu), false)
| Autre(nomM, identifiant, sonT)::liste_restante ->
if nomM = nomModule && id = identifiant
then
(Varia(id,sonT),true)
else
_Recherche_Type_Expr nomModule id liste_restante
| _::liste_restante ->
_Recherche_Type_Expr nomModule id liste_restante