X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbin%2Froles%2FrolesEngine.mli;h=ed7de3e68f1030d0ab6c6bf414c2584aff938903;hb=277fc8ff21ce3dbd6893b1994c55cf5c06a98355;hp=c7ecaf5388212db109e07e39317e05ebe5f009fe;hpb=456a157eba1428fd4ec02713e60ac2b653a0e0b0;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/bin/roles/rolesEngine.mli b/matita/matita/contribs/lambdadelta/bin/roles/rolesEngine.mli
index c7ecaf538..ed7de3e68 100644
--- a/matita/matita/contribs/lambdadelta/bin/roles/rolesEngine.mli
+++ b/matita/matita/contribs/lambdadelta/bin/roles/rolesEngine.mli
@@ -15,6 +15,8 @@ val select_entry: RolesTypes.pointer -> unit
 
 val expand_entry: RolesTypes.pointer -> unit
 
+val make_tops: unit -> unit
+
 val add_role: unit -> unit
 
 val add_tops: RolesTypes.stage -> unit
@@ -32,9 +34,9 @@ val write_status: unit -> unit
 val print_status: unit -> unit
 
 val visit_status:
-  (string -> string -> unit) -> (string -> bool -> string -> unit) ->
+  (string -> string -> unit) -> RolesTypes.each ->
   (bool -> bool -> bool -> unit) -> (bool -> unit) -> (unit -> unit) ->
   (string -> bool -> unit) ->
-  (string -> string -> unit) -> (string -> bool -> string -> unit) -> (unit -> unit) ->
-  (string -> string -> unit) -> (string -> bool -> string -> unit) -> (unit -> unit) ->
+  (string -> string -> unit) -> RolesTypes.each -> (unit -> unit) ->
+  (string -> string -> unit) -> RolesTypes.each -> (unit -> unit) ->
   unit