diff options
Diffstat (limited to 'printing/printer.ml')
| -rw-r--r-- | printing/printer.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index 3264c93a5b..c83a9fb04f 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -138,7 +138,8 @@ let pr_constr_pattern t = let pr_sort s = pr_glob_sort (extern_sort s) -let _ = Termops.set_print_constr (fun env -> pr_lconstr_env env Evd.empty) +let _ = Termops.set_print_constr + (fun env t -> pr_lconstr_expr (extern_constr ~lax:true false env Evd.empty t)) let pr_in_comment pr x = str "(* " ++ pr x ++ str " *)" let pr_univ_cstr (c:Univ.constraints) = |