X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcore_notation.moo;h=2ecb35e8be5b738afff7201ccf441199170652e5;hb=0972948bb0b578df99c1bf6ae7c805418b11206a;hp=8ce02776502647fddc514f84a6a4d6e90ad70eed;hpb=883affb9b633393615ce3cb674834664c5b9c881;p=helm.git

diff --git a/helm/software/matita/core_notation.moo b/helm/software/matita/core_notation.moo
index 8ce027765..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)" 
@@ -119,3 +119,7 @@ for @{ 'and $a $b }.
 notation "hvbox(\lnot a)" 
   non associative with precedence 40
 for @{ 'not $a }.
+
+notation "hvbox(a break => b)" 
+  non associative with precedence 45
+for @{ 'parred $a $b }.