reserve a, b for Real,
  r for Real,
  rr for Real,
  i, j, n for Nat,
  M for non empty MetrSpace,
  p, q, s for Point of TOP-REAL 2,
  e for Point of Euclid 2,
  w for Point of Euclid n,
  z for Point of M,
  A, B for Subset of TOP-REAL n,
  P for Subset of TOP-REAL 2,
  D for non empty Subset of TOP-REAL 2;

theorem Th6:
  Product((n+1) |-> rr) = (Product(n|->rr))*rr
proof
  thus Product((n+1) |->rr) = (Product(n|->rr))*(Product(1|->rr))
     by RVSUM_1:104
    .= (Product(n|->rr))*rr by Th4;
end;
