Replaced obsolete "use" command

--- a/src/CTT/ROOT.ML	Wed Nov 27 10:34:28 1996 +0100
+++ b/src/CTT/ROOT.ML	Wed Nov 27 10:36:38 1996 +0100
@@ -20,7 +20,7 @@
 use_thy "Arith";
 use_thy "Bool";
 
-use "../Pure/install_pp.ML";
+init_pps ();
 print_depth 8;
 
 val CTT_build_completed = ();   (*indicate successful build*)

--- a/src/Cube/ROOT.ML	Wed Nov 27 10:34:28 1996 +0100
+++ b/src/Cube/ROOT.ML	Wed Nov 27 10:36:38 1996 +0100
@@ -14,7 +14,7 @@
 print_depth 1;  
 use_thy "Cube";
 
-use "../Pure/install_pp.ML";
+init_pps ();
 print_depth 8;
 
 val Cube_build_completed = ();  (*indicate successful build*)

--- a/src/FOL/ROOT.ML	Wed Nov 27 10:34:28 1996 +0100
+++ b/src/FOL/ROOT.ML	Wed Nov 27 10:36:38 1996 +0100
@@ -69,7 +69,7 @@
 
 use "simpdata.ML";
 
-use "../Pure/install_pp.ML";
+init_pps ();
 print_depth 8;
 
 val FOL_build_completed = ();   (*indicate successful build*)

--- a/src/FOLP/ROOT.ML	Wed Nov 27 10:34:28 1996 +0100
+++ b/src/FOLP/ROOT.ML	Wed Nov 27 10:36:38 1996 +0100
@@ -75,7 +75,7 @@
 
 use "simpdata.ML";
 
-use "../Pure/install_pp.ML";
+init_pps ();
 print_depth 8;
 
 val FOLP_build_completed = ();  (*indicate successful build*)