diff options
| author | Emilio Jesus Gallego Arias | 2020-02-20 13:59:33 -0500 |
|---|---|---|
| committer | Emilio Jesus Gallego Arias | 2020-02-20 13:59:33 -0500 |
| commit | 932cc10b6256396f07af2d083245b610ec842f37 (patch) | |
| tree | 2f6d013f9badaa36ba5d92b748cd3ff33977b1f7 /printing/printer.ml | |
| parent | f748ca04748ef00b85de7f31dc1dc7f0a985ec3f (diff) | |
| parent | d696eb98189eccdc2f6adb851e54af37e7f8d83b (diff) | |
Merge PR #11143: In Print/Check/Show, adopt the view that the attached type information may impact the display of coercion and implicit arguments.
Reviewed-by: ejgallego
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 cc83a1dde0..b376616b61 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -278,7 +278,7 @@ let pr_compacted_decl env sigma decl = ids, mt (), typ | CompactedDecl.LocalDef (ids,c,typ) -> (* Force evaluation *) - let pb = pr_lconstr_env env sigma c in + let pb = pr_lconstr_env ~inctx:true env sigma c in let pb = if isCast c then surround pb else pb in ids, (str" := " ++ pb ++ cut ()), typ in @@ -297,7 +297,7 @@ let pr_rel_decl env sigma decl = | RelDecl.LocalAssum _ -> mt () | RelDecl.LocalDef (_,c,_) -> (* Force evaluation *) - let pb = pr_lconstr_env env sigma c in + let pb = pr_lconstr_env ~inctx:true 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 |