anchor.diff:      let s = runAndCheckIfAnyError (fun () -> xs |> Seq.max)
       let l = runAndCheckIfAnyError (fun () -> xs |> List.ofArray |> List.max)
       let a = runAndCheckIfAnyError (fun () -> xs |> Array.max)
  -    s = a && l = a
  +    consistency "max" s l a
   
   [<Test>]
   let ``max is consistent`` () =
  
positive.code:     let s = runAndCheckErrorType (fun () -> Seq.forall2 f xs xs2)
      let l = runAndCheckErrorType (fun () -> List.forall2 f (List.ofSeq xs) (List.ofSeq xs2))
      let a = runAndCheckErrorType (fun () -> Array.forall2 f (Array.ofSeq xs) (Array.ofSeq xs2))
      s = a && l = a
      
  [<Test>]
  let ``forall2 is consistent for collections with equal length`` () =
  
negative.code:     Check.QuickThrowOnFailure countBy<float>
  
  let distinct<'a when 'a : comparison> (xs : 'a []) =
      let s = xs |> Seq.distinct |> Seq.toArray
      let l = xs |> List.ofArray |> List.distinct |> List.toArray
      let a = xs |> Array.distinct 
      consistency "distinct" s l a
  
  [<Test>]
  let ``distinct is consistent`` () =
  