commit by user mkmluser

[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 eb3d61cac70b5bb21b87471c5141c32f6ff9a99e..31126679ff7a34ea367f3fc2d18b30f496d20d61 100644 (file)
--- a/matita/matita/contribs/lambda_delta/basic_2/notation.ma
+++ b/matita/matita/contribs/lambda_delta/basic_2/notation.ma
@@ -138,9 +138,9 @@ notation "hvbox( T1 break ≼ [ d , break e ] break term 46 T2 )"
    non associative with precedence 45
    for @{ 'SubEq $T1 $d $e $T2 }.
 
-notation "hvbox( â\89¼ [ d , break e ] break term 46 T2 )"
+notation "hvbox( â\89½ [ d , break e ] break term 46 T2 )"
    non associative with precedence 45
-   for @{ 'SubEqTop $d $e $T2 }.
+   for @{ 'SubEqBottom $d $e $T2 }.
 
 notation "hvbox( ⇩ [ e ] break term 46 L1 ≡ break term 46 L2 )"
    non associative with precedence 45
@@ -365,3 +365,9 @@ notation "hvbox( ⦃ h , break L ⦄ ⊢ break term 46 T1 :: break term 46 T2 )"
 notation "hvbox( h ⊢ break term 46 L1 : ⊑ break term 46 L2 )"
    non associative with precedence 45
    for @{ 'CrSubEqN $h $L1 $L2 }.
+
+(* Higher order dynamic typing **********************************************)
+
+notation "hvbox( ⦃ h , break L ⦄ ⊢ break term 46 T1 :* break term 46 T2 )"
+   non associative with precedence 45
+   for @{ 'NativeTypeStar $h $L $T1 $T2 }.