+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 }.