diff options
Diffstat (limited to 'printing/printer.ml')
| -rw-r--r-- | printing/printer.ml | 3 |
1 files changed, 3 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 = |