anchor.diff:  [<Test>]
   let ``toArray is same length as non-empty list`` () =
       fsCheck (fun nel -> NonEmptyList.toArray nel |> Array.length = nel.Length)
  -
  -[<Test>]
  -let ``functor laws``() =
  -    let map = NonEmptyList.map
  -    fsCheck (fun nel -> map id nel = nel)
  -    fsCheck (fun f g nel -> map (f << g) nel = (map f << map g) nel)
   
   [<Test>]
   let ``reverse . reverse = id`` () =
  
positive.code:         |> Arb.fromGen
  
  let registerGen = lazy (Arb.register<NonEmptyListGen>() |> ignore)
  
  let fsCheck t = fsCheck "" t
  
  
negative.code:         let actual = NonEmptyList.reduce (+) nel
          let expected = nel |> NonEmptyList.toList |> List.sum
          expected = actual
  