update in binaries for λδ

[helm.git] / matita / matita / contribs / lambdadelta / bin / roles / rolesTypes.ml

diff --git a/matita/matita/contribs/lambdadelta/bin/roles/rolesTypes.ml b/matita/matita/contribs/lambdadelta/bin/roles/rolesTypes.ml
index f57d17641e04466ccd27898f20b0875ab49d7c36..a6e9c59bb3d8f6376ea4c8f738447192107ad5fa 100644 (file)
--- a/matita/matita/contribs/lambdadelta/bin/roles/rolesTypes.ml
+++ b/matita/matita/contribs/lambdadelta/bin/roles/rolesTypes.ml
@@ -46,7 +46,10 @@ type status = {
   mutable sn: nobjs;
 }
 
-type pointer = int list
+type step = One of int
+          | Many of int list
+
+type pointer = step list
 
 type error = EWrongExt of string
            | EStage of stage
@@ -62,3 +65,5 @@ type error = EWrongExt of string
            | EWrongRequest of string * string
 
 exception Error of error
+
+type each = string -> string -> bool -> string -> string -> string -> unit