X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fcomponents%2Fgrafite_parser%2Ftest_parser.ml;h=72d6e981dbbf6be92c2f0aeac902bc711de547d9;hb=8a660ee06d72cfee52c707bb1d8d8be3bab0d682;hp=9f42238e99da85ac8e16d03643c9ac1b27140c75;hpb=5553ac7623425bce6f34eed6e17d4f0f8163e9aa;p=helm.git

diff --git a/matita/components/grafite_parser/test_parser.ml b/matita/components/grafite_parser/test_parser.ml
index 9f42238e9..72d6e981d 100644
--- a/matita/components/grafite_parser/test_parser.ml
+++ b/matita/components/grafite_parser/test_parser.ml
@@ -63,7 +63,7 @@ let pp_precedence = string_of_int
 
 let process_stream istream =
   let char_count = ref 0 in
-  let module P = CicNotationPt in
+  let module P = NotationPt in
   let module G = GrafiteAst in
   let status =
    ref
@@ -90,12 +90,12 @@ let process_stream istream =
                   | None -> ()
                   | Some id ->
                       prerr_endline "removing last notation rule ...";
-                      CicNotationParser.delete id) *)
+                      NotationParser.delete id) *)
               | G.Executable (_, G.Macro (_, G.Check (_, t))) -> 
-                  prerr_endline (sprintf "ast: %s" (CicNotationPp.pp_term t));
+                  prerr_endline (sprintf "ast: %s" (NotationPp.pp_term t));
                   let t' = TermContentPres.pp_ast t in
                   prerr_endline (sprintf "rendered ast: %s"
-                    (CicNotationPp.pp_term t'));
+                    (NotationPp.pp_term t'));
                   let tbl = Hashtbl.create 0 in
                   dump_xml t' tbl "out.xml"
               | statement ->
@@ -104,7 +104,7 @@ let process_stream istream =
                      GrafiteAstPp.pp_statement
                       ~map_unicode_to_tex:(Helm_registry.get_bool
                         "matita.paste_unicode_as_tex")
-                      ~term_pp:CicNotationPp.pp_term
+                      ~term_pp:NotationPp.pp_term
                       ~lazy_term_pp:(fun _ -> "_lazy_term_here_")
                       ~obj_pp:(fun _ -> "_obj_here_")
                       statement)