--- a/src/ZF/UNITY/State.thy Fri Jun 17 11:35:35 2005 +0200
+++ b/src/ZF/UNITY/State.thy Fri Jun 17 16:12:49 2005 +0200
@@ -11,7 +11,7 @@
header{*UNITY Program States*}
-theory State = Main:
+theory State imports Main begin
consts var :: i
datatype var = Var("i \<in> list(nat)")