Functor Sequence.Map.Adapt

module Adapt: 
functor (M : Map.S) -> S  with type key = M.key and type 'a map = 'a M.t

type +'a map 

include Map.S

val to_seq : 'a map -> (key * 'a) Sequence.t

val of_seq : (key * 'a) Sequence.t -> 'a map

val keys : 'a map -> key Sequence.t

val values : 'a map -> 'a Sequence.t