let rec _Remplir_Hash_Define nomModule liste_define =
match liste_define with
[] -> []
| (id, Defini(expr))::liste_restante ->
Autre(nomModule, id, Defini(expr))::
((_Remplir_Hash_Expr nomModule expr)
@(_Remplir_Hash_Define nomModule liste_restante))
| _::_ -> raise Cas_impossible