notation < "hvbox( { term 46 hd1, break term 46 hd2 }⨮ break term 46 tl )"
non associative with precedence 47
- for @{ 'OplusRight $S1 $S2 $hd1 $hd2 $tl }.
+ for @{ 'OPlusRight $S1 $S2 $hd1 $hd2 $tl }.
notation > "hvbox( { term 46 hd1, break term 46 hd2 }⨮ break term 46 tl )"
non associative with precedence 47
- for @{ 'OplusRight ? ? $hd1 $hd2 $tl }.
+ for @{ 'OPlusRight ? ? $hd1 $hd2 $tl }.
(*
(**) fix pair notation
notation > "hvbox( { term 46 hd1, break term 46 hd2 }⨮{ break term 46 S1, break term 46 S2 } break term 46 tl )"
non associative with precedence 47
- for @{ 'OplusRight $S1 $S2 $hd1 $hd2 $tl }.
+ for @{ 'OPlusRight $S1 $S2 $hd1 $hd2 $tl }.
*)