(* implementing an interface on a discriminated union in F# *)

type IMiddle =
    abstract Middle : String with get

type Either<'a, 'b> =
    | Left of 'a
    | Right of 'b

    interface IMiddle with
        member this.Middle = "middle!"

let x = Left 110

let mdl = (x :> IMiddle).Middle