anchor.diff:      let s = runAndCheckErrorType (fun () -> Seq.zip3 xs xs2 xs3 |> Seq.toArray)
       let l = runAndCheckErrorType (fun () -> List.zip3 (List.ofSeq xs) (List.ofSeq xs2) (List.ofSeq xs3) |> List.toArray)
       let a = runAndCheckErrorType (fun () -> Array.zip3 (Array.ofSeq xs) (Array.ofSeq xs2) (Array.ofSeq xs3))
  -    s = a && l = a
  +    consistency "zip3" s l a
       
   [<Test>]
   let ``zip3 is consistent for collections with equal length`` () =
  
positive.code:     let s = xs |> Seq.exists f
      let l = xs |> List.ofArray |> List.exists f
      let a = xs |> Array.exists f
      s = a && l = a
  
  [<Test>]
  let ``exists is consistent`` () =
  
negative.code:     Check.QuickThrowOnFailure exactlyOne<NormalFloat>
  
  let except<'a when 'a : equality> (xs : 'a []) (itemsToExclude: 'a []) =
      let s = xs |> Seq.except itemsToExclude |> Seq.toArray
      let l = xs |> List.ofArray |> List.except itemsToExclude |> List.toArray
      let a = xs |> Array.except itemsToExclude
      consistency "except" s l a
  
  [<Test>]
  let ``except is consistent`` () =
  