From: Ferruccio Guidi <ferruccio.guidi@unibo.it>
Date: Sat, 26 Aug 2006 11:19:15 +0000 (+0000)
Subject: - removed () around sorts
X-Git-Tag: 0.4.95@7852~1114
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=0de8fd08ab3f27ea5f3c3bf5b584104e634234c5;p=helm.git

- removed () around sorts
---

diff --git a/components/acic_content/cicNotationPp.ml b/components/acic_content/cicNotationPp.ml
index 568faa927..efcc25897 100644
--- a/components/acic_content/cicNotationPp.ml
+++ b/components/acic_content/cicNotationPp.ml
@@ -149,6 +149,7 @@ let rec pp_term ?(pp_parens = true) t =
   in
   match pp_parens, t with
     | false, _ 
+    | true, Ast.Sort _
     | true, Ast.Ident (_, Some []) 
     | true, Ast.Ident (_, None)    -> t_pp
     | _                            -> sprintf "(%s)" t_pp