let rec _Parcours_Enum arguments identifiant =
  match arguments with
    [] -> (Inconnufalse)
  | (Chaine s)::liste_restante -> 
      if s = identifiant
      then
        (Enum[(Chaine identifiant)], true)
      else
        _Parcours_Enum liste_restante identifiant
  | _::liste_restante -> _Parcours_Enum liste_restante identifiant