--- 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