anchor.diff:            let d = unbox<ObjectDefinition>(value)
             
             writer.WriteStartObject()
  -          
  -          writer.WritePropertyName "id"
  -          writer.WriteValue d.Id
   
             writer.WritePropertyName "type"
             writer.WriteValue "object"
  
positive.code:   and Contact =
      { Name:string; Url:string; Email:string }
      static member Empty = 
        { Name=""; Url=""; Email="" }
    and LicenseInfos =
      { Name:string; Url:string }
      static member Empty = 
  
negative.code:       Paths:IDictionary<Path,IDictionary<HttpVerb,PathDefinition>>
        Definitions:IDictionary<string,ObjectDefinition> }
      member __.ToJson() =
        let settings = new JsonSerializerSettings(NullValueHandling = NullValueHandling.Ignore)
        settings.ContractResolver <- new CamelCasePropertyNamesContractResolver()
        settings.Converters.Add(new ResponseDocConverter())
        settings.Converters.Add(new PropertyDefinitionConverter())
  