X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2FBasic_2%2Fnotation.ma;h=49f126019c2d9040329062891733ce42f659fac6;hb=0aa60d67f17b528b896e05bbd01038cbc195f69d;hp=4d71723d0c11b9bc9daa443f17547ad6d66599e7;hpb=62a926c1a14562bf158941156c6032c0c8d86fbe;p=helm.git

diff --git a/matita/matita/contribs/lambda_delta/Basic_2/notation.ma b/matita/matita/contribs/lambda_delta/Basic_2/notation.ma
index 4d71723d0..49f126019 100644
--- a/matita/matita/contribs/lambda_delta/Basic_2/notation.ma
+++ b/matita/matita/contribs/lambda_delta/Basic_2/notation.ma
@@ -56,6 +56,10 @@ notation "hvbox( 𝕗 { I } break term 90 T1 . break term 90 T )"
  non associative with precedence 90
  for @{ 'SFlat $I $T1 $T }.
 
+notation "hvbox( Ⓐ term 90 T1 . break term 90 T )"
+ non associative with precedence 90
+ for @{ 'ApplV $T1 $T }.
+
 notation "hvbox( T . break 𝕓 { I } break term 90 T1 )"
  non associative with precedence 89
  for @{ 'DBind $T $I $T1 }.
@@ -82,17 +86,13 @@ notation "hvbox( T1 break [ d , break e ] ≼ break T2 )"
 
 (* Substitution *************************************************************)
 
-notation "hvbox( ↑ [ d , break e ] break T1 ≡ break T2 )"
+notation "hvbox( ⇑ [ d , break e ] break T1 ≡ break T2 )"
    non associative with precedence 45
    for @{ 'RLift $d $e $T1 $T2 }.
 
-notation "hvbox( ↓ [ e ] break L1 ≡ break L2 )"
-   non associative with precedence 45
-   for @{ 'RDrop $e $L1 $L2 }.
-
-notation "hvbox( ↓ [ d , break e ] break L1 ≡ break L2 )"
+notation "hvbox( ⇓ [ d , break e ] break L1 ≡ break L2 )"
    non associative with precedence 45
-   for @{ 'RDrop $d $e $L1 $L2 }.
+   for @{ 'RLDrop $d $e $L1 $L2 }.
 
 notation "hvbox( T1 break [ d , break e ] ≫ break T2 )"
    non associative with precedence 45
@@ -104,6 +104,14 @@ notation "hvbox( L ⊢ break term 90 T1 break [ d , break e ] ≫ break T2 )"
 
 (* Unfold *******************************************************************)
 
+notation "hvbox( ⇑ [ e ] break T1 ≡ break T2 )"
+   non associative with precedence 45
+   for @{ 'RLift $e $T1 $T2 }.
+
+notation "hvbox( ⇓ [ e ] break L1 ≡ break L2 )"
+   non associative with precedence 45
+   for @{ 'RLDrop $e $L1 $L2 }.
+
 notation "hvbox( T1 break [ d , break e ] ≫* break T2 )"
    non associative with precedence 45
    for @{ 'PSubstStar $T1 $d $e $T2 }.
@@ -214,7 +222,7 @@ notation "hvbox( { L, break T } ϵ break 〚 A 〛 )"
    non associative with precedence 45
    for @{ 'InEInt $L $T $A }.
 
-notation "hvbox( R ⊢ break { L, break T } ϵ break 〚 A 〛 )"
+notation "hvbox( { L, break T } break [ R ] ϵ break 〚 A 〛 )"
    non associative with precedence 45
    for @{ 'InEInt $R $L $T $A }.
 
@@ -228,11 +236,11 @@ notation "hvbox( T1 break [ R ] ⊑ break T2 )"
 
 (* Functional ***************************************************************)
 
-notation "hvbox( ↟ [ d , break e ] break T )"
+notation "hvbox( ↑ [ d , break e ] break T )"
    non associative with precedence 80
    for @{ 'Lift $d $e $T }.
 
-notation "hvbox( ↡ [ d ← break V ] break T )"
+notation "hvbox( ↓ [ d ← break V ] break T )"
    non associative with precedence 80
    for @{ 'Subst $V $d $T }.