export Iter.compute in types.mli

types/types.ml

@@ -1713,7 +1713,7 @@ module Iter =
       let acc = fold bdd t acc in
       cup acc
 
-
+    let f = compute
   end
 
 module Variable =

types/types.mli

@@ -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 **)