Module Ocamlformat_stdlib.Maybe_bound
type !'a t =
| Incl of 'a
| Excl of 'a
| Unbounded
val all : 'a list -> 'a t list
val t_of_sexp : (Sexplib0__.Sexp.t -> 'a) -> Sexplib0__.Sexp.t -> 'a t
val sexp_of_t : ('a -> Sexplib0__.Sexp.t) -> 'a t -> Sexplib0__.Sexp.t
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
val bounds_crossed :
lower:'a t ->
upper:'a t ->
compare:('a -> 'a -> int) ->
bool
type interval_comparison =
| Below_lower_bound
| In_range
| Above_upper_bound
val compare_to_interval_exn :
lower:'a t ->
upper:'a t ->
'a ->
compare:('a -> 'a -> int) ->
interval_comparison