M (ambient-context.Ambient_context

val name : string

val get_map : unit -> Hmap.t option

val with_map : Hmap.t -> (unit -> 'a) -> 'b

val create_key : 
  'a Hmap.Key.info ->
  'a Ambient_context_core__Ambient_context_hmap.key

val get : 'a Hmap.key -> 'b option

val with_binding : 'a Hmap.key -> 'b -> (unit -> 'c) -> 'd

val without_binding : 'a Hmap.key -> (unit -> 'b) -> 'c