diff options
| author | herbelin | 2003-10-11 15:05:15 +0000 |
|---|---|---|
| committer | herbelin | 2003-10-11 15:05:15 +0000 |
| commit | 4274fe4cc45472beb4b16c5aca4033b02506a519 (patch) | |
| tree | 50334718c49e0c780d68144562523a5986e91faa | |
| parent | b65e733f6337e374f263721a3abd5decd7acff31 (diff) | |
Ajout fnl() dans About
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4599 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | parsing/prettyp.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/parsing/prettyp.ml b/parsing/prettyp.ml index c9586aac22..8b9c59b117 100644 --- a/parsing/prettyp.ml +++ b/parsing/prettyp.ml @@ -450,14 +450,14 @@ let print_about ref = print_constant false " : " sp | Term (IndRef ind as ref) -> let ty = Inductive.type_of_inductive env ind in - print_typed_value (mkInd ind, ty) ++ + print_typed_value (mkInd ind, ty) ++ fnl () ++ print_name_infos ref | Term (ConstructRef cstr as ref) -> let ty = Inductive.type_of_constructor env cstr in - print_typed_value (mkConstruct cstr, ty) ++ + print_typed_value (mkConstruct cstr, ty) ++ fnl () ++ print_name_infos ref | Term (VarRef sp as ref) -> - print_named_decl (get_variable sp) ++ + print_named_decl (get_variable sp) ++ fnl () ++ print_name_infos ref | Syntactic kn -> print_syntactic_def " = " kn |