More notation (up to where the open bugs allow me to put it without adding

[helm.git] / helm / matita / matita.ml

diff --git a/helm/matita/matita.ml b/helm/matita/matita.ml
index 0b5919ab9e8b28f78c7a81035eb2615ebdb7fcbf..aae334abd56e79927c748b3636c02a3160222468 100644 (file)
--- a/helm/matita/matita.ml
+++ b/helm/matita/matita.ml
@@ -31,7 +31,7 @@ open MatitaMisc
 
 
 (* ALB to link paramodulation... *)
-let _ = Saturation.init ()
+let _ = Paramodulation.Saturation.init ()
   
 
 (** {2 Initialization} *)
@@ -44,6 +44,8 @@ let _ =
   MatitaDb.create_owner_environment ();
   MatitamakeLib.initialize ();
   GtkMain.Rc.add_default_file BuildTimeConf.gtkrc_file; (* loads gtk rc *)
+  prerr_endline BuildTimeConf.gtkmathview_conf;
+  GMathView.add_configuration_path BuildTimeConf.gtkmathview_conf;
   ignore (GMain.Main.init ());
   CicEnvironment.set_trust (* environment trust *)
     (let trust = Helm_registry.get_bool "matita.environment_trust" in
@@ -152,6 +154,10 @@ let _ =
         prerr_endline (UriManager.string_of_uri u); 
         CicUniv.print_ugraph g) (CicEnvironment.list_obj ())
       );
+    addDebugItem "dump environment content" (fun _ ->
+      List.iter (fun (u,_,_) -> 
+        prerr_endline (UriManager.string_of_uri u)) 
+        (CicEnvironment.list_obj ()));
     addDebugItem "print selected terms" (fun () ->
       let i = ref 0 in
       List.iter