- the connections between the intermediate language and the "bag"

[helm.git] / matita / components / lexicon / lexiconMarshal.ml

diff --git a/matita/components/lexicon/lexiconMarshal.ml b/matita/components/lexicon/lexiconMarshal.ml
index 5d69fafc002cd6751f69813d026720a068d3654a..5e74e88156c307f16daee7d3e7a0151af335f8f8 100644 (file)
--- a/matita/components/lexicon/lexiconMarshal.ml
+++ b/matita/components/lexicon/lexiconMarshal.ml
@@ -37,21 +37,17 @@ let load_lexicon_from_file ~fname =
   (raw: lexicon)
 
 let rehash_cmd_uris =
-  let rehash_uri uri =
-    UriManager.uri_of_string (UriManager.string_of_uri uri) in
   function
   | LexiconAst.Interpretation (loc, dsc, args, cic_appl_pattern) ->
       let rec aux =
         function
-        | CicNotationPt.UriPattern uri ->
-            CicNotationPt.UriPattern (rehash_uri uri)
-        | CicNotationPt.NRefPattern (NReference.Ref (uri,spec)) ->
+        | NotationPt.NRefPattern (NReference.Ref (uri,spec)) ->
            let uri = NCicLibrary.refresh_uri uri in
-            CicNotationPt.NRefPattern (NReference.reference_of_spec uri spec)
-        | CicNotationPt.ApplPattern args ->
-            CicNotationPt.ApplPattern (List.map aux args)
-        | CicNotationPt.VarPattern _
-        | CicNotationPt.ImplicitPattern as pat -> pat
+            NotationPt.NRefPattern (NReference.reference_of_spec uri spec)
+        | NotationPt.ApplPattern args ->
+            NotationPt.ApplPattern (List.map aux args)
+        | NotationPt.VarPattern _
+        | NotationPt.ImplicitPattern as pat -> pat
       in
       let appl_pattern = aux cic_appl_pattern in
       LexiconAst.Interpretation (loc, dsc, args, appl_pattern)