src/HOL/Orderings.thy
changeset 22997 d4f3b015b50b
parent 22916 8caf6da610e2
child 23018 1d29bc31b0cb
equal deleted inserted replaced
22996:5f82c5f8478e 22997:d4f3b015b50b
   378            | SOME (t1, rel, t2) => SOME (t1, "~" ^ rel, t2))
   378            | SOME (t1, rel, t2) => SOME (t1, "~" ^ rel, t2))
   379       | dec (Const (@{const_name "op ="},  _) $ t1 $ t2) =
   379       | dec (Const (@{const_name "op ="},  _) $ t1 $ t2) =
   380           if of_sort t1
   380           if of_sort t1
   381           then SOME (t1, "=", t2)
   381           then SOME (t1, "=", t2)
   382           else NONE
   382           else NONE
   383       | dec (Const (@{const_name less_eq},  _) $ t1 $ t2) =
   383       | dec (Const (@{const_name Orderings.less_eq},  _) $ t1 $ t2) =
   384           if of_sort t1
   384           if of_sort t1
   385           then SOME (t1, "<=", t2)
   385           then SOME (t1, "<=", t2)
   386           else NONE
   386           else NONE
   387       | dec (Const (@{const_name less},  _) $ t1 $ t2) =
   387       | dec (Const (@{const_name Orderings.less},  _) $ t1 $ t2) =
   388           if of_sort t1
   388           if of_sort t1
   389           then SOME (t1, "<", t2)
   389           then SOME (t1, "<", t2)
   390           else NONE
   390           else NONE
   391       | dec _ = NONE;
   391       | dec _ = NONE;
   392   in dec t end;
   392   in dec t end;