From 785f82ee1ecd9a4500ce3e8f3f42946b8205c065 Mon Sep 17 00:00:00 2001
From: Hugo Herbelin
Date: Wed, 1 Oct 2014 16:17:43 +0200
Subject: 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.

---
 printing/printer.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/printing/printer.ml b/printing/printer.ml
index b12aea5dbf..ccb22f4a89 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)
-- 
cgit v1.2.3