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