X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbin%2Frecomm%2FrecommTypes.ml;h=7098edb5ca2a3994a5ada39c445e6eba0d97fed9;hb=8fdf1af656038d0245eba64ff2531bbe94ce0e9e;hp=f2f8e87a9bfcb4fe6012932313d6a5c438de2ec1;hpb=baa54e5db0fb93c4242dd1b67a5018ca63206cf6;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/bin/recomm/recommTypes.ml b/matita/matita/contribs/lambdadelta/bin/recomm/recommTypes.ml
index f2f8e87a9..7098edb5c 100644
--- a/matita/matita/contribs/lambdadelta/bin/recomm/recommTypes.ml
+++ b/matita/matita/contribs/lambdadelta/bin/recomm/recommTypes.ml
@@ -18,7 +18,7 @@ type src =
 (* section *)
   | Slice of words
 (* other comment *)
-  | Other of text * text * text
+  | Other of int * text * text * text
 
 type srcs = src list
 
@@ -26,4 +26,8 @@ type ('s, 't) aproc = 's -> words -> words -> 't
 
 type ('s, 't) astep = ('s, 't) aproc -> ('s, 't) aproc
 
-type step = (bool, bool * words * words) astep
+type return = KO
+            | OK
+            | OO
+
+type step = (return, return * words * words) astep