theorem
  k < dim(p) implies k - 1 < dim(p) by XREAL_1:146,XXREAL_0:2;
