diff options
| author | herbelin | 2001-02-16 15:11:43 +0000 |
|---|---|---|
| committer | herbelin | 2001-02-16 15:11:43 +0000 |
| commit | 649e7e98e0067a7ae2a3990b9629dcec66b47497 (patch) | |
| tree | 1fe08adb36cdf8bee6da1e8438626dac5a450a4c | |
| parent | 9e6fec989da3d06a23f59e0417b16150bd4c0592 (diff) | |
Tentative d'amélioration affichage decls locales
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@1394 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/pretty.ml | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/parsing/pretty.ml b/parsing/pretty.ml index 2143178383..af94577af2 100644 --- a/parsing/pretty.ml +++ b/parsing/pretty.ml @@ -45,9 +45,11 @@ let print_impl_args = function synthesizes the type nat of the abstraction on u *) let print_named_def name body typ = - [< 'sTR "*** ["; 'sTR name ; 'sPC; - hOV 0 [< 'sTR ":="; 'sPC; prterm body; 'sPC; - 'sTR ": "; prtype typ >]; + let pbody = prterm body in + let ptyp = prtype typ in + [< 'sTR "*** ["; 'sTR name ; 'sTR " "; + hOV 0 [< 'sTR ":="; 'bRK (1,2); pbody; 'sPC; + 'sTR ":"; 'bRK (1,2); ptyp >]; 'sTR "]"; 'fNL >] let print_named_assum name typ = |