I have the following function `h[x_] = Piecewise[{{1 + x, 1 <= x <= 3}, {13 - 3 x, 3 < x <= 4}} ];`. If you expand it by `PiecewiseExpand[Composition[h, h][x]]`, thez result although correct is presented in a strange order and some part are very strange -- look the last row:

\begin{cases}
 x+2 & 1\leq x\leq 2 \\
 14-3 x & \frac{10}{3}\leq x\leq 4 \\
 13-3 (x+1) & 2<x\leq 3 \\
 13-3 (13-3 x) & 3<x<\frac{10}{3} \\
 13 & 2<x<\frac{10}{3}
\end{cases}

Is there a way to correct it and to expand ---~obviously `Expand` doesn't works --- the inside terms as 13 -3(x+1) = 10 - 3x?