An F# record that implements an interface

RecordImplementsInterface.fsx

type IDisplayable =
    abstract GetDisplayText: unit -> string

type Person = 
    { age: int
      name: string }
    interface IDisplayable with
        member x.GetDisplayText() = x.name

let showValue (x: IDisplayable) =
    printfn "Hello %s" (x.GetDisplayText())


// Test
let x = { age = 22; name = "Hans" }
showValue x