X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2Fcore_notation.moo;h=8ce02776502647fddc514f84a6a4d6e90ad70eed;hb=105e895dd735c2f1ceed588026346e168908ce3a;hp=c30e5142c08d6380890a4d6b6e7b955636238542;hpb=55b82bd235d82ff7f0a40d980effe1efde1f5073;p=helm.git

diff --git a/helm/software/matita/core_notation.moo b/helm/software/matita/core_notation.moo
index c30e5142c..8ce027765 100644
--- a/helm/software/matita/core_notation.moo
+++ b/helm/software/matita/core_notation.moo
@@ -1,3 +1,9 @@
+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} . $p}}}.
+
 notation "hvbox(a break \to b)" 
   right associative with precedence 20
 for @{ \forall $_:$a.$b }.
@@ -111,5 +117,5 @@ 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 }.