module Env:Environnements simples (listes d'associations)sig..end
type'at =(Var.t * 'a) list
'a aux variablesexception Failure of string
val add : string -> 'a -> 'a t -> 'a tadd x v env renvoie l'environnement qui est env plus une
liaison de x à v.
Note : si il existe déjà une liaison de x à w dans env,
alors elle est remplacée par la nouvelle liaison.
val find : string -> 'a t -> 'a
L'appel find x env renvoie la valeur v associée à x dans env.
Si aucune valeur n'est associée à x, l'exception Failure x
est lancée.