X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcore_notation.moo;h=6f5d78d033bcbd223e2ba1e36f759e0451289ab2;hb=e880d6eab5e1700f4a625ddcd7d0fa8f0cce2dcc;hp=f781db7de78e61015444457d444ac9429005a487;hpb=117dfe4f3b6d8ebf53172eaf66b628a27e4e43e1;p=helm.git

diff --git a/helm/software/matita/core_notation.moo b/helm/software/matita/core_notation.moo
index f781db7de..6f5d78d03 100644
--- a/helm/software/matita/core_notation.moo
+++ b/helm/software/matita/core_notation.moo
@@ -233,10 +233,10 @@ for @{ 'overlaps $a $b }. (* \between *)
 notation "hvbox(a break ⊆ b)" non associative with precedence 45
 for @{ 'subseteq $a $b }. (* \subseteq *)
 
-notation "hvbox(a break ∩ b)" non associative with precedence 55
+notation "hvbox(a break ∩ b)" left associative with precedence 55
 for @{ 'intersects $a $b }. (* \cap *)
 
-notation "hvbox(a break ∪ b)" non associative with precedence 50
+notation "hvbox(a break ∪ b)" left associative with precedence 50
 for @{ 'union $a $b }. (* \cup *)
 
 notation "hvbox({ term 19 a })" with precedence 90 for @{ 'singl $a}.
@@ -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}.