X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;ds=sidebyside;f=helm%2Fsoftware%2Fmatita%2Fcore_notation.moo;h=1dcb15d811ba7994a16de316fdbeefcce8eafb2b;hb=6dbd1ba8983f25118d5f5410bd116d7d4c8801b1;hp=b6e4ae476ef7c48fc6fecbf0fa77b65763a97bd6;hpb=ef6a409b9cea2a3d0b0852ae3e69737566c91ba1;p=helm.git

diff --git a/helm/software/matita/core_notation.moo b/helm/software/matita/core_notation.moo
index b6e4ae476..1dcb15d81 100644
--- a/helm/software/matita/core_notation.moo
+++ b/helm/software/matita/core_notation.moo
@@ -207,9 +207,9 @@ notation "hvbox(a break \leftrightarrow b)"
 for @{ 'iff $a $b }.
 
 
-notation "hvbox(\Omega \sup term 90 A)" non associative with precedence 70
+notation "hvbox(\Omega \sup term 90 A)" non associative with precedence 90
 for @{ 'powerset $A }.
-notation > "hvbox(\Omega ^ term 90 A)" non associative with precedence 70
+notation > "hvbox(\Omega ^ term 90 A)" non associative with precedence 90
 for @{ 'powerset $A }.
 
 notation < "hvbox({ ident i | term 19 p })" with precedence 90
@@ -267,7 +267,7 @@ notation "s \sup (-1)" non associative with precedence 75 for @{ 'invert $s }.
 notation > "s ^ (-1)" non associative with precedence 75 for @{ 'invert $s }.
 notation < "s \sup (-1) x" non associative with precedence 90 for @{ 'invert_appl $s $x}. 
 
-notation "hvbox(|term 90 C|)" with precedence 69 for @{ 'card $C }.
+notation "| term 19 C |" with precedence 70 for @{ 'card $C }.
 
 notation "\naturals" non associative with precedence 90 for @{'N}.
 notation "\rationals" non associative with precedence 90 for @{'Q}.