diff options
| author |  Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-01 16:17:43 +0200 |
|---|---|---|
| committer | Hugo Herbelin <Hugo.Herbelin@inria.fr> | 2014-10-01 19:44:21 +0200 |
| commit | 785f82ee1ecd9a4500ce3e8f3f42946b8205c065 (patch) | |
| tree | e380422ac175fa4a486fa682c808a105e8d0c0ea /printing | |
| parent | 8e65ca556c907185a6e6da4aaf23babb198aad1c (diff) | |
Going back on granting wish #1039 in f5d7b2b1e so that apply with
works correctly with an hypothesis of the context and knowing that
related bug #3204 had its own fix.
Diffstat (limited to 'printing')
| -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 b12aea5db..ccb22f4a8 100644 --- a/printing/printer.ml +++ b/printing/printer.ml @@ -256,7 +256,7 @@ let pr_var_decl_skel pr_id env sigma (id,c,typ) = let pb = pr_lconstr_core true env sigma c in let pb = if isCast c then surround pb else pb in (str" := " ++ pb ++ cut () ) in - let pt = pr_ltype_core true env sigma typ in + let pt = pr_ltype_env env sigma typ in let ptyp = (str" : " ++ pt) in (pr_id id ++ hov 0 (pbody ++ ptyp)) @@ -274,7 +274,7 @@ let pr_rel_decl env sigma (na,c,typ) = let pb = pr_lconstr_core 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_core true env sigma typ in + let ptyp = pr_ltype_env env sigma typ in match na with | Anonymous -> hov 0 (str"<>" ++ spc () ++ pbody ++ str":" ++ spc () ++ ptyp) | Name id -> hov 0 (pr_id id ++ spc () ++ pbody ++ str":" ++ spc () ++ ptyp) |