X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2FGround_2%2Fnotation.ma;h=71fbbe0c2c65c0a1965a8e0527f690b89fd0b0c9;hb=3443885ee60fbcb90e2d106e67d3b7f7e3c59bad;hp=65cb0a029002d649b669574ca28b4cc1fcf440ef;hpb=fc7af5f9ea2cd4a876b8babc6b691136799e3c87;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 65cb0a029..71fbbe0c2 100644
--- a/matita/matita/contribs/lambda_delta/Ground_2/notation.ma
+++ b/matita/matita/contribs/lambda_delta/Ground_2/notation.ma
@@ -14,18 +14,24 @@
 
 (* GENERAL NOTATION USED BY THE FORMAL SYSTEM λδ ****************************)
 
-(* Subsets ******************************************************************)
-
-notation "hvbox( T ϵ break R )"
-   non associative with precedence 45
-   for @{ 'InSubset $T $R }.
-
 (* Lists ********************************************************************)
 
-notation "hvbox( hd break :: tl )"
+notation "hvbox( ◊ )"
+  non associative with precedence 90
+  for @{'Nil}.
+
+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( ⟠ )"
+  non associative with precedence 90
+  for @{'Nil2}.
+
+notation "hvbox( { hd1 , break hd2 } :: break tl )"
+  non associative with precedence 47
+  for @{'Cons $hd1 $hd2 $tl}.