cicNotation* ==> notation*

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

diff --git a/matita/components/lexicon/lexiconMarshal.ml b/matita/components/lexicon/lexiconMarshal.ml
index 5d69fafc002cd6751f69813d026720a068d3654a..6693de21492b394a0817b3fcb41161fd909677d8 100644 (file)
--- a/matita/components/lexicon/lexiconMarshal.ml
+++ b/matita/components/lexicon/lexiconMarshal.ml
@@ -43,15 +43,15 @@ let rehash_cmd_uris =
   | 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.UriPattern uri ->
+            NotationPt.UriPattern (rehash_uri uri)
+        | 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)