aboutsummaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
authorGravatar Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>2014-01-16 18:03:41 +0100
committerGravatar Pierre-Marie Pédrot <pierre-marie.pedrot@inria.fr>2014-01-16 18:03:41 +0100
commitf5d7b2b1eda550f5bf0965286d449112acbbadde (patch)
tree12e61cf40d20daae7d8c8cde06e779f9d5f0d28e
parentda81f0c7f1de8ce438189a1d2b86a890bc4138df (diff)
Fixing bugs #1039: Hypotheses don't respect Barendregt convention
and #3204: Failure of hygiene condition. It was sufficient to tweak a flag in the constr externalization...
-rw-r--r--printing/printer.ml4
1 files changed, 2 insertions, 2 deletions
diff --git a/printing/printer.ml b/printing/printer.ml
index 496f9b87e..eba91034b 100644
--- a/printing/printer.ml
+++ b/printing/printer.ml
@@ -214,7 +214,7 @@ let pr_var_decl env (id,c,typ) =
let pb = pr_lconstr_env env c in
let pb = if isCast c then surround pb else pb in
(str" := " ++ pb ++ cut () ) in
- let pt = pr_ltype_env env typ in
+ let pt = pr_ltype_core true env typ in
let ptyp = (str" : " ++ pt) in
(pr_id id ++ hov 0 (pbody ++ ptyp))
@@ -226,7 +226,7 @@ let pr_rel_decl env (na,c,typ) =
let pb = pr_lconstr_env env c in
let pb = if isCast c then surround pb else pb in
(str":=" ++ spc () ++ pb ++ spc ()) in
- let ptyp = pr_ltype_env env typ in
+ let ptyp = pr_ltype_core true env 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)