diff options
| author | Arnaud Spiwack | 2014-11-07 18:38:12 +0100 |
|---|---|---|
| committer | Arnaud Spiwack | 2014-11-19 10:11:45 +0100 |
| commit | fc2476e4a29592dcf2860a16d3a7c0aeeb4bffac (patch) | |
| tree | 0fbe3e51ea0fd8e68e9f555fdc52a18bc2cf417c /printing | |
| parent | 7232e8f3fc5237705b80a870a6a3ad1a4748b838 (diff) | |
Printing function for [uconstr].
The core is a "detyping" function for [closed_glob_constr]. Which interpretes the variable names according to the Ltac context, and apply the standard detyping procedure to typed terms in the closure.
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 |