X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2FmatitaInit.ml;h=d4a47267faa8cbc2f79a488bbe33186957b6524e;hb=b505ea98f76ba6defb31be73a6871c62136e5747;hp=70125f54c222bb5dc3c3d146a8a7cc8aecfee294;hpb=2c01ff6094173915e7023076ea48b5804dca7778;p=helm.git

diff --git a/matita/matita/matitaInit.ml b/matita/matita/matitaInit.ml
index 70125f54c..d4a47267f 100644
--- a/matita/matita/matitaInit.ml
+++ b/matita/matita/matitaInit.ml
@@ -97,9 +97,6 @@ let initialize_db init_status =
   wants [ ConfigurationFile; CmdLine ] init_status;
   if not (already_configured [ Db ] init_status) then
     begin
-      if not (Helm_registry.get_bool "matita.system") then
-        MetadataTypes.ownerize_tables (Helm_registry.get "matita.owner");
-      LibraryDb.create_owner_environment ();
       Db::init_status
     end
   else
@@ -112,11 +109,6 @@ let initialize_environment init_status =
       Http_getter.init ();
       if Helm_registry.get_bool "matita.system" then
         Http_getter_storage.activate_system_mode ();
-      CicEnvironment.set_trust (* environment trust *)
-        (let trust =
-          Helm_registry.get_opt_default Helm_registry.get_bool
-            ~default:true "matita.environment_trust" in
-         fun _ -> trust);
       Getter::Environment::init_status
     end
   else
@@ -175,8 +167,6 @@ let parse_cmdline init_status =
     wants [Registry] init_status;
     let includes = ref [] in
     let default_includes = [ 
-      BuildTimeConf.stdlib_dir_devel;
-      BuildTimeConf.stdlib_dir_installed ; 
       BuildTimeConf.new_stdlib_dir_devel;
       BuildTimeConf.new_stdlib_dir_installed ; 
     ] 
@@ -291,10 +281,3 @@ let parse_cmdline_and_configuration_file () =
 
 let initialize_environment () =
   status := initialize_environment !status
-
-let _ =
-  CicFix.init ();
-  Inversion_principle.init ();
-  CicRecord.init ();
-  CicElim.init ()
-;;