anchor.diff:      let toArrayAsync store = store |> (doAsyncSeqAsync Array.empty <| AsyncSeq.toArrayAsync)
       let toBlockingSeq store = store |> (doAsyncSeq Seq.empty <| AsyncSeq.toBlockingSeq)
       let toList store = store |> (doAsyncSeq List.empty <| AsyncSeq.toList)
  -    let toListAsync predicate = doAsyncSeqAsync List.empty <| AsyncSeq.toListAsync
  +    let toListAsync store = store |> (doAsyncSeqAsync List.empty <| AsyncSeq.toListAsync)
       let toSeq store = store |> (doAsyncSeq <| AsyncSeq.toBlockingSeq)
       let tryFind predicate = doAsyncSeqAsync None <| AsyncSeq.tryFind predicate
       let tryFirst store = store |> (doAsyncSeqAsync None <| AsyncSeq.tryFirst)
  
positive.code:             async {
                  match storeValues with
                  | Empty -> return AsyncSeq.empty
                  | Dictionary d -> return AsyncSeq.empty // Don't create a dictionary version, that would just duplicate items
                  | Values values ->
                      let! (dictionary:IReliableDictionary<_,_>) = sm.GetOrAddAsync(dictionaryName) |> Async.AwaitTask
                      do!
  
negative.code:             match vs with
              | EmptyStore _ -> AsyncSeq.empty
              | DictionaryStore _ -> AsyncSeq.empty
              | ResultStore (_,v) -> v
          )
  
      // Applicative functor ('map')
  