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