anchor.diff:      let s = xs |> Seq.tryFindIndex predicate
       let l = xs |> List.ofArray |> List.tryFindIndex predicate
       let a = xs |> Array.tryFindIndex predicate
  -    s = a && l = a
  +    consistency "tryFindIndex" s l a
   
   [<Test>]
   let ``tryFindIndex is consistent`` () =
  
positive.code:     let s = run (fun () -> Seq.foldBack2 f xs xs2 start)
      let l = run (fun () -> List.foldBack2 f (List.ofArray xs) (List.ofArray xs2) start)
      let a = run (fun () -> Array.foldBack2 f xs xs2 start)
      s = a && l = a
  
  [<Test>]
  let ``foldBack2 is consistent`` () =
  
negative.code:     let s = run (fun () -> xs |> Seq.chunkBySize size |> Seq.map Seq.toArray |> Seq.toArray)
      let l = run (fun () -> xs |> List.ofArray |> List.chunkBySize size |> Seq.map Seq.toArray |> Seq.toArray)
      let a = run (fun () -> xs |> Array.chunkBySize size |> Seq.map Seq.toArray |> Seq.toArray)
      consistency "chunkBySize" s l a
  
  
  [<Test>]
  let ``chunkBySize is consistent`` () =
  