From a627891e0505e7da7afcb56c79d2058ebf058694 Mon Sep 17 00:00:00 2001 From: Gaëtan Gilbert Date: Wed, 27 Sep 2017 16:45:29 +0200 Subject: Use a nice printer for constant names in Suggest Proof Using. --- vernac/proof_using.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'vernac/proof_using.ml') diff --git a/vernac/proof_using.ml b/vernac/proof_using.ml index 5cc348095..ade132ae1 100644 --- a/vernac/proof_using.ml +++ b/vernac/proof_using.ml @@ -168,7 +168,7 @@ let suggest_constant env kn = let body = lookup_constant kn env in let used = Id.Set.of_list @@ List.map NamedDecl.get_id body.const_hyps in let ids_typ = global_vars_set env body.const_type in - suggest_common env (Constant.print kn) used ids_typ Id.Set.empty + suggest_common env (Printer.pr_constant env kn) used ids_typ Id.Set.empty end let suggest_variable env id = -- cgit v1.2.3