--- a/src/HOL/Main.thy Thu Aug 17 10:33:13 2000 +0200
+++ b/src/HOL/Main.thy Thu Aug 17 10:33:37 2000 +0200
@@ -1,1 +1,5 @@
-Main = While + Map + String (*theory Main includes everything*)
+
+(*theory Main includes everything; note that theory
+ PreList already includes most HOL theories*)
+
+Main = Map + String
--- a/src/HOL/PreList.thy Thu Aug 17 10:33:13 2000 +0200
+++ b/src/HOL/PreList.thy Thu Aug 17 10:33:37 2000 +0200
@@ -9,7 +9,7 @@
theory PreList =
Option + WF_Rel + NatSimprocs + Recdef + Record + RelPow + Calculation +
- SVC_Oracle:
+ SVC_Oracle + While:
theorems [cases type: bool] = case_split