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=a3bb0f9208be31b753f93c8130686f4aec28e3cd;hpb=4d3256c98f816a2d2dc7b97557b61364e18d0806;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/bin/roles/rolesEngine.mli b/matita/matita/contribs/lambdadelta/bin/roles/rolesEngine.mli
index a3bb0f920..ed7de3e68 100644
--- a/matita/matita/contribs/lambdadelta/bin/roles/rolesEngine.mli
+++ b/matita/matita/contribs/lambdadelta/bin/roles/rolesEngine.mli
@@ -9,15 +9,17 @@
      \ /   This software is distributed as is, NO WARRANTY.
       V_______________________________________________________________ *)
 
-val new_stage: RolesTypes.version -> unit
+val new_stage: RolesTypes.stage -> unit
 
 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.version -> unit
+val add_tops: RolesTypes.stage -> unit
 
 val add_matching: unit -> unit
 
@@ -32,8 +34,9 @@ val write_status: unit -> unit
 val print_status: unit -> unit
 
 val visit_status:
-  (string -> string -> unit) -> (string -> bool -> string -> unit) ->
-  (unit -> unit) -> (unit -> 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 ->
+  (bool -> bool -> bool -> unit) -> (bool -> unit) -> (unit -> unit) ->
+  (string -> bool -> unit) ->
+  (string -> string -> unit) -> RolesTypes.each -> (unit -> unit) ->
+  (string -> string -> unit) -> RolesTypes.each -> (unit -> unit) ->
   unit