X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatita%2Fcontribs%2Flambda_delta%2FBasic_2%2Fnotation.ma;fp=matita%2Fmatita%2Fcontribs%2Flambda_delta%2FBasic_2%2Fnotation.ma;h=0ec1b1466a44e4b16b9f95094d20211773a73650;hb=9aa9a54946719d3fdb4cadb7c7d33fd13956c083;hp=dcbbbffed309ec7ffc8ffa53fa94af025651045f;hpb=db63f65c35efaa93d0a2cc00a194549e791975c9;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 dcbbbffed..0ec1b1466 100644
--- a/matita/matita/contribs/lambda_delta/Basic_2/notation.ma
+++ b/matita/matita/contribs/lambda_delta/Basic_2/notation.ma
@@ -32,10 +32,18 @@ notation "hvbox( § term 90 p )"
  non associative with precedence 90
  for @{ 'GRef $p }.
 
+notation "hvbox( 𝕒 )"
+ non associative with precedence 90
+ for @{ 'SItem }.
+
 notation "hvbox( 𝕒 { I } )"
  non associative with precedence 90
  for @{ 'SItem $I }.
 
+notation "hvbox( 𝕔 term 90 T1 . break term 90 T )"
+ non associative with precedence 90
+ for @{ 'SItem $T1 $T }.
+
 notation "hvbox( 𝕔 { I } break term 90 T1 . break term 90 T )"
  non associative with precedence 90
  for @{ 'SItem $I $T1 $T }.
@@ -108,6 +116,12 @@ notation "hvbox( L ⊢ break term 90 T1 break [ d , break e ] ≡ break T2 )"
    non associative with precedence 45
    for @{ 'TSubst $L $T1 $d $e $T2 }.
 
+(* Static Typing ************************************************************)
+
+notation "hvbox( L ⊢ break term 90 T ÷ break A )"
+   non associative with precedence 45
+   for @{ 'AtomicArity $L $T $A }.
+
 (* Reducibility *************************************************************)
 
 notation "hvbox( ℝ [ T ] )"
@@ -191,3 +205,19 @@ notation "hvbox( ⇓ T  )"
 notation "hvbox( L ⊢ ⇓ T )"
    non associative with precedence 45
    for @{ 'SN $L $T }.
+
+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 〛 )"
+   non associative with precedence 45
+   for @{ 'InEInt $R $L $T $A }.
+
+notation "hvbox( T1 ⊑ break T2 )"
+   non associative with precedence 45
+   for @{ 'CrSubEq $T1 $T2 }.
+
+notation "hvbox( T1 break [ R ] ⊑ break T2 )"
+   non associative with precedence 45
+   for @{ 'CrSubEq $T1 $R $T2 }.