anchor.diff:              @>
           let methods = ProvidedMethod("Render", [], typeof<XElement>, InvokeCode = fun args -> render args.[0] :> _)
           ty.AddMember methods
  -        htmlTy.AddMember ty
           ty
   
       let providedAssemblyName = System.IO.Path.ChangeExtension(System.IO.Path.GetTempFileName(), ".dll")
       let providedAssembly = new ProvidedAssembly(providedAssemblyName)
   
       do 
  -        htmlTy.DefineStaticParameters([ProvidedStaticParameter("html", typeof<string>)], buildType providedAssembly)
  +        htmlTy.DefineStaticParametersAndAdd([ProvidedStaticParameter("html", typeof<string>)], buildType providedAssembly)
           providedAssembly.AddTypes [htmlTy]
           htmlTy.AddMember(ProvidedConstructor(parameters = [], InvokeCode = fun args -> <@@ obj() @@>))
           this.AddNamespace(rootNamespace, [htmlTy])
  
positive.code:     type Expr with
          static member Sequentials s = Seq.reduce (fun a b -> Expr.Sequential(a,b)) s
          static member ValueT (v: 'a) : 'a Expr = Expr.Cast(Expr.Value v)
  
      [<Literal>]
      let xmlns = "http://www.example.com/HtmlTypeProvider"
  
negative.code:     // Get the assembly and namespace used to house the provided types
      let thisAssembly =  Assembly.GetExecutingAssembly()
      let rootNamespace = "Samples.ShareInfo.TPTest"
  
      let htmlTy = ProvidedTypeDefinition(thisAssembly, rootNamespace, "Html", Some typeof<obj>, IsErased = false)
      let buildType (assembly: ProvidedAssembly) typeName (args: obj[]) =
          let html = args.[0] :?> string
          let xelem = loadXml html
          let ty = ProvidedTypeDefinition(typeName, Some typeof<obj>, IsErased = false)
          let templateField = ProvidedField("__template", typeof<string>)
          templateField.SetFieldAttributes FieldAttributes.InitOnly
          ty.AddMember templateField
  