diff options
| author | Pierre-Marie Pédrot | 2020-11-06 12:42:31 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2020-11-06 12:42:31 +0100 |
| commit | d7bf4b407052ca71f4e642d932606ba9e7ac49ee (patch) | |
| tree | f2b6e41e00f332c544647a6081eacd317279b738 /plugins/ltac/pptactic.ml | |
| parent | 16144a42a605c58fc9f9c3b287286d25bfb7b5f3 (diff) | |
| parent | c233a13620202790fa59fc720b7149a0d88f275a (diff) | |
Merge PR #13284: Fixing interpretation of rewrite_strat argument in Ltac
Reviewed-by: ppedrot
Diffstat (limited to 'plugins/ltac/pptactic.ml')
| -rw-r--r-- | plugins/ltac/pptactic.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/plugins/ltac/pptactic.ml b/plugins/ltac/pptactic.ml index 87da304330..edd56ee0f7 100644 --- a/plugins/ltac/pptactic.ml +++ b/plugins/ltac/pptactic.ml @@ -1135,8 +1135,8 @@ let pr_goal_selector ~toplevel s = pr_dconstr = (fun env sigma -> pr_and_constr_expr (pr_glob_constr_env env)); pr_lconstr = (fun env sigma -> pr_and_constr_expr (pr_lglob_constr_env env)); pr_pattern = (fun env sigma -> pr_pat_and_constr_expr (pr_glob_constr_env env)); - pr_lpattern = (fun env sigma -> pr_pat_and_constr_expr (pr_lglob_constr_env env)); pr_constant = pr_or_var (pr_and_short_name (pr_evaluable_reference_env env)); + pr_lpattern = (fun env sigma -> pr_pat_and_constr_expr (pr_lglob_constr_env env)); pr_reference = pr_ltac_or_var (pr_located pr_ltac_constant); pr_name = pr_lident; pr_generic = Pputils.pr_glb_generic; |