sig
  type 'a t
  val empty : 'a Syntax.Env.t
  val push : 'a -> 'a Syntax.Env.t -> 'a Syntax.Env.t
  val find : 'a Syntax.Env.t -> int -> 'a
  val enum : 'a Syntax.Env.t -> 'a BatEnum.t
end