Source file unit.ml

type t = unit
let equal () () = true
let compare () () = Ordering.Eq
let hash () = 0
let to_sexp () = Sexp.List []