Возможно, вы могли бы использовать такой хак, как этот
$PrePrint = (# /. -1 + expr__ :> Interpretation[Row[{expr, -1}], expr - 1]) &
Но (как предполагает WReach), возможно, было бы лучше использовать стандартный порядок выражений Mathematica и использовать TraditionalForm
, когда вы хотите, чтобы он выглядел больше как то, что написал бы человек.