other addition to the standard library removed

[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 a84fa8ff8cc25dd3138aa0e1eb1ecfe468a9f9fb..0ec1b1466a44e4b16b9f95094d20211773a73650 100644 (file)
--- a/matita/matita/contribs/lambda_delta/Basic_2/notation.ma
+++ b/matita/matita/contribs/lambda_delta/Basic_2/notation.ma
@@ -24,14 +24,26 @@ notation "hvbox( ⋆ term 90 k )"
  non associative with precedence 90
  for @{ 'Star $k }.
 
-notation "hvbox( # term 90 k )"
+notation "hvbox( # term 90 i )"
  non associative with precedence 90
- for @{ 'LRef $k }.
+ for @{ 'LRef $i }.
+
+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 }.
@@ -64,9 +76,9 @@ notation "hvbox( 𝕊 [ T ] )"
    non associative with precedence 45
    for @{ 'Simple $T }.
 
-notation "hvbox( T1 break [ d , break e ] â\89\88 break T2 )"
+notation "hvbox( T1 break [ d , break e ] â\89¼ break T2 )"
    non associative with precedence 45
-   for @{ 'Eq $T1 $d $e $T2 }.
+   for @{ 'SubEq $T1 $d $e $T2 }.
 
 (* Substitution *************************************************************)
 
@@ -96,7 +108,69 @@ 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 }.
 
-(* Reduction ****************************************************************)
+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 ] )"
+   non associative with precedence 45
+   for @{ 'Reducible $T }.
+
+notation "hvbox( L ⊢ ℝ [ T ] )"
+   non associative with precedence 45
+   for @{ 'Reducible $L $T }.
+
+notation "hvbox( 𝕀 [ T ] )"
+   non associative with precedence 45
+   for @{ 'NotReducible $T }.
+
+notation "hvbox( L ⊢ 𝕀 [ T ] )"
+   non associative with precedence 45
+   for @{ 'NotReducible $L $T }.
+
+notation "hvbox( ℕ [ T ] )"
+   non associative with precedence 45
+   for @{ 'Normal $T }.
+
+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
@@ -123,3 +197,27 @@ notation "hvbox( L ⊢ break term 90 T1 ⇒* break T2 )"
 notation "hvbox( L1 ⊢ ⇒* break L2 )"
    non associative with precedence 45
    for @{ 'CPRedStar $L1 $L2 }.
+
+notation "hvbox( ⇓ T  )"
+   non associative with precedence 45
+   for @{ 'SN $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 }.