anchor.diff:  }
   
   type TestUnion =
  -    | StringCase of String: string * string
  -    | IntCase of Int: int
  +    | StringCase of SomeString: string * string
  +    | IntCase of SomeInt: int
   
   type RecordF = { F : int -> string }
   
  
positive.code: type TestType4 = class end
  type TestType5 = class end
  
  type GenericRecord<'A,'B> = { a: 'A; b: 'B }
  
  type MyEnum =
  
negative.code:             let types =
                  info.GetFields()
                  |> Array.map (fun field -> field.PropertyType)
              let names =
                  info.GetFields()
                  |> Array.map (fun field -> field.Name)
              info.Tag, info.Name, types, names, values)
  
      let canMakeSameUnionCases =
          unbox<TestUnion> (FSharpValue.MakeUnion(unionCase1Info, unionCase1ValueFields)) = unionCase1
  