diff options
| author |  Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2017-09-27 16:45:29 +0200 |
|---|---|---|
| committer | Gaëtan Gilbert <gaetan.gilbert@skyskimmer.net> | 2017-10-10 23:50:25 +0200 |
| commit | a627891e0505e7da7afcb56c79d2058ebf058694 (patch) | |
| tree | 878b76f49e5cbac8088033e3d8fa401b922d002f | |
| parent | 3b640b68c89f1e9fcbb0f98c8865819189409382 (diff) | |
Use a nice printer for constant names in Suggest Proof Using.
| -rw-r--r-- | test-suite/output/SuggestProofUsing.out | 2 | ||||
| -rw-r--r-- | test-suite/output/SuggestProofUsing.v | 2 | ||||
| -rw-r--r-- | vernac/proof_using.ml | 2 |
3 files changed, 3 insertions, 3 deletions
diff --git a/test-suite/output/SuggestProofUsing.out b/test-suite/output/SuggestProofUsing.out index 97cb0fdd8..8d67a4a4b 100644 --- a/test-suite/output/SuggestProofUsing.out +++ b/test-suite/output/SuggestProofUsing.out @@ -1,4 +1,4 @@ -The proof of Top#Sec#nat should start with one of the following commands: +The proof of nat should start with one of the following commands: Proof using . Proof using Type*. Proof using Type. diff --git a/test-suite/output/SuggestProofUsing.v b/test-suite/output/SuggestProofUsing.v index b0b514a52..00b6f8e18 100644 --- a/test-suite/output/SuggestProofUsing.v +++ b/test-suite/output/SuggestProofUsing.v @@ -3,7 +3,7 @@ Set Suggest Proof Using. Section Sec. Variables A B : Type. - (* Some normal lemma. Sadly the internal name gets printed. *) + (* Some normal lemma. *) Lemma nat : Set. Proof. exact nat. 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 = |