gistfile1.fs

open IntelliFactory.WebSharper
open Microsoft.FSharp

let hasRefDef (t: System.Type) =
    match t.GetMethods() |> Seq.find (fun m -> m.Name = "get_Body") with
    | Quotations.DerivedPatterns.MethodWithReflectedDefinition d -> true
    | _ -> false

type Foo() =
    inherit Web.Control()
    [<JavaScript>]
    override this.Body = Text ""

let Bar =
    { new Web.Control() with
        [<JavaScript>] member this.Body = Text "" }

hasRefDef typeof<Foo>       // true
hasRefDef (Bar.GetType())   // false