--- a/src/HOL/Hyperreal/StarClasses.thy Fri Oct 26 21:22:18 2007 +0200
+++ b/src/HOL/Hyperreal/StarClasses.thy Fri Oct 26 21:22:19 2007 +0200
@@ -403,12 +403,12 @@
done
instance star :: (pordered_comm_semiring) pordered_comm_semiring
-by (intro_classes, transfer, rule mult_mono1_class.less_eq_less_times_zero.mult_mono)
+by (intro_classes, transfer, rule mult_mono1_class.times_zero_less_eq_less.mult_mono)
instance star :: (pordered_cancel_comm_semiring) pordered_cancel_comm_semiring ..
instance star :: (ordered_comm_semiring_strict) ordered_comm_semiring_strict
-by (intro_classes, transfer, rule ordered_comm_semiring_strict_class.plus_less_eq_less_zero_times.mult_strict_mono)
+by (intro_classes, transfer, rule ordered_comm_semiring_strict_class.plus_times_zero_less_eq_less.mult_strict_mono)
instance star :: (pordered_ring) pordered_ring ..
instance star :: (lordered_ring) lordered_ring ..