anchor.diff:  type Use() =
       let a = XmlDocSigTest ()
       a.AnEvent.Add (fun _ -> () )
  -    member x.Test () = ( )
  +    member x.Test number =
  +        TestNumber 42
   """
       File.WriteAllText(fileName1, fileSource1)
   
  
positive.code:               ("FSharpField", "anInt", "F:M.XmlDocSigTest.anInt");
                ("FSharpEntity", "Use", "T:M.Use");
                ("FSharpMemberFunctionOrValue", "( .ctor )", "M:M.Use.#ctor");
                ("FSharpMemberFunctionOrValue", "Test", "M:M.Use.Test")|]
  
negative.code: module M
  open System
  open System.Collections.Generic
  let (|Even|Odd|) input = if input % 2 = 0 then Even else Odd
  let TestNumber input =
     match input with
     | Even -> printfn "%d is even" input
     | Odd -> printfn "%d is odd" input
  type DU = A of string | B of int
  type XmlDocSigTest() =
      let event1 = new Event<_>()
  