(* This file is free software, part of containers. See file "license" for more details. *)

type t = bool

let equal (a:bool) b = a=b

let compare (a:bool) b = Pervasives.compare a b

let negate = not

type 'a printer = Format.formatter -> 'a -> unit

let pp = Format.pp_print_bool