theorem
  ProductREAL(n) = Seg n --> the carrier of R^1;
