anchor.diff:                          match xamlInfo with 
                           | XamlInfo.Path path -> <@@ XamlReader.Parse(File.ReadAllText(path)) @@>
                           | XamlInfo.Text text -> <@@ XamlReader.Parse(text) @@>)
  -                |> addXmlDoc (sprintf "Initializes a %s instance" typeName)
  +                |> addXmlDoc (sprintf "Initializes a wrapper over %s from Xaml" typeName)
                   |> addDefinitionLocation root.Data.Position
               |+> fun () ->
                   provideProperty
  
positive.code:                 (function
                   | [this] -> Expr.Coerce(<@@ (%%this : obj) @@>, node.NodeType)
                   | _ -> badargs())
  
      node.Children
      |> List.iter (createNestedType nested_type)
  
negative.code:                     (function
                       | [this] -> Expr.Coerce(this, root.NodeType)
                       | _ -> badargs())
                  |> addXmlDoc (sprintf "Access to the underlying %s" typeName)
  
      for child in root.Children do
          createNestedType top_type child
  