Commit 3a94a2d7 by Kim Nguyễn

export Iter.compute in types.mli

parent 5d472f2b
......@@ -1713,7 +1713,7 @@ module Iter =
let acc = fold bdd t acc in
cup acc
let f = compute
end
module Variable =
......
......@@ -172,6 +172,20 @@ module Iter : sig
val map : ?abs:(bool -> bool) -> (var_type -> t -> t) -> t -> t
val iter : ?abs:(bool -> unit) ->(var_type -> t -> unit) -> t -> unit
val fold : ?abs:(bool -> 'a -> 'a) -> (var_type -> t -> 'a -> 'a) -> t -> 'a -> 'a
val compute : default:'a ->
?cup:('a list -> 'a) ->
?cap:('a list -> 'a) ->
?neg:('a -> 'a) ->
?var:(Var.t -> 'a) ->
?atoms:(Atoms.t -> 'a) ->
?ints:(Intervals.t -> 'a) ->
?chars:(Chars.t -> 'a) ->
?times:((Node.t * Node.t) -> 'a) ->
?xml:((Node.t*Node.t) -> 'a) ->
?arrow:((Node.t*Node.t) -> 'a) ->
?record:((bool * Node.t Ident.LabelMap.map) -> 'a) ->
?abstract:(Abstracts.t -> 'a) ->
?absent:(bool -> 'a) -> t -> 'a
end
(** Positive systems and least solutions **)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment