为什么类型推理算法会因为“Fun.flip Option.bind”而感到困惑？

问：

模块中函数声明的常见签名是当最后一个参数具有主状态 （Module.t） 的类型时。就像在“列表”模块中一样。此窗体打开了使用“|>”运算符的功能，例如：

[1;2;3] |> List.filter ((>)2)
        |> List.map ((-)1)
        |> List.fold_left 0 (+)

但是“选项”模块中的函数“绑定”不遵循这种形式。它的第一个参数是“Option.t”

val bind : 'a option -> ('a -> 'b option) -> 'b option

但是好吧，我可以改变它。我以相反的参数顺序声明了函数“opt_bind”。

let opt_bind = Fun.flip Option.bind

但是这个行不通。并且编译了以下代码，并出现了以下错误

type a = A of int
type b = B of int 

let f x = Some (A x)
let g (A x) = Some (B x)  
let opt_bind = Fun.flip Option.bind 

let result = 
  (Some 42) |> opt_bind f
            |> opt_bind g

         |> opt_bind g
                     ^                     

错误：此表达式的类型为 -> b 选项，但表达式应>类型为 int -> 选项。类型 a 与类型 int 不兼容

与相同的情况

let result = 
  let x = opt_bind f (Some 42) in
  let x = opt_bind g x in
  x 

即使我注意到了所有类型，我仍然有同样的问题。

let f : int -> a option = fun x -> Some (A x)
let g : a -> b option = fun (A x) -> Some (B x)  
let opt_bind : ('a -> 'b option) -> 'a option -> 'b option = 
  Fun.flip Option.bind 

let result : b option = 
  let x : a option = opt_bind f (Some 42) in
  let x : b option = opt_bind g x in
  x ;;

但

let result = 
  let x = Option.bind (Some 42) f in
  let x = Option.bind x g in
  x 

工作正常。

为什么“opt_bind”对“g”有错误的类型期望，就好像“opt_bind”不是泛型的一样？
如何使用“bind”和“|>”表示法？