module A =

    let inline WithX x a =
        (^a : (member SetX : float -> ^a) (a, x))

[<JavaScript>]
type B (x: float, y: float) =

    member b.Y = y

    member b.SetX x =
        B (x, b.Y)