X-Git-Url: http://matita.cs.unibo.it/gitweb/?p=helm.git;a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbin%2Froles%2FrolesTypes.ml;h=a6e9c59bb3d8f6376ea4c8f738447192107ad5fa;hp=301142f7f94cdf63ac7688b431d2d3f1226db9db;hb=277fc8ff21ce3dbd6893b1994c55cf5c06a98355;hpb=59fd7b5ea24e71b47aee069440f140bcccf1292a

diff --git a/matita/matita/contribs/lambdadelta/bin/roles/rolesTypes.ml b/matita/matita/contribs/lambdadelta/bin/roles/rolesTypes.ml
index 301142f7f..a6e9c59bb 100644
--- 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
@@ -63,4 +66,4 @@ type error = EWrongExt of string
 
 exception Error of error
 
-type each = string -> string -> bool -> string -> string -> unit
+type each = string -> string -> bool -> string -> string -> string -> unit