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

[helm.git] / helm / matita / library / Z / plus.ma

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.