non associative with precedence 50
for @{ 'DxItem4 $T $I $T1 $T2 $T3 }.
-notation "hvbox( # [ x ] )"
+notation "hvbox( # { x } )"
non associative with precedence 90
for @{ 'Weight $x }.
-notation "hvbox( # [ x , break y ] )"
+notation "hvbox( # { x , break y } )"
non associative with precedence 90
for @{ 'Weight $x $y }.
(* Substitution *************************************************************)
-notation "hvbox( L β’ break π [ d , break e ] break β¦ T β¦ )"
- non associative with precedence 45
- for @{ 'Reducible $L $d $e $T }.
-
-notation "hvbox( L β’ break π [ d , break e ] break β¦ T β¦ )"
- non associative with precedence 45
- for @{ 'NotReducible $L $d $e $T }.
-
-notation "hvbox( L β’ break π [ d , break e ] break β¦ T β¦ )"
- non associative with precedence 45
- for @{ 'Normal $L $d $e $T }.
-
notation "hvbox( β§ [ d , break e ] break term 46 T1 β‘ break term 46 T2 )"
non associative with precedence 45
for @{ 'RLift $d $e $T1 $T2 }.
non associative with precedence 45
for @{ 'RDrop $d $e $L1 $L2 }.
+notation "hvbox( β¦ L1, break T1 β¦ β§ break β¦ L2 , break T2 β¦ )"
+ non associative with precedence 45
+ for @{ 'RestSupTerm $L1 $T1 $L2 $T2 }.
+
notation "hvbox( L β’ break β β¦ T β¦ β‘ break term 46 k )"
non associative with precedence 45
for @{ 'ICM $L $T $k }.
(* Unfold *******************************************************************)
-notation "hvbox( @ [ T1 ] break term 46 f β‘ break term 46 T2 )"
+notation "hvbox( @ β¦ T1 , break f β¦ β‘ break term 46 T2 )"
non associative with precedence 45
for @{ 'RAt $T1 $f $T2 }.
non associative with precedence 45
for @{ 'RDropStar $e $L1 $L2 }.
+notation "hvbox( β¦ L1, break T1 β¦ β§ + break β¦ L2 , break T2 β¦ )"
+ non associative with precedence 45
+ for @{ 'RestSupTermPlus $L1 $T1 $L2 $T2 }.
+
+notation "hvbox( β¦ L1, break T1 β¦ β§ * break β¦ L2 , break T2 β¦ )"
+ non associative with precedence 45
+ for @{ 'RestSupTermStar $L1 $T1 $L2 $T2 }.
+
notation "hvbox( T1 break βΆ * [ d , break e ] break term 46 T2 )"
non associative with precedence 45
for @{ 'PSubstStar $T1 $d $e $T2 }.
non associative with precedence 45
for @{ 'PSubstStarAlt $L $T1 $d $e $T2 }.
+notation "hvbox( T1 break β’ βΆ * [ d , break e ] break term 46 T2 )"
+ non associative with precedence 45
+ for @{ 'PSubstStarSn $T1 $d $e $T2 }.
+
+notation "hvbox( T1 break β’ βΆ βΆ * [ d , break e ] break term 46 T2 )"
+ non associative with precedence 45
+ for @{ 'PSubstStarSnAlt $T1 $d $e $T2 }.
+
notation "hvbox( βΌ * [ d , break e ] break term 46 T1 β‘ break term 46 T2 )"
non associative with precedence 45
for @{ 'TSubst $T1 $d $e $T2 }.
(* Unwind *******************************************************************)
-notation "hvbox( L1 ⒠⧫* break term 46 T ①break term 46 L2 )"
+notation "hvbox( L1 ⒠⧫ * break term 46 T ①break term 46 L2 )"
non associative with precedence 45
for @{ 'Unwind $L1 $T $L2 }.
(* Reducibility *************************************************************)
-notation "hvbox( π β¦ T β¦ )"
- non associative with precedence 45
- for @{ 'Reducible $T }.
-
notation "hvbox( L β’ break π β¦ T β¦ )"
non associative with precedence 45
for @{ 'Reducible $L $T }.
-notation "hvbox( π β¦ T β¦ )"
- non associative with precedence 45
- for @{ 'NotReducible $T }.
-
notation "hvbox( L β’ break π β¦ T β¦ )"
non associative with precedence 45
for @{ 'NotReducible $L $T }.
-notation "hvbox( π β¦ T β¦ )"
- non associative with precedence 45
- for @{ 'Normal $T }.
-
notation "hvbox( L β’ break π β¦ T β¦ )"
non associative with precedence 45
for @{ 'Normal $L $T }.
-notation "hvbox( πππ β¦ T β¦ )"
+(* this might be removed *)
+notation "hvbox( ππ β¦ T β¦ )"
non associative with precedence 45
- for @{ 'WHdReducible $T }.
+ for @{ 'HdReducible $T }.
-notation "hvbox( L β’ break πππ β¦ T β¦ )"
+(* this might be removed *)
+notation "hvbox( L β’ break ππ β¦ T β¦ )"
non associative with precedence 45
- for @{ 'WHdReducible $L $T }.
+ for @{ 'HdReducible $L $T }.
-notation "hvbox( πππ β¦ T β¦ )"
+(* this might be removed *)
+notation "hvbox( ππ β¦ T β¦ )"
non associative with precedence 45
- for @{ 'NotWHdReducible $T }.
+ for @{ 'NotHdReducible $T }.
-notation "hvbox( L β’ break πππ β¦ T β¦ )"
+(* this might be removed *)
+notation "hvbox( L β’ break ππ β¦ T β¦ )"
non associative with precedence 45
- for @{ 'NotWHdReducible $L $T }.
+ for @{ 'NotHdReducible $L $T }.
-notation "hvbox( πππ β¦ T β¦ )"
+(* this might be removed *)
+notation "hvbox( ππ β¦ T β¦ )"
non associative with precedence 45
- for @{ 'WHdNormal $T }.
+ for @{ 'HdNormal $T }.
-notation "hvbox( L β’ break πππ β¦ T β¦ )"
+(* this might be removed *)
+notation "hvbox( L β’ break ππ β¦ T β¦ )"
non associative with precedence 45
- for @{ 'WHdNormal $L $T }.
+ for @{ 'HdNormal $L $T }.
notation "hvbox( T1 β‘ break term 46 T2 )"
non associative with precedence 45
non associative with precedence 45
for @{ 'PRed $L $T1 $T2 }.
-notation "hvbox( L1 β’ β‘ break term 46 L2 )"
- non associative with precedence 45
- for @{ 'CPRed $L1 $L2 }.
-
notation "hvbox( β¦ L1 β¦ β‘ break β¦ L2 β¦ )"
non associative with precedence 45
for @{ 'FocalizedPRed $L1 $L2 }.
non associative with precedence 45
for @{ 'FocalizedPRed $L1 $T1 $L2 $T2 }.
-notation "hvbox( β¦ h , break L β¦ β’ break term 46 T1 βΈ break [ g ] break term 46 T2 )"
+notation "hvbox( L β’ break β¦ L1, break T1 β¦ β‘ break β¦ L2 , break T2 β¦ )"
+ non associative with precedence 45
+ for @{ 'FocalizedPRed $L $L1 $T1 $L2 $T2 }.
+
+notation "hvbox( β¦ L1 β¦ β‘ β‘ break β¦ L2 β¦ )"
+ non associative with precedence 45
+ for @{ 'FocalizedPRedAlt $L1 $L2 }.
+
+notation "hvbox( β¦ h , break L β¦ β’ break term 46 T1 β’ β‘ break [ g ] break term 46 T2 )"
non associative with precedence 45
for @{ 'XPRed $h $g $L $T1 $T2 }.
(* Computation **************************************************************)
-notation "hvbox( T1 β‘* break term 46 T2 )"
+notation "hvbox( T1 β‘ * break term 46 T2 )"
non associative with precedence 45
for @{ 'PRedStar $T1 $T2 }.
-notation "hvbox( L β’ break term 46 T1 β‘* break term 46 T2 )"
+notation "hvbox( L β’ break term 46 T1 β‘ * break term 46 T2 )"
non associative with precedence 45
for @{ 'PRedStar $L $T1 $T2 }.
-notation "hvbox( L1 β’ β‘* break term 46 L2 )"
+notation "hvbox( T1 β‘ β‘ * break term 46 T2 )"
+ non associative with precedence 45
+ for @{ 'PRedStarAlt $T1 $T2 }.
+
+notation "hvbox( β¦ L1 β¦ β‘ * break β¦ L2 β¦ )"
+ non associative with precedence 45
+ for @{ 'FocalizedPRedStar $L1 $L2 }.
+
+notation "hvbox( β¦ L1 , T1 β¦ β‘ * break β¦ L2 , T2 β¦ )"
non associative with precedence 45
- for @{ 'CPRedStar $L1 $L2 }.
+ for @{ 'FocalizedPRedStar $L1 $T1 $L2 $T2 }.
-notation "hvbox( L β’ break term 46 T1 β‘* break π β¦ T2 β¦ )"
+notation "hvbox( β¦ L1 β¦ β‘ β‘ * break β¦ L2 β¦ )"
+ non associative with precedence 45
+ for @{ 'FocalizedPRedStarAlt $L1 $L2 }.
+
+notation "hvbox( β¦ L1 , T1 β¦ β‘ β‘ * break β¦ L2 , T2 β¦ )"
+ non associative with precedence 45
+ for @{ 'FocalizedPRedStarAlt $L1 $T1 $L2 $T2 }.
+
+notation "hvbox( L β’ break term 46 T1 β‘ * break π β¦ T2 β¦ )"
non associative with precedence 45
for @{ 'PEval $L $T1 $T2 }.
-notation "hvbox( β¬ * term 46 T )"
+notation "hvbox( β¬ * term 46 T )"
non associative with precedence 45
for @{ 'SN $T }.
non associative with precedence 45
for @{ 'CrSubEq $T1 $R $T2 }.
-notation "hvbox( Γ’Β¦\83 h , break L Γ’Β¦\84 Γ’\8aΒ’ break term 46 T1 Γ’\9eΒΈ * break [ g ] break term 46 T2 )"
+notation "hvbox( Γ’Β¦\83 h , break L Γ’Β¦\84 Γ’\8aΒ’ break term 46 T1 Γ’\80Β’ Γ’\9eΒ‘ * break [ g ] break term 46 T2 )"
non associative with precedence 45
for @{ 'XPRedStar $h $g $L $T1 $T2 }.
-notation "hvbox( Γ’Β¦\83 h , break L Γ’Β¦\84 Γ’\8aΒ’ Γ’\9eΒ· * break [ g ] break term 46 T2 )"
+notation "hvbox( Γ’Β¦\83 h , break L Γ’Β¦\84 Γ’\8aΒ’ Γ’\80Β’ Γ’Β¬\8a * break [ g ] break term 46 T2 )"
non associative with precedence 45
for @{ 'XSN $h $g $L $T }.
non associative with precedence 45
for @{ 'PConv $L $T1 $T2 }.
-notation "hvbox( T1 β’ β¬ break term 46 T2 )"
+notation "hvbox( β¦ L1 β¦ β¬ break β¦ L2 β¦ )"
+ non associative with precedence 45
+ for @{ 'FocalizedPConv $L1 $L2 }.
+
+notation "hvbox( β¦ L1 , break T1 β¦ β¬ break β¦ L2 , break T2 β¦ )"
non associative with precedence 45
- for @{ 'CPConv $T1 $T2 }.
+ for @{ 'FocalizedPConv $L1 $T1 $L2 $T2 }.
+
+notation "hvbox( β¦ L1 β¦ β¬ β¬ break β¦ L2 β¦ )"
+ non associative with precedence 45
+ for @{ 'FocalizedPConvAlt $L1 $L2 }.
+
+notation "hvbox( β¦ L1 , break T1 β¦ β¬ β¬ break β¦ L2 , break T2 β¦ )"
+ non associative with precedence 45
+ for @{ 'FocalizedPConvAlt $L1 $T1 $L2 $T2 }.
(* Equivalence **************************************************************)
non associative with precedence 45
for @{ 'PConvStar $L $T1 $T2 }.
-notation "hvbox( T1 β’ β¬* break term 46 T2 )"
+notation "hvbox( β¦ L1 β¦ β¬ * break β¦ L2 β¦ )"
+ non associative with precedence 45
+ for @{ 'FocalizedPConvStar $L1 $L2 }.
+
+notation "hvbox( β¦ L1 , break T1 β¦ β¬ * break β¦ L2 , break T2 β¦ )"
non associative with precedence 45
- for @{ 'CPConvStar $T1 $T2 }.
+ for @{ 'FocalizedPConvStar $L1 $T1 $L2 $T2 }.
+
+notation "hvbox( β¦ L1 β¦ β¬ β¬ * break β¦ L2 β¦ )"
+ non associative with precedence 45
+ for @{ 'FocalizedPConvStarAlt $L1 $L2 }.
+
+notation "hvbox( β¦ L1 , break T1 β¦ β¬ β¬ * break β¦ L2 , break T2 β¦ )"
+ non associative with precedence 45
+ for @{ 'FocalizedPConvStarAlt $L1 $T1 $L2 $T2 }.
(* Dynamic typing ***********************************************************)
non associative with precedence 45
for @{ 'NativeValid $h $g $L $T }.
+notation "hvbox( h β’ break term 46 L1 β© : β [ g ] break term 46 L2 )"
+ non associative with precedence 45
+ for @{ 'CrSubEqV $h $g $L1 $L2 }.
+
notation "hvbox( β¦ h , break L β¦ β’ break term 46 T1 : break term 46 T2 )"
non associative with precedence 45
for @{ 'NativeType $h $L $T1 $T2 }.