Source file `bool.ml`

1
2
3
4
5
6
7
8
9
10
type t = bool

let compare x y =
  match x, y with
  | true, true
  | false, false -> Ordering.Eq
  | true, false -> Gt
  | false, true -> Lt

let to_string = string_of_bool