let rec _Attribution_Arbre_Var nomModule liste_variable hashTable =
match liste_variable with
[] -> []
| (identifiant, Constructeur(Construct(_)))
::liste_restante ->
(_Changer_Type_Var nomModule identifiant hashTable)::
(_Attribution_Arbre_Var nomModule liste_restante hashTable)
| cette_variable
::liste_restante ->
cette_variable::_Attribution_Arbre_Var nomModule liste_restante hashTable