better name for a theorem

[helm.git] / helm / matita / core_notation.moo

diff --git a/helm/matita/core_notation.moo b/helm/matita/core_notation.moo
index c528fc111d2041cb83761efa02697a33300b337f..a2802c3da8eabd6d5bb5176c7323f1e388724c31 100644 (file)
--- a/helm/matita/core_notation.moo
+++ b/helm/matita/core_notation.moo
@@ -46,6 +46,14 @@ 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 }.
@@ -70,10 +78,22 @@ notation "a \over b"
   left associative with precedence 55
 for @{ 'divide $a $b }.
 
-notation "- a" 
+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 }.