Module `Unit.Map`

type key = Flambda2_term_basics.Unit.t

module Set = Flambda2_term_basics.Unit.Set

type !+'a t

val empty : 'a Flambda2_term_basics.Unit.Map.t

val is_empty : 'a Flambda2_term_basics.Unit.Map.t -> bool

val mem : 
  Flambda2_term_basics.Unit.Map.key ->
  'a Flambda2_term_basics.Unit.Map.t ->
  bool

val add : 
  Flambda2_term_basics.Unit.Map.key ->
  'a ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t

val update : 
  Flambda2_term_basics.Unit.Map.key ->
  ('a option -> 'a option) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t

val singleton : 
  Flambda2_term_basics.Unit.Map.key ->
  'a ->
  'a Flambda2_term_basics.Unit.Map.t

val remove : 
  Flambda2_term_basics.Unit.Map.key ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t

val merge : 
  (Flambda2_term_basics.Unit.Map.key -> 'a option -> 'b option -> 'c option) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'b Flambda2_term_basics.Unit.Map.t ->
  'c Flambda2_term_basics.Unit.Map.t

val union : 
  (Flambda2_term_basics.Unit.Map.key -> 'a -> 'a -> 'a option) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t

val union_sharing : 
  (Flambda2_term_basics.Unit.Map.key -> 'a -> 'a -> 'a option) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t

union_sharing f m1 m2 is a version of union f m1 m2 that maximizes sharing of the result with m1.

val union_shared : 
  (Flambda2_term_basics.Unit.Map.key -> 'a -> 'a -> 'a option) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t

union_shared f m1 m2 is a version of union_sharing f m1 m2 that also exploits sharing of m1 and m2 to avoid calling f when possible, assuming that f x x = Some x for all xs.

val update_many : 
  (Flambda2_term_basics.Unit.Map.key -> 'a option -> 'b -> 'a option) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'b Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t

val compare : 
  ('a -> 'a -> int) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t ->
  int

val equal : 
  ('a -> 'a -> bool) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t ->
  bool

val iter : 
  (Flambda2_term_basics.Unit.Map.key -> 'a -> unit) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  unit

val fold : 
  (Flambda2_term_basics.Unit.Map.key -> 'a -> 'b -> 'b) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'b ->
  'b

val for_all : 
  (Flambda2_term_basics.Unit.Map.key -> 'a -> bool) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  bool

val exists : 
  (Flambda2_term_basics.Unit.Map.key -> 'a -> bool) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  bool

val filter : 
  (Flambda2_term_basics.Unit.Map.key -> 'a -> bool) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t

val filter_map : 
  (Flambda2_term_basics.Unit.Map.key -> 'a -> 'b option) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'b Flambda2_term_basics.Unit.Map.t

val filter_map_sharing : 
  (Flambda2_term_basics.Unit.Map.key -> 'a -> 'a option) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t

val partition : 
  (Flambda2_term_basics.Unit.Map.key -> 'a -> bool) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t * 'a Flambda2_term_basics.Unit.Map.t

val cardinal : 'a Flambda2_term_basics.Unit.Map.t -> int

val bindings : 
  'a Flambda2_term_basics.Unit.Map.t ->
  (Flambda2_term_basics.Unit.Map.key * 'a) list

val min_binding : 
  'a Flambda2_term_basics.Unit.Map.t ->
  Flambda2_term_basics.Unit.Map.key * 'a

val min_binding_opt : 
  'a Flambda2_term_basics.Unit.Map.t ->
  (Flambda2_term_basics.Unit.Map.key * 'a) option

val max_binding : 
  'a Flambda2_term_basics.Unit.Map.t ->
  Flambda2_term_basics.Unit.Map.key * 'a

val max_binding_opt : 
  'a Flambda2_term_basics.Unit.Map.t ->
  (Flambda2_term_basics.Unit.Map.key * 'a) option

val choose : 
  'a Flambda2_term_basics.Unit.Map.t ->
  Flambda2_term_basics.Unit.Map.key * 'a

val choose_opt : 
  'a Flambda2_term_basics.Unit.Map.t ->
  (Flambda2_term_basics.Unit.Map.key * 'a) option

val split : 
  Flambda2_term_basics.Unit.Map.key ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t
  * 'a option
  * 'a Flambda2_term_basics.Unit.Map.t

val find : 
  Flambda2_term_basics.Unit.Map.key ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a

val find_opt : 
  Flambda2_term_basics.Unit.Map.key ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a option

val map : 
  ('a -> 'b) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'b Flambda2_term_basics.Unit.Map.t

val mapi : 
  (Flambda2_term_basics.Unit.Map.key -> 'a -> 'b) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'b Flambda2_term_basics.Unit.Map.t

val to_seq : 
  'a Flambda2_term_basics.Unit.Map.t ->
  (Flambda2_term_basics.Unit.Map.key * 'a) Stdlib.Seq.t

val print_debug : 
  (Stdlib.Format.formatter -> 'a -> unit) ->
  Stdlib.Format.formatter ->
  'a Flambda2_term_basics.Unit.Map.t ->
  unit

val of_list : 
  (Flambda2_term_basics.Unit.Map.key * 'a) list ->
  'a Flambda2_term_basics.Unit.Map.t

val disjoint_union : 
  ?eq:('a -> 'a -> bool) ->
  ?print:(Stdlib.Format.formatter -> 'a -> unit) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t

val map_keys : 
  (Flambda2_term_basics.Unit.Map.key -> Flambda2_term_basics.Unit.Map.key) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t

val keys : 'a Flambda2_term_basics.Unit.Map.t -> Set.t

val data : 'a Flambda2_term_basics.Unit.Map.t -> 'a list

val of_set : 
  (Flambda2_term_basics.Unit.Map.key -> 'a) ->
  Set.t ->
  'a Flambda2_term_basics.Unit.Map.t

val print : 
  (Stdlib.Format.formatter -> 'a -> unit) ->
  Stdlib.Format.formatter ->
  'a Flambda2_term_basics.Unit.Map.t ->
  unit

val diff_domains : 
  'a Flambda2_term_basics.Unit.Map.t ->
  'b Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t

val inter : 
  (Flambda2_term_basics.Unit.Map.key -> 'a -> 'b -> 'c) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'b Flambda2_term_basics.Unit.Map.t ->
  'c Flambda2_term_basics.Unit.Map.t

val diff : 
  (Flambda2_term_basics.Unit.Map.key -> 'a -> 'b -> 'a option) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'b Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t

diff f m1 m2 computes a map whose keys are a subset of the keys of m1. When a binding is defined in both m1 and m2, the function f is used to combine them. Bindings that are only present in m1 are preserved. This is a special case of merge: diff f m1 m2 is equivalent to merge f' m1 m2, where

f' _key None _ = None
f' _key (Some v) None = Some v
f' key (Some v1) (Some v2) = f key v1 v2

val diff_sharing : 
  (Flambda2_term_basics.Unit.Map.key -> 'a -> 'b -> 'a option) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'b Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t

diff_sharing f m1 m2 is a version of diff f m1 m2 that maximizes sharing of the result with m1.

val diff_shared : 
  (Flambda2_term_basics.Unit.Map.key -> 'a -> 'a -> 'a option) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t

diff_shared f m1 m2 is a version of diff_sharing f m1 m2 that further exploits sharing of m1 and m2 to avoid calling f when possible, assuming that f x x always returns None.

val inter_domain_is_non_empty : 
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t ->
  bool

val get_singleton : 
  'a Flambda2_term_basics.Unit.Map.t ->
  (Flambda2_term_basics.Unit.Map.key * 'a) option

val replace : 
  Flambda2_term_basics.Unit.Map.key ->
  ('a -> 'a) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t

val map_sharing : 
  ('a -> 'a) ->
  'a Flambda2_term_basics.Unit.Map.t ->
  'a Flambda2_term_basics.Unit.Map.t

Module Unit.Map

Module `Unit.Map`