diff options
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/printer.ml | 1 | ||||
| -rw-r--r-- | printing/printer.mli | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index 7a9dcb03cd..fa776d11e0 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -127,6 +127,7 @@ let pr_global_env = pr_global_env let pr_global = pr_global_env Id.Set.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/printing/printer.mli b/printing/printer.mli index 2340b310f5..2c6800a117 100644 --- a/printing/printer.mli +++ b/printing/printer.mli @@ -80,6 +80,7 @@ val pr_global_env : Id.Set.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 |