anchor.diff:                                                      checkStructure = false)
   
           let results = parser.ParseCommandLine(raiseOnUsage = true)
  -        let silent = results.Contains <@ Silent @>
  +        let silent = results.Contains Silent
           tracePaketVersion silent
   
  -        if results.Contains <@ Verbose @> then
  +        if results.Contains Verbose then
               Logging.verbose <- true
               Logging.verboseWarnings <- true
   
  -        let version = results.Contains <@ Version @>
  +        let version = results.Contains Version
           if not version then
   
               use fileTrace =
  -                match results.TryGetResult <@ Log_File @> with
  +                match results.TryGetResult Log_File with
                   | Some lf -> setLogFile lf
                   | None -> null
   
  
positive.code:         | Some Keep_Patch -> Some InterprojectReferencesConstraint.KeepPatch
          | None -> None
      let symbols =
          (results.Contains <@ PackArgs.Symbols @>,
           results.Contains <@ PackArgs.Symbols_Legacy @>)
          |> legacyBool results (ReplaceArgument("--symbols", "symbols"))
      let includeReferencedProjects =
          (results.Contains <@ PackArgs.Include_Referenced_Projects @>,
           results.Contains <@ PackArgs.Include_Referenced_Projects_Legacy @>)
          |> legacyBool results (ReplaceArgument("--include-referenced-projects", "Include_Referenced_Projects"))
      let projectUrl =
          (results.TryGetResult <@ PackArgs.Project_Url @>,
           results.TryGetResult <@ PackArgs.Project_Url_Legacy @>)
          |> legacyOption results (ReplaceArgument("--project-url", "project-url"))
  
      Dependencies.Locate()
  
negative.code:         alternativeProjectRoot)
  
  let outdated (results : ParseResults<_>) =
      let force = results.Contains OutdatedArgs.Force
      let strict = results.Contains OutdatedArgs.Ignore_Constraints |> not
      let includePrereleases = results.Contains OutdatedArgs.Include_Prereleases
      let group =
          (results.TryGetResult OutdatedArgs.Group,
           results.TryGetResult OutdatedArgs.Group_Legacy)
          |> legacyOption results (ReplaceArgument("--group", "group"))
      Dependencies.Locate().ShowOutdated(strict, force, includePrereleases, group)
  
  let remove (results : ParseResults<_>) =
      let packageName =
          let arg = (results.TryGetResult RemoveArgs.NuGet,
                     results.TryGetResult RemoveArgs.NuGet_Legacy)
                    |> legacyOption results (OmitArgument("nuget"))
          require arg (fun _ -> results.GetResult RemoveArgs.NuGet)
      let force = results.Contains RemoveArgs.Force
      let noInstall = results.Contains RemoveArgs.No_Install
      let group =
          (results.TryGetResult RemoveArgs.Group,
           results.TryGetResult RemoveArgs.Group_Legacy)
          |> legacyOption results (ReplaceArgument("--group", "group"))
      let project =
          (results.TryGetResult RemoveArgs.Project,
           results.TryGetResult RemoveArgs.Project_Legacy)
          |> legacyOption results (ReplaceArgument("--project", "project"))
  
      match project with
  