Module `Variable.Map`

type key = Variable.t

module Set = Variable.Set

type !+'a t

val empty : 'a Variable.Map.t

val is_empty : 'a Variable.Map.t -> bool

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

val add : Variable.Map.key -> 'a -> 'a Variable.Map.t -> 'a Variable.Map.t

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

val singleton : Variable.Map.key -> 'a -> 'a Variable.Map.t

val remove : Variable.Map.key -> 'a Variable.Map.t -> 'a Variable.Map.t

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

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

val union_sharing : 
  (Variable.Map.key -> 'a -> 'a -> 'a option) ->
  'a Variable.Map.t ->
  'a Variable.Map.t ->
  'a Variable.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 : 
  (Variable.Map.key -> 'a -> 'a -> 'a option) ->
  'a Variable.Map.t ->
  'a Variable.Map.t ->
  'a Variable.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 : 
  (Variable.Map.key -> 'a option -> 'b -> 'a option) ->
  'a Variable.Map.t ->
  'b Variable.Map.t ->
  'a Variable.Map.t

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

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

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

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

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

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

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

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

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

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

val cardinal : 'a Variable.Map.t -> int

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

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

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

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

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

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

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

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

val find : Variable.Map.key -> 'a Variable.Map.t -> 'a

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

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

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

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

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

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

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

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

val keys : 'a Variable.Map.t -> Set.t

val data : 'a Variable.Map.t -> 'a list

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

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

val diff_domains : 'a Variable.Map.t -> 'b Variable.Map.t -> 'a Variable.Map.t

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

val diff : 
  (Variable.Map.key -> 'a -> 'b -> 'a option) ->
  'a Variable.Map.t ->
  'b Variable.Map.t ->
  'a Variable.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 : 
  (Variable.Map.key -> 'a -> 'b -> 'a option) ->
  'a Variable.Map.t ->
  'b Variable.Map.t ->
  'a Variable.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 : 
  (Variable.Map.key -> 'a -> 'a -> 'a option) ->
  'a Variable.Map.t ->
  'a Variable.Map.t ->
  'a Variable.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 Variable.Map.t -> 'a Variable.Map.t -> bool

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

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

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

Module Variable.Map

Module `Variable.Map`