For_testing.Unsafe_cheap_option
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 none : 'a t
val some : 'a -> 'a t
val is_none : 'a t -> bool
val is_some : 'a t -> bool
val value_exn : 'a t -> 'a
val value_unsafe : 'a t -> 'a
val to_option : 'a t -> 'a option
val of_option : 'a option -> 'a t