anchor.diff:      open Microsoft.FSharp.Reflection
       open Reflect
       open Gen
  -    open Gen
  -    open System.Diagnostics
   
       let inline isPowerOf2 n =
           (n <> LanguagePrimitives.GenericZero) && 
  
positive.code:                        |> List.fold (|||) LanguagePrimitives.GenericZero )
                 |> Gen.map (fun e -> Enum.ToObject (t, e) :?> Enum)
             if   elementType = typeof<byte>   then
                 elems |> List.map (fun e -> box e |> unbox<byte>) |> List.filter isPowerOf2 |> helper
             elif elementType = typeof<sbyte>  then 
                 elems |> List.map (fun e -> box e |> unbox<sbyte>) |> List.filter isPowerOf2 |> helper
             elif elementType = typeof<uint16> then
                 elems |> List.map (fun e -> box e |> unbox<uint16>) |> List.filter isPowerOf2 |> helper
             elif elementType = typeof<int16>  then
                 elems |> List.map (fun e -> box e |> unbox<int16>) |> List.filter isPowerOf2 |> helper
             elif elementType = typeof<uint32> then
                 elems |> List.map (fun e -> box e |> unbox<uint32>) |> List.filter isPowerOf2 |> helper
             elif elementType = typeof<int>    then
                 elems |> List.map (fun e -> box e |> unbox<int>) |> List.filter isPowerOf2 |> helper
             elif elementType = typeof<uint64> then 
                 elems |> List.map (fun e -> box e |> unbox<uint64>) |> List.filter isPowerOf2 |> helper
             elif elementType = typeof<int64>  then
                 elems |> List.map (fun e -> box e |> unbox<int64>) |> List.filter isPowerOf2 |> helper
             else invalidArg "t" (sprintf "Unexpected underlying enum type: %O" elementType)
         else 
             Gen.elements elems
  
      let private reflectObj getGenerator t =
  
  
negative.code:             let isFlags = t.GetTypeInfo().GetCustomAttributes(typeof<System.FlagsAttribute>,false).Any() 
              if isFlags then
                  let vals: Array = System.Enum.GetValues(t)
                  let elems = [ for i in 0..vals.Length-1 -> vals.GetValue(i) ]
                  let elementType = System.Enum.GetUnderlyingType t
                  let n = Convert.ChangeType(o, elementType)
                  let inline helper (e : 'a) =
  