From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Tue, 13 Sep 2005 14:43:32 +0000 (+0000)
Subject: fixed parsing of --x=x ("'uminus" is now right associative)
X-Git-Tag: V_0_1_2_1~14
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=92140306286b05521c7cc49e75c4dae194ccbb52;p=helm.git

fixed parsing of --x=x ("'uminus" is now right associative)
---

diff --git a/helm/matita/core_notation.moo b/helm/matita/core_notation.moo
index 5b3759cb0..38c1a4efa 100644
--- a/helm/matita/core_notation.moo
+++ b/helm/matita/core_notation.moo
@@ -55,7 +55,7 @@ notation "a \over b"
 for @{ 'divide $a $b }.
 
 notation "- a" 
-  non associative with precedence 60
+  right associative with precedence 60
 for @{ 'uminus $a }.
 
 notation "\sqrt a" 
diff --git a/helm/matita/library/Z/plus.ma b/helm/matita/library/Z/plus.ma
index b1942d209..d2e6ec2b0 100644
--- a/helm/matita/library/Z/plus.ma
+++ b/helm/matita/library/Z/plus.ma
@@ -286,8 +286,7 @@ intro.simplify.reflexivity.
 simplify.reflexivity.
 qed.
 
-(* --x non gli piace, ma lo stampa *)
-theorem Zopp_Zopp: \forall x:Z. -(-x) = x.
+theorem Zopp_Zopp: \forall x:Z. --x = x.
 intro. elim x.
 reflexivity.reflexivity.reflexivity.
 qed.