reserve S for Subset of TOP-REAL 2,
  C,C1,C2 for non empty compact Subset of TOP-REAL 2,
  p,q for Point of TOP-REAL 2;
reserve i,j,k for Nat,
  t,r1,r2,s1,s2 for Real;

theorem Th25:
  LSeg(NW-corner C, NE-corner C) = { p : p`1 <= E-bound C & p`1 >=
  W-bound C & p`2 = N-bound C}
proof
  set L = { p : p`1 <= E-bound C & p`1 >= W-bound C & p`2 = N-bound C};
  set q1 = NW-corner C, q2 = NE-corner C;
A1: q1`1 = W-bound C by EUCLID:52;
A2: q2`2 = N-bound C by EUCLID:52;
A3: q1`2 = N-bound C by EUCLID:52;
A4: q2`1 = E-bound C by EUCLID:52;
A5: W-bound C <= E-bound C by Th21;
  thus LSeg(q1,q2) c= L
  proof
    let a be object;
    assume
A6: a in LSeg(q1,q2);
    then reconsider p = a as Point of TOP-REAL 2;
A7: p`2 = N-bound C by A3,A2,A6,GOBOARD7:6;
A8: p`1 >= W-bound C by A1,A4,A5,A6,TOPREAL1:3;
    p`1 <= E-bound C by A1,A4,A5,A6,TOPREAL1:3;
    hence thesis by A7,A8;
  end;
  let a be object;
  assume a in L;
  then ex p st p = a & p`1 <= E-bound C & p`1 >= W-bound C & p`2 = N-bound C;
  hence thesis by A1,A3,A4,A2,GOBOARD7:8;
end;
