changes for new Readthy

--- a/src/CCL/ROOT.ML	Fri Oct 22 11:42:02 1993 +0100
+++ b/src/CCL/ROOT.ML	Fri Oct 22 13:35:15 1993 +0100
@@ -11,7 +11,7 @@
 (* Higher-Order Set Theory Extension to FOL *)
 (*      used as basis for CCL               *)
 
-(*set_load_path [".", "../FOL"]; wait for new Readthy*)
+set_loadpath [".", "../FOL"];
 
 use_thy "set";
 use     "subset.ML";

--- a/src/CTT/ROOT.ML	Fri Oct 22 11:42:02 1993 +0100
+++ b/src/CTT/ROOT.ML	Fri Oct 22 13:35:15 1993 +0100
@@ -12,6 +12,9 @@
 
 print_depth 1;  
 
+structure Readthy = ReadthyFUN (structure ThySyn = ThySyn);
+open Readthy;
+
 use_thy"ctt";
 use "../Provers/typedsimp.ML";
 use "rew.ML";

--- a/src/Cube/ROOT.ML	Fri Oct 22 11:42:02 1993 +0100
+++ b/src/Cube/ROOT.ML	Fri Oct 22 13:35:15 1993 +0100
@@ -9,6 +9,9 @@
 val banner = "Barendregt's Lambda-Cube";
 writeln banner;
 
+structure Readthy = ReadthyFUN (structure ThySyn = ThySyn);
+open Readthy;
+
 print_depth 1;  
 use_thy "cube";
 

--- a/src/FOL/ROOT.ML	Fri Oct 22 11:42:02 1993 +0100
+++ b/src/FOL/ROOT.ML	Fri Oct 22 13:35:15 1993 +0100
@@ -11,6 +11,9 @@
 
 writeln banner;
 
+structure Readthy = ReadthyFUN (structure ThySyn = ThySyn);
+open Readthy;
+
 print_depth 1;  
 use_thy "ifol";
 use_thy "fol";

--- a/src/FOLP/ROOT.ML	Fri Oct 22 11:42:02 1993 +0100
+++ b/src/FOLP/ROOT.ML	Fri Oct 22 13:35:15 1993 +0100
@@ -12,6 +12,9 @@
 
 writeln banner;
 
+structure Readthy = ReadthyFUN (structure ThySyn = ThySyn);
+open Readthy;
+
 print_depth 1;  
 use_thy "ifolp";
 use_thy "folp";

--- a/src/LCF/ROOT.ML	Fri Oct 22 11:42:02 1993 +0100
+++ b/src/LCF/ROOT.ML	Fri Oct 22 13:35:15 1993 +0100
@@ -11,6 +11,8 @@
 val banner = "Logic for Computable Functions (in FOL)";
 writeln banner;
 
+set_loadpath [".", "../FOL"];
+
 print_depth 1;
 use_thy "lcf";
 use"simpdata.ML";

--- a/src/LK/ROOT.ML	Fri Oct 22 11:42:02 1993 +0100
+++ b/src/LK/ROOT.ML	Fri Oct 22 13:35:15 1993 +0100
@@ -10,6 +10,9 @@
 val banner = "Classical First-Order Sequent Calculus";
 writeln banner;
 
+structure Readthy = ReadthyFUN (structure ThySyn = ThySyn);
+open Readthy;
+
 print_depth 1;  
 
 use_thy "lk";

--- a/src/Modal/ROOT.ML	Fri Oct 22 11:42:02 1993 +0100
+++ b/src/Modal/ROOT.ML	Fri Oct 22 13:35:15 1993 +0100
@@ -7,6 +7,8 @@
 val banner = "Modal Logic (over LK)";
 writeln banner;
 
+set_loadpath [".", "../LK"];
+
 use_thy "modal0";
 
 structure Modal0_rls =