theorem Th7:
  product (Seg n --> REAL) = REAL n
  proof
    REAL n = Funcs(Seg n,REAL) by FINSEQ_2:93;
    hence thesis by CARD_3:11;
  end;
