anchor.diff:                  invalidArg "unionType" (SR.GetString1(SR.privateUnionType, unionType.FullName))
               else
                   invalidArg "unionType" (SR.GetString1(SR.notAUnionType, unionType.FullName))
  -    let emptyObjArray : obj[] = [| |]
   
       //-----------------------------------------------------------------
       // TUPLE DECOMPILATION
  
positive.code: 
      let unionTypeOfUnionCaseType (typ:Type,bindingFlags) = 
          let rec get (typ:Type) = if isUnionType (typ,bindingFlags) then typ else match typ.BaseType with null -> typ | b -> get b
          get typ 
                     
      let swap (x,y) = (y,x)
  
      let fieldsPropsOfUnionCase(typ:Type, tag:int, bindingFlags) =
          if isOptionType typ then 
  
negative.code: 
  module internal Impl =
  
  #if FX_RESHAPED_REFLECTION
      open PrimReflectionAdapters
      open ReflectionAdapters    
  