X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2Fcore_notation.moo;h=c30e5142c08d6380890a4d6b6e7b955636238542;hb=4167cea65ca58897d1a3dbb81ff95de5074700cc;hp=5b3759cb0eca2c79d2b8117e488fa5989e77f558;hpb=650e3b3c9ff0b9cafb76a0edf8139a53446937ba;p=helm.git

diff --git a/helm/matita/core_notation.moo b/helm/matita/core_notation.moo
index 5b3759cb0..c30e5142c 100644
--- a/helm/matita/core_notation.moo
+++ b/helm/matita/core_notation.moo
@@ -30,6 +30,30 @@ notation "hvbox(a break \neq b)"
   non associative with precedence 45
 for @{ 'neq $a $b }.
 
+notation "hvbox(a break \nleq b)" 
+  non associative with precedence 45
+for @{ 'nleq $a $b }.
+
+notation "hvbox(a break \ngeq b)" 
+  non associative with precedence 45
+for @{ 'ngeq $a $b }.
+
+notation "hvbox(a break \nless b)" 
+  non associative with precedence 45
+for @{ 'nless $a $b }.
+
+notation "hvbox(a break \ngtr b)" 
+  non associative with precedence 45
+for @{ 'ngtr $a $b }.
+
+notation "hvbox(a break \divides b)"
+  non associative with precedence 45
+for @{ 'divides $a $b }.
+
+notation "hvbox(a break \ndivides b)"
+  non associative with precedence 45
+for @{ 'ndivides $a $b }.
+
 notation "hvbox(a break + b)" 
   left associative with precedence 50
 for @{ 'plus $a $b }.
@@ -42,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
@@ -54,10 +78,26 @@ notation "a \over b"
   left associative with precedence 55
 for @{ 'divide $a $b }.
 
-notation "- a" 
-  non associative with precedence 60
+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 }.
+
+notation "(a \sup b)"
+  right associative with precedence 65
+for @{ 'exp $a $b}.
+
 notation "\sqrt a" 
   non associative with precedence 60
 for @{ 'sqrt $a }.