diff options
Diffstat (limited to 'printing')
| -rw-r--r-- | printing/printer.ml | 3 | ||||
| -rw-r--r-- | printing/printer.mli | 2 |
2 files changed, 5 insertions, 0 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index af81e192d1..0fea782974 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -122,6 +122,9 @@ let pr_glob_constr c = let (sigma, env) = get_current_context () in pr_glob_constr_env env c +let pr_closed_glob_env env sigma c = + pr_constr_expr (extern_closed_glob false env sigma c) + let pr_lconstr_pattern_env env sigma c = pr_lconstr_pattern_expr (extern_constr_pattern (Termops.names_of_rel_context env) sigma c) let pr_constr_pattern_env env sigma c = diff --git a/printing/printer.mli b/printing/printer.mli index 315bf6810d..baa81c9fe4 100644 --- a/printing/printer.mli +++ b/printing/printer.mli @@ -59,6 +59,8 @@ val pr_ltype : types -> std_ppcmds val pr_type_env : env -> evar_map -> types -> std_ppcmds val pr_type : types -> std_ppcmds +val pr_closed_glob_env : env -> evar_map -> closed_glob_constr -> std_ppcmds + val pr_ljudge_env : env -> evar_map -> unsafe_judgment -> std_ppcmds * std_ppcmds val pr_ljudge : unsafe_judgment -> std_ppcmds * std_ppcmds |