--- a/src/HOL/Integ/NatBin.thy Thu Aug 03 10:46:01 2000 +0200
+++ b/src/HOL/Integ/NatBin.thy Thu Aug 03 10:52:30 2000 +0200
@@ -8,7 +8,7 @@
This case is simply reduced to that for the non-negative integers
*)
-NatBin = IntDiv +
+NatBin = IntPower +
instance
nat :: number