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

- removed () around sorts
---

diff --git a/helm/software/components/acic_content/cicNotationPp.ml b/helm/software/components/acic_content/cicNotationPp.ml
index 568faa927..efcc25897 100644
--- a/helm/software/components/acic_content/cicNotationPp.ml
+++ b/helm/software/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