anchor.diff:          match tryFindCompilationMappingAttributeFromMemberInfo(prop) with
           | None -> false
           | Some (flags,_n,_vn) -> (flags &&& SourceConstructFlags.KindMask) = SourceConstructFlags.Field
  -
  -    let allInstance  (ps : PropertyInfo[]) = (ps, false)
  -    let allStatic  (ps : PropertyInfo[]) = (ps, true)
   
       let tryFindSourceConstructFlagsOfType (typ:Type) = 
         match tryFindCompilationMappingAttributeFromType typ with 
  
positive.code:                 invalidArg "unionType" (SR.GetString1(SR.privateUnionType, unionType.FullName))
              else
                  invalidArg "unionType" (SR.GetString1(SR.notAUnionType, unionType.FullName))
      let emptyObjArray : obj[] = [| |]
  
      //-----------------------------------------------------------------
      // TUPLE DECOMPILATION
  
negative.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 fieldsPropsOfUnionCase(typ:Type, tag:int, bindingFlags) =
          if isOptionType typ then 
  