anchor.diff:          and getXmlDocablesSynMemberDefn m =
               match m with
               | SynMemberDefn.Open(_longIdent, _range) -> []
  -            | SynMemberDefn.Member(SynBinding.Binding(_synAccessOption, _synBindingKind, _, _, synAttributes, preXmlDoc, _synValData, synPat, _synBindingReturnInfoOption, _synExpr, _range, _sequencePointInfoForBinding), memRange) -> 
  +            | SynMemberDefn.Member(SynBinding.Binding(_, _, _, _, synAttributes, preXmlDoc, _, synPat, _, _, _, _), memRange) -> 
                   if isEmptyXmlDoc preXmlDoc then
                       let fullRange = synAttributes |> List.fold (fun r a -> unionRanges r a.Range) memRange
                       let line = fullRange.StartLine 
  
positive.code:                 | Some(x) -> x |> List.collect getXmlDocablesSynMemberDefn
              | SynMemberDefn.Inherit(_synType, _identOption, _range) -> []
              | SynMemberDefn.ValField(_synField, _range) -> []
              | SynMemberDefn.NestedType(synTypeDefn, _synAccessOption, _range) -> getXmlDocablesSynTypeDefn synTypeDefn
              | _ -> failwith "error"
  
          and getXmlDocablesInput input =
              match input with
  
negative.code:             | SynModuleDecl.HashDirective(_parsedHashDirective, _range) -> []
              | SynModuleDecl.NamespaceFragment(synModuleOrNamespace) -> getXmlDocablesSynModuleOrNamespace synModuleOrNamespace
  
          and getXmlDocablesSynModuleOrNamespace (SynModuleOrNamespace(_, _, synModuleDecls, _, _, _, _)) =
              (synModuleDecls |> List.collect getXmlDocablesSynModuleDecl)
  
          and getXmlDocablesSynTypeDefn (SynTypeDefn.TypeDefn(ComponentInfo(synAttributes, _, _, _, preXmlDoc, _, _, compRange), synTypeDefnRepr, synMemberDefns, tRange)) =
              let stuff = 
                  match synTypeDefnRepr with
                  | ObjectModel(_synTypeDefnKind, synMemberDefns, _oRange) -> (synMemberDefns |> List.collect getXmlDocablesSynMemberDefn)
  