diff options
| author |  herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-30 14:28:41 +0000 |
|---|---|---|
| committer | herbelin <herbelin@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2003-10-30 14:28:41 +0000 |
| commit | a3b23be4009e8b15dc0fd90d849445f35f759e3d (patch) | |
| tree | 8887067e1a446d8b78084cd4200aa861083c06e1 /translate | |
| parent | 5ec87d46f9392c6d569bbfe61060f0c548de0177 (diff) | |
Affichage des negatifs au niveau de l'application, et des positifs au dessus du niveau du moins unaire
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4744 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'translate')
| -rw-r--r-- | translate/ppconstrnew.ml | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/translate/ppconstrnew.ml b/translate/ppconstrnew.ml index 547477f14..26aef71e3 100644 --- a/translate/ppconstrnew.ml +++ b/translate/ppconstrnew.ml @@ -38,9 +38,10 @@ let lif = 200 let lletin = 200 let lfix = 200 let larrow = 90 -let lnegint = 50 let lcast = 100 let lapp = 10 +let lposint = 11 (* above the argument of notations "- x" and "/ x" *) +let lnegint = lapp (* above application *) let ltop = (200,E) let lproj = 1 let lsimple = (1,E) @@ -352,7 +353,7 @@ let pr_case_item pr (tm,(na,indnalopt)) = | Name id when not (is_var id tm) -> spc () ++ str "as " ++ pr_id id | Anonymous when tm_clash (tm,indnalopt) <> None -> (* hide [tm] name to avoid conflicts *) - spc () ++ str "as _" ++ pr_id (out_some (tm_clash (tm,indnalopt))) + spc () ++ str "as _" (* ++ pr_id (out_some (tm_clash (tm,indnalopt)))*) | _ -> mt ()) ++ (match indnalopt with | None -> mt () @@ -512,7 +513,7 @@ let rec pr inherited a = | CCast (_,a,b) -> hv 0 (pr (lcast,L) a ++ cut () ++ str ":" ++ pr (-lcast,E) b), lcast | CNotation (_,s,env) -> pr_notation pr s env - | CNumeral (_,(Bignat.POS _ as p)) -> Bignat.pr_bigint p, latom + | CNumeral (_,(Bignat.POS _ as p)) -> Bignat.pr_bigint p, lposint | CNumeral (_,(Bignat.NEG _ as p)) -> Bignat.pr_bigint p, lnegint | CDelimiters (_,sc,a) -> pr_delimiters sc (pr (latom,E) a), latom | CDynamic _ -> str "<dynamic>", latom |