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 5b3759cb0eca2c79d2b8117e488fa5989e77f558..38c1a4efa4c46cd65aa88b0345f905b1ab338b65 100644 (file)
--- 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 b1942d209f45077d6060ba5f993ccbea2041ca89..d2e6ec2b0d2dbe7357814a810d649761b44a4194 100644 (file)
--- 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.