Let_syntax.Let_syntaxval return : 'a -> 'a T1(T)(M).tval bind : 'a T1(T)(M).t -> f:('a -> 'b T1(T)(M).t) -> 'b T1(T)(M).tval map : 'a T1(T)(M).t -> f:('a -> 'b) -> 'b T1(T)(M).tval both : 'a T1(T)(M).t -> 'b T1(T)(M).t -> ('a * 'b) T1(T)(M).tmodule Open_on_rhs : sig ... end