anchor.diff:      if deep then
         item.Body
         |> Seq.filter (isObsolete >> not)
  -      |> Seq.iter (printSummary wr id2items deep inSection toSection drop)
  +      |> Seq.iter ^ printSummary wr id2items deep inSection toSection drop
       else
  -      if not (List.exists (fun item -> Option.isSome item.Id) item.Body) then
  +      if List.forall (fun item -> Option.isNone item.Id) item.Body then
           item.Body
           |> Seq.filter ^ fun item ->
                match item.Tokens with
                 | T("{"|"}")::_ -> false
                 | _ -> true
  -        |> Seq.iter (printSummary wr id2items false inSection toSection drop)
  +        |> Seq.iter ^ printSummary wr id2items false inSection toSection drop
       if spacing then
         fprintf wr "</span>"
   
  
positive.code:               items
                |> filterIfNotUnique kindsFilter
                |> filterIfNotUnique pathFilter
                |> List.sortBy (fun item -> item.Kind)
  
           let items =
             match items with
  
negative.code: 
           let isUnique item =
             match item.Id with
              | Some id ->
                match Map.tryFind id id2items with
                 | Some [_] -> true
                 | _ -> false
  