--- a/src/HOL/Library/FuncSet.thy Mon Aug 16 14:21:54 2004 +0200
+++ b/src/HOL/Library/FuncSet.thy Mon Aug 16 14:22:27 2004 +0200
@@ -5,7 +5,9 @@
header {* Pi and Function Sets *}
-theory FuncSet = Main:
+theory FuncSet
+import Main
+begin
constdefs
Pi :: "['a set, 'a => 'b set] => ('a => 'b) set"