anchor.diff:          let mutable pageData = new PageData()
           let AddPage( page ) = Pages <- ( page :> Page, pageData )::Pages
   
  +        /// <summary>
  +        /// プロパティ名から型を推測する
  +        /// </summary>
           let getType(propName:XName, tagName:XName) =
               match propName.LocalName with 
               | "Title" -> typeof<string> 
  
positive.code:             | "BindingContext" -> typeof<string>
              | _ -> null
  
          member this.SetValue(item:BaseElement, propName:XName, s:string, tagName:XName ) =
              let t = getType(propName, tagName)
              if t <> null then
  
negative.code:                     // no binding 
                      this.SetValue( item, propName, s, el.Name )
                  else
                      // binding 
                      this.SetBinding( item, propName, s )
  
          member this.SetProperty(el:XElement, item:BaseElement, propName:XName ) =
  