--- a/src/HOL/Import/HOL/HOL4Real.thy Tue Jan 15 16:19:21 2008 +0100
+++ b/src/HOL/Import/HOL/HOL4Real.thy Tue Jan 15 16:19:23 2008 +0100
@@ -527,7 +527,7 @@
((op ^::real => nat => real) x
((number_of \<Colon> int => nat)
((op BIT \<Colon> int => bit => int)
- ((op BIT \<Colon> int => bit => int) (Numeral.Pls \<Colon> int) (bit.B1::bit))
+ ((op BIT \<Colon> int => bit => int) (Int.Pls \<Colon> int) (bit.B1::bit))
(bit.B0::bit))))))"
by (import real REAL_LE1_POW2)
@@ -539,7 +539,7 @@
((op ^::real => nat => real) x
((number_of \<Colon> int => nat)
((op BIT \<Colon> int => bit => int)
- ((op BIT \<Colon> int => bit => int) (Numeral.Pls \<Colon> int) (bit.B1::bit))
+ ((op BIT \<Colon> int => bit => int) (Int.Pls \<Colon> int) (bit.B1::bit))
(bit.B0::bit))))))"
by (import real REAL_LT1_POW2)