diff options
| author | Hugo Herbelin | 2015-01-08 19:09:04 +0100 |
|---|---|---|
| committer | Hugo Herbelin | 2015-01-08 19:21:40 +0100 |
| commit | f1af234b8b3cc9c6ca0b9d527b660d27a099c866 (patch) | |
| tree | f5fb3c8a0d771f4c8b3b9774c2953ad0a37fde95 /printing/printer.ml | |
| parent | eeaa80fd8cba3e0f3e89f6dfeb0b82bb1fbbcae5 (diff) | |
Continuing 785f82ee1 on reverting not only f5d7b2b1e but also
fd98174afe6 about fixing hypothesis alpha-conversion strategy for
This completion of the reverting fixes #3905.
Diffstat (limited to 'printing/printer.ml')
| -rw-r--r-- | printing/printer.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/printing/printer.ml b/printing/printer.ml index 47cf2ac1f3..82dda09344 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -260,7 +260,7 @@ let pr_var_decl_skel pr_id env sigma (id,c,typ) = | None -> (mt ()) | Some c -> (* Force evaluation *) - let pb = pr_lconstr_core true env sigma c in + let pb = pr_lconstr_env env sigma c in let pb = if isCast c then surround pb else pb in (str" := " ++ pb ++ cut () ) in let pt = pr_ltype_env env sigma typ in @@ -278,7 +278,7 @@ let pr_rel_decl env sigma (na,c,typ) = | None -> mt () | Some c -> (* Force evaluation *) - let pb = pr_lconstr_core true env sigma c in + let pb = pr_lconstr_env env sigma c in let pb = if isCast c then surround pb else pb in (str":=" ++ spc () ++ pb ++ spc ()) in let ptyp = pr_ltype_env env sigma typ in |