anchor.diff:  
   let findPackageVersions (results : ParseResults<_>) =
       let maxResults =
  -        let arg = (results.TryGetResult <@ FindPackageVersionsArgs.Max_Results @>,
  -                   results.TryGetResult <@ FindPackageVersionsArgs.Max_Results_Legacy @>)
  +        let arg = (results.TryGetResult FindPackageVersionsArgs.Max_Results,
  +                   results.TryGetResult FindPackageVersionsArgs.Max_Results_Legacy)
                     |> legacyOption results (ReplaceArgument("--max", "max"))
           defaultArg arg 10000
       let dependencies = Dependencies.TryLocate()
       let name =
  -        let arg = (results.TryGetResult <@ FindPackageVersionsArgs.NuGet @>,
  -                   results.TryGetResult <@ FindPackageVersionsArgs.NuGet_Legacy @>)
  +        let arg = (results.TryGetResult FindPackageVersionsArgs.NuGet,
  +                   results.TryGetResult FindPackageVersionsArgs.NuGet_Legacy)
                     |> legacyOption results (OmitArgument "nuget")
  -        require arg (fun _ -> results.GetResult <@ FindPackageVersionsArgs.NuGet @>)
  +        require arg (fun _ -> results.GetResult FindPackageVersionsArgs.NuGet)
       let sources =
  -        let arg = (results.TryGetResult <@ FindPackageVersionsArgs.Source @>,
  -                   results.TryGetResult <@ FindPackageVersionsArgs.Source_Legacy @>)
  +        let arg = (results.TryGetResult FindPackageVersionsArgs.Source,
  +                   results.TryGetResult FindPackageVersionsArgs.Source_Legacy)
                     |> legacyOption results (ReplaceArgument("--source", "source"))
           discoverPackageSources arg dependencies
   
  
positive.code: 
  // For backwards compatibility
  let fixNuspec _silent (results : ParseResults<_>) =
      let fileString = results.GetResult <@ FixNuspecArgs.File @>
      let refFile = results.GetResult <@ FixNuspecArgs.ReferencesFile @>
      let nuspecList =
          fileString.Split([|';'|], StringSplitOptions.RemoveEmptyEntries)
          |> Array.map (fun s -> s.Trim())
  
negative.code: 
  let pack (results : ParseResults<_>) =
      let outputPath =
          let arg = (results.TryGetResult PackArgs.Output,
                     results.TryGetResult PackArgs.Output_Legacy)
                    |> legacyOption results (OmitArgument "output")
          require arg (fun _ -> results.GetResult PackArgs.Output)
      let buildConfig =
          (results.TryGetResult PackArgs.Build_Config,
           results.TryGetResult PackArgs.Build_Config_Legacy)
          |> legacyOption results (ReplaceArgument("--build-config", "buildconfig"))
      let buildPlatform =
          (results.TryGetResult PackArgs.Build_Platform,
           results.TryGetResult PackArgs.Build_Platform_Legacy)
          |> legacyOption results (ReplaceArgument("--build-platform", "buildplatform"))
      let version =
          (results.TryGetResult PackArgs.Version,
           results.TryGetResult PackArgs.Version_Legacy)
          |> legacyOption results (ReplaceArgument("--version", "version"))
      let specificVersions =
          (results.GetResults PackArgs.Specific_Version,
           results.GetResults PackArgs.Specific_Version_Legacy)
          |> legacyList results (ReplaceArgument("--specific-version", "specific-version"))
      let releaseNotes =
          (results.TryGetResult PackArgs.Release_Notes,
           results.TryGetResult PackArgs.Release_Notes_Legacy)
          |> legacyOption results (ReplaceArgument("--release-notes", "releaseNotes"))
      let templateFile =
          (results.TryGetResult PackArgs.Template_File,
           results.TryGetResult PackArgs.Template_File_Legacy)
          |> legacyOption results (ReplaceArgument("--template", "templatefile"))
      let excludedTemplates =
          (results.GetResults PackArgs.Exclude_Template,
           results.GetResults PackArgs.Exclude_Template_Legacy)
          |> legacyList results (ReplaceArgument("--exclude", "exclude"))
      let lockDependencies =
          (results.Contains PackArgs.Lock_Dependencies,
           results.Contains PackArgs.Lock_Dependencies_Legacy)
          |> legacyBool results (ReplaceArgument("--lock-dependencies", "lock-dependencies"))
      let minimumFromLockFile =
          (results.Contains PackArgs.Lock_Dependencies_To_Minimum,
           results.Contains PackArgs.Lock_Dependencies_To_Minimum_Legacy)
          |> legacyBool results (ReplaceArgument("--minimum-from-lock-file", "minimum-from-lock-file"))
      let pinProjectReferences =
          let (newSyntax, oldSyntax) =
           (results.Contains PackArgs.Pin_Project_References,
            results.Contains PackArgs.Pin_Project_References_Legacy)
  
          if newSyntax || oldSyntax then
              warnObsolete (ReplaceArgument("--interproject-references", "--pin-project-references"))
  
          newSyntax || oldSyntax
      let interprojectReferencesConstraint =
          match results.TryGetResult PackArgs.Interproject_References with
          | Some Min -> Some InterprojectReferencesConstraint.Min
          | Some Fix -> Some InterprojectReferencesConstraint.Fix
          | Some Keep_Major -> Some InterprojectReferencesConstraint.KeepMajor
  