theorem Th30:
  |(p, 0.TOP-REAL n)| = 0
proof
  reconsider f1=p as FinSequence of REAL by EUCLID:24;
  len f1=n by CARD_1:def 7;
  then 0*(len f1) = 0.TOP-REAL n by EUCLID:70;
  hence thesis by Th8;
end;
