anchor.diff:      Label: string
       AstElem: ITreeNode }
   
  -type DDNode =
  -| RootNode
  -| InnerNode of NodeInfo
  -
   type DDGraph = {
       Graph: AdjacencyGraph<int, Edge<int>>
  -    NodeIdInfoDict: Dictionary<int, DDNode> }
  +    NodeIdInfoDict: Dictionary<int, NodeInfo> }
   
   module DDGraphFuncs =
       open JetBrains.ReSharper.Psi
  
positive.code:         let addNodeAsConnectionNode treeNode label (state: BuildState) =
              let nodeId, provider' = NodeIdProviderFuncs.getId state.Provider treeNode
              let nodeInfo = { Label = label; AstElem = treeNode }
              let graph' = DDGBuildFuncs.addConnectionNodeAndEdge state.GraphInfo nodeId (InnerNode(nodeInfo))
              { state with GraphInfo = graph'; Provider = provider' }
  
          let setGraphConnectionNode nodeId (state: BuildState) =
  
negative.code:         |> List.map 
              (
                  fun kvp ->
                      let text = kvp.Value.Label
                      kvp.Key.ToString() + " [label=\"" + text + "\"]"
              )
          |> List.iter file.WriteLine
  