val return : 'a ‑> 'a Base__Or_error.tval bind : 'a Base__Or_error.t ‑> f:('a ‑> 'b Base__Or_error.t) ‑> 'b Base__Or_error.tval map : 'a Base__Or_error.t ‑> f:('a ‑> 'b) ‑> 'b Base__Or_error.tval both : 'a Base__Or_error.t ‑> 'b Base__Or_error.t ‑> ('a * 'b) Base__Or_error.tmodule Open_on_rhs : sig ... end