anchor.diff:                                  || (v.Days = 0 && v.Hours = 0 && v.Minutes = 0 && v.Seconds = 0)
                                   || (v.Days = 0 && v.Hours = 0 && v.Minutes = 0 && v.Seconds = 0 || v.Milliseconds = 0))
   
  -    [<Property>]
  +    [<Fact>]
       let KeyValuePair () =
           generate<KeyValuePair<int,int>> |> sample 10 |> List.forall (fun _ -> true)
   
  
positive.code:     
      open FsCheck
      open FsCheck.Xunit
      open System
      open System.Collections.Generic
      open Helpers
  
negative.code:                                  || (v.Second = 0 && v.Minute = 0) 
                                   || (v.Second = 0 && v.Minute = 0 && v.Hour = 0) )
  
      [<Fact>]
      let ``TimeSpan``() =
          generate<TimeSpan> |> sample 10 |> List.forall (fun _ -> true)
  
  