Invalid OCaml extracted when using { record with update } syntax for inductive types with exactly one data constructor

[chandradeepdey]

module Test

type foo = | Foo : m: int -> n: int{n > m} -> foo

let bar (f: foo) : foo = { f with n = f.n + 1 }

The F* code works, but the extracted OCaml code misses a comma and parentheses