Module Id.Map
type key = Id.tval empty : _ Id.Map.tval add : Id.Map.key -> 'a -> 'a Id.Map.t -> 'a Id.Map.tval cardinal : _ Id.Map.t -> intval bindings : 'a Id.Map.t -> (Id.Map.key * 'a) listval find : Id.Map.key -> 'a Id.Map.t -> 'aval iter : (Id.Map.key -> 'a -> unit) -> 'a Id.Map.t -> unitval fold : (Id.Map.key -> 'a -> 'b -> 'b) -> 'a Id.Map.t -> 'b -> 'bval mem : Id.Map.key -> 'a Id.Map.t -> bool