--- a/src/ZF/Induct/Datatypes.thy Fri Jun 17 11:35:35 2005 +0200
+++ b/src/ZF/Induct/Datatypes.thy Fri Jun 17 16:12:49 2005 +0200
@@ -6,7 +6,7 @@
header {* Sample datatype definitions *}
-theory Datatypes = Main:
+theory Datatypes imports Main begin
subsection {* A type with four constructors *}