module Make_without_cardinal: functor (
K
:
Key
) ->
functor (
Top_Param
:
Lattice_type.Lattice_Hashconsed_Set
with type O.elt=K.t
) ->
functor (
V
:
sig
end
) ->
functor (
Comp
:
sig
val e : bool
See Hptmap
for the documentation of this option
val f : K.t -> V.t -> bool
val compose : bool -> bool -> bool
val default : bool
end
) ->
functor (
L
:
sig
val v : (K.t * V.t) list list
end
) ->
sig
.. end
Parameters: |
K |
: |
Key
|
Top_Param |
: |
Lattice_type.Lattice_Hashconsed_Set with type O.elt=K.t
|
V |
: |
sig
include Lattice_type.Full_Lattice
val pretty_debug: t Pretty_utils.formatter
end
|
Comp |
: |
sig (** See {!Hptmap} for the documentation of this option *)
val e: bool
val f : K.t -> V.t -> bool
val compose : bool -> bool -> bool
val default:bool
end
|
L |
: |
sig val v : (K.t * V.t) list list end
|
|
module M: Hptmap.Make
(
K
)
(
V
)
(
Comp
)
(
sig
val v : (K.t * V.t) list list
end
)
(
sig
end
)
module Top_Param: Top_Param
type
map_t = M.t
type
tt =
| |
Top of Top_Param.t * Origin.t |
| |
Map of map_t |
val top : tt
val hash : tt -> int
val add_or_bottom : M.key ->
V.t ->
M.t ->
M.t
val add : Top_Param.O.elt ->
V.t ->
tt -> tt
val bottom : tt
val inject : M.key ->
V.t -> tt
val pretty : Format.formatter -> tt -> unit
val pretty_debug : Format.formatter -> tt -> unit
val find_or_bottom : M.key ->
M.t -> V.t
val split : Top_Param.O.elt ->
tt ->
V.t * tt
val inject_map : map_t ->
tt
val get_bases : M.t ->
Top_Param.O.t
exception Error_Top
val equal : tt ->
tt -> bool
val compare : tt ->
tt -> int
val is_bottom : tt -> bool
val check_join_assert : int Pervasives.ref
val join : tt ->
tt -> tt
val cached_fold : cache_name:string ->
temporary:bool ->
f:(M.key -> V.t -> 'a) ->
projection:(M.key -> V.t) ->
joiner:('a -> 'a -> 'a) ->
empty:'a -> tt -> 'a
val map_offsets : (V.t -> V.t) ->
tt -> tt
val filter_base : (Top_Param.O.elt -> bool) ->
tt -> tt
Over-approximation of the filter (in the case Top Top
)
val meet : tt ->
tt -> tt
val narrow : tt ->
tt -> tt
val is_included : tt ->
tt -> bool
val join_and_is_included : tt ->
tt ->
tt * bool
val link : tt ->
tt -> tt
val intersects : tt ->
tt -> bool
val find_lonely_key : tt ->
M.key * V.t
if there is only one key k
in map m
, then returns the pair k,v
where v
is the value associated to k
.
Raises Not_found
otherwise.
val diff : tt ->
tt -> tt
val map_i : (K.t -> V.t -> tt) ->
tt -> tt
val fold_bases : (Top_Param.O.elt -> 'a -> 'a) ->
tt -> 'a -> 'a
val fold_i : (K.t -> V.t -> 'a -> 'a) -> tt -> 'a -> 'a
fold_i f m acc
folds f
on the bindings in m
.
Raises Error_Top
if m
is too imprecise for folding.
val fold_topset_ok : (Top_Param.O.elt -> V.t -> 'a -> 'a) ->
tt -> 'a -> 'a
include struct ... end
val clear_caches : unit -> unit