- update in Basic_2

[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 9f2d54df0cc5c8b8553d7501050e753ea5f2a28b..a9fca999c050e096e09b2b90f9e619d5dfcc01c0 100644 (file)
--- a/matita/matita/contribs/lambda_delta/Basic_2/notation.ma
+++ b/matita/matita/contribs/lambda_delta/Basic_2/notation.ma
@@ -112,6 +112,10 @@ notation "hvbox( L ⊢ break term 90 T1 ≈ break T2 )"
    non associative with precedence 45
    for @{ 'Hom $L $T1 $T2 }.
 
+notation "hvbox( T1 ≃ break T2 )"
+   non associative with precedence 45
+   for @{ 'Iso $T1 $T2 }.
+
 notation "hvbox( T1 break [ d , break e ] ≼ break T2 )"
    non associative with precedence 45
    for @{ 'SubEq $T1 $d $e $T2 }.
@@ -278,6 +282,10 @@ notation "hvbox( L ⊢ ⬇ * T )"
    non associative with precedence 45
    for @{ 'SN $L $T }.
 
+notation "hvbox( L ⊢ ⬇ * * T )"
+   non associative with precedence 45
+   for @{ 'SNStar $L $T }.
+
 notation "hvbox( ⦃ L, break T ⦄ break [ R ] ϵ break 〚 A 〛 )"
    non associative with precedence 45
    for @{ 'InEInt $R $L $T $A }.
@@ -286,16 +294,14 @@ notation "hvbox( T1 break [ R ] ⊑ break T2 )"
    non associative with precedence 45
    for @{ 'CrSubEq $T1 $R $T2 }.
 
-(* Functional ***************************************************************)
+(* Conversion ***************************************************************)
 
-notation "hvbox( ↑ [ d , break e ] break T )"
-   non associative with precedence 55
-   for @{ 'Lift $d $e $T }.
+notation "hvbox( L ⊢ break term 90 T1 ⬌ break T2 )"
+   non associative with precedence 45
+   for @{ 'PConv $L $T1 $T2 }.
 
-notation "hvbox( [ d ← break V ] break T )"
-   non associative with precedence 55
-   for @{ 'Subst $V $d $T }.
+(* Equivalence **************************************************************)
 
-notation "hvbox( T1 ⇨ break T2 )"
+notation "hvbox( L ⊢ break term 90 T1 ⬌* break T2 )"
    non associative with precedence 45
-   for @{ 'SRed $T1 $T2 }.
+   for @{ 'PConvStar $L $T1 $T2 }.