anchor.diff:                      |> addXmlDoc "Searches the specified input string for the first occurence of this regular expression")
                   |+> (provideConstructor
                           [] 
  -                        (fun args -> <@@ Regex(pattern, options) @@>)
  +                        (fun args -> <@@ Regex(pattern) @@>)
                       |> addXmlDoc "Initializes a regular expression instance")
               | _ -> failwith "unexpected parameter values")
positive.code: let regexTy = 
      erasedType<Regex> thisAssembly rootNamespace "RegexTyped"
      |> staticParameters
          ["pattern", typeof<string>, None
           "options", typeof<RegexOptions>, Some RegexOptions.None]
          (fun typeName parameterValues ->
  
              match parameterValues with 
              | [| :? string as pattern; :? RegexOptions as options |] ->
  
              let groupProperties =
                  Regex(pattern, options).GetGroupNames()
                      |> Seq.map (fun group ->
                              provideProperty 
                                  (if group <> "0" then group else "CompleteMatch")
  
negative.code:                         "IsMatch"
                          ["input", typeof<string>]
                          typeof<bool>
                          (fun args -> <@@ Regex.IsMatch(%%args.[0], pattern) @@>)
                      |> makeStatic
                      |> addXmlDoc "Indicates whether the regular expression finds a match in the specified input string")
                  |+> matchType
  