theorem Th8:
  p in Vertical_Line(p`1)
proof
  p in {q where q is Point of TOP-REAL 2: p`1=q`1};
  hence thesis by JORDAN6:def 6;
end;
