diff options
-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 = |