anchor.diff:                              match (bbAllBases |> Seq.tryFind (fun a -> a.IsEffectivelySameAs aa)) with
                               | Some _ ->  1
                               | _ -> aa.DisplayName.CompareTo(bb.DisplayName)
  +
                       comparisonResult
                   | a, b -> a.DisplayName.CompareTo(b.DisplayName)
               | _ -> -1
  
positive.code:                 let! (typedParseResults: ParseAndCheckResults option) =
                      lock parseLock (fun() ->
                          async {
                              match parsedDocument, ctrlSpace with
                              | Some document, false  -> 
                                  match document.ParsedLocation with
                                  | Some location ->
                                      if location.Line = context.line && location.Column > lineToCaret.LastIndexOf("->") then
  
negative.code:                 | (:? FSharpEntity as aa), (:? FSharpEntity as bb) ->
                      let comparisonResult =
                          let aaAllBases = ancestry aa
  
                          match (aaAllBases |> Seq.tryFind (fun a -> a.IsEffectivelySameAs bb)) with
                          | Some _ ->  -1
                          | _ ->
  