non associative with precedence 55
for @{ 'SnAppl $T1 $T2 }.
-notation "hvbox( â\93£ term 55 T1 . break term 55 T2 )"
+notation "hvbox( â\93\9d term 55 T1 . break term 55 T2 )"
non associative with precedence 55
for @{ 'SnCast $T1 $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
non associative with precedence 45
for @{ 'PSubstStarAlt $L $T1 $d $e $T2 }.
-notation "hvbox( T1 break [ d , break e ] ≡ break term 46 T2 )"
+notation "hvbox( T1 break ▼* [ d , break e ] ≡ break term 46 T2 )"
non associative with precedence 45
for @{ 'TSubst $T1 $d $e $T2 }.
-notation "hvbox( L ⊢ break term 46 T1 break [ d , break e ] ≡ break term 46 T2 )"
+notation "hvbox( L ⊢ break term 46 T1 break ▼* [ d , break e ] ≡ break term 46 T2 )"
non associative with precedence 45
for @{ 'TSubst $L $T1 $d $e $T2 }.
-notation "hvbox( T1 break [ d , break e ] ≡ ≡ break term 46 T2 )"
+notation "hvbox( T1 break ▼▼* [ d , break e ] ≡ break term 46 T2 )"
non associative with precedence 45
for @{ 'TSubstAlt $T1 $d $e $T2 }.
-notation "hvbox( L ⊢ break term 46 T1 break [ d , break e ] ≡ ≡ break term 46 T2 )"
+notation "hvbox( L ⊢ break term 46 T1 break ▼▼* [ d , break e ] ≡ break term 46 T2 )"
non associative with precedence 45
for @{ 'TSubstAlt $L $T1 $d $e $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 }.