anchor.diff:                      |> Seq.filter (fun (q, _) -> p = q)
                       |> Seq.map (fun (_, cs) -> cs)
                       |> Set.unionMany)
  -
   
               for contrib in contributions do
                 let core =
  
positive.code:     let hints =
        lock
        |> Option.map (fun l ->
          l.Packages |> Map.map (fun p v -> [({Package = p; Versions = v.Versions}, v.Location)] )   )
        |> Option.defaultValue Map.empty
  
      let state = {
  
negative.code:           AsyncSeq.append
              (getHints sourceExplorer state p cs)
              (getCandidates resolver sourceExplorer state selections p cs)
  
          let results =
            candidates
  