From 92140306286b05521c7cc49e75c4dae194ccbb52 Mon Sep 17 00:00:00 2001
From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Tue, 13 Sep 2005 14:43:32 +0000
Subject: [PATCH] fixed parsing of --x=x ("'uminus" is now right associative)

---
 helm/matita/core_notation.moo | 2 +-
 helm/matita/library/Z/plus.ma | 3 +--
 2 files changed, 2 insertions(+), 3 deletions(-)

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.
-- 
2.39.2