anchor.diff:      Root { Text=text
              Children=children
              ValueInfo={Text=valueText; Value=value; Type=ty}
  -           Name=name }+           Name=name 
  +           ExpressionInfo= {Expression=name; IsPublic=true; ExplicitInterfaceName=None}}
positive.code:             DataMember { LoadingText=(pretext pi.PropertyType.FSharpName loadingText)
                           LazyMemberValue=delayed
                           Image=image
                           MemberInfo=pi }
  
          let getFieldWatch (fi:FieldInfo) =
              let pretext = sprintf "%s : %s%s" (getMemberName fi)
  
negative.code:             DataMember { LoadingText=pretext fi.FieldType.FSharpName loadingText
                           LazyMemberValue=delayed
                           Image=image
                           MemberInfo=fi 
                           ExpressionInfo= getMemberExpressionInfo fi }
  
          let getMethodWatch (mi:MethodInfo) =
              let pretext = sprintf "%s() : %s%s" (getMemberName mi)
  