anchor.diff:  
   [<NoComparison>]
   type OpenDeclaration =
  -    { Idents: Set<Idents>
  +    { Idents: Idents list
         DeclRange: Range.range
         Range: Range.range }
   
   type private Line = int
  +
  +let longIdentToArray (longIdent: LongIdent): Idents =
  +    longIdent |> List.map string |> List.toArray
   
   // 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"
  
positive.code:                             | EntityKind.Module { HasModuleSuffix = true } ->
                                  // remove Module suffix
                                  let lastIdent = e.Idents.[e.Idents.Length - 1]
                                  Some (Array.append e.Idents.[0..e.Idents.Length - 2] [|lastIdent.Substring (0, lastIdent.Length - 6)|])
                              | _ -> None)
                      | None -> []
  
  
negative.code:                                             modifiedIdents.[index] <- idents.[index] + "Module"
                                              modifiedIdents
                                          | None -> idents)
                                      |> Seq.distinct
                                      |> Seq.toList
  
                                  { Idents = idents
                                    DeclRange = openStatementRange
                                    Range = (Range.mkRange openStatementRange.FileName openStatementRange.Start moduleRange.End) } :: acc 
                              | _ -> acc) [] 
  