reserve a, b for Real,
  r for Real,
  rr for Real,
  i, j, n for Nat,
  M for non empty MetrSpace,
  p, q, s for Point of TOP-REAL 2,
  e for Point of Euclid 2,
  w for Point of Euclid n,
  z for Point of M,
  A, B for Subset of TOP-REAL n,
  P for Subset of TOP-REAL 2,
  D for non empty Subset of TOP-REAL 2;
reserve a, b for Real;
reserve a, b for Real;

theorem Th22:
  for p being Point of Euclid 2, q being Point of TOP-REAL 2 st p
  = 0.TOP-REAL 2 & p = q holds q = <* 0,0 *> & q`1 = 0 & q`2 = 0
proof
  let p be Point of Euclid 2, q be Point of TOP-REAL 2 such that
A1: p = 0.TOP-REAL 2 and
A2: p = q;
  0.REAL 2 = 0.TOP-REAL 2 by EUCLID:66;
  then p = <*0,0 *> by A1,FINSEQ_2:61;
  hence thesis by A2;
end;
