X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Fcore_notation.moo;h=c30e5142c08d6380890a4d6b6e7b955636238542;hb=97c2d258a5c524eb5c4b85208899d80751a2c82f;hp=86de49f0d713a2e8e6498c5111bc3438e3a1eb60;hpb=30b7e65d641fe7243c4f36ed448f56360a1c5e1c;p=helm.git

diff --git a/helm/matita/core_notation.moo b/helm/matita/core_notation.moo
index 86de49f0d..c30e5142c 100644
--- a/helm/matita/core_notation.moo
+++ b/helm/matita/core_notation.moo
@@ -66,9 +66,9 @@ notation "hvbox(a break * b)"
   left associative with precedence 55
 for @{ 'times $a $b }.
 
-notation "hvbox(a break / b)" 
+notation "hvbox(a break \mod b)" 
   left associative with precedence 55
-for @{ 'divide $a $b }.
+for @{ 'module $a $b }.
 
 notation "\frac a b" 
   non associative with precedence 90
@@ -78,10 +78,18 @@ notation "a \over b"
   left associative with precedence 55
 for @{ 'divide $a $b }.
 
-notation "- a" 
+notation "hvbox(a break / b)" 
+  left associative with precedence 55
+for @{ 'divide $a $b }.
+
+notation > "- a" 
   right associative with precedence 60
 for @{ 'uminus $a }.
 
+notation < "- a" 
+  right associative with precedence 75
+for @{ 'uminus $a }.
+
 notation "a !"
   non associative with precedence 80
 for @{ 'fact $a }.