reserve i, j, n for Element of NAT,
  f, g, h, k for FinSequence of REAL,
  M, N for non empty MetrSpace;

theorem
  ex f be Function of [:TopSpaceMetr Euclid i,TopSpaceMetr Euclid j:],
    TopSpaceMetr Euclid (i+j) st f is being_homeomorphism &
  for fi,fj be FinSequence st [fi,fj] in dom f holds f.(fi,fj) = fi^fj by Lm2;
