added bool_ord;
authorwenzelm
Mon Oct 29 16:13:43 2007 +0100 (2007-10-29)
changeset 252246d4d26e878f4
parent 25223 7463251e7273
child 25225 e638164593bf
added bool_ord;
src/Pure/library.ML
     1.1 --- a/src/Pure/library.ML	Mon Oct 29 16:13:41 2007 +0100
     1.2 +++ b/src/Pure/library.ML	Mon Oct 29 16:13:43 2007 +0100
     1.3 @@ -195,6 +195,7 @@
     1.4    val is_equal: order -> bool
     1.5    val rev_order: order -> order
     1.6    val make_ord: ('a * 'a -> bool) -> 'a * 'a -> order
     1.7 +  val bool_ord: bool * bool -> order
     1.8    val int_ord: int * int -> order
     1.9    val string_ord: string * string -> order
    1.10    val fast_string_ord: string * string -> order
    1.11 @@ -921,6 +922,10 @@
    1.12    else if rel (y, x) then GREATER
    1.13    else EQUAL;
    1.14  
    1.15 +fun bool_ord (false, true) = LESS
    1.16 +  | bool_ord (true, false) = GREATER
    1.17 +  | bool_ord _ = EQUAL;
    1.18 +
    1.19  val int_ord = Int.compare;
    1.20  val string_ord = String.compare;
    1.21