reserve r,lambda for Real,
  i,j,n for Nat;
reserve p,p1,p2,q1,q2 for Point of TOP-REAL 2,
  P, P1 for Subset of TOP-REAL 2;
reserve T for TopSpace;
reserve f,f1,f2,h for FinSequence of TOP-REAL 2;

theorem
  p in west_halfline p & p in east_halfline p & p in north_halfline p &
  p in south_halfline p
proof
A1: p`2 = p`2;
  p`1 <= p`1;
  hence thesis by A1,Def10,Def11,Def12,Def13;
end;
