reserve x,y,z for Real,
  x3,y3 for Real,
  p for Point of TOP-REAL 3;

theorem Th3:
  p = |[ p`1, p`2, p`3 ]|
proof
  ex x,y,z st p = <*x,y,z*> by Th1;
  hence thesis;
end;
