reserve n   for Nat,
        r,s for Real,
        x,y for Element of REAL n,
        p,q for Point of TOP-REAL n,
        e   for Point of Euclid n;

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;
