X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambdadelta%2Fbin%2Frecomm%2FrecommLexer.mll;h=83a2892472a11f3b2cfa72e937972cf995097175;hb=ae626612bff9c3746dd7647bbada791c737e348c;hp=0f66fc44bc5ab74bacc2f3c2023eafa37ad0c814;hpb=baa54e5db0fb93c4242dd1b67a5018ca63206cf6;p=helm.git

diff --git a/matita/matita/contribs/lambdadelta/bin/recomm/recommLexer.mll b/matita/matita/contribs/lambdadelta/bin/recomm/recommLexer.mll
index 0f66fc44b..83a289247 100644
--- a/matita/matita/contribs/lambdadelta/bin/recomm/recommLexer.mll
+++ b/matita/matita/contribs/lambdadelta/bin/recomm/recommLexer.mll
@@ -5,17 +5,22 @@
 
   let keys = [|
     "Note";
+    "NOTE";
   |]
 
   let heads = [|
-    "Advanved";
+    "Advanced";
     "Basic";
+    "Constructions";
     "Forward";
     "Destructions";
     "Eliminations";
     "Eliminators";
+    "Equalities";
+    "Helper";
     "Inversion";
     "Inversions";
+    "Iterators";
     "Main";
     "Properties";
   |]
@@ -33,9 +38,9 @@
     aux (String.length s - 1)
 
   let disambiguate_word s =
-    if is_uppercase_ascii s then EP.CW s else
     if Array.mem s keys then EP.KW s else
     if Array.mem s heads then EP.HW s else
+    if is_uppercase_ascii s then EP.CW s else
     EP.SW s
 
   let log s =
@@ -52,7 +57,7 @@ let CR = "\r"
 let SP = " "
 let NL = "\n"
 let SR = "*"
-let OP = "(*" SP*
+let OP = "(*"
 let CP = SR* "*)"  
 let PP = CP SP* OP
 let WF = ['A'-'Z' 'a'-'z']