theorem Th45:
  len f = n implies f in the carrier of Euclid n
proof
 f in REAL* & n-tuples_on REAL = { s where s is Element of REAL*: len s =
  n } by FINSEQ_1:def 11,FINSEQ_2:def 4;
  hence thesis;
end;
