--- a/src/ZF/Finite.thy Thu Aug 25 10:41:17 1994 +0200
+++ b/src/ZF/Finite.thy Thu Aug 25 12:09:21 1994 +0200
@@ -6,7 +6,7 @@
Finite powerset operator
*)
-Finite = Arith +
+Finite = Arith + "Inductive" +
consts
Fin :: "i=>i"
FiniteFun :: "[i,i]=>i" ("(_ -||>/ _)" [61, 60] 60)