- the definition of the framework for strong normalization continues ...

[helm.git] / matita / matita / contribs / lambda_delta / Basic_2 / notation.ma

diff --git a/matita/matita/contribs/lambda_delta/Basic_2/notation.ma b/matita/matita/contribs/lambda_delta/Basic_2/notation.ma
index 7704c6581cf56f9df8382f7d262b949711f2c6cf..4d71723d0c11b9bc9daa443f17547ad6d66599e7 100644 (file)
--- 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 }.
@@ -78,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 }.
@@ -100,10 +112,20 @@ notation "hvbox( L ⊢ break term 90 T1 break [ d , break e ] ≫* break T2 )"
    non associative with precedence 45
    for @{ 'PSubstStar $L $T1 $d $e $T2 }.
 
+notation "hvbox( T1 break [ d , break e ] ≡ break T2 )"
+   non associative with precedence 45
+   for @{ 'TSubst $T1 $d $e $T2 }.
+
 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 ] )"
@@ -130,6 +152,30 @@ notation "hvbox( L ⊢ ℕ [ T ] )"
    non associative with precedence 45
    for @{ 'Normal $L $T }.
 
+notation "hvbox( 𝕎ℍℝ [ T ] )"
+   non associative with precedence 45
+   for @{ 'WHdReducible $T }.
+
+notation "hvbox( L ⊢ 𝕎ℍℝ [ T ] )"
+   non associative with precedence 45
+   for @{ 'WHdReducible $L $T }.
+
+notation "hvbox( 𝕎ℍ𝕀 [ T ] )"
+   non associative with precedence 45
+   for @{ 'NotWHdReducible $T }.
+
+notation "hvbox( L ⊢ 𝕎ℍ𝕀 [ T ] )"
+   non associative with precedence 45
+   for @{ 'NotWHdReducible $L $T }.
+
+notation "hvbox( 𝕎ℍℕ [ T ] )"
+   non associative with precedence 45
+   for @{ 'WHdNormal $T }.
+
+notation "hvbox( L ⊢ 𝕎ℍℕ [ T ] )"
+   non associative with precedence 45
+   for @{ 'WHdNormal $L $T }.
+
 notation "hvbox( T1 ⇒ break T2 )"
    non associative with precedence 45
    for @{ 'PRed $T1 $T2 }.
@@ -163,3 +209,30 @@ 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 }.
+
+(* 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 }.
+