src/HOL/Orderings.thy
changeset 22997 d4f3b015b50b
parent 22916 8caf6da610e2
child 23018 1d29bc31b0cb
     1.1 --- a/src/HOL/Orderings.thy	Thu May 17 19:49:21 2007 +0200
     1.2 +++ b/src/HOL/Orderings.thy	Thu May 17 19:49:40 2007 +0200
     1.3 @@ -380,11 +380,11 @@
     1.4            if of_sort t1
     1.5            then SOME (t1, "=", t2)
     1.6            else NONE
     1.7 -      | dec (Const (@{const_name less_eq},  _) $ t1 $ t2) =
     1.8 +      | dec (Const (@{const_name Orderings.less_eq},  _) $ t1 $ t2) =
     1.9            if of_sort t1
    1.10            then SOME (t1, "<=", t2)
    1.11            else NONE
    1.12 -      | dec (Const (@{const_name less},  _) $ t1 $ t2) =
    1.13 +      | dec (Const (@{const_name Orderings.less},  _) $ t1 $ t2) =
    1.14            if of_sort t1
    1.15            then SOME (t1, "<", t2)
    1.16            else NONE