--- a/src/ZF/QUniv.thy Fri Jun 17 11:35:35 2005 +0200
+++ b/src/ZF/QUniv.thy Fri Jun 17 16:12:49 2005 +0200
@@ -7,7 +7,7 @@
header{*A Small Universe for Lazy Recursive Types*}
-theory QUniv = Univ + QPair:
+theory QUniv imports Univ QPair begin
(*Disjoint sums as a datatype*)
rep_datatype