anchor.diff:      member _.IsPropertyGetterMethod = 
           if isUnresolved() then false else 
           match d with 
  -        | M m when m.LogicalName.StartsWithOrdinal("get_") -> 
  -            let propName = PrettyNaming.ChopPropertyName(m.LogicalName) 
  +        | M m ->
  +            let logicalName = m.LogicalName
  +            logicalName.Length > 4 && logicalName.StartsWithOrdinal("get_") &&
  +
  +            let propName = PrettyNaming.ChopPropertyName(logicalName)
               let declaringTy = generalizedTyconRef m.DeclaringTyconRef
               not (isNil (GetImmediateIntrinsicPropInfosOfType (Some propName, AccessibleFromSomeFSharpCode) cenv.g cenv.amap range0 declaringTy))
           | V v -> v.IsPropertyGetterMethod
  
positive.code:     member _.IsEventAddMethod = 
          if isUnresolved() then false else 
          match d with 
          | M m when m.LogicalName.StartsWithOrdinal("add_") -> 
              let eventName = m.LogicalName.[4..]
              let entityTy = generalizedTyconRef m.DeclaringTyconRef
              not (isNil (cenv.infoReader.GetImmediateIntrinsicEventsOfType (Some eventName, AccessibleFromSomeFSharpCode, range0, entityTy))) ||
              let declaringTy = generalizedTyconRef m.DeclaringTyconRef
  
negative.code:     member _.IsPropertySetterMethod = 
          if isUnresolved() then false else 
          match d with 
          | M m ->
              let logicalName = m.LogicalName
              logicalName.Length > 4 && logicalName.StartsWithOrdinal("set_") &&
  
              let propName = PrettyNaming.ChopPropertyName(logicalName) 
              let declaringTy = generalizedTyconRef m.DeclaringTyconRef
              not (isNil (GetImmediateIntrinsicPropInfosOfType (Some propName, AccessibleFromSomeFSharpCode) cenv.g cenv.amap range0 declaringTy))
          | V v -> v.IsPropertySetterMethod
  