anchor.diff:          |> Seq.concat
           |> Seq.toArray
   
  -    let allSpans = spansBasedOnSymbolsUses |> Array.append quotations
  +    let allSpans = spansBasedOnSymbolsUses |> Array.append quotations |> Array.append unusedOpenDeclarationSpans
       
   //    for span in allSpans do
   //       debug "-=O=- %A" span
  
positive.code:             let (SynModuleOrNamespace(_, _, decls, _, _, _, _)) = moduleOrNs
              visitDeclarations decls
  
      untypedAst |> Option.iter (fun ast ->
          match ast with
          | ParsedInput.ImplFile(implFile) ->
              let (ParsedImplFileInput(_, _, _, _, _, modules, _)) = implFile
              visitModulesAndNamespaces modules
          | _ -> ()
      )
  
      //printfn "AST: %A" untypedAst
      
      let trimWhitespaces = 
  
negative.code: type CategorizedColumnSpan =
      { Category: Category
        WordSpan: WordSpan }
  
  type private Scope =
      { StartLine: int
        EndLine: int }
  
  [<NoComparison>]
  type private OpenDeclaration =
      { Ident: string 
        Range: Range.range
        Scope: Scope }
  
  // If "what" span is entirely included in "from" span, then truncate "from" to the end of "what".
  // Example: for ReferenceType symbol "System.Diagnostics.DebuggerDisplay" there are "System", "Diagnostics" and "DebuggerDisplay"
  