diff options
| -rw-r--r-- | intf/tacexpr.mli | 2 | ||||
| -rw-r--r-- | printing/pptactic.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/intf/tacexpr.mli b/intf/tacexpr.mli index 78b88289e1..91e020586b 100644 --- a/intf/tacexpr.mli +++ b/intf/tacexpr.mli @@ -387,7 +387,7 @@ type raw_tactic_arg = type t_trm = Term.constr type t_utrm = Glob_term.closed_glob_constr type t_pat = glob_constr_and_expr * constr_pattern -type t_cst = evaluable_global_reference and_short_name +type t_cst = evaluable_global_reference type t_ref = ltac_constant located type t_nam = Id.t diff --git a/printing/pptactic.ml b/printing/pptactic.ml index b8ad996aa3..1502884be7 100644 --- a/printing/pptactic.ml +++ b/printing/pptactic.ml @@ -1382,7 +1382,7 @@ module Make pr_lconstr = pr_lconstr_env env Evd.empty; pr_pattern = pr_pat_and_constr_expr (pr_glob_constr_env env); pr_lpattern = pr_pat_and_constr_expr (pr_lglob_constr_env env); - pr_constant = pr_and_short_name (pr_evaluable_reference_env env); + pr_constant = pr_evaluable_reference_env env; pr_reference = pr_located pr_ltac_constant; pr_name = pr_id; pr_generic = Genprint.generic_top_print; |