let rec _Existe_Deja_Dans_HashTable element hashTable =
match hashTable with
[] -> false
| cet_element::liste_restante ->
(match element, cet_element with
Parametre(nomModule, identifiant, sonT, _), Parametre(nomM, id, t, _) ->
if nomM = nomModule
&& identifiant = id
&& sonT = t
then
true
else
_Existe_Deja_Dans_HashTable element liste_restante
| Autre(nomModule, identifiant, sonT), Autre(nomM, id, t) ->
if nomM = nomModule
&& identifiant = id
&& sonT = t
then
true
else
_Existe_Deja_Dans_HashTable element liste_restante
| _, _ -> _Existe_Deja_Dans_HashTable element liste_restante)