module With_fold:sig
..end
module Key:sig
..end
val set : Univ_map.t -> ('a, 'b) Key.t -> 'b -> Univ_map.t
val find : Univ_map.t -> ('a, 'b) Key.t -> 'b
val add : Univ_map.t -> ('a, 'b) Key.t -> 'a -> Univ_map.t
val change : Univ_map.t -> ('a, 'b) Key.t -> ('b -> 'b) -> Univ_map.t