diff options
Diffstat (limited to 'parsing')
| -rw-r--r-- | parsing/printer.ml | 1 | ||||
| -rw-r--r-- | parsing/printer.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/parsing/printer.ml b/parsing/printer.ml index f1f5d4c9f3..27dcffceae 100644 --- a/parsing/printer.ml +++ b/parsing/printer.ml @@ -120,6 +120,7 @@ let pr_global_env = pr_global_env let pr_global = pr_global_env Idset.empty let pr_constant env cst = pr_global_env (Termops.vars_of_env env) (ConstRef cst) +let pr_existential_key evk = str (string_of_existential evk) let pr_existential env ev = pr_lconstr_env env (mkEvar ev) let pr_inductive env ind = pr_lconstr_env env (mkInd ind) let pr_constructor env cstr = pr_lconstr_env env (mkConstruct cstr) diff --git a/parsing/printer.mli b/parsing/printer.mli index ca91cfd4f6..6a256bd599 100644 --- a/parsing/printer.mli +++ b/parsing/printer.mli @@ -76,6 +76,7 @@ val pr_global_env : Idset.t -> global_reference -> std_ppcmds val pr_global : global_reference -> std_ppcmds val pr_constant : env -> constant -> std_ppcmds +val pr_existential_key : existential_key -> std_ppcmds val pr_existential : env -> existential -> std_ppcmds val pr_constructor : env -> constructor -> std_ppcmds val pr_inductive : env -> inductive -> std_ppcmds |