anchor.diff:  open SharpXml.Attempt
   open SharpXml.Extensions
   
  +/// Record type containing the type specific information
  +/// for the first element to serialize
  +type internal TypeInfo = {
  +    Type : Type
  +    OriginalName : string
  +    ClsName : string }
  +
   /// Record type containing the serialization information
   /// for a specific property member
   type internal PropertyWriterInfo<'T> = {
  
positive.code: 
      static let writeAbstractProperties (writer : TextWriter) (value : obj) =
          ()
  
      /// Build a PropertyWriterInfo object based on the
      /// specified PropertyInfo
  
negative.code: 
      static let propertyCache = ref (Dictionary<Type, PropertyWriterInfo<'T>[]>())
      static let serializerCache = ref (Dictionary<Type, WriterFunc>())
      static let typeInfoCache = ref (Dictionary<Type, TypeInfo>())
  
      /// General purpose XML tags writer function
      static let writeTag (w : TextWriter) (name : string) (value : obj) writeFunc =
  