anchor.diff:  
   type ReadableName =
     | Static of string // example: "Ribbon"
  +  | AttributeNamedItem of string
     | ElemName // elem.name
  -  | AttributeName of string
     | InnerTextDisplayName
  -  | LocalizedDescription
  +  | LocalizedNameDescription
   
   let GetReadableName (elem: XmlNode) = function
     | Static name -> name
     | ElemName -> elem.Name
  -  | AttributeName attrName -> elem.Attributes.GetNamedItem(attrName).Value
  +  | AttributeNamedItem attrName -> elem.Attributes.GetNamedItem(attrName).Value
     | InnerTextDisplayName -> elem.SelectSingleNode("DisplayName").InnerText
  -  | LocalizedDescription -> elem.SelectSingleNode("LocalizedNames/LocalizedName").Attributes.GetNamedItem("description").Value
  +  | LocalizedNameDescription -> elem.SelectSingleNode("LocalizedNames/LocalizedName").Attributes.GetNamedItem("description").Value
     
   type XmlPath = string
   
   
  -let elim_elem type_ output (dev_node: XmlNode) (prod_node: XmlNode) dev_path dev_id dev_readable extra_check callback =
  +let elim_elem type_ output (dev_node: XmlNode) (prod_node: XmlNode) dev_path dev_id (dev_readable: ReadableName) extra_check callback =
     let dev_elems = select_nodes dev_node dev_path
     dev_elems
     |> Seq.iter (fun dev_elem ->
       let id = get_id dev_elem dev_id
  -    let name = dev_readable dev_elem
  +    let name = GetReadableName dev_elem dev_readable
       let prod_elem = prod_node.SelectSingleNode(append_selector dev_path id dev_id)
       // remove_useless dev_elem prod_elem;
       if prod_elem = null then
  
positive.code:     dev_node prod_node 
      "/ImportExportXml/EntityRelationships/EntityRelationship"
      (Attribute "Name")
      (fun elem -> elem.Attributes.GetNamedItem("Name").Value)
      (fun dev_elem prod_elem -> true)
      (fun id -> 
        let req = RetrieveRelationshipRequest ()
  
negative.code:     dev_node prod_node 
      "/ImportExportXml/FieldSecurityProfiles/FieldSecurityProfile"
      (Attribute "fieldsecurityprofileid")
      (AttributeNamedItem "name")
      (fun dev_elem prod_elem -> true)
      (fun id -> 
        add_solution_component proxy sol_id (Guid.Parse id) SolutionComponent.FieldSecurityProfile);
  