X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2FBasic_2%2Fnotation.ma;h=4d71723d0c11b9bc9daa443f17547ad6d66599e7;hb=35653f628dc3a3e665fee01acc19c660c9d555e3;hp=0ec1b1466a44e4b16b9f95094d20211773a73650;hpb=9aa9a54946719d3fdb4cadb7c7d33fd13956c083;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 0ec1b1466..4d71723d0 100644
--- a/matita/matita/contribs/lambda_delta/Basic_2/notation.ma
+++ b/matita/matita/contribs/lambda_delta/Basic_2/notation.ma
@@ -86,6 +86,10 @@ 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 )"
    non associative with precedence 45
    for @{ 'RDrop $d $e $L1 $L2 }.
@@ -221,3 +225,14 @@ notation "hvbox( T1 ⊑ break T2 )"
 notation "hvbox( T1 break [ R ] ⊑ break T2 )"
    non associative with precedence 45
    for @{ 'CrSubEq $T1 $R $T2 }.
+
+(* Functional ***************************************************************)
+
+notation "hvbox( ↟ [ d , break e ] break T )"
+   non associative with precedence 80
+   for @{ 'Lift $d $e $T }.
+
+notation "hvbox( ↡ [ d ← break V ] break T )"
+   non associative with precedence 80
+   for @{ 'Subst $V $d $T }.
+