diff options
| author | Pierre-Marie Pédrot | 2019-02-04 15:18:59 +0100 |
|---|---|---|
| committer | Pierre-Marie Pédrot | 2019-02-04 15:18:59 +0100 |
| commit | d5722a22c9ae4dec43f8c444fbebb1b1072fb686 (patch) | |
| tree | 2b1d2af4154149828cf5d69bad83f6549e670853 /engine | |
| parent | 8e73ceb7b4bdb6a17d039b17fd5e44ceffe255a2 (diff) | |
| parent | 30d0b1052b6351a539558ff1fe16e4f8578c03ba (diff) | |
Merge PR #9144: Fixes #4633: clearer message unknown existential
Ack-by: herbelin
Reviewed-by: ppedrot
Diffstat (limited to 'engine')
| -rw-r--r-- | engine/termops.ml | 4 | ||||
| -rw-r--r-- | engine/termops.mli | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/engine/termops.ml b/engine/termops.ml index 137770d8f0..3e902129f3 100644 --- a/engine/termops.ml +++ b/engine/termops.ml @@ -38,7 +38,7 @@ let set_print_constr f = term_printer := f module EvMap = Evar.Map -let pr_evar_suggested_name evk sigma = +let evar_suggested_name evk sigma = let open Evd in let base_id evk' evi = match evar_ident evk' sigma with @@ -67,7 +67,7 @@ let pr_existential_key sigma evk = let open Evd in match evar_ident evk sigma with | None -> - str "?" ++ Id.print (pr_evar_suggested_name evk sigma) + str "?" ++ Id.print (evar_suggested_name evk sigma) | Some id -> str "?" ++ Id.print id diff --git a/engine/termops.mli b/engine/termops.mli index 7920af8e0e..61a6ec1cd6 100644 --- a/engine/termops.mli +++ b/engine/termops.mli @@ -304,7 +304,7 @@ open Evd val pr_existential_key : evar_map -> Evar.t -> Pp.t -val pr_evar_suggested_name : Evar.t -> evar_map -> Id.t +val evar_suggested_name : Evar.t -> evar_map -> Id.t val pr_evar_info : env -> evar_map -> evar_info -> Pp.t val pr_evar_constraints : evar_map -> evar_constraint list -> Pp.t |