X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcore_notation.moo;h=2ecb35e8be5b738afff7201ccf441199170652e5;hb=f262223fb7b49a191b25d27ecc58818b9d7a357d;hp=3b157ec5877d3933805a51b9344da2162db2c2d6;hpb=73284b016dc2c195491ab3442457ec9fb76b576f;p=helm.git

diff --git a/helm/software/matita/core_notation.moo b/helm/software/matita/core_notation.moo
index 3b157ec58..2ecb35e8b 100644
--- a/helm/software/matita/core_notation.moo
+++ b/helm/software/matita/core_notation.moo
@@ -1,7 +1,7 @@
 notation < "hvbox(\exists ident i opt (: ty) break . p)"
   right associative with precedence 20
 for @{ 'exists ${default
-  @{\lambda ${ident i} : $ty. $p)}
+  @{\lambda ${ident i} : $ty. $p}
   @{\lambda ${ident i} . $p}}}.
 
 notation "hvbox(a break \to b)" 
@@ -117,5 +117,9 @@ notation "hvbox(a break \land b)"
 for @{ 'and $a $b }.
 
 notation "hvbox(\lnot a)" 
-  left associative with precedence 40
+  non associative with precedence 40
 for @{ 'not $a }.
+
+notation "hvbox(a break => b)" 
+  non associative with precedence 45
+for @{ 'parred $a $b }.