Module Base__.Maybe_bound

type 'a t =
| Incl of 'a
| Excl of 'a
| Unbounded

Used for specifying a bound (either upper or lower) as inclusive, exclusive, or unbounded.

include sig ... end
val t_of_sexp : (Base__.Sexplib.Sexp.t ‑> 'a) ‑> Base__.Sexplib.Sexp.t ‑> 'a t
val sexp_of_t : ('a ‑> Base__.Sexplib.Sexp.t) ‑> 'a t ‑> Base__.Sexplib.Sexp.t
val all : 'a list ‑> 'a t list
val map : 'a t ‑> f:('a ‑> 'b) ‑> 'b t
val is_lower_bound : 'a t ‑> of_:'a ‑> compare:('a ‑> 'a ‑> int) ‑> bool
val is_upper_bound : 'a t ‑> of_:'a ‑> compare:('a ‑> 'a ‑> int) ‑> bool
val interval_contains_exn : lower:'a t ‑> upper:'a t ‑> 'a ‑> compare:('a ‑> 'a ‑> int) ‑> bool

interval_contains_exn ~lower ~upper x ~compare raises if lower and upper are crossed.

val bounds_crossed : lower:'a t ‑> upper:'a t ‑> compare:('a ‑> 'a ‑> int) ‑> bool

bounds_crossed ~lower ~upper ~compare returns true if lower > upper.

It ignores whether the bounds are Incl or Excl.

type interval_comparison =
| Below_lower_bound
| In_range
| Above_upper_bound
include sig ... end
val compare_interval_comparison : interval_comparison ‑> interval_comparison ‑> int
val interval_comparison_of_sexp : Base__.Sexplib.Sexp.t ‑> interval_comparison
val sexp_of_interval_comparison : interval_comparison ‑> Base__.Sexplib.Sexp.t
val compare_to_interval_exn : lower:'a t ‑> upper:'a t ‑> 'a ‑> compare:('a ‑> 'a ‑> int) ‑> interval_comparison

compare_to_interval_exn ~lower ~upper x ~compare raises if lower and upper are crossed.