+
+(* Functional ***************************************************************)
+
+notation "hvbox( ↟ [ d , break e ] break T )"
+ non associative with precedence 80
+ for @{ 'Lift $d $e $T }.
+
+notation "hvbox( ↡ [ d ← break V ] break T )"
+ non associative with precedence 80
+ for @{ 'Subst $V $d $T }.
+