anchor.diff:              fromGenShrink (gen,shrink)
               |> convert DoNotSize DoNotSize.Unwrap
   
  -        ///Generates arbitrary floats, NaN, NegativeInfinity, PositiveInfinity, Maxvalue, MinValue, Epsilon included fairly frequently.
  +        ///Generates arbitrary 64 bit floats, NaN, NegativeInfinity, PositiveInfinity, 
  +        ///Maxvalue, MinValue, Epsilon included fairly frequently.
           static member Float() = 
               let generator =
                   Gen.frequency [(6, Gen.map3 Default.fraction generate generate generate)
  
positive.code:                 |> Seq.distinct
              fromGenShrink(generator, shrinker)
  
          ///Generates arbitrary floats, NaN, NegativeInfinity, PositiveInfinity, Maxvalue, MinValue, Epsilon included fairly frequently.
          static member Float32() = 
              let generator =
                  let fraction a b c = float32 (Default.fraction a b c)
  
negative.code:             |> filter ((<>) 0)
              |> convert NonZeroInt int
  
          static member IntWithMinMax() =
              { new Arbitrary<IntWithMinMax>() with
                  override __.Generator = Gen.frequency [(1 ,Gen.elements [Int32.MaxValue; Int32.MinValue])
  