X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2Fground_2%2Fnotation.ma;h=4ac2e6e645c54ca5cf2a3a1b11ec7b10baaee8dc;hb=5613a25cee29ef32a597cb4b44e8f2f4d71c4df0;hp=71fbbe0c2c65c0a1965a8e0527f690b89fd0b0c9;hpb=eb918fc784eacd2094e3986ba321ef47690d9983;p=helm.git

diff --git a/matita/matita/contribs/lambda_delta/ground_2/notation.ma b/matita/matita/contribs/lambda_delta/ground_2/notation.ma
index 71fbbe0c2..4ac2e6e64 100644
--- a/matita/matita/contribs/lambda_delta/ground_2/notation.ma
+++ b/matita/matita/contribs/lambda_delta/ground_2/notation.ma
@@ -14,24 +14,34 @@
 
 (* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
 
+(* Logic ********************************************************************)
+
+notation "⊥"
+  non associative with precedence 90
+  for @{'false}.
+
+notation "⊤"
+  non associative with precedence 90
+  for @{'true}.
+
 (* Lists ********************************************************************)
 
-notation "hvbox( ◊ )"
+notation "◊"
   non associative with precedence 90
   for @{'Nil}.
 
-notation "hvbox( hd :: break tl )"
+notation "hvbox( hd @ break tl )"
   right associative with precedence 47
   for @{'Cons $hd $tl}.
 
-notation "hvbox( l1 @ break l2 )"
+notation "hvbox( l1 @@ break l2 )"
   right associative with precedence 47
   for @{'Append $l1 $l2 }.
 
-notation "hvbox( ⟠ )"
+notation "⟠"
   non associative with precedence 90
   for @{'Nil2}.
 
-notation "hvbox( { hd1 , break hd2 } :: break tl )"
+notation "hvbox( { hd1 , break hd2 } @ break tl )"
   non associative with precedence 47
   for @{'Cons $hd1 $hd2 $tl}.