anchor.diff:          ThisValueMemberAccess : MemberAccessExpressionSyntax
           ValueAccess : ExpressionSyntax -> ExpressionSyntax
       }
  +
  +let private value info x = x :> ExpressionSyntax |> info.ValueAccess
   
   let private (|?>) x (c, f) = if c then f x else x
   let private (|??>) x (c, f, g) = if c then f x else g x
  
positive.code:         let left = identifier "left"
          let right = identifier "right"
  
          let value x = x :> ExpressionSyntax |> info.ValueAccess
          let body = ret (underlyingEquals info (value left) (value right) eq)
  
          let operatorToken = if eq then SyntaxKind.EqualsEqualsToken else SyntaxKind.ExclamationEqualsToken
  
negative.code:         let parameterA = identifier "a"
          let parameterB = identifier "b"
  
          let value = value info
  
          let body = ret (underlyingEquals info (value parameterA) (value parameterB) true)
  
          SyntaxFactory.MethodDeclaration(TypeSyntax.Bool, "Equals")
  